/[cmucl]/src/tools/clmcom.lisp
ViewVC logotype

Contents of /src/tools/clmcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.18.2.1 - (hide annotations)
Tue Jun 23 11:25:42 1998 UTC (15 years, 9 months ago) by pw
Branch: RELENG_18
CVS Tags: RELEASE_18d, RELEASE_18b, RELEASE_18c
Changes since 1.18: +3 -2 lines
This (huge) revision brings the RELENG_18 branch up to the current HEAD.
Note code/unix-glib2.lisp not yet included -- not sure it is ready to go.
1 wlott 1.2 ;;; -*- Package: USER -*-
2     ;;;
3     ;;; **********************************************************************
4     ;;; This code was written as part of the CMU Common Lisp project at
5     ;;; Carnegie Mellon University, and has been placed in the public domain.
6     ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7     ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8     ;;;
9     (ext:file-comment
10 pw 1.18.2.1 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/clmcom.lisp,v 1.18.2.1 1998/06/23 11:25:42 pw Exp $")
11 wlott 1.2 ;;;
12     ;;; **********************************************************************
13     ;;;
14 garland 1.1 ;;; File for compiling the Motif toolkit and related interface
15     ;;; stuff.
16     ;;;
17     (in-package "USER")
18 ram 1.5
19 ram 1.7
20     ;;; If CLX and PCL have not been loaded, then load them.
21 ram 1.5 ;;;
22 ram 1.17 #-pcl(load "target:pcl/pclload")
23 ram 1.18 #-clx
24     (progn
25     (load "target:clx/clx-library")
26 pw 1.18.2.1 #+gencgc (gc :full t)
27     #-gencgc (ext:purify))
28 garland 1.1
29 ram 1.7 (pushnew :motif *features*)
30 garland 1.1
31 ram 1.8 (defparameter tk-internals-files
32     '("target:motif/lisp/initial"
33     "target:motif/lisp/internals"
34     "target:motif/lisp/transport"
35     "target:motif/lisp/events"
36     "target:motif/lisp/conversion"))
37 garland 1.1
38 ram 1.8 (defparameter tk-files
39     '("target:motif/lisp/interface-glue"
40     "target:motif/lisp/xt-types"
41     "target:motif/lisp/string-base"
42     "target:motif/lisp/prototypes"
43     "target:motif/lisp/interface-build"
44     "target:motif/lisp/callbacks"
45     "target:motif/lisp/widgets"
46 ram 1.16 ; "target:motif/lisp/timer-support"
47 ram 1.8 "target:motif/lisp/main"))
48 garland 1.1
49 ram 1.8 (defparameter interface-files
50     '("target:interface/initial"
51     "target:interface/interface"
52     "target:interface/inspect"
53 ram 1.13 "target:interface/debug"
54     "target:interface/precom"))
55 garland 1.1
56    
57 ram 1.8 ;;; Make sure we don't try to debug a possibly broken new version with the
58     ;;; windowing debugger.
59     ;;;
60     (unless (find-package "INTERFACE")
61     (make-package "INTERFACE"))
62     (eval `(defparameter ,(intern "*INTERFACE-STYLE*" "INTERFACE") :tty))
63 garland 1.1
64 ram 1.8 ;;; Load any existing toolkit files:
65     ;;;
66     #-motif
67     (dolist (f (append tk-internals-files tk-files))
68     (flet ((try (type) (probe-file (make-pathname :defaults f :type type))))
69     (let ((pn (or (try (c:backend-fasl-file-type c:*backend*))
70     (try (c:backend-byte-fasl-file-type c:*backend*)))))
71     (when pn (load pn)))))
72    
73 wlott 1.2 (with-compiler-log-file
74 ram 1.14 ("target:compile-motif.log")
75    
76     (with-compilation-unit
77     (:optimize '(optimize (speed 3) (ext:inhibit-warnings 3)
78     #+small (safety 0)
79     #+small (debug .5)))
80    
81     (dolist (f tk-internals-files)
82     (comf f :load t)))
83 ram 1.8
84 ram 1.14 (with-compilation-unit
85     (:optimize
86     '(optimize (debug #-small 2 #+small .5)
87     (speed 2) (inhibit-warnings 2)
88     (safety #-small 1 #+small 0))
89     :optimize-interface
90     '(optimize-interface (debug .5))
91     :context-declarations
92     '(((:and :external :global)
93     (declare (optimize-interface (safety 2) (debug 1))))
94     ((:and :external :macro)
95     (declare (optimize (safety 2))))
96     (:macro (declare (optimize (speed 0))))))
97    
98     (dolist (f tk-files)
99     (comf f :load t))
100 ram 1.15
101     (let ((btki (intern "BUILD-TOOLKIT-INTERFACE" "XT")))
102     (unless (fboundp btki)
103     (mapc #'load tk-internals-files)
104     (mapc #'load tk-files))
105 ram 1.14
106 ram 1.15 (funcall (fdefinition btki)))
107 ram 1.14
108     (dolist (f interface-files)
109     (comf f :load t #+small :byte-compile #+small t))))
110 ram 1.8
111     (apply #'cat-if-anything-changed
112     "target:interface/clm-library"
113     (remove "target:motif/lisp/interface-build"
114     (append tk-internals-files tk-files interface-files)
115     :test #'string=))

  ViewVC Help
Powered by ViewVC 1.1.5