2001-12-04 05:23:51 -05:00
|
|
|
#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,
|
2001-12-04 06:07:47 -05:00
|
|
|
SCSHIMAGE,
|
2001-12-04 05:23:51 -05:00
|
|
|
0, (char**) 0);
|
|
|
|
|
}
|
|
|
|
|
|
