Example usage

Example 11-1. Filename Examples

(define f (string->file "foo/bar/baz.scm"))

f filename foo/bar/baz.scm

(file-within-dir f) "baz.scm"

(extension-related-path f "o") filename foo/bar/baz.o

(define d (file-directory f))

d dirname foo/bar/

(append-path d (string->file "INDEX")) filename foo/bar/INDEX

(append-path d (string->file "../INDEX")) filename foo/INDEX

(append-dirs d (string->dir "../CVS")) dirname foo/CVS/