Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 6627e22274
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (19 sloc) 0.649 kB
(use arc cwd values re)
(ail-code (racket-require (racket-prefix-in racket- scheme/path)))
(def path xs
(string (intersperse "/" xs)))
(def dirpart (path)
(values (dir _1 _2) (racket-split-path path)
(if (ar-tnil (racket-path? dir)) (racket-path->string dir))))
(def filepart (path)
(aif (ar-fnil (racket-file-name-from-path path))
(racket-path->string it)))
(def extension (path)
(aand (filepart path)
(cadr (re-match "\\.([^\\.]+)$" it))))
(def fullpath (path (o basedir cwd))
(racket-path->string
(racket-simplify-path
(racket-path->complete-path
(racket-expand-user-path path)
basedir))))
Jump to Line
Something went wrong with that request. Please try again.