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

Contents of /meta-cvs/F-205A90D152A06EE04D552B256CDAF850

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (hide annotations)
Sat Jan 26 02:37:53 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: cvs-options-passthrough
Changes since 1.4: +4 -0 lines
Copyright notices.
1 kaz 1.5 ;;; This source file is part of the MCVS program,
2     ;;; which is distributed under the GNU license.
3     ;;; Copyright 2002 Kaz Kylheku
4    
5 kaz 1.1 (require "dirwalk")
6     (require "chatter")
7     (require "mapping")
8     (provide "update")
9    
10 kaz 1.4 (defun mcvs-update (&optional cvs-options cvs-update-options)
11 kaz 1.3 (in-sandbox-root-dir ()
12     (chatter-info "Synchronizing.~%")
13     (mapping-synchronize)
14 kaz 1.1
15 kaz 1.3 (current-dir-restore
16     (chdir *mcvs-dir*)
17     (chatter-info "Invoking CVS.~%")
18 kaz 1.4 (execute-program `("cvs" ,@cvs-options "up" ,@cvs-update-options)))
19 kaz 1.1
20 kaz 1.3 (chatter-info "Updating file structure.~%")
21     (mapping-update)
22     (chatter-info "Synchronizing again.~%")
23     (mapping-synchronize))
24 kaz 1.1 (values))
25 kaz 1.4
26     (defun mcvs-update-wrapper (cvs-options cvs-specific-options mcvs-args)
27     (when mcvs-args
28     (error "mcvs-update no arguments permitted."))
29     (mcvs-update cvs-options cvs-specific-options))

  ViewVC Help
Powered by ViewVC 1.1.5