19 lines
396 B
Racket
19 lines
396 B
Racket
|
|
(module file-sig mzscheme
|
|
(require mzlib/unit)
|
|
|
|
(provide dynext:file^)
|
|
|
|
(define-signature dynext:file^
|
|
(append-zo-suffix
|
|
append-c-suffix
|
|
append-constant-pool-suffix
|
|
append-object-suffix
|
|
append-extension-suffix
|
|
|
|
extract-base-filename/ss
|
|
extract-base-filename/c
|
|
extract-base-filename/kp
|
|
extract-base-filename/o
|
|
extract-base-filename/ext)))
|