;;; -*- Mode: lisp -*-

;;; This is just a sample of building series with MK defsystem. You
;;; may need to change :source-pathname appropriately for your system.

#+cmu
(mk:defsystem cmucl-hemlock-base
    :source-pathname "cl-library:;cmucl-hemlock;"
    :source-extension "lisp"
    :depends-on (("cmucl-clx"))
    :components (:serial
                 "package"
                 "charmacs"
                 "key-event"
                 "struct"
                 ;;"struct-ed"
                 "rompsite"
                 "keysym-defs"
                 "input"
                 "macros"
                 "line"
                 "ring"
                 "table"
                 "htext1"
                 "htext2"
                 "htext3"
                 "htext4"
                 "search1"
                 "search2"
                 "linimage"
                 "cursor"
                 "syntax"
                 "winimage"
                 "hunk-draw"
                 ;;"bit-stream"
                 "termcap"
                 "display"
                 "bit-display"
                 "tty-disp-rt"
                 "tty-display"
                 ;;"tty-stream"
                 "pop-up-stream"
                 "window"
                 "screen"
                 "bit-screen"
                 "tty-screen"
                 "font"
                 "interp"
                 "vars"
                 "buffer"
                 "files"
                 "streams"
                 "main"
                 "echo"
                 "echocoms"
                 "morecoms"
                 "defsyn"
                 "ts-buf"
                 "ts-stream"
                 "command"
                 
                 "undo"
                 "killcoms"
                 "searchcoms"
                 "filecoms"
                 "indent"
                 "lispmode"
                 "comments"
                 "fill"
                 "text"
                 "doccoms"
                 "srccom"
                 "abbrev"
                 "group"
                 "overwrite"
                 "gosmacs"
                 "eval-server"
                 "scribe"
                 "dylan"
                 "lispbuf"
                 "lispeval"
                 "icom"
                 "hi-integrity"
                 "ed-integrity"
                 
                 "pascal"
                 "edit-defs"
                 "auto-save"
                 "register"
                 "xcoms"
                 "unixcoms"
                 "mh"
                 "highlight"
                 "dired"
                 "diredcoms"
                 "bufed"
                 "lisp-lib"
                 "completion"
                 "shell"
                 "debug"
                 "netnews"
                 "rcs"
                 "spell-rt"
                 "spell-corr"
                 "spell-aug"
                 "spell-build"
                 "spellcoms"
                 "kbdmac"
                 "bindings"
                 "hacks"
                 ))

#+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
(mk:defsystem cmucl-hemlock-dict
    :source-pathname "cl-library:;cmucl-hemlock;"
    :compiler user::hemlock-compile-dictionary
    :loader identity
    :source-extension "text"
    :binary-extension "bin"
    :components ("spell-dictionary"))

#+cmu
(mk:defsystem cmucl-hemlock
    :source-pathname "cl-library:;cmucl-hemlock;"
    :source-extension "lisp"
    :depends-on (("cmucl-hemlock-base"
                  "cmucl-hemlock-dict")))
    
;; 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"))