/[meta-cvs]/meta-cvs/F-36433FEEE65F109159A4ADF217F5145C
ViewVC logotype

Diff of /meta-cvs/F-36433FEEE65F109159A4ADF217F5145C

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

revision 1.13.2.4 by kaz, Wed Apr 23 05:37:35 2003 UTC revision 1.13.2.5 by kaz, Sun May 25 16:09:35 2003 UTC
# Line 46  Line 46 
46          (return (values)))          (return (values)))
47        (loop        (loop
48          (let ((f-start (search "F-" line :test #'char=))          (let ((f-start (search "F-" line :test #'char=))
49                (mcvs-dir (search "MCVS/F-" line :test #'char=)))                (embedded-in-path (search "/F-" line :test #'char=)))
50            (flet ((is-hex-digit (x)            (flet ((is-hex-digit (x)
51                     (or (digit-char-p x)                     (or (digit-char-p x)
52                         (find x "ABCDEF"))))                         (find x "ABCDEF"))))
53              (cond              (cond
54                ((and mcvs-dir (or (and f-start (< mcvs-dir f-start))                ((and embedded-in-path (or (and f-start
55                                   (not f-start)))                                                (< embedded-in-path f-start))
56                  (write-string (substring line 0 (+ mcvs-dir 7)))                                           (not f-start)))
57                  (setf line (substring line (+ mcvs-dir 7))))                  (write-string (substring line 0 (+ embedded-in-path 7)))
58                    (setf line (substring line (+ embedded-in-path 7))))
59                (f-start                (f-start
60                  (write-string (substring line 0 f-start))                  (write-string (substring line 0 f-start))
61                  (setf line (substring line (+ f-start 2)))                  (setf line (substring line (+ f-start 2)))

Legend:
Removed from v.1.13.2.4  
changed lines
  Added in v.1.13.2.5

  ViewVC Help
Powered by ViewVC 1.1.5