/[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.7 - (hide annotations)
Mon Mar 8 06:11:40 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-1-0
Changes since 1.6: +0 -6 lines
Revamped loading system. Got rid of require/provide in all
Lisp source files.

* code/mcvs.lisp: New file. Responsible for compiling and loading
everything in the right order.

* code/mcvs-main.lisp: File renamed to main.lisp.

* code/mcvs-package.lisp: File renamed to package.lisp.

* code/system.lisp: File removed.
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 kaz 1.6 (in-package "META-CVS")
6 kaz 1.1
7 kaz 1.5 (defun mcvs-purge (global-options)
8     (in-sandbox-root-dir
9     (let* ((filemap (mapping-read *mcvs-map* :sanity-check t))
10     (to-be-removed (mapping-removed-files filemap)))
11     (when to-be-removed
12     (chdir *mcvs-dir*)
13     (chatter-debug "Invoking CVS.~%")
14     (unless (execute-program-xargs `("cvs" ,@(format-opt global-options)
15     "rm" "-f")
16     (mapcar #'basename to-be-removed))
17     (error "CVS rm failed.")))))
18 kaz 1.1 (values))
19    
20     (defun mcvs-purge-wrapper (global-options command-options args)
21 kaz 1.5 (declare (ignore command-options))
22 kaz 1.1 (when args
23 kaz 1.4 (error "no arguments permitted."))
24 kaz 1.5 (mcvs-purge global-options))

  ViewVC Help
Powered by ViewVC 1.1.5