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

Contents of /src/tools/clmcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.21 - (hide annotations)
Fri Dec 23 14:14:20 2005 UTC (8 years, 3 months ago) by pwerkowski
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2007-01, snapshot-2007-02, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, unicode-utf16-sync-2008-12, cross-sol-x86-merged, label-2009-03-16, release-19f-base, merge-sse2-packed, merge-with-19f, intl-branch-working-2010-02-11-1000, unicode-snapshot-2009-05, unicode-snapshot-2009-06, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, RELEASE_20b, snapshot-2008-04, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, double-double-sparc-checkpoint-1, sse2-merge-with-2008-11, sse2-merge-with-2008-10, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, unicode-utf16-base, portable-clx-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: double-double-reader-branch, double-double-array-branch, RELEASE-19F-BRANCH, portable-clx-branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, release-19d-branch, sse2-packed-branch, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.20: +5 -1 lines
Set pesky *make-condition-accessor-methods*
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 pwerkowski 1.21 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/clmcom.lisp,v 1.21 2005/12/23 14:14:20 pwerkowski Rel $")
11 wlott 1.2 ;;;
12     ;;; **********************************************************************
13     ;;;
14 garland 1.1 ;;; File for compiling the Motif toolkit and related interface
15     ;;; stuff.
16     ;;;
17 gerd 1.20 (in-package "CL-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 dtc 1.19 #+gencgc (gc :full t)
27     #-gencgc (ext:purify))
28 garland 1.1
29 ram 1.7 (pushnew :motif *features*)
30 pwerkowski 1.21
31     ;;; Set this pesky bit ON - see note in clxcom.lisp
32     (when (boundp 'conditions::*make-condition-accessor-methods*)
33     (setq conditions::*make-condition-accessor-methods* t))
34 garland 1.1
35 ram 1.8 (defparameter tk-internals-files
36     '("target:motif/lisp/initial"
37     "target:motif/lisp/internals"
38     "target:motif/lisp/transport"
39     "target:motif/lisp/events"
40     "target:motif/lisp/conversion"))
41 garland 1.1
42 ram 1.8 (defparameter tk-files
43     '("target:motif/lisp/interface-glue"
44     "target:motif/lisp/xt-types"
45     "target:motif/lisp/string-base"
46     "target:motif/lisp/prototypes"
47     "target:motif/lisp/interface-build"
48     "target:motif/lisp/callbacks"
49     "target:motif/lisp/widgets"
50 ram 1.16 ; "target:motif/lisp/timer-support"
51 ram 1.8 "target:motif/lisp/main"))
52 garland 1.1
53 ram 1.8 (defparameter interface-files
54     '("target:interface/initial"
55     "target:interface/interface"
56     "target:interface/inspect"
57 ram 1.13 "target:interface/debug"
58     "target:interface/precom"))
59 garland 1.1
60    
61 ram 1.8 ;;; Make sure we don't try to debug a possibly broken new version with the
62     ;;; windowing debugger.
63     ;;;
64     (unless (find-package "INTERFACE")
65     (make-package "INTERFACE"))
66     (eval `(defparameter ,(intern "*INTERFACE-STYLE*" "INTERFACE") :tty))
67 garland 1.1
68 ram 1.8 ;;; Load any existing toolkit files:
69     ;;;
70     #-motif
71     (dolist (f (append tk-internals-files tk-files))
72     (flet ((try (type) (probe-file (make-pathname :defaults f :type type))))
73     (let ((pn (or (try (c:backend-fasl-file-type c:*backend*))
74     (try (c:backend-byte-fasl-file-type c:*backend*)))))
75     (when pn (load pn)))))
76    
77 wlott 1.2 (with-compiler-log-file
78 ram 1.14 ("target:compile-motif.log")
79    
80     (with-compilation-unit
81     (:optimize '(optimize (speed 3) (ext:inhibit-warnings 3)
82     #+small (safety 0)
83     #+small (debug .5)))
84    
85     (dolist (f tk-internals-files)
86     (comf f :load t)))
87 ram 1.8
88 ram 1.14 (with-compilation-unit
89     (:optimize
90     '(optimize (debug #-small 2 #+small .5)
91     (speed 2) (inhibit-warnings 2)
92     (safety #-small 1 #+small 0))
93     :optimize-interface
94     '(optimize-interface (debug .5))
95     :context-declarations
96     '(((:and :external :global)
97     (declare (optimize-interface (safety 2) (debug 1))))
98     ((:and :external :macro)
99     (declare (optimize (safety 2))))
100     (:macro (declare (optimize (speed 0))))))
101    
102     (dolist (f tk-files)
103     (comf f :load t))
104 ram 1.15
105     (let ((btki (intern "BUILD-TOOLKIT-INTERFACE" "XT")))
106     (unless (fboundp btki)
107     (mapc #'load tk-internals-files)
108     (mapc #'load tk-files))
109 ram 1.14
110 ram 1.15 (funcall (fdefinition btki)))
111 ram 1.14
112     (dolist (f interface-files)
113     (comf f :load t #+small :byte-compile #+small t))))
114 ram 1.8
115     (apply #'cat-if-anything-changed
116     "target:interface/clm-library"
117     (remove "target:motif/lisp/interface-build"
118     (append tk-internals-files tk-files interface-files)
119     :test #'string=))

  ViewVC Help
Powered by ViewVC 1.1.5