[Chicken-users] file-separator, path-separator

[Sascha Ziemann]

Hi,

what is the Chicken equivalent of Java's File.separator

  http://docs.oracle.com/javase/8/docs/api/java/io/File.html#separator

and File.pathSeparator:

  http://docs.oracle.com/javase/8/docs/api/java/io/File.html#pathSeparator

Something like this maybe:

(use posix)

(define file-separator #f)
(define path-separator #f)

(let ((sysname (let ((si (system-information)))
                 (if (pair? si)
                     (car si)
                     #f))))
  (cond
   ((equal? sysname "windows")
    (set! file-separator "\\")
    (set! path-separator ";"))
   (else
    (set! file-separator "/")
    (set! path-separator ":"))))

Is it already defined anywhere? I could not find it.

Regards,

Sascha