Skip to content

Instantly share code, notes, and snippets.

📛
moof

okuoku okuoku

📛
moof
Block or report user

Report or block okuoku

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View defconfig
# CONFIG_LOCALVERSION_AUTO is not set
CONFIG_NO_HZ_IDLE=y
# CONFIG_SYSFS_SYSCALL is not set
CONFIG_KALLSYMS_USE_DATA_SECTION=y
CONFIG_KALLSYMS_ALL=y
# CONFIG_BASE_FULL is not set
# CONFIG_FUTEX is not set
# CONFIG_SIGNALFD is not set
# CONFIG_TIMERFD is not set
# CONFIG_AIO is not set
View Setupmemo.md
@okuoku
okuoku / check.scm
Created Jun 11, 2017
Unsuccessfull make-coreops-fake on Gauche
View check.scm
(define (make-coreops-fake)
(define-syntax define-query0
(syntax-rules ()
((_ q (sym0 sym1) ...)
(define (q symbol)
(case symbol
((sym0) sym1)
...
(else
@okuoku
okuoku / sorted.scm
Created Jun 3, 2017
Sorted (yuni scheme) procedures
View sorted.scm
;; "4.2.6. Dynamic bindings"
;; parameterize is a syntax
make-parameter
;; "6.1. Equivalence predicates"
eqv? eq? equal?
;; "6.2.6. Numerical operations"
;; Skip: rational? rationalize infinite? numerator denominator
;; make-rectangular make-polar real-part imag-part magnitude angle
@okuoku
okuoku / check3.scm
Created Feb 11, 2016
Kawa --no-inline requirement
View check3.scm
(define-library (minitype)
(export
miniobj-minitype-ref
miniobj-minitype-set!
make-minitype-obj)
(import (scheme base) (scheme write))
(begin
(define (make-minitype-obj)
(vector "UNINITIALIZED_x" "UNINITIALIZED_y"))
View errtbl.txt
# Reader error: NRx7xxxx
NRE70001:
J: 表記エラーが多すぎるため読み取りを中止しました。
NRE70002:
J: inline hex escapeがセミコロンによって終端されていません。
NRE70003:
J: inline hex escapeによって指定された値は有効な文字ではありません。
@okuoku
okuoku / gist:3f2e469497bbf12575e8
Created Jul 19, 2015
Compiler of SECDR scheme (GPL)
View gist:3f2e469497bbf12575e8
;;
;; compiler.scm
;;
;;;; SECDR Compiler
;;
;; Date written 11-Feb-1990 by Atsushi Moriwaki
;; Date revised 20-Feb-1990 by Atsushi Moriwaki
;; Date revised 06-Mar-1990 by Atsushi Moriwaki
;; Date revised 31-Jul-1992 by Shoichi Hayashi
@okuoku
okuoku / gist:f9b465452b0aa9c49b8f
Created Jun 6, 2015
Generated SDL2 binding for yuni
View gist:f9b465452b0aa9c49b8f
#include "SDL.h"
#include <yuniffi/stub/_top.h>
#define EXPORT_SDL_MAIN_NEEDED(k)\
YUNIFFI_EXPORTCLASS_CONST_SINT(k, "SDL_MAIN_NEEDED", SDL_MAIN_NEEDED)
#define EXPORT_SDL_ICONV_ERROR(k)\
YUNIFFI_EXPORTCLASS_CONST_UINT(k, "SDL_ICONV_ERROR", SDL_ICONV_ERROR)
#define EXPORT_SDL_ICONV_E2BIG(k)\
@okuoku
okuoku / gist:e51fd2bfc88d67172dff
Created Jun 3, 2015
call-stubs.inc.c from latest NMosh
View gist:e51fd2bfc88d67172dff
typedef int (*func_ip_i_t)(int, void*);
void
callstub_ip_i(func_ip_i_t func, uint64_t* args, void* ret){
*(intptr_t*)ret = func(*(int *)(char *)&args[0], *(void* *)(char *)&args[1]);
}
typedef int (*func__i_t)();
void
callstub__i(func__i_t func, uint64_t* args, void* ret){
*(intptr_t*)ret = func();
View gist:7f5b3fa0d4dbd0230b9a
(import (rnrs)
(only (srfi :1) lset-difference)
(srfi :8)
(shorten)
(yuni util files)
(yuni text tabular))
(define (filt-r7 sexp) (filter (lambda (e) (pair? (car e))) sexp))
(define (genall dic)
You can’t perform that action at this time.