/[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.18 by kaz, Wed Apr 23 05:39:27 2003 UTC revision 1.19 by kaz, Sun May 25 16:11:31 2003 UTC
# Line 49  Line 49 
49          (return (values)))          (return (values)))
50        (loop        (loop
51          (let ((f-start (search "F-" line :test #'char=))          (let ((f-start (search "F-" line :test #'char=))
52                (mcvs-dir (search "MCVS/F-" line :test #'char=)))                (embedded-in-path (search "/F-" line :test #'char=)))
53            (flet ((is-hex-digit (x)            (flet ((is-hex-digit (x)
54                     (or (digit-char-p x)                     (or (digit-char-p x)
55                         (find x "ABCDEF"))))                         (find x "ABCDEF"))))
56              (cond              (cond
57                ((and mcvs-dir (or (and f-start (< mcvs-dir f-start))                ((and embedded-in-path (or (and f-start
58                                   (not f-start)))                                                (< embedded-in-path f-start))
59                  (write-string (subseq line 0 (+ mcvs-dir 7)))                                           (not f-start)))
60                  (setf line (subseq line (+ mcvs-dir 7))))                  (write-string (subseq line 0 (+ embedded-in-path 7)))
61                    (setf line (subseq line (+ embedded-in-path 7))))
62                (f-start                (f-start
63                  (write-string (subseq line 0 f-start))                  (write-string (subseq line 0 f-start))
64                  (setf line (subseq line (+ f-start 2)))                  (setf line (subseq line (+ f-start 2)))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5