/[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.29 by kaz, Mon Oct 7 02:44:30 2002 UTC revision 1.29.2.4 by kaz, Sun Apr 13 06:22:43 2003 UTC
# Line 10  Line 10 
10  (provide "generic")  (provide "generic")
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-before need-sync-after
14                       need-update-after no-fix-empty-file-list)                       default-include-meta-files need-update-after
15                         global-if-empty-file-list)
16    (in-sandbox-root-dir    (in-sandbox-root-dir
17      (let (files-to-process      (let (files-to-process
18            (filemap (mapping-read *mcvs-map-local*))            (filemap (mapping-read *mcvs-map-local*))
19            (do-meta-files (and (or *metaonly-option* *meta-option*            (do-meta-files (and (or *metaonly-option* *meta-option*
20                                    default-include-meta-files)                                    default-include-meta-files)
21                                (not (and (null files)                                (not (and (null files)
22                                          no-fix-empty-file-list                                          global-if-empty-file-list
23                                          (not *metaonly-option*)))                                          (not *metaonly-option*)))
24                                (not *nometa-option*))))                                (not *nometa-option*))))
25    
# Line 26  Line 27 
27          (chatter-debug "Preparing file list.~%")          (chatter-debug "Preparing file list.~%")
28    
29          (if (null files)          (if (null files)
30            (unless no-fix-empty-file-list            (unless global-if-empty-file-list
31              (setf files-to-process              (setf files-to-process
32                    (mapping-prefix-matches filemap                    (mapping-prefix-matches filemap
33                                            (sandbox-translate-path "."))))                                            (sandbox-translate-path "."))))
# Line 44  Line 45 
45    
46        (when (or files-to-process        (when (or files-to-process
47                  do-meta-files                  do-meta-files
48                  no-fix-empty-file-list)                  global-if-empty-file-list)
49          (chatter-debug "Synchronizing.~%")          (when need-sync-before
50          (mapping-synchronize)            (chatter-debug "Synchronizing.~%")
51              (mapping-synchronize :filemap files-to-process
52                                   :direction :left))
53          (current-dir-restore          (current-dir-restore
54            (chdir *mcvs-dir*)            (chdir *mcvs-dir*)
55            (chatter-debug "Invoking CVS.~%")            (chatter-debug "Invoking CVS.~%")
# Line 70  Line 72 
72            (mapping-update))            (mapping-update))
73          (when need-sync-after          (when need-sync-after
74            (chatter-debug "Synchronizing again.~%")            (chatter-debug "Synchronizing again.~%")
75            (mapping-synchronize))))            (mapping-synchronize :filemap files-to-process))))
76    (values)))    (values)))
77    
78  (defun mcvs-commit-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-commit-wrapper (cvs-options cvs-command-options mcvs-args)
79    (mcvs-generic "commit" cvs-options cvs-command-options nil mcvs-args    (mcvs-generic "commit" cvs-options cvs-command-options nil mcvs-args
80                    :need-sync-before t
81                    :need-sync-after t
82                  :default-include-meta-files t                  :default-include-meta-files t
83                  :no-fix-empty-file-list t))                  :global-if-empty-file-list t))
84    
85  (defun mcvs-diff-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-diff-wrapper (cvs-options cvs-command-options mcvs-args)
86    (mcvs-generic "diff" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "diff" cvs-options cvs-command-options nil mcvs-args
87                    :need-sync-before t))
88    
89  (defun mcvs-tag-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-tag-wrapper (cvs-options cvs-command-options mcvs-args)
90    (if (null mcvs-args)    (if (null mcvs-args)
91      (error "specify tag optionally followed by files."))      (error "specify tag optionally followed by files."))
92    (mcvs-generic "tag" cvs-options    (mcvs-generic "tag" cvs-options
93                  cvs-command-options (list (first mcvs-args)) (rest mcvs-args)                  cvs-command-options (list (first mcvs-args)) (rest mcvs-args)
94                  :default-include-meta-files t))                  :default-include-meta-files t
95                    :global-if-empty-file-list t))
96    
97  (defun mcvs-log-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-log-wrapper (cvs-options cvs-command-options mcvs-args)
98    (mcvs-generic "log" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "log" cvs-options cvs-command-options nil mcvs-args))
99    
100  (defun mcvs-status-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-status-wrapper (cvs-options cvs-command-options mcvs-args)
101    (mcvs-generic "status" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "status" cvs-options cvs-command-options nil mcvs-args
102                    :need-sync-before t))
103    
104  (defun mcvs-annotate-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-annotate-wrapper (cvs-options cvs-command-options mcvs-args)
105    (mcvs-generic "annotate" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "annotate" cvs-options cvs-command-options nil mcvs-args))
106    
107    (defun mcvs-watchers-wrapper (cvs-options cvs-command-options mcvs-args)
108      (mcvs-generic "watchers" cvs-options cvs-command-options nil mcvs-args))
109    
110    (defun mcvs-edit-wrapper (cvs-options cvs-command-options mcvs-args)
111      (mcvs-generic "edit" cvs-options cvs-command-options nil mcvs-args
112                    :need-sync-before t))
113    
114    (defun mcvs-unedit-wrapper (cvs-options cvs-command-options mcvs-args)
115      (mcvs-generic "unedit" cvs-options cvs-command-options nil mcvs-args
116                    :need-sync-before t
117                    :need-sync-after t))
118    
119    (defun mcvs-editors-wrapper (cvs-options cvs-command-options mcvs-args)
120      (mcvs-generic "editors" cvs-options cvs-command-options nil mcvs-args))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.29.2.4

  ViewVC Help
Powered by ViewVC 1.1.5