FM / prog

/usr/share/doc/gawk/examples/prog

Name	Size	Mode	Actions
alarm.awk	2369	0644	edit dl rm
anagram.awk	1358	0644	edit dl rm
awksed.awk	515	0644	edit dl rm
cut.awk	3698	0644	edit dl rm
dupword.awk	507	0644	edit dl rm
egrep.awk	1954	0644	edit dl rm
extract.awk	1883	0644	edit dl rm
guide.awk	165	0644	edit dl rm
histsort.awk	283	0644	edit dl rm
id.awk	1249	0644	edit dl rm
igawk.sh	3189	0644	edit dl rm
indirectcall.awk	1957	0644	edit dl rm
labels.awk	1014	0644	edit dl rm
pi.awk	341	0644	edit dl rm
split.awk	1198	0644	edit dl rm
tee.awk	770	0644	edit dl rm
testbits.awk	736	0644	edit dl rm
translate.awk	1182	0644	edit dl rm
uniq.awk	2700	0644	edit dl rm
wc.awk	1480	0644	edit dl rm
wordfreq.awk	347	0644	edit dl rm

Edit: /usr/share/doc/gawk/examples/prog/igawk.sh (3189B)

#! /bin/sh
# igawk --- like gawk but do @include processing
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# July 1993
# December 2010, minor edits

if [ "$1" = debug ]
then
    set -x
    shift
fi

# A literal newline, so that program text is formatted correctly
n='
'

# Initialize variables to empty
program=
opts=

while [ $# -ne 0 ] # loop over arguments
do
    case $1 in
    --)     shift
            break ;;

-W)     shift
            # The ${x?'message here'} construct prints a
            # diagnostic if $x is the null string
            set -- -W"${@?'missing operand'}"
            continue ;;

-[vF])  opts="$opts $1 '${2?'missing operand'}'"
            shift ;;

-[vF]*) opts="$opts '$1'" ;;

-f)     program="$program$n@include ${2?'missing operand'}"
            shift ;;

-f*)    f=$(expr "$1" : '-f$.*$')
            program="$program$n@include $f" ;;

-[W-]file=*)
            f=$(expr "$1" : '-.file=$.*$')
            program="$program$n@include $f" ;;

-[W-]file)
            program="$program$n@include ${2?'missing operand'}"
            shift ;;

-[W-]source=*)
            t=$(expr "$1" : '-.source=$.*$')
            program="$program$n$t" ;;

-[W-]source)
            program="$program$n${2?'missing operand'}"
            shift ;;

-[W-]version)
            echo igawk: version 3.0 1>&2
            gawk --version
            exit 0 ;;

-[W-]*) opts="$opts '$1'" ;;

*)      break ;;
    esac
    shift
done

if [ -z "$program" ]
then
     program=${1?'missing program'}
     shift
fi

# At this point, `program' has the program.
expand_prog='

function pathto(file,    i, t, junk)
{
    if (index(file, "/") != 0)
        return file

if (file == "-")
        return file

for (i = 1; i <= ndirs; i++) {
        t = (pathlist[i] "/" file)
        if ((getline junk < t) > 0) {
            # found it
            close(t)
            return t
        }
    }
    return ""
}
BEGIN {
    path = ENVIRON["AWKPATH"]
    ndirs = split(path, pathlist, ":")
    for (i = 1; i <= ndirs; i++) {
        if (pathlist[i] == "")
            pathlist[i] = "."
    }
    stackptr = 0
    input[stackptr] = ARGV[1] # ARGV[1] is first file

for (; stackptr >= 0; stackptr--) {
        while ((getline < input[stackptr]) > 0) {
            if (tolower($1) != "@include") {
                print
                continue
            }
            fpath = pathto($2)
            if (fpath == "") {
                printf("igawk: %s:%d: cannot find %s\n",
                    input[stackptr], FNR, $2) > "/dev/stderr"
                continue
            }
            if (! (fpath in processed)) {
                processed[fpath] = input[stackptr]
                input[++stackptr] = fpath  # push onto stack
            } else
                print $2, "included in", input[stackptr],
                    "already included in",
                    processed[fpath] > "/dev/stderr"
        }
        close(input[stackptr])
    }
}'  # close quote ends `expand_prog' variable

processed_program=$(gawk -- "$expand_prog" /dev/stdin << EOF
$program
EOF
)
eval gawk $opts -- '"$processed_program"' '"$@"'

#! /bin/sh # igawk --- like gawk but do @include processing # # Arnold Robbins, arnold@skeeve.com, Public Domain # July 1993 # December 2010, minor edits if [ "$1" = debug ] then set -x shift fi # A literal newline, so that program text is formatted correctly n=' ' # Initialize variables to empty program= opts= while [ $# -ne 0 ] # loop over arguments do case $1 in --) shift break ;; -W) shift # The ${x?'message here'} construct prints a # diagnostic if $x is the null string set -- -W"${@?'missing operand'}" continue ;; -[vF]) opts="$opts $1 '${2?'missing operand'}'" shift ;; -[vF]*) opts="$opts '$1'" ;; -f) program="$program$n@include ${2?'missing operand'}" shift ;; -f*) f=$(expr "$1" : '-f$.*$') program="$program$n@include $f" ;; -[W-]file=*) f=$(expr "$1" : '-.file=$.*$') program="$program$n@include $f" ;; -[W-]file) program="$program$n@include ${2?'missing operand'}" shift ;; -[W-]source=*) t=$(expr "$1" : '-.source=$.*$') program="$program$n$t" ;; -[W-]source) program="$program$n${2?'missing operand'}" shift ;; -[W-]version) echo igawk: version 3.0 1>&2 gawk --version exit 0 ;; -[W-]*) opts="$opts '$1'" ;; *) break ;; esac shift done if [ -z "$program" ] then program=${1?'missing program'} shift fi # At this point, `program' has the program. expand_prog=' function pathto(file, i, t, junk) { if (index(file, "/") != 0) return file if (file == "-") return file for (i = 1; i <= ndirs; i++) { t = (pathlist[i] "/" file) if ((getline junk < t) > 0) { # found it close(t) return t } } return "" } BEGIN { path = ENVIRON["AWKPATH"] ndirs = split(path, pathlist, ":") for (i = 1; i <= ndirs; i++) { if (pathlist[i] == "") pathlist[i] = "." } stackptr = 0 input[stackptr] = ARGV[1] # ARGV[1] is first file for (; stackptr >= 0; stackptr--) { while ((getline < input[stackptr]) > 0) { if (tolower($1) != "@include") { print continue } fpath = pathto($2) if (fpath == "") { printf("igawk: %s:%d: cannot find %s\n", input[stackptr], FNR, $2) > "/dev/stderr" continue } if (! (fpath in processed)) { processed[fpath] = input[stackptr] input[++stackptr] = fpath # push onto stack } else print $2, "included in", input[stackptr], "already included in", processed[fpath] > "/dev/stderr" } close(input[stackptr]) } }' # close quote ends `expand_prog' variable processed_program=$(gawk -- "$expand_prog" /dev/stdin << EOF $program EOF ) eval gawk $opts -- '"$processed_program"' '"$@"'