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

Diff of /meta-cvs/F-AFC09F145399B1273F4BF98702F5BE8C

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

revision 1.33 by kaz, Tue Feb 4 14:56:09 2003 UTC revision 1.34 by kaz, Sun Apr 13 14:39:12 2003 UTC
# Line 13  Line 13 
13  (in-package "META-CVS")  (in-package "META-CVS")
14    
15  (defun mcvs-generic (cvs-command cvs-options command-options command-args  (defun mcvs-generic (cvs-command cvs-options command-options command-args
16                       files &key need-sync-after default-include-meta-files                       files &key need-sync-before need-sync-after
17                       need-update-after global-if-empty-file-list)                       default-include-meta-files need-update-after
18                         global-if-empty-file-list)
19    (in-sandbox-root-dir    (in-sandbox-root-dir
20      (let (files-to-process      (let (files-to-process
21            (filemap (mapping-read *mcvs-map-local*))            (filemap (mapping-read *mcvs-map-local*))
# Line 48  Line 49 
49        (when (or files-to-process        (when (or files-to-process
50                  do-meta-files                  do-meta-files
51                  global-if-empty-file-list)                  global-if-empty-file-list)
52          (chatter-debug "Synchronizing.~%")          (when need-sync-before
53          (mapping-synchronize files-to-process)            (chatter-debug "Synchronizing.~%")
54              (mapping-synchronize :filemap files-to-process
55                                   :direction :left))
56          (current-dir-restore          (current-dir-restore
57            (chdir *mcvs-dir*)            (chdir *mcvs-dir*)
58            (chatter-debug "Invoking CVS.~%")            (chatter-debug "Invoking CVS.~%")
# Line 73  Line 75 
75            (mapping-update))            (mapping-update))
76          (when need-sync-after          (when need-sync-after
77            (chatter-debug "Synchronizing again.~%")            (chatter-debug "Synchronizing again.~%")
78            (mapping-synchronize files-to-process))))            (mapping-synchronize :filemap files-to-process))))
79    (values)))    (values)))
80    
81  (defun mcvs-commit-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-commit-wrapper (cvs-options cvs-command-options mcvs-args)
82    (mcvs-generic "commit" cvs-options cvs-command-options nil mcvs-args    (mcvs-generic "commit" cvs-options cvs-command-options nil mcvs-args
83                    :need-sync-before t
84                    :need-sync-after t
85                  :default-include-meta-files t                  :default-include-meta-files t
86                  :global-if-empty-file-list t))                  :global-if-empty-file-list t))
87    
88  (defun mcvs-diff-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-diff-wrapper (cvs-options cvs-command-options mcvs-args)
89    (mcvs-generic "diff" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "diff" cvs-options cvs-command-options nil mcvs-args
90                    :need-sync-before t))
91    
92  (defun mcvs-tag-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-tag-wrapper (cvs-options cvs-command-options mcvs-args)
93    (if (null mcvs-args)    (if (null mcvs-args)
# Line 96  Line 101 
101    (mcvs-generic "log" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "log" cvs-options cvs-command-options nil mcvs-args))
102    
103  (defun mcvs-status-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-status-wrapper (cvs-options cvs-command-options mcvs-args)
104    (mcvs-generic "status" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "status" cvs-options cvs-command-options nil mcvs-args
105                    :need-sync-before t))
106    
107  (defun mcvs-annotate-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-annotate-wrapper (cvs-options cvs-command-options mcvs-args)
108    (mcvs-generic "annotate" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "annotate" cvs-options cvs-command-options nil mcvs-args))
# Line 105  Line 111 
111    (mcvs-generic "watchers" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "watchers" cvs-options cvs-command-options nil mcvs-args))
112    
113  (defun mcvs-edit-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-edit-wrapper (cvs-options cvs-command-options mcvs-args)
114    (mcvs-generic "edit" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "edit" cvs-options cvs-command-options nil mcvs-args
115                    :need-sync-before t))
116    
117  (defun mcvs-unedit-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-unedit-wrapper (cvs-options cvs-command-options mcvs-args)
118    (mcvs-generic "unedit" cvs-options cvs-command-options nil mcvs-args    (mcvs-generic "unedit" cvs-options cvs-command-options nil mcvs-args
119                    :need-sync-before t
120                  :need-sync-after t))                  :need-sync-after t))
121    
122  (defun mcvs-editors-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-editors-wrapper (cvs-options cvs-command-options mcvs-args)

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

  ViewVC Help
Powered by ViewVC 1.1.5