/[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.6.3 by mjthomas, Tue Feb 24 06:25:56 2004 UTC revision 1.2.6.3.10.1 by camm, Fri May 6 21:56:57 2005 UTC
# Line 22  void gcl_init_or_load1 (void (*)(void),c Line 22  void gcl_init_or_load1 (void (*)(void),c
22      error("Cannot unpack module " #a "o\n");\      error("Cannot unpack module " #a "o\n");\
23    if (system(b)) \    if (system(b)) \
24      error("Cannot run ar command to unpack module " #a ".o\n");\      error("Cannot run ar command to unpack module " #a ".o\n");\
25    init_or_load(Mjoin(init_,a),#a ".o");\    init_or_load(Mjoin(init_,Mjoin(a,_o)),#a ".o");\
26    if (unlink(#a ".o"))\    if (unlink(#a ".o"))\
27      error("Cannot unlink " #a ".o\n");\      error("Cannot unlink " #a ".o\n");\
28  } while(0)  } while(0)
# Line 132  gcl_init_system(object no_init) Line 132  gcl_init_system(object no_init)
132    ar_check_init(gcl_cmpvs,no_init);    ar_check_init(gcl_cmpvs,no_init);
133    ar_check_init(gcl_cmpwt,no_init);    ar_check_init(gcl_cmpwt,no_init);
134    
135    ar_check_init(pcl_pkg,no_init);    ar_check_init(gcl_pcl_pkg,no_init);
136    ar_check_init(pcl_walk,no_init);    ar_check_init(gcl_pcl_walk,no_init);
137    ar_check_init(pcl_iterate,no_init);    ar_check_init(gcl_pcl_iterate,no_init);
138    ar_check_init(pcl_macros,no_init);    ar_check_init(gcl_pcl_macros,no_init);
139    ar_check_init(pcl_low,no_init);    ar_check_init(gcl_pcl_low,no_init);
140    ar_check_init(pcl_gcl_low,no_init);    ar_check_init(gcl_pcl_impl_low,no_init);
141    ar_check_init(pcl_fin,no_init);    ar_check_init(gcl_pcl_fin,no_init);
142    ar_check_init(pcl_defclass,no_init);    ar_check_init(gcl_pcl_defclass,no_init);
143    ar_check_init(pcl_defs,no_init);    ar_check_init(gcl_pcl_defs,no_init);
144    ar_check_init(pcl_fngen,no_init);    ar_check_init(gcl_pcl_fngen,no_init);
145    ar_check_init(pcl_cache,no_init);    ar_check_init(gcl_pcl_cache,no_init);
146    ar_check_init(pcl_dlisp,no_init);    ar_check_init(gcl_pcl_dlisp,no_init);
147    ar_check_init(pcl_dlisp2,no_init);    ar_check_init(gcl_pcl_dlisp2,no_init);
148    ar_check_init(pcl_boot,no_init);    ar_check_init(gcl_pcl_boot,no_init);
149    ar_check_init(pcl_vector,no_init);    ar_check_init(gcl_pcl_vector,no_init);
150    ar_check_init(pcl_slots_boot,no_init);    ar_check_init(gcl_pcl_slots_boot,no_init);
151    ar_check_init(pcl_combin,no_init);    ar_check_init(gcl_pcl_combin,no_init);
152    ar_check_init(pcl_dfun,no_init);    ar_check_init(gcl_pcl_dfun,no_init);
153    ar_check_init(pcl_fast_init,no_init);    ar_check_init(gcl_pcl_fast_init,no_init);
154    ar_check_init(pcl_braid,no_init);    ar_check_init(gcl_pcl_braid,no_init);
155    ar_check_init(pcl_generic_functions,no_init);    ar_check_init(gcl_pcl_generic_functions,no_init);
156    ar_check_init(pcl_slots,no_init);    ar_check_init(gcl_pcl_slots,no_init);
157    ar_check_init(pcl_init,no_init);    ar_check_init(gcl_pcl_init,no_init);
158    ar_check_init(pcl_std_class,no_init);    ar_check_init(gcl_pcl_std_class,no_init);
159    ar_check_init(pcl_cpl,no_init);    ar_check_init(gcl_pcl_cpl,no_init);
160    ar_check_init(pcl_fsc,no_init);    ar_check_init(gcl_pcl_fsc,no_init);
161    ar_check_init(pcl_methods,no_init);    ar_check_init(gcl_pcl_methods,no_init);
162    ar_check_init(pcl_fixup,no_init);    ar_check_init(gcl_pcl_fixup,no_init);
163    ar_check_init(pcl_defcombin,no_init);    ar_check_init(gcl_pcl_defcombin,no_init);
164    ar_check_init(pcl_ctypes,no_init);    ar_check_init(gcl_pcl_ctypes,no_init);
165    ar_check_init(pcl_env,no_init);    ar_check_init(gcl_pcl_env,no_init);
166    ar_check_init(pcl_compat,no_init);    ar_check_init(gcl_pcl_compat,no_init);
167    ar_check_init(pcl_precom1,no_init);    ar_check_init(gcl_pcl_precom1,no_init);
168    ar_check_init(pcl_precom2,no_init);    ar_check_init(gcl_pcl_precom2,no_init);
169    
170    ar_check_init(clcs_precom,no_init);    ar_check_init(gcl_clcs_precom,no_init);
171    ar_check_init(clcs_macros,no_init);    ar_check_init(gcl_clcs_macros,no_init);
172    ar_check_init(clcs_restart,no_init);    ar_check_init(gcl_clcs_restart,no_init);
173    ar_check_init(clcs_handler,no_init);    ar_check_init(gcl_clcs_handler,no_init);
174    ar_check_init(clcs_debugger,no_init);    ar_check_init(gcl_clcs_debugger,no_init);
175    ar_check_init(clcs_conditions,no_init);    ar_check_init(gcl_clcs_conditions,no_init);
176    ar_check_init(clcs_condition_definitions,no_init);    ar_check_init(gcl_clcs_condition_definitions,no_init);
177    ar_check_init(clcs_kcl_cond,no_init);    ar_check_init(gcl_clcs_kcl_cond,no_init);
178    ar_check_init(clcs_top_patches,no_init);    ar_check_init(gcl_clcs_top_patches,no_init);
179    ar_check_init(clcs_install,no_init);    ar_check_init(gcl_clcs_install,no_init);
180        
181  }  }
182    
# Line 189  gcl_init_cmp_anon(void) { Line 189  gcl_init_cmp_anon(void) {
189    
190    switch(ngazonk++) {    switch(ngazonk++) {
191    case 0:    case 0:
192      ar_check_init(pcl_gazonk0,Cnil);      ar_check_init(gcl_pcl_gazonk0,Cnil);
193      break;      break;
194    case 1:    case 1:
195      ar_check_init(pcl_gazonk1,Cnil);      ar_check_init(gcl_pcl_gazonk1,Cnil);
196      break;      break;
197    case 2:    case 2:
198      ar_check_init(pcl_gazonk2,Cnil);      ar_check_init(gcl_pcl_gazonk2,Cnil);
199      break;      break;
200    case 3:    case 3:
201      ar_check_init(pcl_gazonk3,Cnil);      ar_check_init(gcl_pcl_gazonk3,Cnil);
202      break;      break;
203    case 4:    case 4:
204      ar_check_init(pcl_gazonk4,Cnil);      ar_check_init(gcl_pcl_gazonk4,Cnil);
205      break;      break;
206    case 5:    case 5:
207      ar_check_init(pcl_gazonk5,Cnil);      ar_check_init(gcl_pcl_gazonk5,Cnil);
208      break;      break;
209    case 6:    case 6:
210      ar_check_init(pcl_gazonk6,Cnil);      ar_check_init(gcl_pcl_gazonk6,Cnil);
211      break;      break;
212    case 7:    case 7:
213      ar_check_init(pcl_gazonk7,Cnil);      ar_check_init(gcl_pcl_gazonk7,Cnil);
214      i=1;      i=1;
215      break;      break;
216    default:    default:

Legend:
Removed from v.1.2.6.3  
changed lines
  Added in v.1.2.6.3.10.1

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