/[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.21 by kaz, Fri Nov 24 04:53:50 2006 UTC revision 1.22 by kaz, Mon Nov 27 02:12:58 2006 UTC
# Line 43  Line 43 
43          (return (values)))          (return (values)))
44        (loop        (loop
45          (let ((f-start (search "F-" line :test #'char=))          (let ((f-start (search "F-" line :test #'char=))
46                (embedded-in-path (search "/F-" line :test #'char=)))                (embedded-in-path (search "/F-" line :test #'char=))
47                  (cvs-backup-notation (search ".#F-" line :test #'char=)))
48            (flet ((is-hex-digit (x)            (flet ((is-hex-digit (x)
49                     (or (digit-char-p x)                     (or (digit-char-p x)
50                         (find x "ABCDEF"))))                         (find x "ABCDEF"))))
51              (cond              (cond
52                ((and embedded-in-path (or (and f-start                ((and embedded-in-path (< embedded-in-path f-start))
53                                                (< embedded-in-path f-start))                  (write-string (subseq line 0 (+ embedded-in-path 3)))
54                                           (not f-start)))                  (setf line (subseq line (+ embedded-in-path 3))))
55                  (write-string (subseq line 0 (+ embedded-in-path 7)))                ((and cvs-backup-notation (< cvs-backup-notation f-start))
56                  (setf line (subseq line (+ embedded-in-path 7))))                  (write-string (subseq line 0 cvs-backup-notation))
57                    (write-string *mcvs-dir*)
58                    (write-string "/.#F-")
59                    (setf line (subseq line (+ cvs-backup-notation 4))))
60                (f-start                (f-start
61                  (write-string (subseq line 0 f-start))                  (write-string (subseq line 0 f-start))
62                  (setf line (subseq line (+ f-start 2)))                  (setf line (subseq line (+ f-start 2)))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5