home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / unixport / sys_gcl.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-27  |  2.5 KB  |  74 lines
  1. #include "../h/include.h"
  2.  
  3. extern void user_init();
  4.  
  5. void init_or_load1 ();
  6. #define init_or_load(fn,file) do {extern int fn(); init_or_load1(fn,file);} \
  7.   while(0)
  8. static load1(x)
  9.      char *x;
  10. {printf("loading %s\n",x);
  11.  fflush(stdout);
  12.  load(x);}
  13.  
  14. init_init()
  15. {
  16.  
  17.   load1("../lsp/export.lsp");
  18.   init_or_load(init_defmacro,"../lsp/defmacro.o");
  19.   init_or_load(init_evalmacros,"../lsp/evalmacros.o");
  20.   init_or_load(init_top,"../lsp/top.o");
  21.   init_or_load(init_module,"../lsp/module.o");
  22.   load1("../lsp/autoload.lsp");
  23. }
  24.  
  25. init_system()
  26. {
  27.   init_or_load(init_predlib,"../lsp/predlib.o");
  28.   init_or_load(init_setf,"../lsp/setf.o");
  29.   init_or_load(init_arraylib,"../lsp/arraylib.o");
  30.   init_or_load(init_assert,"../lsp/assert.o");
  31.   init_or_load(init_defstruct,"../lsp/defstruct.o");
  32.   init_or_load(init_describe,"../lsp/describe.o");
  33.   init_or_load(init_iolib,"../lsp/iolib.o");
  34.   init_or_load(init_listlib,"../lsp/listlib.o");
  35.   init_or_load(init_mislib,"../lsp/mislib.o");
  36.   init_or_load(init_numlib,"../lsp/numlib.o");
  37.   init_or_load(init_packlib,"../lsp/packlib.o");
  38.   init_or_load(init_seq,"../lsp/seq.o");
  39.   init_or_load(init_seqlib,"../lsp/seqlib.o");
  40.   init_or_load(init_trace,"../lsp/trace.o");
  41.   init_or_load(init_sloop,"../lsp/sloop.o");
  42.     
  43.   init_or_load(init_cmpinline,"../cmpnew/cmpinline.o");
  44.   init_or_load(init_cmputil,"../cmpnew/cmputil.o");
  45.  
  46.   init_or_load(init_debug,"../lsp/debug.o");
  47.  
  48.   init_or_load(init_cmptype,"../cmpnew/cmptype.o");
  49.   init_or_load(init_cmpbind,"../cmpnew/cmpbind.o");
  50.   init_or_load(init_cmpblock,"../cmpnew/cmpblock.o");
  51.   init_or_load(init_cmpcall,"../cmpnew/cmpcall.o");
  52.   init_or_load(init_cmpcatch,"../cmpnew/cmpcatch.o");
  53.   init_or_load(init_cmpenv,"../cmpnew/cmpenv.o");
  54.   init_or_load(init_cmpeval,"../cmpnew/cmpeval.o");
  55.   init_or_load(init_cmpflet,"../cmpnew/cmpflet.o");
  56.   init_or_load(init_cmpfun,"../cmpnew/cmpfun.o");
  57.   init_or_load(init_cmpif,"../cmpnew/cmpif.o");
  58.   init_or_load(init_cmplabel,"../cmpnew/cmplabel.o");
  59.   init_or_load(init_cmplam,"../cmpnew/cmplam.o");
  60.   init_or_load(init_cmplet,"../cmpnew/cmplet.o");
  61.   init_or_load(init_cmploc,"../cmpnew/cmploc.o");
  62.   init_or_load(init_cmpmap,"../cmpnew/cmpmap.o");
  63.   init_or_load(init_cmpmulti,"../cmpnew/cmpmulti.o");
  64.   init_or_load(init_cmpspecial,"../cmpnew/cmpspecial.o");
  65.   init_or_load(init_cmptag,"../cmpnew/cmptag.o");
  66.   init_or_load(init_cmptop,"../cmpnew/cmptop.o");
  67.   init_or_load(init_cmpvar,"../cmpnew/cmpvar.o");
  68.   init_or_load(init_cmpvs,"../cmpnew/cmpvs.o");
  69.   init_or_load(init_cmpwt,"../cmpnew/cmpwt.o");
  70.          
  71.   Vpackage->s.s_dbind = user_package;
  72.   user_init();
  73. }
  74.