add missing files

6 files changed, 264 insertions, 0 deletions

diff --git a/dev-lisp/cmucl-source/files/18e/cmucl-clx.asd b/dev-lisp/cmucl-source/files/18e/cmucl-clx.asd
new file mode 100644
index 000000000000..d169e995c38f
--- /dev/null
+++ b/dev-lisp/cmucl-source/files/18e/cmucl-clx.asd
@@ -0,0 +1,34 @@
+;;; -*- Mode: lisp -*-
+
+(in-package :asdf)
+
+#+cmu
+(defsystem :cmucl-clx
+  :depends-on (:cmucl-graystream)
+  :components
+  ((:file "package")
+   (:file "depdefs" :depends-on ("package"))
+   (:file "clx" :depends-on ("depdefs"))
+   (:file "dependent" :depends-on ("clx"))
+   (:file "macros" :depends-on ("dependent"))
+   (:file "bufmac" :depends-on ("macros"))
+   (:file "buffer" :depends-on ("bufmac"))
+   (:file "display" :depends-on ("buffer"))
+   (:file "gcontext" :depends-on ("display"))
+   (:file "input" :depends-on ("gcontext"))
+   (:file "requests" :depends-on ("input"))
+   (:file "fonts" :depends-on ("requests"))
+   (:file "graphics" :depends-on ("fonts"))
+   (:file "text" :depends-on ("graphics"))
+   (:file "attributes" :depends-on ("text"))
+   (:file "translate" :depends-on ("attributes"))
+   (:file "keysyms" :depends-on ("translate"))
+   (:file "manager" :depends-on ("keysyms"))
+   (:file "image" :depends-on ("manager"))
+   (:file "resource" :depends-on ("image"))
+   (:file "clx-ext" :depends-on ("resource"))
+   (:file "charmacs" :depends-on ("clx-ext"))
+   (:file "key-event" :depends-on ("charmacs"))
+   (:file "keysym-defs" :depends-on ("key-event"))))
+   
+
diff --git a/dev-lisp/cmucl-source/files/18e/cmucl-graystream.asd b/dev-lisp/cmucl-source/files/18e/cmucl-graystream.asd
new file mode 100644
index 000000000000..1397bafeb346
--- /dev/null
+++ b/dev-lisp/cmucl-source/files/18e/cmucl-graystream.asd
@@ -0,0 +1,14 @@
+;;; -*- Mode: lisp -*-
+;;
+;; Graystream system definition
+(in-package :asdf)
+
+#+cmu
+(defsystem cmucl-graystream
+    :components
+  ((:file "gray-streams-class")
+   (:file "gray-streams"
+          :depends-on ("gray-streams-class"))))
+
+
+
diff --git a/dev-lisp/cmucl-source/files/18e/cmucl-hemlock-base.asd b/dev-lisp/cmucl-source/files/18e/cmucl-hemlock-base.asd
new file mode 100644
index 000000000000..dc38ca6484ed
--- /dev/null
+++ b/dev-lisp/cmucl-source/files/18e/cmucl-hemlock-base.asd
@@ -0,0 +1,111 @@
+;;; -*- Mode: lisp -*-
+
+;;; This is just a sample of building series with MK defsystem. You
+;;; may need to change :source-pathname appropriately for your system.
+
+(in-package :asdf)
+
+#+cmu
+(defsystem :cmucl-hemlock-base
+    :depends-on (:cmucl-clx)
+    :components
+    ((:file "package")
+     (:file "charmacs" :depends-on ("package"))
+     (:file "key-event" :depends-on ("charmacs"))
+     (:file "struct" :depends-on ("key-event"))
+     ;;"struct-ed"
+     (:file "rompsite" :depends-on ("struct"))
+     (:file "keysym-defs" :depends-on ("rompsite"))
+     (:file "input" :depends-on ("keysym-defs"))
+     (:file "macros" :depends-on ("input"))
+     (:file "line" :depends-on ("macros"))
+     (:file "ring" :depends-on ("line"))
+     (:file "table" :depends-on ("ring"))
+     (:file "htext1" :depends-on ("table"))
+     (:file "htext2" :depends-on ("htext1"))
+     (:file "htext3" :depends-on ("htext2"))
+     (:file "htext4" :depends-on ("htext3"))
+     (:file "search1" :depends-on ("htext4"))
+     (:file "search2" :depends-on ("search1"))
+     (:file "linimage" :depends-on ("search2"))
+     (:file "cursor" :depends-on ("linimage"))
+     (:file "syntax" :depends-on ("cursor"))
+     (:file "winimage" :depends-on ("syntax"))
+     (:file "hunk-draw" :depends-on ("winimage"))
+     ;;"bit-stream"
+     (:file "termcap" :depends-on ("hunk-draw"))
+     (:file "display" :depends-on ("termcap"))
+     (:file "bit-display" :depends-on ("display"))
+     (:file "tty-disp-rt" :depends-on ("bit-display"))
+     (:file "tty-display" :depends-on ("tty-disp-rt"))
+     ;;"tty-stream"
+     (:file "pop-up-stream" :depends-on ("tty-display"))
+     (:file "window" :depends-on ("pop-up-stream"))
+     (:file "screen" :depends-on ("window"))
+     (:file "bit-screen" :depends-on ("screen"))
+     (:file "tty-screen" :depends-on ("bit-screen"))
+     (:file "font" :depends-on ("tty-screen"))
+     (:file "interp" :depends-on ("font"))
+     (:file "vars" :depends-on ("interp"))
+     (:file "buffer" :depends-on ("vars"))
+     (:file "files" :depends-on ("buffer"))
+     (:file "streams" :depends-on ("files"))
+     (:file "main" :depends-on ("streams"))
+     (:file "echo" :depends-on ("main"))
+     (:file "echocoms" :depends-on ("echo"))
+     (:file "morecoms" :depends-on ("echocoms"))
+     (:file "defsyn" :depends-on ("morecoms"))
+     (:file "ts-buf" :depends-on ("defsyn"))
+     (:file "ts-stream" :depends-on ("ts-buf"))
+     (:file "command" :depends-on ("ts-stream"))
+     (:file "undo" :depends-on ("command"))
+     (:file "killcoms" :depends-on ("undo"))
+     (:file "searchcoms" :depends-on ("killcoms"))
+     (:file "filecoms" :depends-on ("searchcoms"))
+     (:file "indent" :depends-on ("filecoms"))
+     (:file "lispmode" :depends-on ("indent"))
+     (:file "comments" :depends-on ("lispmode"))
+     (:file "fill" :depends-on ("comments"))
+     (:file "text" :depends-on ("fill"))
+     (:file "doccoms" :depends-on ("text"))
+     (:file "srccom" :depends-on ("doccoms"))
+     (:file "abbrev" :depends-on ("srccom"))
+     (:file "group" :depends-on ("abbrev"))
+     (:file "overwrite" :depends-on ("group"))
+     (:file "gosmacs" :depends-on ("overwrite"))
+     (:file "eval-server" :depends-on ("gosmacs"))
+     (:file "scribe" :depends-on ("eval-server"))
+     (:file "dylan" :depends-on ("scribe"))
+     (:file "lispbuf" :depends-on ("dylan"))
+     (:file "lispeval" :depends-on ("lispbuf"))
+     (:file "icom" :depends-on ("lispeval"))
+     (:file "hi-integrity" :depends-on ("icom"))
+     (:file "ed-integrity" :depends-on ("hi-integrity"))
+     (:file "pascal" :depends-on ("ed-integrity"))
+     (:file "edit-defs" :depends-on ("pascal"))
+     (:file "auto-save" :depends-on ("edit-defs"))
+     (:file "register" :depends-on ("auto-save"))
+     (:file "xcoms" :depends-on ("register"))
+     (:file "unixcoms" :depends-on ("xcoms"))
+     (:file "mh" :depends-on ("unixcoms"))
+     (:file "highlight" :depends-on ("mh"))
+     (:file "dired" :depends-on ("highlight"))
+     (:file "diredcoms" :depends-on ("dired"))
+     (:file "bufed" :depends-on ("diredcoms"))
+     (:file "lisp-lib" :depends-on ("bufed"))
+     (:file "completion" :depends-on ("lisp-lib"))
+     (:file "shell" :depends-on ("completion"))
+     (:file "debug" :depends-on ("shell"))
+     (:file "netnews" :depends-on ("debug"))
+     (:file "rcs" :depends-on ("netnews"))
+     (:file "spell-rt" :depends-on ("rcs"))
+     (:file "spell-corr" :depends-on ("spell-rt"))
+     (:file "spell-aug" :depends-on ("spell-corr"))
+     (:file "spell-build" :depends-on ("spell-aug"))
+     (:file "spellcoms" :depends-on ("spell-build"))
+     (:file "kbdmac" :depends-on ("spellcoms"))
+     (:file "dabbrev" :depends-on ("kbdmac"))
+     (:file "bindings" :depends-on ("dabbrev"))
+     (:file "hacks" :depends-on ("bindings"))
+     ))
+
diff --git a/dev-lisp/cmucl-source/files/18e/cmucl-hemlock-dict.asd b/dev-lisp/cmucl-source/files/18e/cmucl-hemlock-dict.asd
new file mode 100644
index 000000000000..b54552e1f874
--- /dev/null
+++ b/dev-lisp/cmucl-source/files/18e/cmucl-hemlock-dict.asd
@@ -0,0 +1,55 @@
+;;; -*- Mode: lisp -*-
+
+;;; This is just a sample of building series with MK defsystem. You
+;;; may need to change :source-pathname appropriately for your system.
+
+(in-package :asdf)
+
+#+cmu
+(eval-when (:load-toplevel :compile-toplevel :execute)
+  (defun user::hemlock-compile-dictionary (source-file
+                                           &rest rest
+                                           &key
+                                           output-file
+                                           error-file
+                                           errors-to-terminal
+                                           &allow-other-keys )
+    (funcall
+     (fdefinition (intern "BUILD-DICTIONARY"
+                          "SPELL"))
+     source-file
+     output-file)))
+
+#+cmu
+(defclass dictionary-source-file (source-file) ())
+
+#+cmu
+(defmethod source-file-type ((c dictionary-source-file) (s module))
+  "text")
+
+#+cmu
+(defmethod output-files ((op compile-op) (c dictionary-source-file))
+    (let* ((path (component-pathname c))
+	   (list (make-pathname :defaults path
+				:type "bin")))
+	(list list)))
+#+cmu
+(defmethod perform ((op compile-op) (c dictionary-source-file))
+  (user::hemlock-compile-dictionary (component-pathname c)
+				   :output-file (car (output-files op c))))
+
+(defmethod perform ((op load-op) (c dictionary-source-file))
+  )
+
+#+nil
+#+common-lisp-controller
+(defmethod perform ((op load-compiled-op) (c dictionary-source-file))
+)
+
+
+#+cmu
+(defsystem :cmucl-hemlock-dict
+    :depends-on (:cmucl-hemlock-base)
+    :components
+    ((:dictionary-source-file "spell-dictionary")))
+
diff --git a/dev-lisp/cmucl-source/files/18e/cmucl-hemlock.asd b/dev-lisp/cmucl-source/files/18e/cmucl-hemlock.asd
new file mode 100644
index 000000000000..f526c4689d72
--- /dev/null
+++ b/dev-lisp/cmucl-source/files/18e/cmucl-hemlock.asd
@@ -0,0 +1,48 @@
+;;; -*- Mode: lisp -*-
+
+;;; This is just a sample of building series with MK defsystem. You
+;;; may need to change :source-pathname appropriately for your system.
+
+(in-package :asdf)
+
+#+cmu
+(defclass dummy-component (component)
+  ())
+
+#+cmu
+(defmethod perform ((o load-op) (c dummy-component))
+    (format t "~&Ignorings...")(force-output)
+    (values))
+
+#+cmu
+(defmethod perform ((o compile-op) (c dummy-component))
+    (format t "~&Ignorings.2..")(force-output)
+    (values))
+
+#+cmu
+(defmethod traverse ((o load-op) (c dummy-component))
+    (format t "~&Bignoings...")(force-output)
+    (values))
+
+#+cmu
+(defmethod traverse ((o compile-op) (c dummy-component))
+    (format t "~&Bignoings.2..")(force-output)
+    (values))
+
+
+#+cmu
+(defsystem :cmucl-hemlock
+    :depends-on (:cmucl-hemlock-base
+		 :cmucl-hemlock-dict)
+    :components ((:dummy-component "dummy")))
+    
+;; not handled:
+;;(unless (probe-file "spell-dictionary.bin")
+;;   (load "spell-rt")
+;;   (load "spell-corr")
+;;   (load "spell-aug")
+;;   (load "spell-build")
+;;   (funcall (fdefinition (intern "BUILD-DICTIONARY" "SPELL"))
+;;            "spell-dictionary.text"
+;;            "spell-dictionary.bin"))
+
diff --git a/dev-lisp/cmucl-source/files/digest-cmucl-source-18e b/dev-lisp/cmucl-source/files/digest-cmucl-source-18e
new file mode 100644
index 000000000000..74f6a74c4931
--- /dev/null
+++ b/dev-lisp/cmucl-source/files/digest-cmucl-source-18e
@@ -0,0 +1,2 @@
+MD5 d834f9fa8539309bcc7ebc41c8b124e6 cmucl_18e.orig.tar.gz 4420172
+MD5 49d8ec3c68cb3f0f9c736644ba5d16cf cmucl_18e-7.diff.gz 1911127