/[meta-cvs]/meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490
ViewVC logotype

Diff of /meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by kaz, Fri Nov 24 04:53:50 2006 UTC revision 1.25 by kaz, Mon Nov 27 02:51:45 2006 UTC
# Line 10  Line 10 
10  (defvar *metaonly-option* nil)  (defvar *metaonly-option* nil)
11  (defvar *dry-run-option* nil)  (defvar *dry-run-option* nil)
12  (defvar *nesting-escape-option* 0)  (defvar *nesting-escape-option* 0)
13    (defvar *nofilt-option* nil)
14    
15  (defun option-spec-expand (num-args string-list)  (defun option-spec-expand (num-args string-list)
16    (mapcar #'(lambda (string) (list string num-args))    (mapcar #'(lambda (string) (list string num-args))
# Line 98  of strings." Line 99  of strings."
99                          (ec "error-continue")                          (ec "error-continue")
100                          (et "error-terminate")                          (et "error-terminate")
101                          (nesting-escape "up")                          (nesting-escape "up")
102                          (debug "debug"))                          (debug "debug")
103                            (nofilt "nofilt"))
104               opts               opts
105      (when (and meta nometa)      (when (and meta nometa)
106        (error "cannot specify both --nometa and --meta"))        (error "cannot specify both --nometa and --meta"))
# Line 116  of strings." Line 118  of strings."
118          (error "--up argument must be nonnegative")))          (error "--up argument must be nonnegative")))
119      (when debug      (when debug
120        (setf *mcvs-chatter-level* *mcvs-debug*))        (setf *mcvs-chatter-level* *mcvs-debug*))
121        (setf *nofilt-option* nofilt)
122      (cond      (cond
123        (ec (setf *mcvs-error-treatment* :continue))        (ec (setf *mcvs-error-treatment* :continue))
124        (et (setf *mcvs-error-treatment* :terminate)))        (et (setf *mcvs-error-treatment* :terminate)))

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

  ViewVC Help
Powered by ViewVC 1.1.5