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

mawk/shebang

Browse source
This commit is contained in:
Marc Beninca 2025-07-13 22:15:42 +02:00
parent 596126bb85
commit 8beb437ce0
Signed by: marc.beninca
GPG key ID: 9C7613450C80C24F
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
sh/core/code.awk
View file

@ -28,6 +28,9 @@ function extract(string, type) {
} else if (type == "module") { } else if (type == "module") {
split(string, array, "#\\.") split(string, array, "#\\.")
return trim(array[2]) return trim(array[2])
} else if (type == "shebang") {
split(string, array, "#!")
return trim(array[2])
} else if ((type == "constant") || (type == "variable")) { } else if ((type == "constant") || (type == "variable")) {
split(string, array, "=") split(string, array, "=")
return trim(array[1]) return trim(array[1])
@ -152,8 +155,8 @@ BEGIN {
} }
} else if (action == "doc") { } else if (action == "doc") {
# doc # doc
if (match($0, RE_SHEBANG, m)) { if (match($0, RE_SHEBANG)) {
append("! " m[1]) append("! " extract($0, "shebang"))
} else if (match($0, RE_DOC, m)) { } else if (match($0, RE_DOC, m)) {
if (f) { if (f) {
append($0) append($0)