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

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (show annotations)
Thu Jan 31 05:35:01 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-3, mcvs-0-2, mcvs-0-4, latest-patch
Changes since 1.7: +1 -1 lines
MCVS is being renamed to Meta-CVS.
1 ;;; This source file is part of the Meta-CVS program,
2 ;;; which is distributed under the GNU license.
3 ;;; Copyright 2002 Kaz Kylheku
4
5 (require "dirwalk")
6 (require "chatter")
7 (require "mapping")
8 (require "options")
9 (provide "update")
10
11 (defun mcvs-update (&optional cvs-options cvs-update-options)
12 (in-sandbox-root-dir ()
13 (chatter-info "Synchronizing.~%")
14 (mapping-synchronize)
15
16 (current-dir-restore
17 (chdir *mcvs-dir*)
18 (chatter-info "Invoking CVS.~%")
19 (execute-program `("cvs" ,@(format-opt cvs-options)
20 "up" ,@(format-opt cvs-update-options))))
21
22 (chatter-info "Updating file structure.~%")
23 (mapping-update)
24 (chatter-info "Synchronizing again.~%")
25 (mapping-synchronize))
26 (values))
27
28 (defun mcvs-update-wrapper (cvs-options cvs-command-options mcvs-args)
29 (when mcvs-args
30 (error "mcvs-update: no arguments permitted."))
31 (mcvs-update cvs-options cvs-command-options))

  ViewVC Help
Powered by ViewVC 1.1.5