/[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.3 by kaz, Fri Jan 25 02:04:45 2002 UTC revision 1.4 by kaz, Sat Jan 26 01:38:37 2002 UTC
# Line 1  Line 1 
1  (require "split")  (require "split")
2  (provide "posix")  (provide "posix")
3    
4  (defconstant *up-dir* "..")  (eval-when (:compile-toplevel :load-toplevel :execute)
5  (defconstant *this-dir* ".")    (defconstant *up-dir* "..")
6  (defconstant *path-sep* "/")    (defconstant *this-dir* ".")
7      (defconstant *path-sep* "/"))
8    
9  (defun canonicalize-path (path)  (defun canonicalize-path (path)
10  "Simplifies a POSIX path by eliminating . components, splicing out as many ..  "Simplifies a POSIX path by eliminating . components, splicing out as many ..
# Line 113  name, and does not count as the rightmos Line 114  name, and does not count as the rightmos
114        ((char-equal (char longer ls) #\/) t)        ((char-equal (char longer ls) #\/) t)
115        (t nil))))        (t nil))))
116    
117  (defun path-cat (first-component &rest components)  (eval-when (:compile-toplevel :load-toplevel :execute)
118    (reduce #'(lambda (x y) (format nil "~a/~a" x y)) components    (defun path-cat (first-component &rest components)
119            :initial-value first-component))      (reduce #'(lambda (x y) (format nil "~a/~a" x y)) components
120                :initial-value first-component)))

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

  ViewVC Help
Powered by ViewVC 1.1.5