Compare commits
3 Commits
5df5c822ea
...
b231664a06
Author | SHA1 | Date |
---|---|---|
Daniel Barlow | b231664a06 | |
Daniel Barlow | f4bf3029fa | |
Daniel Barlow | 05f2c9a2f7 |
|
@ -76,6 +76,7 @@ in {
|
||||||
min-copy-closure
|
min-copy-closure
|
||||||
fennelrepl
|
fennelrepl
|
||||||
lzma
|
lzma
|
||||||
|
lua
|
||||||
];
|
];
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
|
|
@ -18,6 +18,12 @@
|
||||||
f (do (f:close) true)
|
f (do (f:close) true)
|
||||||
_ false))
|
_ false))
|
||||||
|
|
||||||
|
(fn basename [path]
|
||||||
|
(string.match path ".*/([^/]-)$"))
|
||||||
|
|
||||||
|
(fn dirname [path]
|
||||||
|
(string.match path "(.*)/[^/]-$"))
|
||||||
|
|
||||||
(fn system [s]
|
(fn system [s]
|
||||||
(match (os.execute s)
|
(match (os.execute s)
|
||||||
res (do (print (.. "Executed \"" s "\", exit code " (tostring res))) res)
|
res (do (print (.. "Executed \"" s "\", exit code " (tostring res))) res)
|
||||||
|
@ -66,4 +72,15 @@
|
||||||
(s:sub 1 (- (# s) pad))))
|
(s:sub 1 (- (# s) pad))))
|
||||||
|
|
||||||
|
|
||||||
{ : assoc : merge : split : file-exists? : system : hash : base64url : dup }
|
{
|
||||||
|
: assoc
|
||||||
|
: base64url
|
||||||
|
: basename
|
||||||
|
: dirname
|
||||||
|
: dup
|
||||||
|
: file-exists?
|
||||||
|
: hash
|
||||||
|
: merge
|
||||||
|
: split
|
||||||
|
: system
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue