(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))