32 |
;;of files which are linked into an image. |
;;of files which are linked into an image. |
33 |
|
|
34 |
(clines "#define init_or_load(fn,file) do {extern void fn(void); init_or_load1(fn,file);} while(0)") |
(clines "#define init_or_load(fn,file) do {extern void fn(void); init_or_load1(fn,file);} while(0)") |
35 |
|
(clines "static void") |
36 |
|
(clines "load1(char *x) {") |
37 |
|
(clines "printf(\"loading %s\\n\",x);") |
38 |
|
(clines "fflush(stdout);") |
39 |
|
(clines "load(x);") |
40 |
|
(clines "}") |
41 |
|
|
42 |
#. |
#. |
43 |
(let ((files *files*)) |
(let ((files *files*)) |
45 |
(with-open-file (st "maxobjs" :direction :output) |
(with-open-file (st "maxobjs" :direction :output) |
46 |
`(progn |
`(progn |
47 |
(clines "object user_init() {") |
(clines "object user_init() {") |
48 |
|
(clines "load1(\"../xgcl-2/sysdef.lisp\");") |
49 |
,@(sloop::sloop for x in files |
,@(sloop::sloop for x in files |
50 |
for f = (substitute #\_ #\- x) |
for f = (substitute #\_ #\- x) |
51 |
for ff = (namestring (truename (format nil "~a.o" x))) |
for ff = (namestring (truename (format nil "~a.o" x))) |