/[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.79 by kaz, Thu Oct 31 04:06:01 2002 UTC revision 1.80 by kaz, Mon Nov 4 02:09:17 2002 UTC
# Line 183  Line 183 
183     ("filt" ,#'mcvs-filt-wrapper nil ,*filt-options*)     ("filt" ,#'mcvs-filt-wrapper nil ,*filt-options*)
184     ("fi" ,#'mcvs-filt-wrapper nil ,*filt-options*)     ("fi" ,#'mcvs-filt-wrapper nil ,*filt-options*)
185     ("convert" ,#'mcvs-convert-wrapper nil ,*convert-options*)     ("convert" ,#'mcvs-convert-wrapper nil ,*convert-options*)
186     ("branch" ,#'mcvs-branch-wrapper nil ,*branch-options*)     ("branch" ,#'mcvs-branch-wrapper ,*branch-help* ,*branch-options*)
187     ("switch" ,#'mcvs-switch-wrapper nil ,*switch-options*)     ("switch" ,#'mcvs-switch-wrapper nil ,*switch-options*)
188     ("sw" ,#'mcvs-switch-wrapper nil ,*switch-options*)     ("sw" ,#'mcvs-switch-wrapper nil ,*switch-options*)
189     ("merge" ,#'mcvs-merge-wrapper nil ,*merge-options*)     ("merge" ,#'mcvs-merge-wrapper nil ,*merge-options*)
# Line 211  Global options: Line 211  Global options:
211                       help specific to that command is printed instead.                       help specific to that command is printed instead.
212    -Q                 Very quiet, generate output only for serious problems. (*)    -Q                 Very quiet, generate output only for serious problems. (*)
213    -q                 Somewhat quiet, some informational messages suppresed. (*)    -q                 Somewhat quiet, some informational messages suppresed. (*)
214      -n                 Dry run; do not modify filesystem. (*)
215    --debug            Verbose debug output; -Q and -q are ignored but still    --debug            Verbose debug output; -Q and -q are ignored but still
216                       passed to CVS.                       passed to CVS.
217    -r                 Make working files read-only. (@)    -r                 Make working files read-only. (@)
# Line 309  Commands: Line 310  Commands:
310                       currently an experimental command that is known not                       currently an experimental command that is known not
311                       to work 100%.")                       to work 100%.")
312    
 (defvar *options*)  
 (defvar *args*)  
   
313  (defun mcvs-execute (args)  (defun mcvs-execute (args)
314    (handler-bind ((error #'mcvs-error-handler))    (handler-bind ((error #'mcvs-error-handler))
315      (multiple-value-bind (global-options global-args)      (multiple-value-bind (global-options global-args)
316                           (parse-opt args *cvs-options*)                           (parse-opt args *cvs-options*)
317        (setf global-options (filter-global-options global-options))        (setf global-options (filter-global-options global-options))
318    
319        (find-bind (:test #'string= :key #'first)        (when *print-usage*
320                   ((help-long "help") (help "H") (quiet "q")          (terpri)
321                    (very-quiet "Q") (version "v") (version-long "version")          (write-line *usage*)
322                    (editor "e") (interpret-file "i"))          (terpri)
323                   global-options          (throw 'mcvs-terminate nil))
         (setf *args* global-args)  
         (setf *options* global-options)  
         (when (or help-long help)  
           (terpri)  
           (write-line *usage*)  
           (terpri)  
           (throw 'mcvs-terminate nil))  
         (when (or version version-long)  
           (let* ((vers (split-words "$Name$" "$:- "))  
                  (major (third vers))  
                  (minor (fourth vers)))  
             (if (and major minor)  
               (format t "Meta-CVS version ~a.~a (c) 2002 Kaz Kylheku~%"  
                       major minor)  
               (format t "Meta-CVS unknown version (c) 2002 Kaz Kylheku~%"))  
             (throw 'mcvs-terminate nil)))  
         (when editor  
           (setf *mcvs-editor* (second editor)))  
         (cond  
           (very-quiet (setf *mcvs-chatter-level* *mcvs-silent*))  
           (quiet (setf *mcvs-chatter-level* *mcvs-terse*)))  
         (when interpret-file  
           (load (second interpret-file))  
           (throw 'mcvs-terminate nil)))  
324    
325        (when (not (first global-args))        (when (not (first global-args))
326          (write-line "Meta-CVS requires a command argument.")          (write-line "Meta-CVS requires a command argument.")

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

  ViewVC Help
Powered by ViewVC 1.1.5