/[meta-cvs]/meta-cvs/F-233AD6EEE14894A7303F09519A2AB734
ViewVC logotype

Diff of /meta-cvs/F-233AD6EEE14894A7303F09519A2AB734

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69 by kaz, Sat Oct 5 18:09:48 2002 UTC revision 1.69.2.8 by kaz, Tue Oct 22 04:55:38 2002 UTC
# Line 2  Line 2 
2  ;;; which is distributed under the GNU license.  ;;; which is distributed under the GNU license.
3  ;;; Copyright 2002 Kaz Kylheku  ;;; Copyright 2002 Kaz Kylheku
4    
5    ;; Clear out requires for mcvs-upgrade to work right.
6    (setf *modules* nil)
7    
8  (require "create")  (require "create")
9  (require "checkout")  (require "checkout")
10  (require "grab")  (require "grab")
# Line 17  Line 20 
20  (require "purge")  (require "purge")
21  (require "restore")  (require "restore")
22  (require "prop")  (require "prop")
23    (require "watch")
24  (require "split")  (require "split")
25  (require "restart")  (require "restart")
26  (require "error")  (require "error")
# Line 44  Line 48 
48    (0 arg "f")    (0 arg "f")
49    (1 arg "r" "D" "d" "k" "j"))    (1 arg "r" "D" "d" "k" "j"))
50    
51    (define-option-constant *export-options*
52      (0 arg "f")
53      (1 arg "r" "D" "d" "k"))
54    
55  (define-option-constant *add-options*  (define-option-constant *add-options*
56    (0 arg "R")    (0 arg "R")
57    (1 arg "k" "m"))    (1 arg "k" "m"))
# Line 52  Line 60 
60    (0 arg "R"))    (0 arg "R"))
61    
62  (define-option-constant *update-options*  (define-option-constant *update-options*
63    (0 arg "A" "f" "p")    (0 arg "A" "C" "f" "p")
64    (1 arg "k" "r" "D" "j" "I" "W"))    (1 arg "k" "r" "D" "j" "I" "W"))
65    
66  (define-option-constant *switch-options*  (define-option-constant *switch-options*
# Line 108  Line 116 
116    (1 arg "set" "clear" "remove")    (1 arg "set" "clear" "remove")
117    (2 arg "value"))    (2 arg "value"))
118    
119    (define-option-constant *watch-options*
120      (0 arg "on" "off")
121      (1 arg "add" "remove"))
122    
123    (define-option-constant *watchers-options*)
124    (define-option-constant *edit-options*)
125    (define-option-constant *unedit-options*)
126    (define-option-constant *editors-options*)
127    
128  (defun mcvs-help (global-options command-options args)  (defun mcvs-help (global-options command-options args)
129    (declare (special *usage* *mcvs-command-table*)    (declare (special *usage* *mcvs-command-table*)
130             (ignore global-options command-options))             (ignore global-options command-options))
# Line 139  Line 156 
156     ("grab" ,#'mcvs-grab-wrapper ,*grab-help* ,*grab-options*)     ("grab" ,#'mcvs-grab-wrapper ,*grab-help* ,*grab-options*)
157     ("checkout" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)     ("checkout" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)
158     ("co" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)     ("co" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)
159       ("export" ,#'mcvs-export-wrapper ,*export-help* ,*export-options*)
160       ("ex" ,#'mcvs-export-wrapper ,*export-help* ,*export-options*)
161     ("add" ,#'mcvs-add-wrapper ,*add-help* ,*add-options*)     ("add" ,#'mcvs-add-wrapper ,*add-help* ,*add-options*)
162     ("remove" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)     ("remove" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)
163     ("rm" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)     ("rm" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)
164     ("move" ,#'mcvs-move-wrapper nil ,*move-options*)     ("move" ,#'mcvs-move-wrapper ,*move-help* ,*move-options*)
165     ("mv" ,#'mcvs-move-wrapper nil ,*move-options*)     ("mv" ,#'mcvs-move-wrapper ,*move-help* ,*move-options*)
166     ("update" ,#'mcvs-update-wrapper nil ,*update-options*)     ("update" ,#'mcvs-update-wrapper nil ,*update-options*)
167     ("up" ,#'mcvs-update-wrapper nil ,*update-options*)     ("up" ,#'mcvs-update-wrapper nil ,*update-options*)
168     ("commit" ,#'mcvs-commit-wrapper nil ,*commit-options*)     ("commit" ,#'mcvs-commit-wrapper nil ,*commit-options*)
# Line 167  Line 186 
186     ("purge" ,#'mcvs-purge-wrapper nil ,*purge-options*)     ("purge" ,#'mcvs-purge-wrapper nil ,*purge-options*)
187     ("restore" ,#'mcvs-restore-wrapper nil ,*restore-options*)     ("restore" ,#'mcvs-restore-wrapper nil ,*restore-options*)
188     ("remap" ,#'mcvs-remap-wrapper nil ,*remap-options*)     ("remap" ,#'mcvs-remap-wrapper nil ,*remap-options*)
189     ("prop" ,#'mcvs-prop-wrapper nil ,*prop-options*)))     ("prop" ,#'mcvs-prop-wrapper nil ,*prop-options*)
190       ("watch" ,#'mcvs-watch-wrapper nil ,*watch-options*)
191       ("watchers" ,#'mcvs-watchers-wrapper nil ,*watchers-options*)
192       ("edit" ,#'mcvs-edit-wrapper nil ,*edit-options*)
193       ("unedit" ,#'mcvs-unedit-wrapper nil ,*unedit-options*)
194       ("editors" ,#'mcvs-editors-wrapper nil ,*editors-options*)))
195    
196  (defconstant *usage*  (defconstant *usage*
197  "Meta-CVS command syntax:  "Meta-CVS command syntax:
# Line 214  Commands: Line 238  Commands:
238    grab               Take a snapshot of an external source tree, such    grab               Take a snapshot of an external source tree, such
239                       as a third-party release, and incorporate it into                       as a third-party release, and incorporate it into
240                       the working copy. Tries to discover file moves.                       the working copy. Tries to discover file moves.
241    checkout (co)      Retrieve a Meta-CVS project from CVS and build    checkout (co)      Retrieve a Meta-CVS project from the repository to
242                         create a working copy.
243      export (ex)        Retrieve a Meta-CVS project without creating a
244                       working copy.                       working copy.
245    add                Place files (or directories with add -R) under    add                Place files (or directories with add -R) under
246                       version control.                       version control.
# Line 261  Commands: Line 287  Commands:
287                       The ``exec'' property represents the execute permission                       The ``exec'' property represents the execute permission
288                       of a file.  More than one --set, --clear, --value                       of a file.  More than one --set, --clear, --value
289                       or --remove may be specified before the files.                       or --remove may be specified before the files.
290      watch              Manipulate per-file CVS watch settings.
291                           watch --on [ files ... ]
292                           watch --off [ files ... ]
293                           watch --add <action> [ files ... ]
294                           watch --remove <action> [ files ... ]
295      watchers           See who is watching files.
296      edit               Indicate the intent to edit a watched file.
297      unedit             Retract the indication signaled by edit.
298      editors            See who is editing files.
299    convert            Convert a CVS module to a Meta-CVS project. This requires    convert            Convert a CVS module to a Meta-CVS project. This requires
300                       filesystem-level access to the repository. This is                       filesystem-level access to the repository. This is
301                       currently an experimental command that is known not                       currently an experimental command that is known not
# Line 297  Commands: Line 332  Commands:
332                (format t "Meta-CVS unknown version (c) 2002 Kaz Kylheku~%"))                (format t "Meta-CVS unknown version (c) 2002 Kaz Kylheku~%"))
333              (throw 'mcvs-terminate nil)))              (throw 'mcvs-terminate nil)))
334          (when editor          (when editor
335            (setf *editor* (second editor)))            (setf *mcvs-editor* (second editor)))
336          (cond          (cond
337            (very-quiet (setf *mcvs-chatter-level* *mcvs-silent*))            (very-quiet (setf *mcvs-chatter-level* *mcvs-silent*))
338            (quiet (setf *mcvs-chatter-level* *mcvs-terse*)))            (quiet (setf *mcvs-chatter-level* *mcvs-terse*)))

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.69.2.8

  ViewVC Help
Powered by ViewVC 1.1.5