/[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.16 by kaz, Fri Dec 27 23:45:50 2002 UTC revision 1.17 by kaz, Thu Feb 13 07:22:35 2003 UTC
# Line 17  Line 17 
17  (defvar *meta-option* nil)  (defvar *meta-option* nil)
18  (defvar *metaonly-option* nil)  (defvar *metaonly-option* nil)
19  (defvar *dry-run-option* nil)  (defvar *dry-run-option* nil)
20    (defvar *nesting-escape-option* 0)
21    
22  (defun option-spec-expand (num-args string-list)  (defun option-spec-expand (num-args string-list)
23    (mapcar #'(lambda (string) (list string num-args))    (mapcar #'(lambda (string) (list string num-args))
# Line 101  of strings." Line 102  of strings."
102                          (nometa "nometa")                          (nometa "nometa")
103                          (ec "error-continue")                          (ec "error-continue")
104                          (et "error-terminate")                          (et "error-terminate")
105                            (nesting-escape "up")
106                          (debug "debug"))                          (debug "debug"))
107               opts               opts
108      (when (and meta nometa)      (when (and meta nometa)
# Line 110  of strings." Line 112  of strings."
112      (setf *meta-option* meta)      (setf *meta-option* meta)
113      (setf *metaonly-option* metaonly)      (setf *metaonly-option* metaonly)
114      (setf *nometa-option* nometa)      (setf *nometa-option* nometa)
115        (when nesting-escape
116          (unless (setf *nesting-escape-option*
117                        (parse-integer (second nesting-escape)
118                                       :junk-allowed t))
119            (error "--up option takes integer argument"))
120          (unless (>= *nesting-escape-option* 0)
121            (error "--up argument must be nonnegative")))
122      (when debug      (when debug
123        (setf *mcvs-chatter-level* *mcvs-debug*))        (setf *mcvs-chatter-level* *mcvs-debug*))
124      (cond      (cond

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5