26 lines
488 B
Scheme
26 lines
488 B
Scheme
(for-each
|
|
display
|
|
`("#include \"picrin.h\"\n"
|
|
"#include \"picrin/extra.h\"\n"
|
|
"\n"
|
|
"#if PIC_USE_EVAL\n"
|
|
"static "))
|
|
|
|
(let loop ()
|
|
(let ((c (read-u8)))
|
|
(unless (eof-object? c)
|
|
(write-u8 c)
|
|
(loop))))
|
|
|
|
(for-each
|
|
display
|
|
`("#endif\n"
|
|
"\n"
|
|
"void\n"
|
|
"pic_init_eval(pic_state *PIC_UNUSED(pic))\n"
|
|
"{\n"
|
|
"#if PIC_USE_EVAL\n"
|
|
" pic_call(pic, pic_deserialize(pic, pic_blob_value(pic, eval_rom, sizeof eval_rom)), 0);\n"
|
|
"#endif\n"
|
|
"}\n"))
|