#include "scheme48.h"

extern void scx_init_window();
extern void scx_init_display();
extern void scx_init_type();
extern void scx_init_color();
extern void scx_init_colormap();
extern void scx_init_pixel();
extern void scx_init_gcontext();
extern void scx_init_event();
extern void scx_init_pixmap();
extern void scx_init_graphics();
extern void scx_init_font();
extern void scx_init_cursor();
extern void scx_init_text();
extern void scx_init_property();
extern void scx_init_wm();
extern void scx_init_client();
extern void scx_init_key();
extern void scx_init_error();
extern void scx_init_extension();
extern void scx_init_init();
extern void scx_init_util();
extern void scx_init_grab();
extern void scx_init_visual();
extern void scx_init_region();

int main(int argc, char **argv) {
  //  char** my_argv = argv;

  s48_add_external_init(scx_init_window);
  s48_add_external_init(scx_init_display); 
  s48_add_external_init(scx_init_type);
  s48_add_external_init(scx_init_color);
  s48_add_external_init(scx_init_color);
  s48_add_external_init(scx_init_colormap);
  s48_add_external_init(scx_init_pixel);
  s48_add_external_init(scx_init_gcontext);
  s48_add_external_init(scx_init_event);
  s48_add_external_init(scx_init_pixmap);
  s48_add_external_init(scx_init_graphics);
  s48_add_external_init(scx_init_font);
  s48_add_external_init(scx_init_text);
  s48_add_external_init(scx_init_property);
  s48_add_external_init(scx_init_cursor);
  s48_add_external_init(scx_init_wm);
  s48_add_external_init(scx_init_client);
  s48_add_external_init(scx_init_key);
  s48_add_external_init(scx_init_error);
  s48_add_external_init(scx_init_extension);
  s48_add_external_init(scx_init_init);
  s48_add_external_init(scx_init_util);
  s48_add_external_init(scx_init_grab);
  s48_add_external_init(scx_init_visual);
  s48_add_external_init(scx_init_region);

  /*  char **argp; //JMG
  char *image_name = DEFAULT_IMAGE_NAME;
  long heap_size = DEFAULT_HEAP_SIZE;    // in numbers of cells
  long stack_size = DEFAULT_STACK_SIZE;  // in numbers of cells
  char *object_file = NULL;   // specified via a command line argument
  char *prog_name;

#if defined(STATIC_AREAS)
  extern long static_entry;
  extern long static_symbol_table;
  extern long static_imported_binding_table, static_exported_binding_table;
  extern long p_count, *p_areas[], p_sizes[];
  extern long i_count, *i_areas[], i_sizes[];
#endif

  long vm_argc = 0;
  char *me = *argv;		// Save program name.
  prog_name = *argv++;

  argv=process_args(argv, 		
		    &heap_size, &stack_size,
		    &object_file, &image_name);
  for(argc=0, argp=argv; *argp; argc++, argp++); // Recompute argc.
  return internal_s48_main(heap_size, stack_size, prog_name, object_file, image_name, argc, argv);
  */

  s48_main(8000000, 64000,
	   SCSHIMAGE,
	   0, (char**) 0);
}