/[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.24 by kaz, Fri Feb 8 06:51:45 2002 UTC revision 1.25 by kaz, Sat Feb 9 21:08:28 2002 UTC
# Line 11  Line 11 
11  (require "commit")  (require "commit")
12  (require "filt")  (require "filt")
13  (require "generic")  (require "generic")
14    (require "convert")
15  (require "split")  (require "split")
16  (require "restart")  (require "restart")
17  (require "options")  (require "options")
# Line 101  handling the error.") Line 102  handling the error.")
102  (defconstant *tag-options* '(("l" "d" "f" "b" "F" "c") ("r" "D")))  (defconstant *tag-options* '(("l" "d" "f" "b" "F" "c") ("r" "D")))
103  (defconstant *log-options* '(("R" "h" "t" "N" "b") ("r" "d" "s" "w")))  (defconstant *log-options* '(("R" "h" "t" "N" "b") ("r" "d" "s" "w")))
104  (defconstant *status-options* '(("v") ()))  (defconstant *status-options* '(("v") ()))
105  (defconstant *annotate-options* '("f") ("r" "D"))  (defconstant *annotate-options* '(("f") ("r" "D")))
106    (defconstant *convert-options* '(() ()))
107    
108  (defconstant *mcvs-command-table*  (defconstant *mcvs-command-table*
109   `(("import" ,#'mcvs-import-wrapper ,@*import-options*)   `(("import" ,#'mcvs-import-wrapper ,@*import-options*)
# Line 122  handling the error.") Line 124  handling the error.")
124     ("status" ,#'mcvs-status-wrapper ,@*status-options*)     ("status" ,#'mcvs-status-wrapper ,@*status-options*)
125     ("annotate" ,#'mcvs-annotate-wrapper ,@*annotate-options*)     ("annotate" ,#'mcvs-annotate-wrapper ,@*annotate-options*)
126     ("filt" ,#'mcvs-filt-wrapper nil nil)     ("filt" ,#'mcvs-filt-wrapper nil nil)
127     ("fi" ,#'mcvs-filt-wrapper nil nil)))     ("fi" ,#'mcvs-filt-wrapper nil nil)
128       ("convert" ,#'mcvs-convert-wrapper ,@*convert-options*)))
129    
130  (defun mcvs-execute (args)  (defun mcvs-execute (args)
131    (handler-bind ((error #'mcvs-top-error-handler))    (handler-bind ((error #'mcvs-top-error-handler))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5