userland: add archive tools and pinned GoAWK, esbuild, and QuickJS
This commit is contained in:
@@ -0,0 +1,27 @@
|
||||
# From Gawk Manual modified by bug fix and removal of punctuation
|
||||
|
||||
# Invoker can customize sort command if necessary.
|
||||
BEGIN {
|
||||
if (!SORT) SORT = "LC_ALL=C sort"
|
||||
}
|
||||
|
||||
# Record every word which is used at least once
|
||||
{
|
||||
for (i = 1; i <= NF; i++) {
|
||||
tmp = tolower($i)
|
||||
if (0 != (pos = match(tmp, /([[:lower:]]|-)+/)))
|
||||
used[substr(tmp, pos, RLENGTH)] = 1
|
||||
}
|
||||
}
|
||||
|
||||
#Find a number of distinct words longer than 10 characters
|
||||
END {
|
||||
num_long_words = 0
|
||||
for (x in used)
|
||||
if (length(x) > 10) {
|
||||
++num_long_words
|
||||
print x | SORT
|
||||
}
|
||||
print(num_long_words, "long words") | SORT
|
||||
close(SORT)
|
||||
}
|
||||
Reference in New Issue
Block a user