/[meta-cvs]/meta-cvs/F-300FB44635F94930416CE1B06097B230.lisp
ViewVC logotype

Contents of /meta-cvs/F-300FB44635F94930416CE1B06097B230.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11 - (hide annotations)
Tue Nov 28 04:12:08 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.10: +3 -3 lines
Getting rid of mcvs- prefixes.

* code/package.lisp (defpackage): shadow the merge symbol.

* code/purge.lisp (mcvs-purge): renamed to purge
(mcvs-purge-wrapper): renamed to purge-wrapper

* code/restore.lisp (mcvs-restore): renamed to restore
(mcvs-restore-wrapper): renamed to restore-wrapper

* code/update.lisp (mcvs-update): renamed to update
(mcvs-update-wrapper): renamed to update-wrapper

* code/main.lisp (mcvs-help): renamed to help
(*mcvs-command-table*): renamed to *command-table*
(mcvs-terminate catch): renamed to terminate.

* code/execute.lisp (mcvs-execute): renamed to execute

* code/move.lisp (mcvs-move): renamed to move
(mcvs-move-wrapper): renamed to move-wrapper

* code/grab.lisp (mcvs-grab): renamed to grab
(mcvs-grab-wrapper): renamed to grab-wrapper

* code/prop.lisp (mcvs-prop): renamed to prop
(mcvs-prop-wrapper): renamed to prop-wrapper

* code/filt.lisp (mcvs-filt-loop): renamed to filt-loop
(mcvs-filt): renamed to filt
(mcvs-remote-filt): renamed to remote-filt
(mcvs-filt-wrapper): renamed to filt-wrapper
(mcvs-remote-filt-wrapper): renamed to remote-filt-wrapper

* code/branch.lisp (mcvs-branch): renamed to branch
(mcvs-branch-wrapper): renamed to branch-wrapper
(mcvs-merge): renamed to merge
(mcvs-list-branches): renamed to list-branches
(mcvs-merge-wrapper): renamed to merge-wrapper
(mcvs-remerge-wrapper): renamed to remerge-wrapper
(mcvs-list-branches-wrapper): renamed to list-branches-wrapper
(mcvs-switch-wrapper): renamed to switch-wrapper

* code/link.lisp (mcvs-link): renamed to ln
(mcvs-link-wrapper): renamed to link-wrapper

* code/watch.lisp (mcvs-watch): renamed to watch
(mcvs-watch-wrapper): renamed to watch-wrapper

* code/add.lisp (mcvs-add): renamed to add
(mcvs-add-wrapper): renamed to add-wrapper

* code/remove.lisp (mcvs-remove): renamed to rm
(mcvs-remove-wrapper): renamed to remove-wrapper

* code/convert.lisp (mcvs-convert): renamed to convert
(mcvs-convert-wrapper): renamed to convert-wrapper

* code/error.lisp (mcvs-terminate): renamed to terminate
(mcvs-error-handler): renamed to error-handler
(*mcvs-error-treatment*): renamed to *error-treatment*
(*mcvs-errors-occured-p*): renamed to *errors-occured-p*

* code/checkout.lisp (mcvs-checkout): renamed to checkout
(mcvs-checkout-wrapper): renamed to checkout-wrapper
(mcvs-export-wrapper): renamed to export-wrapper

* code/generic.lisp (mcvs-generic): renamed to generic
(mcvs-commit-wrapper): renamed to commit-wrapper
(mcvs-diff-wrapper): renamed to diff-wrapper
(mcvs-tag-wrapper): renamed to tag-wrapper
(mcvs-log-wrapper): renamed to log-wrapper
(mcvs-status-wrapper): renamed to status-wrapper
(mcvs-annotate-wrapper): renamed to annotate-wrapper
(mcvs-watchers-wrapper): renamed to watchers-wrapper
(mcvs-edit-wrapper): renamed to edit-wrapper
(mcvs-unedit-wrapper): renamed to unedit-wrapper
(mcvs-editors-wrapper): renamed to editors-wrapper
(mcvs-sync-to-wrapper): renamed to sync-to-wrapper
(mcvs-sync-from-wrapper): renamed to sync-from-wrapper

* code/create.lisp (mcvs-create): renamed to create
(mcvs-create-wrapper): renamed to create-wrapper

* code/remap.lisp (mcvs-remap): renamed to remap
(mcvs-remap-wrapper): renamed to remap-wrapper

* code/mapping.lisp (mcvs-locate): renamed to locate
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.10 (in-package :meta-cvs)
6 kaz 1.1
7 kaz 1.11 (defun prop (prop-options files)
8 kaz 1.1 (in-sandbox-root-dir
9     (let (entries-to-process
10 kaz 1.5 (filemap (mapping-read *mcvs-map*)))
11 kaz 1.1 (chatter-debug "Preparing file list.~%")
12    
13     (if (null files)
14     (setf entries-to-process
15     (mapping-prefix-matches filemap
16     (sandbox-translate-path ".")))
17     (dolist (file files)
18     (can-restart-here ("Continue preparing file list.")
19     (let* ((full-name (sandbox-translate-path file))
20 kaz 1.4 (abs-name (canonicalize-path
21     (real-to-abstract-path full-name)))
22 kaz 1.1 (entries (mapping-prefix-matches filemap abs-name)))
23     (if (not entries)
24 kaz 1.3 (error "~a is not known to Meta-CVS." full-name)
25 kaz 1.1 (setf entries-to-process (nconc entries-to-process entries)))))))
26    
27 kaz 1.7 (when (and entries-to-process prop-options)
28 kaz 1.1 ;; do the property update
29     (chatter-debug "Updating properties.~%")
30     (dolist (entry entries-to-process)
31     (with-slots (raw-plist) entry
32 kaz 1.2 (loop for (option prop-name value) in prop-options do
33     (let ((indicator (intern (string-upcase prop-name) "KEYWORD")))
34 kaz 1.1 (cond
35     ((string= option "set")
36     (setf (getf raw-plist indicator) t))
37     ((string= option "clear")
38     (setf (getf raw-plist indicator) nil))
39 kaz 1.2 ((string= option "value")
40     (setf (getf raw-plist indicator) (read-from-string value)))
41 kaz 1.1 ((string= option "remove")
42     (remf raw-plist indicator)))
43     (mapping-entry-parse-plist entry)))))
44     (chatter-debug "Writing out map.~%")
45     (mapping-write filemap *mcvs-map*)
46 kaz 1.8 ;; propagate changes to local map.
47 kaz 1.1 (chatter-debug "Updating file structure.~%")
48     (mapping-update)
49 kaz 1.8 ;; propagate permission changes to files.
50 kaz 1.1 (chatter-debug "Synchronizing.~%")
51     (mapping-synchronize))))
52     (values))
53    
54 kaz 1.11 (defun prop-wrapper (mcvs-opts command-opts command-args)
55 kaz 1.1 (declare (ignore mcvs-opts))
56 kaz 1.11 (prop command-opts command-args))

  ViewVC Help
Powered by ViewVC 1.1.5