Changeset 15361


Ignore:
Timestamp:
May 16, 2012, 9:02:04 PM (8 years ago)
Author:
rme
Message:

New directory cocoa-ide/lib. New file libdispatch.lisp. Move
cf-utils.lisp to lib directory. Adjust defsystem.lisp accordingly.

The idea is that code that is are generally useful to any
Cocoa application and not specific to the IDE should go in lib
(at least until some better place crops up).

Location:
trunk/source/cocoa-ide
Files:
2 added
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/defsystem.lisp

    r15350 r15361  
    6262   ))
    6363
     64(defparameter *ide-lib-files*
     65  '("libdispatch"
     66    "cf-utils"))
     67
    6468(defparameter *ide-files*
    6569  '(;"ide-bundle" - loaded by hand above
    6670    "constants"
    6771    "cocoa-utils"
    68     "cf-utils"
    6972    "cocoa-defaults"
    7073    "cocoa-prefs"
     
    97100    ))
    98101
     102(defun load-ide-lib-files (names lib-dir force-compile)
     103  (let* ((bin-dir (merge-pathnames ";fasls;" lib-dir)))
     104    (ensure-directories-exist bin-dir)
     105    (with-compilation-unit ()
     106      (dolist (name names)
     107        (let* ((source (make-pathname :name name
     108                                      :type (pathname-type *.lisp-pathname*)
     109                                      :defaults lib-dir))
     110               (fasl (make-pathname :name name
     111                                    :type (pathname-type *.fasl-pathname*)
     112                                    :defaults bin-dir)))
     113          (when (or force-compile
     114                    (not (probe-file fasl))
     115                    (> (file-write-date source)
     116                       (file-write-date fasl)))
     117            (compile-file source :output-file fasl :verbose t))
     118          (load fasl :verbose t))))))
     119
    99120(defun load-ide-files (names src-dir force-compile)
    100121  (declare (special *hemlock-files*)) ;; kludge
     
    126147    (when (>= (%get-long p) #x1050)
    127148      (setq *ide-files* (append *ide-files* *leopard-only-ide-files*))))
     149  (load-ide-lib-files *ide-lib-files* "ccl:cocoa-ide;lib;" force-compile)
    128150  (load-ide-files *ide-files* "ccl:cocoa-ide;" force-compile)
    129151  (provide "COCOA"))
Note: See TracChangeset for help on using the changeset viewer.