blob: 41b2e1fcd1ed67cdbabf87cb886535a89b1d0c31 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(define-module (hnh util path)
: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-drop s 1) s)
(if (char=? #\/ (string-first s))
s (string-append "/" s))))))
(let ((s (car strings)))
(if (string-null? s)
"/" s))
(cdr strings)))
(define-public (path-join lst) (apply path-append lst))
|