/[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.2.4 by kaz, Sun Apr 13 06:22:43 2003 UTC revision 1.29.2.5 by kaz, Thu Apr 24 04:32:25 2003 UTC
# Line 12  Line 12 
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-before need-sync-after                       files &key need-sync-before need-sync-after
14                       default-include-meta-files need-update-after                       default-include-meta-files need-update-after
15                       global-if-empty-file-list)                       global-if-empty-file-list no-invoke-cvs)
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*))
# Line 50  Line 50 
50            (chatter-debug "Synchronizing.~%")            (chatter-debug "Synchronizing.~%")
51            (mapping-synchronize :filemap files-to-process            (mapping-synchronize :filemap files-to-process
52                                 :direction :left))                                 :direction :left))
53          (current-dir-restore          (unless no-invoke-cvs
54            (chdir *mcvs-dir*)            (current-dir-restore
55            (chatter-debug "Invoking CVS.~%")              (chdir *mcvs-dir*)
56            (execute-program-xargs `("cvs" ,@(format-opt cvs-options)              (chatter-debug "Invoking CVS.~%")
57                                     ,cvs-command ,@(format-opt command-options)              (execute-program-xargs `("cvs" ,@(format-opt cvs-options)
58                                     ,@command-args)                                       ,cvs-command ,@(format-opt command-options)
59                                   `(,@(when do-meta-files                                       ,@command-args)
60                                         (let (metas)                                     `(,@(when do-meta-files
61                                           (when (exists ".cvsignore")                                           (let (metas)
62                                             (push ".cvsignore" metas))                                             (when (exists ".cvsignore")
63                                           (when (exists *mcvs-types-name*)                                               (push ".cvsignore" metas))
64                                             (push *mcvs-types-name* metas))                                             (when (exists *mcvs-types-name*)
65                                           (cons *mcvs-map-name* metas)))                                               (push *mcvs-types-name* metas))
66                                     ,@(mapcar #'(lambda (x)                                             (cons *mcvs-map-name* metas)))
67                                                   (basename                                       ,@(mapcar #'(lambda (x)
68                                                     (mapping-entry-id x)))                                                     (basename
69                                               files-to-process))))                                                       (mapping-entry-id x)))
70                                                   files-to-process)))))
71          (when (and do-meta-files need-update-after)          (when (and do-meta-files need-update-after)
72            (chatter-debug "Updating file structure.~%")            (chatter-debug "Updating file structure.~%")
73            (mapping-update))            (mapping-update))
# Line 118  Line 119 
119    
120  (defun mcvs-editors-wrapper (cvs-options cvs-command-options mcvs-args)  (defun mcvs-editors-wrapper (cvs-options cvs-command-options mcvs-args)
121    (mcvs-generic "editors" cvs-options cvs-command-options nil mcvs-args))    (mcvs-generic "editors" cvs-options cvs-command-options nil mcvs-args))
122    
123    (defun mcvs-sync-to-wrapper (cvs-options cvs-command-options mcvs-args)
124      (mcvs-generic "" cvs-options cvs-command-options nil mcvs-args
125                    :need-sync-before t
126                    :no-invoke-cvs t))
127    
128    (defun mcvs-sync-from-wrapper (cvs-options cvs-command-options mcvs-args)
129      (mcvs-generic "" cvs-options cvs-command-options nil mcvs-args
130                    :need-sync-after t
131                    :no-invoke-cvs t))

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

  ViewVC Help
Powered by ViewVC 1.1.5