/[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.2 - (hide annotations)
Tue Jul 16 20:15:07 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-24, mcvs-0-20, symlink-branch~branch-point, mcvs-0-22, mcvs-0-23, mcvs-0-21, mcvs-0-95, mcvs-0-19, symlink-branch~merged-to-HEAD-0
Branch point for: symlink-branch
Changes since 1.1: +2 -1 lines
* code/restore.lisp (mcvs-restore): Work properly with
partial sandboxes; that is, move things to lost+found
directory at the top of the partial sandbox, rather than
the abstract root.
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 kaz 1.2 (push `(,removed ,(path-cat (real-to-abstract-path "lost+found")
15     (basename removed)))
16 kaz 1.1 filemap))
17     (mapping-write filemap *mcvs-map* :sort-map t)
18     (mapping-update))))
19    
20     (defun mcvs-restore-wrapper (global-options command-options args)
21     (declare (ignore global-options command-options))
22     (when args
23     (error "mcvs-restore: no arguments permitted."))
24     (mcvs-restore))

  ViewVC Help
Powered by ViewVC 1.1.5