Ignore:
Timestamp:
Dec 29, 2009, 5:30:09 PM (10 years ago)
Author:
palter
Message:

Don't copy SVN files into the bundle

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/fake-cfbundle-path.lisp

    r12820 r13340  
    7171    (when install-frameworks
    7272      (flet ((subdir (framework target)
    73                (ensure-directory-pathname (make-pathname :name (car (last (pathname-directory framework))) :defaults target))))
     73               (ensure-directory-pathname (make-pathname :name (car (last (pathname-directory framework))) :defaults target)))
     74             (ignore-test (p)
     75               (let ((source-ignore '(".svn" "cvs" ".cvsignore")))
     76                 (flet ((backup-p (name)
     77                          (and (stringp name)
     78                               (let ((len (length name)))
     79                                 (and (> len 0)
     80                                      (or (eql (aref name (1- len)) #\~)
     81                                          (eql (aref name 0) #\#)))))))
     82                   (not (or (member (car (last (pathname-directory p))) source-ignore
     83                                    :test #'equalp)
     84                            (backup-p (file-namestring p))
     85                            (member (file-namestring p) source-ignore :test #'equalp)))))))
    7486        (dolist (framework install-frameworks)
    75           (recursive-copy-directory framework (subdir framework executable-dir) :if-exists :overwrite))))
     87          (recursive-copy-directory framework (subdir framework executable-dir)
     88                                    :if-exists :overwrite :test #'ignore-test))))
    7689    #+windows-target
    7790    (copy-file icon-path (merge-pathnames
Note: See TracChangeset for help on using the changeset viewer.