4e317b85af
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@39 626c5289-ae23-0410-ae9c-e8d60b6d4f22
21 lines
350 B
OpenEdge ABL
21 lines
350 B
OpenEdge ABL
%{
|
|
void guile_main(void *closure, int argc, char **argv) {
|
|
char buffer[1024];
|
|
void SWIG_init();
|
|
SWIG_init();
|
|
printf("starting Guile...\n");
|
|
printf("guile >");
|
|
while (fgets(buffer,1024,stdin)) {
|
|
gh_eval_str(buffer);
|
|
printf("guile >");
|
|
}
|
|
}
|
|
|
|
void main(int argc, char **argv) {
|
|
gh_enter(argc,argv, guile_main);
|
|
}
|
|
%}
|
|
|
|
|
|
|
|
|