ViewVC logotype

Diff of /meta-cvs/F-AFC09F145399B1273F4BF98702F5BE8C

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

revision 1.25 by kaz, Sat Jul 6 17:15:02 2002 UTC revision 1.26 by kaz, Thu Jul 18 04:49:36 2002 UTC
# Line 11  Line 11 
12  (defun mcvs-generic (cvs-command cvs-options command-options command-args  (defun mcvs-generic (cvs-command cvs-options command-options command-args
13                       files &key need-sync-after default-include-meta-files                       files &key need-sync-after default-include-meta-files
14                       need-update-after)                       need-update-after no-fix-empty-file-list)
15    (in-sandbox-root-dir    (in-sandbox-root-dir
16      (let (files-to-process      (let (files-to-process
17            (filemap (mapping-read *mcvs-map-local*))            (filemap (mapping-read *mcvs-map-local*))
18            (do-meta-files (and (or *metaonly-option* *meta-option*            (do-meta-files (and (or *metaonly-option* *meta-option*
19                                    default-include-meta-files)                                    default-include-meta-files)
20                                  (not (and (null files)
21                                            no-fix-empty-file-list
22                                            (not *metaonly-option*)))
23                                (not *nometa-option*))))                                (not *nometa-option*))))
25        (unless *metaonly-option*        (unless (or *metaonly-option*)
26          (chatter-debug "Preparing file list.~%")          (chatter-debug "Preparing file list.~%")
28          (if (null files)          (if (null files)
29            (setf files-to-process            (unless no-fix-empty-file-list
30                  (mapping-prefix-matches filemap              (setf files-to-process
31                                          (sandbox-translate-path ".")))                    (mapping-prefix-matches filemap
32                                              (sandbox-translate-path "."))))
33            (dolist (file files)            (dolist (file files)
34              (can-restart-here ("Continue preparing file list.")              (can-restart-here ("Continue preparing file list.")
35                (let* ((full-name (sandbox-translate-path file))                (let* ((full-name (sandbox-translate-path file))
# Line 35  Line 39 
39                    (error "mcvs: ~a is not known to Meta-CVS." full-name)                    (error "mcvs: ~a is not known to Meta-CVS." full-name)
40                    (setf files-to-process (nconc files-to-process entries))))))))                    (setf files-to-process (nconc files-to-process entries))))))))
42        (unless (and (not files-to-process)        (when (or files-to-process
43                     (not do-meta-files))                  do-meta-files
44                    no-fix-empty-file-list)
45          (chatter-debug "Synchronizing.~%")          (chatter-debug "Synchronizing.~%")
46          (mapping-synchronize)          (mapping-synchronize)
# Line 66  Line 71 
72  (defun mcvs-commit-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-commit-wrapper (cvs-options cvs-command-options mcvs-args)
73    (mcvs-generic "commit" cvs-options cvs-command-options nil mcvs-args    (mcvs-generic "commit" cvs-options cvs-command-options nil mcvs-args
74                  :default-include-meta-files t))                  :default-include-meta-files t
75                    :no-fix-empty-file-list t))
77  (defun mcvs-diff-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-diff-wrapper (cvs-options cvs-command-options mcvs-args)
78    (mcvs-generic "diff" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "diff" cvs-options cvs-command-options nil mcvs-args))

Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5