/[meta-cvs]/meta-cvs/F-123D61C8FE941733281D2B08C15CD438
ViewVC logotype

Diff of /meta-cvs/F-123D61C8FE941733281D2B08C15CD438

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

revision 1.2 by kaz, Sun Jan 20 20:33:04 2002 UTC revision 1.3 by kaz, Fri Jan 25 02:04:45 2002 UTC
# Line 76  which is true if there are any .. compon Line 76  which is true if there are any .. compon
76  Then it splits the path into base name and directory, returned as two values.  Then it splits the path into base name and directory, returned as two values.
77  If the path is / then . and / are returned. The rightmost slash is  If the path is / then . and / are returned. The rightmost slash is
78  used to determine the split between the path and the base name. If there  used to determine the split between the path and the base name. If there
79  is a rightmost slash, then everything up to and including that slash is  is a rightmost slash, then everything up to but not including that slash is
80  returned as the directory (second) value, and everything to the right is  returned as the directory (second) value, and everything to the right is
81  returned as the base name (first) value. If there is no rightmost slash,  returned as the base name (first) value. If there is no rightmost slash,
82  then the directory is returned as NIL, and the path is the entire base name.  then the directory is returned as NIL, and the path is the entire base name.
# Line 93  name, and does not count as the rightmos Line 93  name, and does not count as the rightmos
93        ((= (1+ pos1) (length path))        ((= (1+ pos1) (length path))
94          (if (null pos2)          (if (null pos2)
95            (values path nil)            (values path nil)
96            (values (subseq path (1+ pos2)) (subseq path 0 (1+ pos2)))))            (values (subseq path (1+ pos2)) (subseq path 0 pos2))))
97        (t        (t
98          (values (subseq path (1+ pos1)) (subseq path 0 (1+ pos1)))))))          (values (subseq path (1+ pos1)) (subseq path 0 pos1))))))
99    
100  (defun path-equal (p1 p2)  (defun path-equal (p1 p2)
101    (string= p1 p2))    (string= p1 p2))

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

  ViewVC Help
Powered by ViewVC 1.1.5