rwx.work/rwx
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

code/awk
All checks were successful
/ job (push) Successful in 4m27s
Details

Browse source
This commit is contained in:
Marc Beninca 2025-07-07 01:13:06 +02:00
parent be43cb7fe1
commit 2f7dd63c74
Signed by: marc.beninca
GPG key ID: 9C7613450C80C24F
4 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

115
sh/main.awk
View file

@ -1,115 +0,0 @@
function append(line) {
if (doc) {
doc = doc "\n"
}
doc = doc line
}
function output(name, type) {
print "↙ " type
print name
print doc
exit
}
function reset() {
if (f == "") {
doc = ""
}
}
BEGIN {
RE_ANY = "(.*)"
RE_CONST = "([_A-Z][_0-9A-Z]*)"
RE_SET = "=.*"
RE_SPACE = "[[:space:]]"
RE_SPACES = RE_SPACE "*"
RE_VAR = "([_a-z][_0-9a-z]*)"
RE_BEGIN = "^"
RE_END = RE_SPACES "$"
RE_FUNC = RE_SPACES "\\(" RE_SPACES "\\)" RE_SPACES "{"
RE_ALIAS = RE_BEGIN "#=" RE_SPACES RE_VAR RE_END
RE_CLOSE = RE_BEGIN "}" RE_SPACES RE_END
RE_CONSTANT = RE_BEGIN RE_CONST RE_SET RE_END
RE_DOC = RE_BEGIN RE_SPACES "#" RE_SPACE RE_ANY RE_END
RE_FUNCTION = RE_BEGIN RE_VAR RE_FUNC RE_END
RE_MODULE = RE_BEGIN "#." RE_SPACES RE_ANY RE_END
RE_SHEBANG = RE_BEGIN "#!" RE_SPACES RE_ANY RE_END
RE_VARIABLE = RE_BEGIN RE_VAR RE_SET RE_END
alias = 0
f = ""
reset()
module = 0
}
{
if (action == "alias") {
if (match($0, RE_ALIAS, m)) {
append(m[1])
} else if (match($0, RE_FUNCTION, m)) {
n = split(doc, array, "\n")
for (i = 1; i<= n; i++) {
print array[i] " " m[1]
}
reset()
} else {
reset()
}
} else if (action == "doc") {
# doc
if (match($0, RE_SHEBANG, m)) {
append("! " m[1])
} else if (match($0, RE_DOC, m)) {
if (f) {
append($0)
} else {
append(m[1])
}
} else if (match($0, RE_ALIAS, m)) {
append("= " m[1])
if (m[1] == target) {
alias = 1
}
# set
} else if (match($0, RE_CONSTANT, m)) {
if (m[1] == target) {
output(m[1], "constant")
} else {
reset()
}
} else if (match($0, RE_VARIABLE, m)) {
if (m[1] == target) {
output(m[1], "variable")
} else {
reset()
}
# others
} else if (match($0, RE_MODULE, m)) {
reset()
if (m[1] == target) {
module = 1
}
} else if (match($0, RE_FUNCTION, m)) {
f = m[1]
} else if (match($0, RE_CLOSE, m)) {
if (alias) {
print "= " target
output(f, "function")
} else if (f == target) {
output(f, "function")
} else {
f = ""
reset()
}
} else {
if (module) {
output(target, "module")
} else {
reset()
}
}
}
}