/[meta-cvs]/meta-cvs/F-205A90D152A06EE04D552B256CDAF850
ViewVC logotype

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (hide annotations)
Sat Jan 26 01:38:37 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.3: +7 -2 lines
Moving closer toward delivery.
1 kaz 1.1 (require "dirwalk")
2     (require "chatter")
3     (require "mapping")
4     (provide "update")
5    
6 kaz 1.4 (defun mcvs-update (&optional cvs-options cvs-update-options)
7 kaz 1.3 (in-sandbox-root-dir ()
8     (chatter-info "Synchronizing.~%")
9     (mapping-synchronize)
10 kaz 1.1
11 kaz 1.3 (current-dir-restore
12     (chdir *mcvs-dir*)
13     (chatter-info "Invoking CVS.~%")
14 kaz 1.4 (execute-program `("cvs" ,@cvs-options "up" ,@cvs-update-options)))
15 kaz 1.1
16 kaz 1.3 (chatter-info "Updating file structure.~%")
17     (mapping-update)
18     (chatter-info "Synchronizing again.~%")
19     (mapping-synchronize))
20 kaz 1.1 (values))
21 kaz 1.4
22     (defun mcvs-update-wrapper (cvs-options cvs-specific-options mcvs-args)
23     (when mcvs-args
24     (error "mcvs-update no arguments permitted."))
25     (mcvs-update cvs-options cvs-specific-options))

  ViewVC Help
Powered by ViewVC 1.1.5