/[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.78 by kaz, Sun Oct 27 00:27:17 2002 UTC revision 1.79 by kaz, Thu Oct 31 04:06:01 2002 UTC
# Line 27  Line 27 
27  (require "error")  (require "error")
28  (require "options")  (require "options")
29  (require "find-bind")  (require "find-bind")
30    (require "mcvs-package")
31  (provide "mcvs-main")  (provide "mcvs-main")
32    
33    (in-package "META-CVS")
34    
35  (define-option-constant *cvs-options*  (define-option-constant *cvs-options*
36    (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"
37           "meta" "metaonly" "nometa" "error-continue" "error-terminate"           "meta" "metaonly" "nometa" "error-continue" "error-terminate"
# Line 381  Commands: Line 384  Commands:
384              (terpri)))))))              (terpri)))))))
385    
386  #+clisp  #+clisp
387  (defun mcvs ()  (defun main ()
388    (exit (catch 'mcvs-terminate (or (mcvs-execute ext:*args*)    (ext:exit (catch 'mcvs-terminate (or (mcvs-execute ext:*args*)
389                                     *mcvs-errors-occured-p*))))                                         *mcvs-errors-occured-p*))))

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

  ViewVC Help
Powered by ViewVC 1.1.5