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!
}
