From 4743ce9b7cbd5e9c49ed9f0daded57b30669d3f0 Mon Sep 17 00:00:00 2001
From: garret <garret@airmail.cc>
Date: Sun, 20 Nov 2022 03:00:47 +0000
Subject: feedmaker: initial commit (does not make feeds)

currently: scans through a (hardcoded) macros directory and prints
out what it found.

files must be .lua files with a valid depctrl namespace to be included.
the actual namespace checking is not yet 100%.

required all the libs i'm likely to need (and inspect to make life easier)
---
 make-feed.lua | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100755 make-feed.lua

(limited to 'make-feed.lua')

diff --git a/make-feed.lua b/make-feed.lua
new file mode 100755
index 0000000..47f0758
--- /dev/null
+++ b/make-feed.lua
@@ -0,0 +1,66 @@
+#!/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 conf = 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 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 print(absolute .. ": not a lua file, skipping")
+		elseif not valid_namespace(name) then print(absolute .. ": invalid namespace, skipping")
+		else table.insert(files, absolute) end
+	end
+	return files
+end
+
+local function main()
+	local files = get_files(args.macro_dir)
+	print(inspect(files))
+end
+
+main()
-- 
cgit v1.2.3-70-g09d2