/[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.96 by kaz, Fri Nov 24 06:47:12 2006 UTC revision 1.97 by kaz, Mon Nov 27 02:51:45 2006 UTC
# Line 6  Line 6 
6    
7  (define-option-constant *global-options*  (define-option-constant *global-options*
8    (0 arg "H" "help" "Q" "q" "r" "w" "l" "n" "t" "v" "f" "version"    (0 arg "H" "help" "Q" "q" "r" "w" "l" "n" "t" "v" "f" "version"
9           "meta" "metaonly" "nometa" "error-continue" "error-terminate" "debug")           "meta" "metaonly" "nometa" "error-continue" "error-terminate" "debug"
10             "nofilt")
11    (1 arg "T" "e" "d" "r" "z" "s" "i" "up"))    (1 arg "T" "e" "d" "r" "z" "s" "i" "up"))
12    
13  (define-option-constant *help-options*)  (define-option-constant *help-options*)
# Line 139  Line 140 
140    
141  (defconstant *mcvs-command-table*  (defconstant *mcvs-command-table*
142   `(("help" ,#'mcvs-help nil ,*help-options*)   `(("help" ,#'mcvs-help nil ,*help-options*)
143     ("create" ,#'mcvs-create-wrapper ,*create-help* ,*create-options*)     ("create" ,#'mcvs-create-wrapper ,*create-help* ,*create-options* nil)
144     ("grab" ,#'mcvs-grab-wrapper ,*grab-help* ,*grab-options*)     ("grab" ,#'mcvs-grab-wrapper ,*grab-help* ,*grab-options* nil)
145     ("checkout" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)     ("checkout" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options* t)
146     ("co" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options*)     ("co" ,#'mcvs-checkout-wrapper ,*checkout-help* ,*checkout-options* nil)
147     ("export" ,#'mcvs-export-wrapper ,*export-help* ,*export-options*)     ("export" ,#'mcvs-export-wrapper ,*export-help* ,*export-options* nil)
148     ("ex" ,#'mcvs-export-wrapper ,*export-help* ,*export-options*)     ("ex" ,#'mcvs-export-wrapper ,*export-help* ,*export-options* nil)
149     ("add" ,#'mcvs-add-wrapper ,*add-help* ,*add-options*)     ("add" ,#'mcvs-add-wrapper ,*add-help* ,*add-options* t)
150     ("remove" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)     ("remove" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options* t)
151     ("rm" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options*)     ("rm" ,#'mcvs-remove-wrapper ,*remove-help* ,*remove-options* t)
152     ("move" ,#'mcvs-move-wrapper ,*move-help* ,*move-options*)     ("move" ,#'mcvs-move-wrapper ,*move-help* ,*move-options* t)
153     ("mv" ,#'mcvs-move-wrapper ,*move-help* ,*move-options*)     ("mv" ,#'mcvs-move-wrapper ,*move-help* ,*move-options* t)
154     ("link" ,#'mcvs-link-wrapper ,*link-help* ,*link-options*)     ("link" ,#'mcvs-link-wrapper ,*link-help* ,*link-options* t)
155     ("ln" ,#'mcvs-link-wrapper ,*link-help* ,*link-options*)     ("ln" ,#'mcvs-link-wrapper ,*link-help* ,*link-options* t)
156     ("update" ,#'mcvs-update-wrapper nil ,*update-options*)     ("update" ,#'mcvs-update-wrapper nil ,*update-options* t)
157     ("up" ,#'mcvs-update-wrapper nil ,*update-options*)     ("up" ,#'mcvs-update-wrapper nil ,*update-options* t)
158     ("commit" ,#'mcvs-commit-wrapper nil ,*commit-options*)     ("commit" ,#'mcvs-commit-wrapper nil ,*commit-options* nil)
159     ("ci" ,#'mcvs-commit-wrapper nil ,*commit-options*)     ("ci" ,#'mcvs-commit-wrapper nil ,*commit-options* nil)
160     ("diff" ,#'mcvs-diff-wrapper nil ,*diff-options*)     ("diff" ,#'mcvs-diff-wrapper nil ,*diff-options* t)
161     ("tag" ,#'mcvs-tag-wrapper nil ,*tag-options*)     ("tag" ,#'mcvs-tag-wrapper nil ,*tag-options* t)
162     ("log" ,#'mcvs-log-wrapper nil ,*log-options*)     ("log" ,#'mcvs-log-wrapper nil ,*log-options* t)
163     ("status" ,#'mcvs-status-wrapper nil ,*status-options*)     ("status" ,#'mcvs-status-wrapper nil ,*status-options* t)
164     ("stat" ,#'mcvs-status-wrapper nil ,*status-options*)     ("stat" ,#'mcvs-status-wrapper nil ,*status-options* t)
165     ("annotate" ,#'mcvs-annotate-wrapper nil ,*annotate-options*)     ("annotate" ,#'mcvs-annotate-wrapper nil ,*annotate-options* t)
166     ("filt" ,#'mcvs-filt-wrapper nil ,*filt-options*)     ("filt" ,#'mcvs-filt-wrapper nil ,*filt-options* nil)
167     ("fi" ,#'mcvs-filt-wrapper nil ,*filt-options*)     ("fi" ,#'mcvs-filt-wrapper nil ,*filt-options* nil)
168     ("remote-filt" ,#'mcvs-remote-filt-wrapper nil ,*remote-filt-options*)     ("remote-filt" ,#'mcvs-remote-filt-wrapper nil ,*remote-filt-options* nil)
169     ("rfilt" ,#'mcvs-remote-filt-wrapper nil ,*remote-filt-options*)     ("rfilt" ,#'mcvs-remote-filt-wrapper nil ,*remote-filt-options* nil)
170     ("rfi" ,#'mcvs-remote-filt-wrapper nil ,*remote-filt-options*)     ("rfi" ,#'mcvs-remote-filt-wrapper nil ,*remote-filt-options* nil)
171     ("convert" ,#'mcvs-convert-wrapper ,*convert-help* ,*convert-options*)     ("convert" ,#'mcvs-convert-wrapper ,*convert-help* ,*convert-options* nil)
172     ("branch" ,#'mcvs-branch-wrapper ,*branch-help* ,*branch-options*)     ("branch" ,#'mcvs-branch-wrapper ,*branch-help* ,*branch-options* t)
173     ("switch" ,#'mcvs-switch-wrapper nil ,*switch-options*)     ("switch" ,#'mcvs-switch-wrapper nil ,*switch-options* t)
174     ("sw" ,#'mcvs-switch-wrapper nil ,*switch-options*)     ("sw" ,#'mcvs-switch-wrapper nil ,*switch-options* t)
175     ("merge" ,#'mcvs-merge-wrapper nil ,*merge-options*)     ("merge" ,#'mcvs-merge-wrapper nil ,*merge-options* t)
176     ("remerge" ,#'mcvs-remerge-wrapper nil ,*remerge-options*)     ("remerge" ,#'mcvs-remerge-wrapper nil ,*remerge-options* t)
177     ("list-branches" ,#'mcvs-list-branches-wrapper nil ,*list-branches-options*)     ("list-branches" ,#'mcvs-list-branches-wrapper nil ,*list-branches-options* nil)
178     ("lb" ,#'mcvs-list-branches-wrapper nil ,*list-branches-options*)     ("lb" ,#'mcvs-list-branches-wrapper nil ,*list-branches-options* nil)
179     ("purge" ,#'mcvs-purge-wrapper nil ,*purge-options*)     ("purge" ,#'mcvs-purge-wrapper nil ,*purge-options* nil)
180     ("restore" ,#'mcvs-restore-wrapper nil ,*restore-options*)     ("restore" ,#'mcvs-restore-wrapper nil ,*restore-options* nil)
181     ("remap" ,#'mcvs-remap-wrapper nil ,*remap-options*)     ("remap" ,#'mcvs-remap-wrapper nil ,*remap-options* nil)
182     ("prop" ,#'mcvs-prop-wrapper nil ,*prop-options*)     ("prop" ,#'mcvs-prop-wrapper nil ,*prop-options* t)
183     ("watch" ,#'mcvs-watch-wrapper nil ,*watch-options*)     ("watch" ,#'mcvs-watch-wrapper nil ,*watch-options* nil)
184     ("watchers" ,#'mcvs-watchers-wrapper nil ,*watchers-options*)     ("watchers" ,#'mcvs-watchers-wrapper nil ,*watchers-options* nil)
185     ("edit" ,#'mcvs-edit-wrapper nil ,*edit-options*)     ("edit" ,#'mcvs-edit-wrapper nil ,*edit-options* nil)
186     ("unedit" ,#'mcvs-unedit-wrapper nil ,*unedit-options*)     ("unedit" ,#'mcvs-unedit-wrapper nil ,*unedit-options* nil)
187     ("editors" ,#'mcvs-editors-wrapper nil ,*editors-options*)     ("editors" ,#'mcvs-editors-wrapper nil ,*editors-options* nil)
188     ("sync-from-cvs" ,#'mcvs-sync-from-wrapper nil ,*editors-options*)     ("sync-from-cvs" ,#'mcvs-sync-from-wrapper nil ,*editors-options* t)
189     ("sync-to-cvs" ,#'mcvs-sync-to-wrapper nil ,*editors-options*)))     ("sync-to-cvs" ,#'mcvs-sync-to-wrapper nil ,*editors-options* t)))
190    
191  (defconstant *usage*  (defconstant *usage*
192  "Meta-CVS command syntax:  "Meta-CVS command syntax:
# Line 199  Global options: Line 200  Global options:
200    -Q                 Very quiet, generate output only for serious problems. (*)    -Q                 Very quiet, generate output only for serious problems. (*)
201    -q                 Somewhat quiet, some info messages suppressed. (*)    -q                 Somewhat quiet, some info messages suppressed. (*)
202    -n                 Dry run; do not modify filesystem. (*)    -n                 Dry run; do not modify filesystem. (*)
203      --nofilt           Do not filter the output of CVS commands. Normally,
204                         many Meta-CVS commands that invoke CVS call it with
205                         with its standard output redirected to a filtering
206                         process equivalent to ``mcvs filt''.
207    --debug            Verbose debug output; -Q and -q are ignored but still    --debug            Verbose debug output; -Q and -q are ignored but still
208                       passed to CVS.                       passed to CVS.
209    -r                 Make working files read-only. (@)    -r                 Make working files read-only. (@)
# Line 262  Commands: Line 267  Commands:
267                       version information about every individual line of text.                       version information about every individual line of text.
268    filt (fi)          Act as a text filter, which converts Meta-CVS F- file    filt (fi)          Act as a text filter, which converts Meta-CVS F- file
269                       names to readable paths, according to the current mapping.                       names to readable paths, according to the current mapping.
270                         This is not required in most situations, since Meta-CVS
271                         arranges a filter automatically (see --nofilt option).
272    remote-filt (rfi)  Remote version of filt, requires module name.    remote-filt (rfi)  Remote version of filt, requires module name.
273    branch             Create a managed branch. Meta-CVS managed branches keep    branch             Create a managed branch. Meta-CVS managed branches keep
274                       track of what has been merged where, so users don't have                       track of what has been merged where, so users don't have
# Line 333  Commands: Line 340  Commands:
340          (when (not command)          (when (not command)
341            (error "~a is not a recognized mcvs command."            (error "~a is not a recognized mcvs command."
342                   (first global-args)))                   (first global-args)))
343          (destructuring-bind (name func help-text opt-spec) command          (destructuring-bind (name func help-text opt-spec
344                                      &optional filtered) command
345            (declare (ignore name help-text))            (declare (ignore name help-text))
346            (multiple-value-bind (command-options command-args)            (multiple-value-bind (command-options command-args)
347                                 (parse-opt (rest global-args) opt-spec)                                 (parse-opt (rest global-args) opt-spec)
348              (funcall func global-options command-options command-args)))))))              (with-filtered-execute-program ((and filtered
349                                                     (not *nofilt-option*))
350                                                (lambda ()
351                                                  (mcvs-filt nil))
352                                                :output)
353                  (funcall func global-options command-options command-args))))))))
354    
355  (defun main ()  (defun main ()
356    (with-open-file-ignore-errors (*interactive-error-io* (parse-posix-namestring    (with-open-file-ignore-errors (*interactive-error-io* (parse-posix-namestring

Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97

  ViewVC Help
Powered by ViewVC 1.1.5