/[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.3 by kaz, Sun Oct 13 23:53:14 2002 UTC
# Line 17  Line 17 
17  (require "purge")  (require "purge")
18  (require "restore")  (require "restore")
19  (require "prop")  (require "prop")
20    (require "watch")
21  (require "split")  (require "split")
22  (require "restart")  (require "restart")
23  (require "error")  (require "error")
# Line 44  Line 45 
45    (0 arg "f")    (0 arg "f")
46    (1 arg "r" "D" "d" "k" "j"))    (1 arg "r" "D" "d" "k" "j"))
47    
48    (define-option-constant *export-options*
49      (0 arg "f")
50      (1 arg "r" "D" "d" "k"))
51    
52  (define-option-constant *add-options*  (define-option-constant *add-options*
53    (0 arg "R")    (0 arg "R")
54    (1 arg "k" "m"))    (1 arg "k" "m"))
# Line 52  Line 57 
57    (0 arg "R"))    (0 arg "R"))
58    
59  (define-option-constant *update-options*  (define-option-constant *update-options*
60    (0 arg "A" "f" "p")    (0 arg "A" "C" "f" "p")
61    (1 arg "k" "r" "D" "j" "I" "W"))    (1 arg "k" "r" "D" "j" "I" "W"))
62    
63  (define-option-constant *switch-options*  (define-option-constant *switch-options*
# Line 108  Line 113 
113    (1 arg "set" "clear" "remove")    (1 arg "set" "clear" "remove")
114    (2 arg "value"))    (2 arg "value"))
115    
116    (define-option-constant *watch-options*
117      (0 arg "on" "off")
118      (1 arg "add" "remove"))
119    
120  (defun mcvs-help (global-options command-options args)  (defun mcvs-help (global-options command-options args)
121    (declare (special *usage* *mcvs-command-table*)    (declare (special *usage* *mcvs-command-table*)
122             (ignore global-options command-options))             (ignore global-options command-options))
# Line 139  Line 148 
148     ("grab" ,#'mcvs-grab-wrapper ,*grab-help* ,*grab-options*)     ("grab" ,#'mcvs-grab-wrapper ,*grab-help* ,*grab-options*)
149     ("checkout" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)     ("checkout" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)
150     ("co" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)     ("co" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)
151       ("export" ,#'mcvs-export-wrapper ,*export-help* ,*export-options*)
152       ("ex" ,#'mcvs-export-wrapper ,*export-help* ,*export-options*)
153     ("add" ,#'mcvs-add-wrapper ,*add-help* ,*add-options*)     ("add" ,#'mcvs-add-wrapper ,*add-help* ,*add-options*)
154     ("remove" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)     ("remove" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)
155     ("rm" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)     ("rm" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)
# Line 167  Line 178 
178     ("purge" ,#'mcvs-purge-wrapper nil ,*purge-options*)     ("purge" ,#'mcvs-purge-wrapper nil ,*purge-options*)
179     ("restore" ,#'mcvs-restore-wrapper nil ,*restore-options*)     ("restore" ,#'mcvs-restore-wrapper nil ,*restore-options*)
180     ("remap" ,#'mcvs-remap-wrapper nil ,*remap-options*)     ("remap" ,#'mcvs-remap-wrapper nil ,*remap-options*)
181     ("prop" ,#'mcvs-prop-wrapper nil ,*prop-options*)))     ("prop" ,#'mcvs-prop-wrapper nil ,*prop-options*)
182       ("watch" ,#'mcvs-watch-wrapper nil ,*watch-options*)))
183    
184  (defconstant *usage*  (defconstant *usage*
185  "Meta-CVS command syntax:  "Meta-CVS command syntax:

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

  ViewVC Help
Powered by ViewVC 1.1.5