File: guilemain.i

package info (click to toggle)

swig 1.1.p5-6

links: PTS
area: main
in suites: potato
size: 9,472 kB
ctags: 5,046
sloc: cpp: 21,612; ansic: 13,333; yacc: 3,297; python: 2,794; makefile: 2,220; perl: 1,997; tcl: 1,583; sh: 736; lisp: 201; objc: 143

file content (21 lines) | stat: -rw-r--r-- 350 bytes

parent folder | download | duplicates (4)

%{
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);
}
%}