[Scsh-checkins] CVS: scx/c main.c,NONE,1.1

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/c
In directory usw-pr-cvs1:/tmp/cvs-serv20925/c

Added Files:
        main.c 
Log Message:
- update and moved here from c/xlib/


--- NEW FILE ---
#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,
           "/afs/wsi/home/dfreese/i386_fbsd40/lib/scsh/scsh.image",
           0, (char**) 0);
}