/[meta-cvs]/meta-cvs/F-0BAB20DD5AC6CA222E7E6E3055487AB2.lisp
ViewVC logotype

Contents of /meta-cvs/F-0BAB20DD5AC6CA222E7E6E3055487AB2.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (hide annotations)
Sat Oct 26 18:56:29 2002 UTC (11 years, 5 months ago) by kaz
Branch: MAIN
Changes since 1.4: +13 -19 lines
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*usage*): Expand tabs to spaces.

* code/add.lisp (*add-help*): Likewise.

* code/remove.lisp (*remove-help*): Likewise.

* code/create.lisp (*create-help*): Likewise.

* code/purge.lisp (mcvs-purge): Get rid the processing of the
nonexistent -n option from purge code.  The global option -n does an
adequate job of implementing a dry run.

* code/mapping.lisp (mapping-removed-files): Skip over the MCVS/CVS
directory, which can contain CVS-generated files with F- names and a ,t
suffix. These trip up the algorithm.
1 kaz 1.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 "system")
6     (require "dirwalk")
7     (require "mapping")
8     (require "find-bind")
9    
10 kaz 1.5 (defun mcvs-purge (global-options)
11     (in-sandbox-root-dir
12     (let* ((filemap (mapping-read *mcvs-map* :sanity-check t))
13     (to-be-removed (mapping-removed-files filemap)))
14     (when to-be-removed
15     (chdir *mcvs-dir*)
16     (chatter-debug "Invoking CVS.~%")
17     (unless (execute-program-xargs `("cvs" ,@(format-opt global-options)
18     "rm" "-f")
19     (mapcar #'basename to-be-removed))
20     (error "CVS rm failed.")))))
21 kaz 1.1 (values))
22    
23     (defun mcvs-purge-wrapper (global-options command-options args)
24 kaz 1.5 (declare (ignore command-options))
25 kaz 1.1 (when args
26 kaz 1.4 (error "no arguments permitted."))
27 kaz 1.5 (mcvs-purge global-options))

  ViewVC Help
Powered by ViewVC 1.1.5