scx/c/xlib/main.c

#include "scheme48.h"

extern void s48_init_window();
extern void s48_init_display();
extern void s48_init_type();
extern void s48_init_color();
extern void s48_init_colormap();
extern void s48_init_pixel();
extern void s48_init_gcontext();

int main(){
  s48_add_external_init(s48_init_window);
  s48_add_external_init(s48_init_display); 
  s48_add_external_init(s48_init_type);
  s48_add_external_init(s48_init_color);
  s48_add_external_init(s48_init_color);
  s48_add_external_init(s48_init_colormap);
  s48_add_external_init(s48_init_pixel);
  s48_add_external_init(s48_init_gcontext);

  s48_main(8000000, 64000, 
	   "/afs/wsi/home/dfreese/i386_fbsd43/scsh-0.6/lib/scheme48/scsh.image",
	   0,(char**) 0);
}