1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#!/usr/bin/env lua5.1
local json = require "json"
local sha1 = require "sha1"
local lfs = require "lfs"
local inspect = require "inspect"
--local argparse = require "argparse"
--local parser = argparse()
--local args = parser:parse()
local args = {macro_dir = "/home/g/subs/automation-scripts/macros", config = "conf.lua", output = "DependencyControl.json"}
local config = loadfile(args.config)()
local function valid_namespace(name)
--[[ #### Rules for a valid namespace: ####
1. contains _at least_ one dot
2. must **not** start or end with a dot
3. must **not** contain series of two or more dots
4. the character set is restricted to: `A-Z`, `a-z`, `0-9`, `.`, `_`, `-`
__Examples__:
* l0.ASSFoundation
* l0.ASSFoundation.Common (for a separately version-controlled 'submodule')
* l0.ASSWipe
* a-mo.LineCollection
]]
return name:match("^[^.][%a%d._-]*%.[%a%d._-]*[^.]$") ~= nil
-- not 100% sure this works. it matches the examples, but idk if it matches invalid ones as well
end
local function clean_path(path, file)
-- don't want to be pedantic about paths, but still don't want paths with // in them
if path:sub(-1, -1) == "/" then path = path:sub(1, -2) end
return path .. "/" .. file
end
local function join_tables(dst, src)
for i, v in ipairs(src) do
table.insert(dst, v)
end
return dst
end
local function readfile(filename)
local f = io.open(filename)
local txt = f:read("*all")
f:close()
return txt
end
local function get_iso8601_date(time)
return os.date("%Y-%m-%d", time)
end
local function output_writer(file)
local is_file, f = pcall(io.open, file, "w")
if is_file then return f end
return io.stdout
end
local function err(msg)
if type(msg) == "table" then msg = inspect(msg) end
io.stderr:write(msg.."\n")
end
local function get_files(path)
local files = {}
for file in lfs.dir(path) do
local name, extension = file:match("^(.*)%.(.*)$") -- anything.anything
local absolute = clean_path(path, file)
if file == "." or file == ".." then -- silently skip dir and 1-level-up dir
elseif pcall(lfs.dir, absolute) then file = join_tables(files, get_files(absolute)) -- search recursively
elseif extension ~= "lua" then err(absolute .. ": not a lua file, skipping")
elseif not valid_namespace(name) then err(absolute .. ": invalid namespace, skipping")
else table.insert(files, absolute) end
end
return files
end
local function get_metadata(file)
local meta = {filename = nil, name = nil, description = nil, version = nil, author = nil, namespace = nil, depctrl = nil, sha1 = nil, release = nil}
-- having all those nils in the table doesn't really do anything in terms of functionality, but it lets me see what i need to put in it
meta.filename = file
meta.sha1 = sha1.sha1(readfile(file))
meta.release = get_iso8601_date(lfs.attributes(file, "modification"))
loadfile(file)()
-- script_name etc are now in our global scope
if config.ignoreCondition then return nil end
meta.name = script_name
meta.description = script_description
meta.version = script_version
meta.author = script_author
meta.namespace = script_namespace
meta.depctrl = __feedmaker_version
return meta
end
local function main()
local files = get_files(args.macro_dir)
print(inspect(files))
local meta = {}
for _, file in ipairs(files) do
table.insert(meta, get_metadata(file))
end
print(inspect(meta))
end
main()
|
