/[gcl]/gcl/unixport/sys_ansi_gcl.c
ViewVC logotype

Diff of /gcl/unixport/sys_ansi_gcl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Thu Feb 27 16:14:10 2003 UTC revision 1.3 by camm, Sun Sep 14 02:43:08 2003 UTC
# Line 5  Line 5 
5  extern object user_init();  extern object user_init();
6    
7    
8  void init_or_load1 (void (*)(void),char *);  void gcl_init_or_load1 (void (*)(void),char *);
9  #define init_or_load(fn,file) do {extern void fn(void); init_or_load1(fn,file);} \  #define init_or_load(fn,file) do {extern void fn(void); gcl_init_or_load1(fn,file);} \
10    while(0)    while(0)
11    
12  #define mjoin(a,b) a ## b  #define mjoin(a,b) a ## b
# Line 55  load1(x) Line 55  load1(x)
55  } while(0)  } while(0)
56    
57  void  void
58  init_init()  gcl_init_init()
59  {  {
60    
61    build_symbol_table();    build_symbol_table();
62    
63    lsp_init("../lsp/export.lsp");    lsp_init("../lsp/gcl_export.lsp");
64    
65    ar_init(defmacro);    ar_init(gcl_defmacro);
66    ar_init(evalmacros);    ar_init(gcl_evalmacros);
67    ar_init(top);    ar_init(gcl_top);
68    ar_init(module);    ar_init(gcl_module);
69    
70    lsp_init("../lsp/autoload.lsp");    lsp_init("../lsp/gcl_autoload.lsp");
71    
72  }  }
73    
74  void  void
75  init_system(object no_init)  gcl_init_system(object no_init)
76  {  {
77    
78    if (type_of(no_init)!=t_symbol)    if (type_of(no_init)!=t_symbol)
79      error("Supplied no_init is not of type symbol\n");      error("Supplied no_init is not of type symbol\n");
80    
81    ar_check_init(predlib,no_init);    ar_check_init(gcl_predlib,no_init);
82    ar_check_init(setf,no_init);    ar_check_init(gcl_setf,no_init);
83    ar_check_init(arraylib,no_init);    ar_check_init(gcl_arraylib,no_init);
84    ar_check_init(assert,no_init);    ar_check_init(gcl_assert,no_init);
85    ar_check_init(defstruct,no_init);    ar_check_init(gcl_defstruct,no_init);
86    ar_check_init(describe,no_init);    ar_check_init(gcl_describe,no_init);
87    ar_check_init(iolib,no_init);    ar_check_init(gcl_iolib,no_init);
88    ar_check_init(listlib,no_init);    ar_check_init(gcl_listlib,no_init);
89    ar_check_init(mislib,no_init);    ar_check_init(gcl_mislib,no_init);
90    ar_check_init(numlib,no_init);    ar_check_init(gcl_numlib,no_init);
91    ar_check_init(packlib,no_init);    ar_check_init(gcl_packlib,no_init);
92    ar_check_init(seq,no_init);    ar_check_init(gcl_seq,no_init);
93    ar_check_init(seqlib,no_init);    ar_check_init(gcl_seqlib,no_init);
94    ar_check_init(trace,no_init);    ar_check_init(gcl_trace,no_init);
95    ar_check_init(sloop,no_init);    ar_check_init(gcl_sloop,no_init);
96    ar_check_init(serror,no_init);    ar_check_init(gcl_serror,no_init);
97    ar_check_init(destructuring_bind,no_init);    ar_check_init(gcl_destructuring_bind,no_init);
98    ar_check_init(loop,no_init);    ar_check_init(gcl_loop,no_init);
99    ar_check_init(defpackage,no_init);    ar_check_init(gcl_defpackage,no_init);
100    ar_check_init(make_defpackage,no_init);    ar_check_init(gcl_make_defpackage,no_init);
101    
102                    
103    ar_check_init(cmpinline,no_init);    ar_check_init(gcl_cmpinline,no_init);
104    ar_check_init(cmputil,no_init);    ar_check_init(gcl_cmputil,no_init);
105    
106    ar_check_init(debug,no_init);    ar_check_init(gcl_debug,no_init);
107    ar_check_init(info,no_init);    ar_check_init(gcl_info,no_init);
108    
109    ar_check_init(cmptype,no_init);    ar_check_init(gcl_cmptype,no_init);
110    ar_check_init(cmpbind,no_init);    ar_check_init(gcl_cmpbind,no_init);
111    ar_check_init(cmpblock,no_init);    ar_check_init(gcl_cmpblock,no_init);
112    ar_check_init(cmpcall,no_init);    ar_check_init(gcl_cmpcall,no_init);
113    ar_check_init(cmpcatch,no_init);    ar_check_init(gcl_cmpcatch,no_init);
114    ar_check_init(cmpenv,no_init);    ar_check_init(gcl_cmpenv,no_init);
115    ar_check_init(cmpeval,no_init);    ar_check_init(gcl_cmpeval,no_init);
116    ar_check_init(cmpflet,no_init);    ar_check_init(gcl_cmpflet,no_init);
117    ar_check_init(cmpfun,no_init);    ar_check_init(gcl_cmpfun,no_init);
118    ar_check_init(cmpif,no_init);    ar_check_init(gcl_cmpif,no_init);
119    ar_check_init(cmplabel,no_init);    ar_check_init(gcl_cmplabel,no_init);
120    ar_check_init(cmplam,no_init);    ar_check_init(gcl_cmplam,no_init);
121    ar_check_init(cmplet,no_init);    ar_check_init(gcl_cmplet,no_init);
122    ar_check_init(cmploc,no_init);    ar_check_init(gcl_cmploc,no_init);
123    ar_check_init(cmpmap,no_init);    ar_check_init(gcl_cmpmap,no_init);
124    ar_check_init(cmpmulti,no_init);    ar_check_init(gcl_cmpmulti,no_init);
125    ar_check_init(cmpspecial,no_init);    ar_check_init(gcl_cmpspecial,no_init);
126    ar_check_init(cmptag,no_init);    ar_check_init(gcl_cmptag,no_init);
127    ar_check_init(cmptop,no_init);    ar_check_init(gcl_cmptop,no_init);
128    ar_check_init(cmpvar,no_init);    ar_check_init(gcl_cmpvar,no_init);
129    ar_check_init(cmpvs,no_init);    ar_check_init(gcl_cmpvs,no_init);
130    ar_check_init(cmpwt,no_init);    ar_check_init(gcl_cmpwt,no_init);
131    
132    ar_check_init(pcl_pkg,no_init);    ar_check_init(pcl_pkg,no_init);
133    ar_check_init(pcl_walk,no_init);    ar_check_init(pcl_walk,no_init);
# Line 180  init_system(object no_init) Line 180  init_system(object no_init)
180  static int ngazonk;  static int ngazonk;
181    
182  int  int
183  init_cmp_anon(void) {  gcl_init_cmp_anon(void) {
184    
185    int i=0;    int i=0;
186    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26