artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Add basename.

Browse source 
* module/mes/posix.mes (basename): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-29 18:33:14 +02:00
parent 4dfe6e00cc
commit b209378fca
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
module/mes/posix.mes
View file

@ -24,3 +24,10 @@
(define R_OK 0) (define R_OK 0)
(define S_IRWXU #o700) (define S_IRWXU #o700)
(define (basename file-name . ext)
(let ((base (last (string-split file-name #\/)))
(ext (and (pair? ext) (car ext))))
(if (and ext
(string-suffix? ext base)) (string-drop-right base (string-length ext))
base)))