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

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Mon Jan 21 18:55:17 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.1: +3 -1 lines
mcvs-remove: do nothing if no arguments
mcvs-update: resynchronize links after CVS update.
1 (require "dirwalk")
2 (require "chatter")
3 (require "mapping")
4 (provide "update")
5
6 (defun mcvs-update ()
7 (current-dir-restore
8 (let ((down-path (mcvs-locate)))
9 (if (not down-path)
10 (error "mcvs-add: could not locate ~a directory." *mcvs-dir*))
11
12 (chatter-info "Synchronizing.~%")
13 (mapping-synchronize)
14
15 (current-dir-restore
16 (chdir *mcvs-dir*)
17 (chatter-info "Invoking CVS.~%")
18 (execute-program '("cvs" "up")))
19
20 (chatter-info "Updating file structure.~%")
21 (mapping-update)
22 (chatter-info "Synchronizing.~%")
23 (mapping-synchronize)))
24 (values))

  ViewVC Help
Powered by ViewVC 1.1.5