diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 21:39:03 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 22:10:14 +0100 |
commit | ff03b961cb02d2df7a70e7e0e5e27acee136da59 (patch) | |
tree | 877e2beb907db20a35d89c7fd334dd06170ac719 /module/hnh/util | |
parent | Add path-split. (diff) | |
download | calp-ff03b961cb02d2df7a70e7e0e5e27acee136da59.tar.gz calp-ff03b961cb02d2df7a70e7e0e5e27acee136da59.tar.xz |
Rewrote path-append to be portable.
Diffstat (limited to 'module/hnh/util')
-rw-r--r-- | module/hnh/util/path.scm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/module/hnh/util/path.scm b/module/hnh/util/path.scm index 49338d01..7e40259a 100644 --- a/module/hnh/util/path.scm +++ b/module/hnh/util/path.scm @@ -2,21 +2,24 @@ :use-module (srfi srfi-1) :use-module (hnh util)) -;; TODO shouldn't this use `file-name-separator-string'? (define-public (path-append . strings) (fold (lambda (s done) (string-append done (if (string-null? s) - (string-append s "/") - (if (char=? #\/ (string-last done)) - (if (char=? #\/ (string-first s)) + (string-append s file-name-separator-string) + (if (file-name-separator? (string-last done)) + (if (file-name-separator? (string-first s)) (string-drop s 1) s) - (if (char=? #\/ (string-first s)) - s (string-append "/" s)))))) + (if (file-name-separator? (string-first s)) + s (string-append file-name-separator-string s)))))) + ;; If first component is empty, add a leading slash to make + ;; the path absolute. This isn't exactly correct if we have + ;; drive letters, but on those system the user should make + ;; sure that the first component of the path is non-empty. (let ((s (car strings))) (if (string-null? s) - "/" s)) + file-name-separator-string s)) (cdr strings))) (define-public (path-join lst) (apply path-append lst)) |