← Back to branch summary

~ubuntu-branches/ubuntu/vivid/gcl/vivid

« back to all changes in this revision

Viewing changes to unixport/sys_gcl.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-03-04 14:29:59 UTC
  • Revision ID: james.westby@ubuntu.com-20020304142959-dey14w08kr7lldu3
Tags: upstream-2.5.0.cvs20020219
Import upstream version 2.5.0.cvs20020219

Show diffs side-by-side

added added

removed removed

Lines of Context:
unixport/sys_gcl.c
 
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
 
 
9
static void
 
10
load1(x)
 
11
     char *x;
 
12
{printf("loading %s\n",x);
 
13
 fflush(stdout);
 
14
 load(x);}
 
15
 
 
16
 
 
17
void
 
18
init_init()
 
19
{
 
20
 
 
21
  load1("../lsp/export.lsp");
 
22
  init_or_load(init_defmacro,"../lsp/defmacro.o");
 
23
  init_or_load(init_evalmacros,"../lsp/evalmacros.o");
 
24
  init_or_load(init_top,"../lsp/top.o");
 
25
  init_or_load(init_module,"../lsp/module.o");
 
26
  load1("../lsp/autoload.lsp");
 
27
}
 
28
 
 
29
void
 
30
init_system()
 
31
{
 
32
  init_or_load(init_predlib,"../lsp/predlib.o");
 
33
  init_or_load(init_setf,"../lsp/setf.o");
 
34
  init_or_load(init_arraylib,"../lsp/arraylib.o");
 
35
  init_or_load(init_assert,"../lsp/assert.o");
 
36
  init_or_load(init_defstruct,"../lsp/defstruct.o");
 
37
  init_or_load(init_describe,"../lsp/describe.o");
 
38
  init_or_load(init_iolib,"../lsp/iolib.o");
 
39
  init_or_load(init_listlib,"../lsp/listlib.o");
 
40
  init_or_load(init_mislib,"../lsp/mislib.o");
 
41
  init_or_load(init_numlib,"../lsp/numlib.o");
 
42
  init_or_load(init_packlib,"../lsp/packlib.o");
 
43
  init_or_load(init_seq,"../lsp/seq.o");
 
44
  init_or_load(init_seqlib,"../lsp/seqlib.o");
 
45
  init_or_load(init_trace,"../lsp/trace.o");
 
46
  init_or_load(init_sloop,"../lsp/sloop.o");
 
47
  init_or_load(init_serror,"../lsp/serror.o"); 
 
48
  init_or_load(init_destructuring_bind,"../lsp/destructuring_bind.o");
 
49
  init_or_load(init_defpackage,"../lsp/defpackage.o");
 
50
  init_or_load(init_make_defpackage,"../lsp/make_defpackage.o");
 
51
 
 
52
        
 
53
  init_or_load(init_cmpinline,"../cmpnew/cmpinline.o");
 
54
  init_or_load(init_cmputil,"../cmpnew/cmputil.o");
 
55
 
 
56
  init_or_load(init_debug,"../lsp/debug.o");
 
57
  init_or_load(init_info,"../lsp/info.o");
 
58
 
 
59
  init_or_load(init_cmptype,"../cmpnew/cmptype.o");
 
60
  init_or_load(init_cmpbind,"../cmpnew/cmpbind.o");
 
61
  init_or_load(init_cmpblock,"../cmpnew/cmpblock.o");
 
62
  init_or_load(init_cmpcall,"../cmpnew/cmpcall.o");
 
63
  init_or_load(init_cmpcatch,"../cmpnew/cmpcatch.o");
 
64
  init_or_load(init_cmpenv,"../cmpnew/cmpenv.o");
 
65
  init_or_load(init_cmpeval,"../cmpnew/cmpeval.o");
 
66
  init_or_load(init_cmpflet,"../cmpnew/cmpflet.o");
 
67
  init_or_load(init_cmpfun,"../cmpnew/cmpfun.o");
 
68
  init_or_load(init_cmpif,"../cmpnew/cmpif.o");
 
69
  init_or_load(init_cmplabel,"../cmpnew/cmplabel.o");
 
70
  init_or_load(init_cmplam,"../cmpnew/cmplam.o");
 
71
  init_or_load(init_cmplet,"../cmpnew/cmplet.o");
 
72
  init_or_load(init_cmploc,"../cmpnew/cmploc.o");
 
73
  init_or_load(init_cmpmap,"../cmpnew/cmpmap.o");
 
74
  init_or_load(init_cmpmulti,"../cmpnew/cmpmulti.o");
 
75
  init_or_load(init_cmpspecial,"../cmpnew/cmpspecial.o");
 
76
  init_or_load(init_cmptag,"../cmpnew/cmptag.o");
 
77
  init_or_load(init_cmptop,"../cmpnew/cmptop.o");
 
78
  init_or_load(init_cmpvar,"../cmpnew/cmpvar.o");
 
79
  init_or_load(init_cmpvs,"../cmpnew/cmpvs.o");
 
80
  init_or_load(init_cmpwt,"../cmpnew/cmpwt.o");
 
81
 
 
82
             
 
83
  sLApackageA->s.s_dbind = user_package;
 
84
    user_init();
 
85
  
 
86
}