You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
520 B
Racket
14 lines
520 B
Racket
#lang racket/base
|
|
(require sugar/define racket/set sugar/coerce)
|
|
(require-via-wormhole "../typed/sugar/file.rkt")
|
|
|
|
(provide+safe
|
|
[get-enclosing-dir (coerce/path? . -> . path?)]
|
|
[has-ext? (coerce/path? coerce/string? . -> . coerce/boolean?)]
|
|
[get-ext (coerce/path? . -> . (or/c #f string?))]
|
|
binary-extensions
|
|
[has-binary-ext? (coerce/path? . -> . coerce/boolean?)]
|
|
[add-ext (coerce/string? coerce/string? . -> . coerce/path?)]
|
|
[remove-ext (coerce/path? . -> . path?)]
|
|
[remove-ext* (coerce/path? . -> . path?)])
|
|
|