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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Tue Jul 2 18:32:52 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: partial-sandbox-branch~branch-point, partial-sandbox-branch~merged-to-HEAD-0, mcvs-0-17, mcvs-0-18
Branch point for: partial-sandbox-branch
* purge.lisp (mcvs-purge): Factor out code for computing
deleted files.

* mapping.lisp (mapping-removed-files): New function, contains
code factored from mcvs-purge.

* restore.lisp: New file.
(mcvs-restore, mcvs-restore-wrapper): New functions.
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    
9     (defun mcvs-restore ()
10     (in-sandbox-root-dir
11     (let* ((filemap (mapping-read *mcvs-map* :sanity-check t))
12     (removed-files (mapping-removed-files filemap)))
13     (dolist (removed removed-files)
14     (push `(,removed ,(path-cat "lost+found" (basename removed)))
15     filemap))
16     (mapping-write filemap *mcvs-map* :sort-map t)
17     (mapping-update))))
18    
19     (defun mcvs-restore-wrapper (global-options command-options args)
20     (declare (ignore global-options command-options))
21     (when args
22     (error "mcvs-restore: no arguments permitted."))
23     (mcvs-restore))

  ViewVC Help
Powered by ViewVC 1.1.5