library-mirrors/moonscript
1
0
Fork 0
mirror of https://github.com/leafo/moonscript.git synced 2024-12-24 01:04:21 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

remove alt_getopt from splat

Browse Source
This commit is contained in:
leaf corcoran 2024-11-23 12:13:21 -08:00
parent d5341c9093
commit 60094ca0be
1 changed files with 13 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
bin/splat.moon
View File

@ -1,26 +1,18 @@
#!/usr/bin/env moon #!/usr/bin/env moon
argparse = require "argparse"
-- concatenate a collection of lua modules into one parser = argparse "splat.moon", "Concatenate a collection of Lua modules into a single file"
parser\option("--load -l", "Module names that will be load on require")\count "*"
lfs = require "lfs" parser\argument("directories", "Directories to scan for Lua modules")\args "+"
alt_getopt = require "alt_getopt"
import insert, concat from table args = parser\parse [v for _, v in ipairs _G.arg]
import dump, split from require "moonscript.util" dirs = args.directories
opts, ind = alt_getopt.get_opts arg, "l:", {
load: "l"
}
if not arg[ind]
print "usage: splat [-l module_names] directory [directories...]"
os.exit!
dirs = [a for a in *arg[ind,]]
normalize = (path) -> normalize = (path) ->
path\match("(.-)/*$").."/" path\match("(.-)/*$").."/"
lfs = require "lfs"
scan_directory = (root, patt, collected={}) -> scan_directory = (root, patt, collected={}) ->
root = normalize root root = normalize root
for fname in lfs.dir root for fname in lfs.dir root
@ -31,7 +23,7 @@ scan_directory = (root, patt, collected={}) ->
scan_directory full_path, patt, collected scan_directory full_path, patt, collected
else else
if full_path\match patt if full_path\match patt
insert collected, full_path table.insert collected, full_path
collected collected
@ -39,15 +31,14 @@ path_to_module_name = (path) ->
(path\match("(.-)%.lua")\gsub("/", ".")) (path\match("(.-)%.lua")\gsub("/", "."))
each_line = (text) -> each_line = (text) ->
import yield from coroutine
coroutine.wrap -> coroutine.wrap ->
start = 1 start = 1
while true while true
pos, after = text\find "\n", start, true pos, after = text\find "\n", start, true
break if not pos break if not pos
yield text\sub start, pos - 1 coroutine.yield text\sub start, pos - 1
start = after + 1 start = after + 1
yield text\sub start, #text coroutine.yield text\sub start, #text
nil nil
write_module = (name, text) -> write_module = (name, text) ->
@ -73,8 +64,7 @@ for dir in *dirs
name = base name = base
write_module name, content write_module name, content
if opts.l for module_name in *args.load
for module_name in *split opts.l, "," if modules[module_name]
if modules[module_name] print ([[package.preload["%s"]()]])\format module_name
print ([[package.preload["%s"]()]])\format module_name