Commit 8e89df14 authored by ram's avatar ram
Browse files

Add support for loading Motif stuff.

parent 27d4cd9a
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.3 1993/06/08 13:04:40 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.4 1993/07/26 15:16:03 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -18,6 +18,7 @@ ...@@ -18,6 +18,7 @@
(block abort (block abort
(let ((output-file #p"library:lisp.core") (let ((output-file #p"library:lisp.core")
(load-clm t)
(load-clx t) (load-clx t)
(load-hemlock t) (load-hemlock t)
(other ())) (other ()))
...@@ -28,15 +29,19 @@ ...@@ -28,15 +29,19 @@
(format t " 2: toggle loading of the CLX X library, currently ~ (format t " 2: toggle loading of the CLX X library, currently ~
~:[dis~;en~]abled.~%" ~:[dis~;en~]abled.~%"
load-clx) load-clx)
(format t " 3: toggle loading the Hemlock editor, currently ~ (format t " 3: toggle loading of Motif and the graphical debugger, ~
currently ~:[dis~;en~]abled.~
~:[~% (would force loading of CLX.)~;~]~%"
load-clm load-clx)
(format t " 4: toggle loading the Hemlock editor, currently ~
~:[dis~;en~]abled.~ ~:[dis~;en~]abled.~
~:[~% (would force loading of CLX.)~;~]~%" ~:[~% (would force loading of CLX.)~;~]~%"
load-hemlock load-clx) load-hemlock load-clx)
(format t " 4: specify some site-specific file to load.~@ (format t " 5: specify some site-specific file to load.~@
~@[ Current files:~%~{ ~S~%~}~]" ~@[ Current files:~%~{ ~S~%~}~]"
(mapcar #'namestring other)) (mapcar #'namestring other))
(format t " 5: configure according to current options.~%") (format t " 6: configure according to current options.~%")
(format t " 6: abort the configuration process.~%") (format t " 7: abort the configuration process.~%")
(format t "~%Option number: ") (format t "~%Option number: ")
(force-output) (force-output)
(flet ((file-prompt (prompt) (flet ((file-prompt (prompt)
...@@ -51,15 +56,18 @@ ...@@ -51,15 +56,18 @@
(unless (setq load-clx (not load-clx)) (unless (setq load-clx (not load-clx))
(setq load-hemlock nil))) (setq load-hemlock nil)))
(3 (3
(when (setq load-hemlock (not load-hemlock)) (when (setq load-clm (not load-clm))
(setq load-clx t))) (setq load-clx t)))
(4 (4
(when (setq load-hemlock (not load-hemlock))
(setq load-clx t)))
(5
(setq other (setq other
(append other (append other
(list (file-prompt "File(s) to load ~ (list (file-prompt "File(s) to load ~
(can have wildcards): "))))) (can have wildcards): ")))))
(5 (return)) (6 (return))
(6 (7
(format t "~%Aborted.~%") (format t "~%Aborted.~%")
(return-from abort)))))) (return-from abort))))))
...@@ -67,6 +75,9 @@ ...@@ -67,6 +75,9 @@
(when load-clx (when load-clx
(setf *features* (delete :no-clx *features* :test #'eq)) (setf *features* (delete :no-clx *features* :test #'eq))
(load "library:subsystems/clx-library")) (load "library:subsystems/clx-library"))
(when load-clm
(setf *features* (delete :no-clm *features* :test #'eq))
(load "library:subsystems/clm-library"))
(when load-hemlock (when load-hemlock
(setf *features* (delete :no-hemlock *features* :test #'eq)) (setf *features* (delete :no-hemlock *features* :test #'eq))
(load "library:subsystems/hemlock-library")) (load "library:subsystems/hemlock-library"))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment