int main(int argc, char **argv) { #ifdef HAVE_LIBGUILE gh_enter(argc, argv, realmain); #else realmain(argc, argv); #endif return 0; }
void script_init (int argc, char **argv) { #ifdef USE_PERL char *filename; perl_env = perl_alloc (); perl_construct (perl_env); filename = gethome_conf_file ("script.pl"); script_load (filename, SCRIPT_PERL); #endif #ifdef USE_GUILE gh_enter (argc, argv, fake_main); #endif }
int main(int argc, char *argv[]) { theDisplay = XOpenDisplay(NULL); XSynchronize(theDisplay, True); theScreen = DefaultScreenOfDisplay(theDisplay); theWindow = XCreateSimpleWindow(theDisplay, RootWindowOfScreen(theScreen), 0, 0, WINDOW_SIZE, WINDOW_SIZE, 0, BlackPixelOfScreen(theScreen), WhitePixelOfScreen(theScreen)); theGC = XCreateGC(theDisplay, theWindow, 0L, NULL); XSetForeground(theDisplay, theGC, BlackPixelOfScreen(theScreen)); XMapWindow(theDisplay, theWindow); /* more stuff to come here... */ tortoise_reset(); gh_enter(argc, argv, inner_main); return 0; /* never reached */ }
/** ** Initialize ccl. */ global void volatile CclInit(void) { gh_enter(0,0,gh_main_prog); // guile didn't return! }