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

Diff of /gcl/unixport/sys_pcl_gcl.c

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

revision 1.1.6.3 by mjthomas, Tue Feb 24 06:25:56 2004 UTC revision 1.1.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  }  }
171    
# Line 178  gcl_init_cmp_anon(void) { Line 178  gcl_init_cmp_anon(void) {
178    
179    switch(ngazonk++) {    switch(ngazonk++) {
180    case 0:    case 0:
181      ar_check_init(pcl_gazonk0,Cnil);      ar_check_init(gcl_pcl_gazonk0,Cnil);
182      break;      break;
183    case 1:    case 1:
184      ar_check_init(pcl_gazonk1,Cnil);      ar_check_init(gcl_pcl_gazonk1,Cnil);
185      break;      break;
186    case 2:    case 2:
187      ar_check_init(pcl_gazonk2,Cnil);      ar_check_init(gcl_pcl_gazonk2,Cnil);
188      break;      break;
189    case 3:    case 3:
190      ar_check_init(pcl_gazonk3,Cnil);      ar_check_init(gcl_pcl_gazonk3,Cnil);
191      break;      break;
192    case 4:    case 4:
193      ar_check_init(pcl_gazonk4,Cnil);      ar_check_init(gcl_pcl_gazonk4,Cnil);
194      break;      break;
195    case 5:    case 5:
196      ar_check_init(pcl_gazonk5,Cnil);      ar_check_init(gcl_pcl_gazonk5,Cnil);
197      break;      break;
198    case 6:    case 6:
199      ar_check_init(pcl_gazonk6,Cnil);      ar_check_init(gcl_pcl_gazonk6,Cnil);
200      break;      break;
201    case 7:    case 7:
202      ar_check_init(pcl_gazonk7,Cnil);      ar_check_init(gcl_pcl_gazonk7,Cnil);
203      i=1;      i=1;
204      break;      break;
205    default:    default:

Legend:
Removed from v.1.1.6.3  
changed lines
  Added in v.1.1.6.3.10.1

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