]>
Commit | Line | Data |
---|---|---|
c90f71dd RD |
1 | %{ |
2 | void guile_main(void *closure, int argc, char **argv) { | |
3 | char buffer[1024]; | |
4 | void SWIG_init(); | |
5 | SWIG_init(); | |
6 | printf("starting Guile...\n"); | |
7 | printf("guile >"); | |
8 | while (fgets(buffer,1024,stdin)) { | |
9 | gh_eval_str(buffer); | |
10 | printf("guile >"); | |
11 | } | |
12 | } | |
13 | ||
14 | void main(int argc, char **argv) { | |
15 | gh_enter(argc,argv, guile_main); | |
16 | } | |
17 | %} | |
18 | ||
19 | ||
20 | ||
21 |