14 lines
316 B
Scheme
14 lines
316 B
Scheme
(in-module gauche-primitives)
|
|
|
|
(inline-stub
|
|
(declcode "#include <stdio.h>")
|
|
(declcode "#include <ffi.h>")
|
|
|
|
(declcode "void Scm_Init_foreign_c_gauche_primitives_internal(void) { puts(\"Hello from init\"); }")
|
|
|
|
(declcode "ScmObj hello() { return Scm_MakeInteger(1); }")
|
|
|
|
(define-cproc hello-lol () hello))
|
|
|
|
|