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

Contents of /src/tools/clmcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (show annotations)
Tue Aug 3 20:50:58 1993 UTC (20 years, 8 months ago) by ram
Branch: MAIN
Changes since 1.6: +6 -8 lines
Load PCL if not loaded.  Add :MOTIF to features, not :MOTIF-TOOLKIT.
1 ;;; -*- 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 "$Header: /tiger/var/lib/cvsroots/cmucl/src/tools/clmcom.lisp,v 1.7 1993/08/03 20:50:58 ram Exp $")
11 ;;;
12 ;;; **********************************************************************
13 ;;;
14 ;;; File for compiling the Motif toolkit and related interface
15 ;;; stuff.
16 ;;;
17 (in-package "USER")
18
19
20 ;;; If CLX and PCL have not been loaded, then load them.
21 ;;;
22 #-clx(load "target:clx/clx-library")
23 #-pcl(load "target:pcl/pclload")
24
25 (pushnew :motif *features*)
26
27 (with-compiler-log-file
28 ("target:compile-motif.log"
29 :optimize '(optimize (speed 3) (safety 1) (ext:inhibit-warnings 3)))
30
31 (comf "target:motif/lisp/initial" :load t)
32 (comf "target:motif/lisp/internals" :load t)
33 (comf "target:motif/lisp/transport" :load t)
34 (comf "target:motif/lisp/events" :load t)
35 (comf "target:motif/lisp/conversion" :load t))
36
37 (with-compiler-log-file
38 ("target:compile-motif.log"
39 :optimize '(optimize (speed 2) (ext:inhibit-warnings 2)))
40
41 (comf "target:motif/lisp/interface-glue" :load t)
42 (comf "target:motif/lisp/xt-types" :load t)
43 (comf "target:motif/lisp/string-base" :load t)
44 (comf "target:motif/lisp/prototypes" :load t)
45 (comf "target:motif/lisp/interface-build" :load t)
46 (comf "target:motif/lisp/callbacks" :load t)
47 (comf "target:motif/lisp/widgets" :load t)
48 (comf "target:motif/lisp/main" :load t))
49
50 (when (fboundp 'xt::build-toolkit-interface)
51 (xt::build-toolkit-interface))
52
53 ;;; Make sure that the INTERFACE package is defined before we start
54 ;;; talking about it.
55 (with-compiler-log-file
56 ("target:compile-motif.log")
57 (comf "target:interface/initial" :load t))
58
59 (with-compiler-log-file
60 ("target:compile-motif.log")
61
62 (comf "target:interface/interface" :load t)
63 (comf "target:interface/inspect" :load t)
64 ;;
65 ;; We don't want to fall into the Motif debugger while compiling.
66 ;; It may be that the motifd server hasn't been (re)compiled yet.
67 (let ((interface:*interface-style* :tty))
68 (comf "target:interface/debug" :load t)))
69
70 (cat-if-anything-changed
71 "target:interface/clm-library"
72
73 "target:motif/lisp/initial"
74 "target:motif/lisp/internals"
75 "target:motif/lisp/transport"
76 "target:motif/lisp/events"
77 "target:motif/lisp/conversion"
78
79 "target:motif/lisp/interface-glue"
80 "target:motif/lisp/xt-types"
81 "target:motif/lisp/string-base"
82 "target:motif/lisp/prototypes"
83 ;"target:motif/lisp/interface-build"
84 "target:motif/lisp/callbacks"
85 "target:motif/lisp/widgets"
86 "target:motif/lisp/main"
87 "target:interface/initial"
88 "target:interface/interface"
89 "target:interface/inspect"
90 "target:interface/debug")

  ViewVC Help
Powered by ViewVC 1.1.5