Skip to content
Snippets Groups Projects
Commit 3ea7e57c authored by dtc's avatar dtc
Browse files

Add the configuration option of loading the Gray Stream library.

parent 96c37cd8
No related branches found
No related tags found
No related merge requests found
...@@ -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.4 1993/07/26 15:16:03 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.5 2000/06/06 10:01:24 dtc 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-gray-streams t)
(load-clm t) (load-clm t)
(load-clx t) (load-clx t)
(load-hemlock t) (load-hemlock t)
...@@ -26,22 +27,25 @@ ...@@ -26,22 +27,25 @@
(fresh-line) (fresh-line)
(format t " 1: specify result file (currently ~S)~%" (format t " 1: specify result file (currently ~S)~%"
(namestring output-file)) (namestring output-file))
(format t " 2: toggle loading of the CLX X library, currently ~ (format t " 2: toggle loading of the Gray Stream library, currently ~
~:[dis~;en~]abled.~%"
load-gray-streams)
(format t " 3: toggle loading of the CLX X library, currently ~
~:[dis~;en~]abled.~%" ~:[dis~;en~]abled.~%"
load-clx) load-clx)
(format t " 3: toggle loading of Motif and the graphical debugger, ~ (format t " 4: toggle loading of Motif and the graphical debugger, ~
currently ~:[dis~;en~]abled.~ currently ~:[dis~;en~]abled.~
~:[~% (would force loading of CLX.)~;~]~%" ~:[~% (would force loading of CLX.)~;~]~%"
load-clm load-clx) load-clm load-clx)
(format t " 4: toggle loading the Hemlock editor, currently ~ (format t " 5: 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 " 5: specify some site-specific file to load.~@ (format t " 6: specify some site-specific file to load.~@
~@[ Current files:~%~{ ~S~%~}~]" ~@[ Current files:~%~{ ~S~%~}~]"
(mapcar #'namestring other)) (mapcar #'namestring other))
(format t " 6: configure according to current options.~%") (format t " 7: configure according to current options.~%")
(format t " 7: abort the configuration process.~%") (format t " 8: abort the configuration process.~%")
(format t "~%Option number: ") (format t "~%Option number: ")
(force-output) (force-output)
(flet ((file-prompt (prompt) (flet ((file-prompt (prompt)
...@@ -53,25 +57,29 @@ ...@@ -53,25 +57,29 @@
(1 (1
(setq output-file (file-prompt "Result core file name: "))) (setq output-file (file-prompt "Result core file name: ")))
(2 (2
(setq load-gray-streams (not load-gray-streams)))
(3
(unless (setq load-clx (not load-clx)) (unless (setq load-clx (not load-clx))
(setq load-hemlock nil))) (setq load-hemlock nil)))
(3 (4
(when (setq load-clm (not load-clm)) (when (setq load-clm (not load-clm))
(setq load-clx t))) (setq load-clx t)))
(4 (5
(when (setq load-hemlock (not load-hemlock)) (when (setq load-hemlock (not load-hemlock))
(setq load-clx t))) (setq load-clx t)))
(5 (6
(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): ")))))
(6 (return)) (7 (return))
(7 (8
(format t "~%Aborted.~%") (format t "~%Aborted.~%")
(return-from abort)))))) (return-from abort))))))
(gc-off) (gc-off)
(when load-gray-streams
(load "library:subsystems/gray-streams-library"))
(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"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment