/[meta-cvs]/meta-cvs/F-C232DEE072E25B4F4683B91342CEC065
ViewVC logotype

Diff of /meta-cvs/F-C232DEE072E25B4F4683B91342CEC065

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

revision 1.18 by kaz, Sat Jun 29 16:26:52 2002 UTC revision 1.18.4.2 by kaz, Sun Aug 25 19:13:48 2002 UTC
# Line 24  Line 24 
24          ;; Gather up list of files to import, and build up mapping,          ;; Gather up list of files to import, and build up mapping,
25          ;; as well as list of suffixes (file types).          ;; as well as list of suffixes (file types).
26          (for-each-file-info (fi ".")          (for-each-file-info (fi ".")
27            (when (regular-p fi)            (cond
28               (let* ((path (canonicalize-path (file-name fi)))              ((regular-p fi)
29                      (suffix (suffix (file-name fi)))                 (let* ((path (canonicalize-path (file-name fi)))
30                      (file (mapping-generate-name suffix)))                        (suffix (suffix (file-name fi)))
31                 (chatter-info "~a <- ~a~%" file path)                        (file (mapping-generate-id :suffix suffix)))
32                 (push (list file path) filemap)                   (chatter-info "~a <- ~a~%" file path)
33                 (when suffix                   (push (make-mapping-entry :kind :file
34                   (setf types (adjoin (list suffix :default)                                             :id file
35                                       types :test #'equal))))))                                             :path path)
36                           filemap)
37                     (when suffix
38                       (setf types (adjoin (list suffix :default)
39                                           types :test #'equal)))))
40                ((symlink-p fi)
41                   (let ((path (canonicalize-path (file-name fi)))
42                         (id (mapping-generate-id :prefix "S-" :no-dir t)))
43                     (chatter-info "~a <- ~a~%" id path)
44                     (push (make-mapping-entry :kind :symlink
45                                               :id id
46                                               :path path
47                                               :target (readlink path))
48                           filemap)))))
49    
50    
51          ;; Write out types to file and allow user to edit.          ;; Write out types to file and allow user to edit.
52          (setf types (types-let-user-edit types *mcvs-types*))          (setf types (types-let-user-edit types *mcvs-types*))
# Line 43  Line 57 
57          (setf filemap (types-remove-ignores types filemap))          (setf filemap (types-remove-ignores types filemap))
58    
59          ;; Create F-files by hard linking          ;; Create F-files by hard linking
60          (dolist (item filemap)          (dolist (entry filemap)
61            (link (second item) (first item)))            (with-slots (kind id path) entry
62                (when (eq kind :file)
63                  (link path id))))
64    
65          ;; Write out mapping.          ;; Write out mapping.
66          (mapping-write filemap *mcvs-map* :sort-map t)          (mapping-write filemap *mcvs-map* :sort-map t)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.4.2

  ViewVC Help
Powered by ViewVC 1.1.5