/[meta-cvs]/meta-cvs/F-94BF952D29F3DC3FFD457EFFCE570DB2
ViewVC logotype

Diff of /meta-cvs/F-94BF952D29F3DC3FFD457EFFCE570DB2

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

revision 1.8 by kaz, Sat Aug 17 18:58:50 2002 UTC revision 1.8.2.1 by kaz, Sun Aug 25 18:20:44 2002 UTC
# Line 82  Line 82 
82                               (if (eq (second type-spec) :ignore)                               (if (eq (second type-spec) :ignore)
83                                 (list (first type-spec))))                                 (list (first type-spec))))
84                           types)))                           types)))
85      (remove-if #'(lambda (name)      (remove-if #'(lambda (entry)
86                     (member (suffix name) ignores :test #'path-equal))                     (with-slots (kind id) entry
87                 mapping :key #'first)))                       (and (eq kind :file)
88                              (member (suffix id) ignores :test #'path-equal))))
89                   mapping)))
90    
91  (defun types-make-cvs-adds (types mapping)  (defun types-make-cvs-adds (types mapping)
92    (let (cvs-adds matching files)    (let (cvs-adds matching files)
# Line 94  Line 96 
96          (separate-if #'(lambda (x)          (separate-if #'(lambda (x)
97                           (and x (path-equal (first type-entry) x)))                           (and x (path-equal (first type-entry) x)))
98                       mapping                       mapping
99                       :key #'(lambda (x) (suffix (first x)))))                       :key #'(lambda (x) (suffix (mapping-entry-id x)))))
100        (setf files (mapcar #'basename (mapcar #'first matching)))        (setf files (mapcar #'basename (mapcar #'mapping-entry-id matching)))
101        (when files        (when files
102          (ecase (second type-entry)          (ecase (second type-entry)
103            ((:name-only) (setf files (list* "-kk" files)))            ((:name-only) (setf files (list* "-kk" files)))
# Line 105  Line 107 
107            ((:ignore) (setf files nil))            ((:ignore) (setf files nil))
108            ((:default)))            ((:default)))
109          (when files (push files cvs-adds))))          (when files (push files cvs-adds))))
110      (setf files (mapcar #'basename (mapcar #'first mapping)))      (setf files (mapcar #'basename (mapcar #'mapping-entry-id mapping)))
111      (when files (push files cvs-adds))      (when files (push files cvs-adds))
112      cvs-adds))      cvs-adds))
113    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.8.2.1

  ViewVC Help
Powered by ViewVC 1.1.5