Gecko [ betsfootball.net ]

Linux vmi2545633.contaboserver.net 6.1.0-32-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.129-1 (2025-03-06) x86_64
Apache/2.4.62 (Debian)
Server IP : 127.0.0.1 & Your IP : 127.0.0.1
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
alarm.awk	2.31 KB	-rw-r--r--	2022-11-17 16:36
anagram.awk	1.33 KB	-rw-r--r--	2022-11-17 16:36
awksed.awk	515 B	-rw-r--r--	2022-11-17 16:36
cut.awk	3.61 KB	-rw-r--r--	2022-11-17 16:36
dupword.awk	507 B	-rw-r--r--	2022-11-17 16:36
egrep.awk	2.4 KB	-rw-r--r--	2022-11-17 16:36
extract.awk	1.84 KB	-rw-r--r--	2022-11-17 16:36
guide.awk	165 B	-rw-r--r--	2022-11-17 16:36
histsort.awk	283 B	-rw-r--r--	2022-11-17 16:36
id.awk	4.24 KB	-rw-r--r--	2022-11-17 16:36
igawk.sh	3.11 KB	-rw-r--r--	2022-11-17 16:36
indirectcall.awk	1.91 KB	-rw-r--r--	2022-11-17 16:36
labels.awk	1014 B	-rw-r--r--	2022-11-17 16:36
pi.awk	341 B	-rw-r--r--	2022-11-17 16:36
split.awk	3.25 KB	-rw-r--r--	2022-11-17 16:36
tee.awk	770 B	-rw-r--r--	2022-11-17 16:36
testbits.awk	736 B	-rw-r--r--	2022-11-17 16:36
translate.awk	1.15 KB	-rw-r--r--	2022-11-17 16:36
uniq.awk	2.9 KB	-rw-r--r--	2022-11-17 16:36
wc.awk	1.79 KB	-rw-r--r--	2022-11-17 16:36
wordfreq.awk	347 B	-rw-r--r--	2022-11-17 16:36

Rename

# extract.awk --- extract files and run programs from Texinfo files
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# May 1993
# Revised September 2000

BEGIN    { IGNORECASE = 1 }

/^@c(omment)?[ \t]+system/ {
    if (NF < 3) {
        e = ("extract: " FILENAME ":" FNR)
        e = (e  ": badly formed `system' line")
        print e > "/dev/stderr"
        next
    }
    $1 = ""
    $2 = ""
    stat = system($0)
    if (stat != 0) {
        e = ("extract: " FILENAME ":" FNR)
        e = (e ": warning: system returned " stat)
        print e > "/dev/stderr"
    }
}
/^@c(omment)?[ \t]+file/ {
    if (NF != 3) {
        e = ("extract: " FILENAME ":" FNR ": badly formed `file' line")
        print e > "/dev/stderr"
        next
    }
    if ($3 != curfile) {
        if (curfile != "")
            filelist[curfile] = 1   # save to close later
        curfile = $3
    }

for (;;) {
        if ((getline line) <= 0)
            unexpected_eof()
        if (line ~ /^@c(omment)?[ \t]+endfile/)
            break
        else if (line ~ /^@(end[ \t]+)?group/)
            continue
        else if (line ~ /^@c(omment+)?[ \t]+/)
            continue
        if (index(line, "@") == 0) {
            print line > curfile
            continue
        }
        n = split(line, a, "@")
        # if a[1] == "", means leading @,
        # don't add one back in.
        for (i = 2; i <= n; i++) {
            if (a[i] == "") { # was an @@
                a[i] = "@"
                if (a[i+1] == "")
                    i++
            }
        }
        print join(a, 1, n, SUBSEP) > curfile
    }
}
END {
    close(curfile)          # close the last one
    for (f in filelist)     # close all the rest
        close(f)
}
function unexpected_eof()
{
    printf("extract: %s:%d: unexpected EOF or error\n",
                     FILENAME, FNR) > "/dev/stderr"
    exit 1
}