/[mcclim]/mcclim/mcclim.asd
ViewVC logotype

Diff of /mcclim/mcclim.asd

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.77 by rgoldman, Fri Mar 28 19:53:19 2008 UTC revision 1.78 by thenriksen, Mon Apr 14 16:46:37 2008 UTC
# Line 219  Line 219 
219    :components ((:file "text-formatting")    :components ((:file "text-formatting")
220                 (:file "defresource")                 (:file "defresource")
221                 (:file "presentations")                 (:file "presentations")
222                   (:file "xpm")
223                 (:file "bordered-output" :depends-on ("presentations"))                 (:file "bordered-output" :depends-on ("presentations"))
224                 (:file "table-formatting" :depends-on ("presentations"))                 (:file "table-formatting" :depends-on ("presentations"))
225                 (:file "input-editing" :depends-on ("presentations" "bordered-output" "table-formatting"))                 (:file "input-editing" :depends-on ("presentations" "bordered-output" "table-formatting"))
# Line 362  Line 363 
363     (:file "input-editing-goatee")     (:file "input-editing-goatee")
364     (:file "input-editing-drei")     (:file "input-editing-drei")
365     (:file "text-editor-gadget")     (:file "text-editor-gadget")
    (:file "Extensions/rgb-image" :pathname #.(make-pathname :directory '(:relative "Extensions")  
                                                             :name "rgb-image"))  
366     (:file "Extensions/tab-layout"     (:file "Extensions/tab-layout"
367            :pathname #.(make-pathname :directory '(:relative "Extensions")            :pathname #.(make-pathname :directory '(:relative "Extensions")
368                                       :name "tab-layout"))))                                       :name "tab-layout"))))
# Line 547  Line 546 
546                   (:file "Looks/pixie"                   (:file "Looks/pixie"
547                          :pathname #.(make-pathname :directory '(:relative "Looks") :name "pixie" :type "lisp"))))                          :pathname #.(make-pathname :directory '(:relative "Looks") :name "pixie" :type "lisp"))))
548    
 (defsystem :mcclim-images  
            :depends-on (:clim)  
            :components ((:module "Extensions/Images"  
                          :pathname #.(make-pathname :directory '(:relative "Extensions" "Images"))  
                          :components ((:file "package")  
                                       (:file "images" :depends-on ("package"))  
                                       (:file "image-viewer" :depends-on ("images"))))))  
   
 (defmacro support-format (format &rest depends-on)  
   "Generate the ASDF `defsystem' form for a single-file system  
 consisting of a file with the name `format' in  
 Extensions/Images. It will depend on the ASDF systems listed in  
 `depends-on' as well as MCCLIM-IMAGES."  
   `(defsystem ,(intern (format nil "MCCLIM-IMAGES-~A" (string-upcase format))  
                        (find-package :keyword))  
     :depends-on (:mcclim-images ,@depends-on)  
     :components  
     ((:file ,format  
       :pathname ,(make-pathname :directory '(:relative "Extensions" "Images")  
                                 :name format)))))  
   
 (defmacro support-formats (&rest formats)  
   "Generate the ASDF `defsystem' forms for supporting  
 `formats'."  
   `(progn ,@(loop for (format . depends-on) in formats  
                collecting `(support-format ,format ,@depends-on))))  
   
 (support-formats ("gif" :skippy) ("xpm") ("jpeg" :cl-jpeg))  
   
549  ;;; The actual McCLIM system that people should to use in their ASDF  ;;; The actual McCLIM system that people should to use in their ASDF
550  ;;; package dependency lists.  ;;; package dependency lists.
551  (defsystem :mcclim  (defsystem :mcclim

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

  ViewVC Help
Powered by ViewVC 1.1.5