libgaucheを使ったS式リーダできたよー(~ρ~) % ./srepl 3322 3322 (1 2 3 4) (1 2 3 4) (1 3 (hoge fuga) gggg) (1 3 (hoge fuga) gggg) % cat >sexps (3 2 2 4 8) (hoge "hoge\nfuga" (fuga (fuga (fuga)))) 3322 % ./srepl sexps (3 2 2 4 8) (hoge "hoge\nfuga" (fuga (fuga (fuga)))) 3322読んで吐きだしてるだっけ。 #include <gauche.h> #include <stdio.h> #include <stdlib.h> #include <fcntl.h> #define GetSymbol(x) \ SCM_SYMBOL(SCM_INTERN(x))