source: trunk/source/level-1/runtime.lisp @ 15237

Last change on this file since 15237 was 13067, checked in by rme, 10 years ago

Update copyright notices.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 6.2 KB
Line 
1;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;;   Copyright (C) 2009 Clozure Associates
4;;;   Copyright (C) 1994-2001 Digitool, Inc
5;;;   This file is part of Clozure CL. 
6;;;
7;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
8;;;   License , known as the LLGPL and distributed with Clozure CL as the
9;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
10;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
11;;;   conflict, the preamble takes precedence. 
12;;;
13;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
14;;;
15;;;   The LLGPL is also available online at
16;;;   http://opensource.franz.com/preamble.html
17
18;;; Load .pfsl files, create a "runtime" (compiler- & development-tools-less)
19;;; image.
20
21(in-package "CCL")
22
23(%fasload "./l1-pfsls/l1-cl-package.pfsl")
24(%fasload "./l1-pfsls/l1-utils.pfsl")
25(%fasload "./l1-pfsls/l1-init.pfsl")
26(%fasload "./l1-pfsls/l1-symhash.pfsl")
27(%fasload "./l1-pfsls/l1-numbers.pfsl")
28(%fasload "./l1-pfsls/l1-aprims.pfsl")
29(%fasload "./l1-pfsls/ppc-callback-support.pfsl")
30(%fasload "./l1-pfsls/l1-sort.pfsl")
31(%fasload "./l1-pfsls/l1-dcode.pfsl")
32(%fasload "./l1-pfsls/l1-clos.pfsl")
33(%fasload "./binppc/defstruct.pfsl")
34(%fasload "./l1-pfsls/l1-streams.pfsl")
35(%fasload "./l1-pfsls/linux-files.pfsl")
36(%fasload "./binppc/lists.pfsl")
37(%fasload "./binppc/sequences.pfsl")
38(%fasload "./binppc/chars.pfsl")
39(%fasload "./l1-pfsls/l1-files.pfsl")
40(provide "SEQUENCES")
41(provide "DEFSTRUCT")
42(provide "CHARS")
43(provide "LISTS")
44(%fasload "./l1-pfsls/ppc-stack-groups.pfsl")
45(%fasload "./l1-pfsls/l1-stack-groups.pfsl")
46(%fasload "./l1-pfsls/l1-processes.pfsl")
47(%fasload "./l1-pfsls/l1-io.pfsl")
48(%fasload "./l1-pfsls/l1-reader.pfsl")
49(%fasload "./l1-pfsls/l1-readloop.pfsl")
50(%fasload "./l1-pfsls/l1-readloop-lds.pfsl")
51(%fasload "./l1-pfsls/l1-error-system.pfsl")
52
53(%fasload "./l1-pfsls/l1-events.pfsl")
54(%fasload "./l1-pfsls/ppc-trap-support.pfsl")
55(%fasload "./l1-pfsls/l1-format.pfsl")
56(%fasload "./l1-pfsls/l1-sysio.pfsl")
57(%fasload "./l1-pfsls/l1-pathnames.pfsl")
58(%fasload "./l1-pfsls/version.pfsl")
59(%fasload "./l1-pfsls/l1-boot-lds.pfsl")
60
61(%fasload "./l1-pfsls/l1-boot-1.pfsl")
62(catch :toplevel
63    (%fasload "./l1-pfsls/l1-typesys.pfsl")
64    (%fasload "./l1-pfsls/sysutils.pfsl")
65    (%fasload "./l1-pfsls/l1-error-signal.pfsl")
66    (setq *LEVEL-1-LOADED* t))
67
68(def-ccl-pointers fd-streams ()
69  (let* ((in (make-fd-stream 0 :direction :input))
70         (out (make-fd-stream 1 :direction :output))
71         (error out))
72    (setq *terminal-io* (make-echoing-two-way-stream in out))
73    (setq *debug-io* (make-echoing-two-way-stream in error)
74          *query-io* *debug-io*)
75    (setq *standard-input* in
76          *standard-output* out
77          *error-output* error
78          *trace-output* error)))
79
80(catch :toplevel
81    (flet ((load-provide (module path)
82             (let* ((*package* *package*))
83               (%fasload path)
84               (provide module))))
85      (load-provide "SORT" "./binppc/sort.pfsl")
86      (load-provide "NUMBERS" "./binppc/numbers.pfsl")
87      (load-provide "HASH" "./binppc/hash.pfsl")
88;;;   (load-provide "DLL-NODE" "./binppc/dll-node.pfsl")
89;;;   (load-provide "PPC32-ARCH" "./binppc/ppc32-arch.pfsl")
90;;;   (load-provide "VREG" "./binppc/vreg.pfsl")
91;;;   (load-provide "PPC-ASM" "./binppc/ppc-asm.pfsl")
92;;;   (load-provide "VINSN" "./binppc/vinsn.pfsl")
93;;;   (load-provide "PPC-VINSNS" "./binppc/ppc-vinsns.pfsl")
94;;;   (load-provide "PPC-REG" "./binppc/ppc-reg.pfsl")
95;;;   (load-provide "SUBPRIMS" "./binppc/subprims.pfsl")
96;;;   (load-provide "PPC-LAP" "./binppc/ppc-lap.pfsl")
97;;;   (provide "PPC2")                  ; Lie, load the module manually
98;;;   (load-provide "NX" "./l1-pfsls/nx.pfsl")
99;;;   (%fasload "./binppc/ppc2.pfsl")
100      (load-provide "LEVEL-2" "./binppc/level-2.pfsl")
101;;;     (load-provide "SETF" "./binppc/setf.pfsl")
102      (load-provide "SETF-RUNTIME" "./binppc/setf-runtime.pfsl")
103      (load-provide "FORMAT" "./binppc/format.pfsl")
104      (load-provide "STREAMS" "./binppc/streams.pfsl")
105;;;   (load-provide "OPTIMIZERS" "./binppc/optimizers.pfsl")
106;;;   (load-provide "PPC-OPTIMIZERS" "./binppc/ppc-optimizers.pfsl")
107;;;   (load-provide "LISPEQU" "./library/lispequ.pfsl")          ; Shouldn't need this at load time ...
108;;;   (load-provide "DEFSTRUCT-MACROS" "./binppc/defstruct-macros.pfsl")        ;  ... but this file thinks it does.
109;;;   (load-provide "DEFSTRUCT-LDS" "./binppc/defstruct-lds.pfsl")
110;;;   (load-provide "NFCOMP" "./binppc/nfcomp.pfsl")
111;;;   (load-provide "BACKQUOTE" "./binppc/backquote.pfsl")
112      (load-provide "BACKTRACE-LDS" "./binppc/backtrace-lds.pfsl")
113      (load-provide "BACKTRACE" "./binppc/backtrace.pfsl")
114      (load-provide "READ" "./binppc/read.pfsl")
115      (load-provide "ARRAYS-FRY" "./binppc/arrays-fry.pfsl")
116;;;   (load-provide "APROPOS" "./binppc/apropos.pfsl")
117;;;   (load-provide "PPC-DISASSEMBLE" "./binppc/ppc-disassemble.pfsl")
118;;;   (load-provide "PPC-LAPMACROS" "./binppc/ppc-lapmacros.pfsl")
119;;;   (load-provide "MACTYPES" "./binppc/mactypes.pfsl")
120;;;   (load-provide "DEFRECORD" "./binppc/defrecord.pfsl")
121;;;   (load-provide "LINUX-RECORDS" "./library/linux-records.pfsl")
122      (load-provide "CASE-ERROR" "./binppc/case-error.pfsl")
123;;;   (load-provide "ENCAPSULATE" "./binppc/encapsulate.pfsl")
124      (load-provide "METHOD-COMBINATION" "./binppc/method-combination.pfsl")
125      (load-provide "MISC" "./binppc/misc.pfsl")
126      (load-provide "PPRINT" "./binppc/pprint.pfsl")
127      (load-provide "DUMPLISP" "./binppc/dumplisp.pfsl")
128      (load-provide "PATHNAMES" "./binppc/pathnames.pfsl")
129      (load-provide "TIME" "./binppc/time.pfsl")
130;;;   (load-provide "COMPILE-CCL" "./binppc/compile-ccl.pfsl")
131;;;   (load-provide "SOURCE-FILES" "./binppc/source-files.pfsl")
132      (load-provide "CCL-EXPORT-SYMS" "./binppc/ccl-export-syms.pfsl")
133      )
134    (setq *%fasload-verbose* nil)
135    )
136(catch :toplevel
137    (or (find-package "COMMON-LISP-USER")
138        (make-package "COMMON-LISP-USER" :use '("COMMON-LISP" "CCL") :NICKNAMES '("CL-USER")))
139)
140
141(defvar *LISTENER-PROCESS-STACKSEG-SIZE* (* 4 16384))
142
143(setf (interrupt-level) 0)
144
145(setq *warn-if-redefine* t)
146
147(setq *level-1-loaded* t)
148
149(set-periodic-task-interval 1)
150
151(do-all-symbols (s)
152  (setf (symbol-plist s) nil))
153
154(progn (%set-toplevel #'toplevel-loop) (save-application "RUNTIME"))
155
156
157
158
159
Note: See TracBrowser for help on using the repository browser.