Changeset 561


Ignore:
Timestamp:
Feb 23, 2004, 9:18:40 AM (21 years ago)
Author:
Gary Byers
Message:

Reorganize; use FASL-CONCATENATE.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/examples/compile-hemlock.lisp

    r555 r561  
    88  (pathname-type (compile-file-pathname "foo.lisp")))
    99
     10(defun hemlock-source-pathname (name)
     11  (make-pathname :name name
     12                 :type "lisp"
     13                 :defaults *hemlock-src-dir-pathname*))
     14
     15(defun hemlock-binary-pathname (name)
     16  (make-pathname :name name
     17                 :type *hemlock-binary-file-extension*
     18                 :defaults *hemlock-binary-dir-pathname*))
     19
    1020(defun compile-and-load-hemlock-file (name &optional force)
    11   (let* ((source-pathname
    12           (make-pathname :name name
    13                          :type "lisp"
    14                          :defaults *hemlock-src-dir-pathname*))
    15          (binary-pathname
    16           (make-pathname :name name
    17                          :type *hemlock-binary-file-extension*
    18                          :defaults *hemlock-binary-dir-pathname*)))
     21  (let* ((source-pathname (hemlock-source-pathname name))
     22         (binary-pathname (hemlock-binary-pathname name)))
    1923    (when (or force
    2024              (not (probe-file binary-pathname))
    … …  
    2428    (load binary-pathname :verbose t)))
    2529
    26          
     30
     31(defparameter *hemlock-files*
     32  '("package"
     33
     34    ;; Lisp implementation specific stuff goes into one of
     35    ;; the next two files.
     36    "lispdep"
     37    "hemlock-ext"                     
     38               
     39    "decls"                             ;early declarations of functions and stuff
     40               
     41    "struct"
     42    ;; "struct-ed"
     43    "charmacs"
     44    "key-event"
     45    "keysym-defs"
     46               
     47    "rompsite"
     48               
     49    "input"
     50    "macros"
     51    "line"
     52    "ring"
     53    "vars"
     54    "interp"
     55    "syntax"
     56    "htext1"
     57    "buffer" 
     58    "htext2"
     59    "htext3"
     60    "htext4"
     61    "files"
     62    "search1"
     63    "search2"
     64    "table"
     65    #+clx
     66    "hunk-draw"
     67    #+clx
     68    "window"
     69    #-clx
     70    "modeline"
     71    #+clx
     72    "screen"
     73    #+clx
     74    "winimage"
     75    "linimage"
     76    #+clx
     77    "display"
     78    #+clx
     79    "bit-display"
     80               
     81    #+nil "tty/termcap"
     82    #+nil "tty-disp-rt"
     83    #+nil "tty-display"
     84    "pop-up-stream"
     85    #+clx "bit-screen"
     86    #+nil "tty/tty-screen"
     87    "cursor"
     88    "font"
     89    "streams"
     90    #+nil "hacks"
     91    "main"
     92    "echo"
     93    "echocoms"
     94    "command"
     95    "indent"
     96    ;; moved     "comments"
     97    "morecoms"
     98    "undo"
     99    "killcoms"
     100    "searchcoms"
     101    "filecoms"
     102    "doccoms"
     103    "srccom"
     104    "group"
     105    "fill"
     106    "text"
     107    "lispmode"
     108    ;;     "ts-buf"
     109    ;;     "ts-stream"
     110    ;;     "eval-server"
     111    "lispbuf"
     112    ;;     "lispeval"
     113    ;;     "spell-rt"
     114    ;;     "spell-corr"
     115    ;;     "spell-aug"
     116    ;;     "spellcoms"
     117               
     118    "comments"
     119    "overwrite"
     120    "abbrev"
     121    "icom"
     122    "kbdmac"
     123    "defsyn"
     124    #+why
     125    "scribe"
     126    #+what
     127    "pascal"
     128    #+who
     129    "dylan"
     130    "edit-defs"
     131    "auto-save"
     132    "register"
     133    "xcoms"
     134    ;;     "unixcoms"
     135    ;;     "mh"
     136    "highlight"
     137    ;;     "dired"
     138    ;;     "diredcoms"
     139    "bufed"
     140    "lisp-lib"
     141    "completion"
     142    ;;     "shell"
     143    ;;     "debug"
     144    ;;     "netnews"
     145    ;;     "rcs"
     146    "bindings"
     147    "bindings-gb"                       ;Gilbert's bindings
     148    )) 
     149
    27150(defun compile-hemlock (&optional force)
    28151  (with-compilation-unit ()
    29     (dolist (name
    30               '("package"
    31 
    32                 ;; Lisp implementation specific stuff goes into one of
    33                 ;; the next two files.
    34                 "lispdep"
    35                 "hemlock-ext"                     
    36                
    37                 "decls"                 ;early declarations of functions and stuff
    38                
    39                 "struct"
    40                 ;; "struct-ed"
    41                 "charmacs"
    42                 "key-event"
    43                 "keysym-defs"
    44                
    45                 "rompsite"
    46                
    47                 "input"
    48                 "macros"
    49                 "line"
    50                 "ring"
    51                 "vars"
    52                 "interp"
    53                 "syntax"
    54                 "htext1"
    55                 "buffer" 
    56                 "htext2"
    57                 "htext3"
    58                 "htext4"
    59                 "files"
    60                 "search1"
    61                 "search2"
    62                 "table"
    63                 #+clx
    64                 "hunk-draw"
    65                 #+clx
    66                 "window"
    67                 #-clx
    68                 "modeline"
    69                 #+clx
    70                 "screen"
    71                 #+clx
    72                 "winimage"
    73                 "linimage"
    74                 #+clx
    75                 "display"
    76                 #+clx
    77                 "bit-display"
    78                
    79                 #+nil "tty/termcap"
    80                 #+nil "tty-disp-rt"
    81                 #+nil "tty-display"
    82                 "pop-up-stream"
    83                 #+clx "bit-screen"
    84                 #+nil "tty/tty-screen"
    85                 "cursor"
    86                 "font"
    87                 "streams"
    88                 #+nil "hacks"
    89                 "main"
    90                 "echo"
    91                 "echocoms"
    92                 "command"
    93                 "indent"
    94                 ;; moved     "comments"
    95                 "morecoms"
    96                 "undo"
    97                 "killcoms"
    98                 "searchcoms"
    99                 "filecoms"
    100                 "doccoms"
    101                 "srccom"
    102                 "group"
    103                 "fill"
    104                 "text"
    105                 "lispmode"
    106                 ;;     "ts-buf"
    107                 ;;     "ts-stream"
    108                 ;;     "eval-server"
    109                 "lispbuf"
    110                 ;;     "lispeval"
    111                 ;;     "spell-rt"
    112                 ;;     "spell-corr"
    113                 ;;     "spell-aug"
    114                 ;;     "spellcoms"
    115                
    116                 "comments"
    117                 "overwrite"
    118                 "abbrev"
    119                 "icom"
    120                 "kbdmac"
    121                 "defsyn"
    122                 #+why
    123                 "scribe"
    124                 #+what
    125                 "pascal"
    126                 #+who
    127                 "dylan"
    128                 "edit-defs"
    129                 "auto-save"
    130                 "register"
    131                 "xcoms"
    132                 ;;     "unixcoms"
    133                 ;;     "mh"
    134                 "highlight"
    135                 ;;     "dired"
    136                 ;;     "diredcoms"
    137                 "bufed"
    138                 "lisp-lib"
    139                 "completion"
    140                 ;;     "shell"
    141                 ;;     "debug"
    142                 ;;     "netnews"
    143                 ;;     "rcs"
    144                 "bindings"
    145                 "bindings-gb"
    146                 ))
    147       (compile-and-load-hemlock-file name force))))
     152    (dolist (name *hemlock-files*)
     153      (compile-and-load-hemlock-file name force)))
     154  (fasl-concatenate "ccl:library;hemlock"
     155                    (mapcar #'hemlock-binary-pathname *hemlock-files*)
     156                    :if-exists :supersede)
     157  )
Note: See TracChangeset for help on using the changeset viewer.