/[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.3 by kaz, Thu Jan 31 05:35:02 2002 UTC revision 1.4 by kaz, Fri Feb 1 03:42:55 2002 UTC
# Line 46  parameter is missing." Line 46  parameter is missing."
46                 (let ((options (subseq argument 1))                 (let ((options (subseq argument 1))
47                       (saved-arglist arguments))                       (saved-arglist arguments))
48                   ;; for all option letters but the last, pretend that                   ;; for all option letters but the last, pretend that
49                   ;; there are no more arguments.                   ;; there is exactly one remaining argument, which
50                   (setf arguments nil)                   ;; consists of the remaining suffix of the options.
51                   (dotimes (i (length options))                   (dotimes (i (length options))
52                     (when (= i (1- (length options)))                     (cond
53                       (setf arguments saved-arglist))                       ((= i (1- (length options)))
54                     (process-option (subseq options i (1+ i))))))                          (setf arguments saved-arglist)
55                            (process-option (subseq options i (1+ i))))
56                         (t (setf arguments (list (subseq options (1+ i))))
57                            (process-option (subseq options i (1+ i)))
58                            ;; If process-option consumes our arguments,
59                            ;; bail the loop.
60                            (when (endp arguments)
61                              (setf arguments saved-arglist)
62                              (return)))))))
63              (t (push argument arguments) (return))))))              (t (push argument arguments) (return))))))
64      (values (nreverse parsed-options) arguments)))      (values (nreverse parsed-options) arguments)))
65    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5