/[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.102 by kaz, Sat Dec 2 03:21:27 2006 UTC revision 1.103 by kaz, Sat Mar 8 02:43:16 2008 UTC
# Line 8  Line 8 
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")           "nofilt")
11    (1 arg "T" "e" "d" "r" "z" "s" "i" "up"))    (1 arg "T" "e" "d" "r" "z" "s" "i" "x" "up"))
12    
13  (define-option-constant *help-options*)  (define-option-constant *help-options*)
14    
# Line 189  Global options: Line 189  Global options:
189    -f                 CVS not to read ~/.cvsrc file. (@)    -f                 CVS not to read ~/.cvsrc file. (@)
190    -i script-name     Load a Lisp file and evaluate its top level forms,    -i script-name     Load a Lisp file and evaluate its top level forms,
191                       allowing Meta-CVS to behave as an interpreter.                       allowing Meta-CVS to behave as an interpreter.
192                         Can be specified more than once.
193      -x expression      Parse the argument as a Lisp expression and evaluate.
194                         Can be specified more than once.
195    --meta             Include metafiles such as MCVS/MAP in the set of files    --meta             Include metafiles such as MCVS/MAP in the set of files
196                       to operate on.                       to operate on.
197    --metaonly         Operate only on metafiles.    --metaonly         Operate only on metafiles.
# Line 328  Commands: Line 331  Commands:
331          (terpri)          (terpri)
332          (throw 'terminate nil))          (throw 'terminate nil))
333    
334        (when (not (first global-args))        (if *exec-list*
335          (write-line "Meta-CVS requires a command argument." *error-output*)          (let ((*package* (find-package :mcvs)))
336          (write-line "Use mcvs -H to view help." *error-output*)            (dolist (expr *exec-list*)
337          (throw 'terminate nil))              (eval expr)))
338            (unless global-args
339        (let ((command (find (first global-args) *command-table*            (write-line "Meta-CVS requires a command argument." *error-output*)
340                             :key #'first            (write-line "Use mcvs -H to view help." *error-output*)
341                             :test #'string=)))            (throw 'terminate nil)))
342          (when (not command)  
343            (error "~a is not a recognized mcvs command."        (if global-args
344                   (first global-args)))          (let ((command (find (first global-args) *command-table*
345          (destructuring-bind (name func help-text opt-spec                               :key #'first
346                                    &optional filtered) command                               :test #'string=)))
347            (declare (ignore name help-text))            (when (not command)
348            (multiple-value-bind (command-options command-args)              (error "~a is not a recognized mcvs command."
349                                 (parse-opt (rest global-args) opt-spec)                     (first global-args)))
350              (with-filtered-execute-program ((and filtered            (destructuring-bind (name func help-text opt-spec
351                                                   (not *nofilt-option*))                                      &optional filtered) command
352                                              (lambda ()              (declare (ignore name help-text))
353                                                (filt nil))              (multiple-value-bind (command-options command-args)
354                                              :output)                (parse-opt (rest global-args) opt-spec)
355                (funcall func global-options command-options command-args))))))))                (with-filtered-execute-program ((and filtered
356                                                       (not *nofilt-option*))
357                                                  (lambda ()
358                                                    (filt nil))
359                                                  :output)
360                                                 (funcall func global-options command-options command-args)))))))))
361    
362  (defun init ()  (defun init ()
363    #+clisp    #+clisp

Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103

  ViewVC Help
Powered by ViewVC 1.1.5