Changeset 7455


Ignore:
Timestamp:
Oct 16, 2007, 3:14:39 PM (14 years ago)
Author:
gz
Message:

Make find-module-pathnames handle wildcards, and put ccl:examples

Location:
trunk/ccl/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-files.lisp

    r6939 r7455  
    12861286  (let ((mod-path (make-pathname :name (string-downcase module) :defaults nil)) path)
    12871287        (dolist (path-cand *module-search-path* nil)
    1288           (when (setq path (find-load-file (merge-pathnames mod-path path-cand)))
    1289             (return path)))))
     1288          (let ((mod-cand (merge-pathnames mod-path path-cand)))
     1289            (if (wild-pathname-p path-cand)
     1290                (let* ((untyped-p (member (pathname-type mod-cand) '(nil :unspecific)))
     1291                       (matches (if untyped-p
     1292                                    (or (directory (merge-pathnames mod-cand *.lisp-pathname*))
     1293                                        (directory (merge-pathnames mod-cand *.fasl-pathname*)))
     1294                                    (directory mod-cand))))
     1295                  (when (and matches (null (cdr matches)))
     1296                    (return (if untyped-p
     1297                                (make-pathname :type nil :defaults (car matches))
     1298                                (car matches)))))
     1299                (when (setq path (find-load-file (merge-pathnames mod-path path-cand)))
     1300                  (return path)))))))
    12901301
    12911302(defun wild-pathname-p (pathname &optional field-key)
  • trunk/ccl/level-1/l1-pathnames.lisp

    r7364 r7455  
    701701(defparameter *module-search-path* (list
    702702                                    (cons-pathname '(:absolute "bin") nil nil "ccl")
    703                                     (cons-pathname  '(:absolute "openmcl" "modules") nil nil "home")
    704                                     (cons-pathname '(:absolute "ccl" "modules") nil nil "home")
     703                                    (cons-pathname '(:absolute "openmcl" "modules") nil nil "home")
    705704                                    (cons-pathname '(:absolute "lib") nil nil "ccl")
    706705                                    (cons-pathname '(:absolute "library") nil nil "ccl")
    707                                     (cons-pathname '(:absolute "examples") nil nil "ccl")
     706                                    (cons-pathname '(:absolute "examples" :wild-inferiors) nil nil "ccl")
    708707                                    (cons-pathname '(:absolute "tools") nil nil "ccl")
    709708                                    (cons-pathname '(:absolute "objc-bridge") nil nil "ccl")
Note: See TracChangeset for help on using the changeset viewer.