/[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.9 - (hide annotations)
Tue Nov 28 07:47:21 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
CVS Tags: asdf-import-branch~merged-to-HEAD-0, mcvs-1-1-98, asdf-import-branch~branch-point, HEAD
Branch point for: asdf-import-branch
Changes since 1.8: +2 -2 lines
More renaming to get rid of mcvs- prefix.

* code/chatter.lisp (*mcvs-debug*): Renamed to *chatter-debug*.
(*mcvs-info*, *mcvs-terse*, *mcvs-silent*): Similarly.
(*mcvs-chatter-level*): Renamed to *chatter-level*.

* code/unix.lisp (*mcvs-editor*): Renamed to *edit-program*.

* code/types.lisp (*mcvs-types-name*): Renamed to *types-file*.
(*mcvs-types*): Renamed to *types-path*.
(*mcvs-new-types*): Renamed to *types-new-path*.

* code/mapping.lisp (*mcvs-dir*): Renamed to *admin-dir*.
(*mcvs-map-name*): Renamed to *map-file*.
(*mcvs-map-local-name*): Renamed to *map-local-file*.
(*mcvs-displaced-name*): Renamed to *displaced-file*.
(*mcvs-map*): Renamed to *map-path*.
(*mcvs-map-local*): Renamed to *map-local-path*.
(*mcvs-displaced*): Renamed to *displaced-path*.
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.7 (in-package :meta-cvs)
6 kaz 1.1
7 kaz 1.8 (defun restore ()
8 kaz 1.1 (in-sandbox-root-dir
9 kaz 1.9 (let* ((filemap (mapping-read *map-path* :sanity-check t))
10 kaz 1.1 (removed-files (mapping-removed-files filemap)))
11     (dolist (removed removed-files)
12 kaz 1.3 (push (make-mapping-entry :kind :file
13     :id removed
14     :path (path-cat (real-to-abstract-path
15     "lost+found")
16     (basename removed))
17     :executable (executable-p removed))
18 kaz 1.1 filemap))
19 kaz 1.9 (mapping-write filemap *map-path* :sort-map t)
20 kaz 1.1 (mapping-update))))
21    
22 kaz 1.8 (defun restore-wrapper (global-options command-options args)
23 kaz 1.1 (declare (ignore global-options command-options))
24     (when args
25 kaz 1.4 (error "no arguments permitted."))
26 kaz 1.8 (restore))

  ViewVC Help
Powered by ViewVC 1.1.5