Gecko [ www.jdcpatala.org ]

Name	Size	Permission
alarm.awk	2.31 KB	-rw-r--r--
anagram.awk	1.33 KB	-rw-r--r--
awksed.awk	515 B	-rw-r--r--
cut.awk	3.61 KB	-rw-r--r--
dupword.awk	507 B	-rw-r--r--
egrep.awk	1.91 KB	-rw-r--r--
extract.awk	1.84 KB	-rw-r--r--
guide.awk	165 B	-rw-r--r--
histsort.awk	283 B	-rw-r--r--
id.awk	1.22 KB	-rw-r--r--
igawk.sh	3.11 KB	-rw-r--r--
indirectcall.awk	1.91 KB	-rw-r--r--
labels.awk	1014 B	-rw-r--r--
pi.awk	341 B	-rw-r--r--
split.awk	1.17 KB	-rw-r--r--
tee.awk	770 B	-rw-r--r--
testbits.awk	736 B	-rw-r--r--
translate.awk	1.15 KB	-rw-r--r--
uniq.awk	2.64 KB	-rw-r--r--
wc.awk	1.45 KB	-rw-r--r--
wordfreq.awk	347 B	-rw-r--r--

Code Editor : indirectcall.awk

# indirectcall.awk --- Demonstrate indirect function calls
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# January 2009
# average --- return the average of the values in fields $first - $last

function average(first, last,   sum, i)
{
    sum = 0;
    for (i = first; i <= last; i++)
        sum += $i

return sum / (last - first + 1)
}

# sum --- return the sum of the values in fields $first - $last

function sum(first, last,   ret, i)
{
    ret = 0;
    for (i = first; i <= last; i++)
        ret += $i

return ret
}
# For each record, print the class name and the requested statistics
{
    class_name = $1
    gsub(/_/, " ", class_name)  # Replace _ with spaces

# find start
    for (i = 1; i <= NF; i++) {
        if ($i == "data:") {
            start = i + 1
            break
        }
    }

printf("%s:\n", class_name)
    for (i = 2; $i != "data:"; i++) {
        the_function = $i
        printf("\t%s: <%s>\n", $i, @the_function(start, NF) "")
    }
    print ""
}
# num_lt --- do a numeric less than comparison

function num_lt(left, right)
{
    return ((left + 0) < (right + 0))
}

# num_ge --- do a numeric greater than or equal to comparison

function num_ge(left, right)
{
    return ((left + 0) >= (right + 0))
}
# do_sort --- sort the data according to `compare'
#             and return it as a string

function do_sort(first, last, compare,      data, i, retval)
{
    delete data
    for (i = 1; first <= last; first++) {
        data[i] = $first
        i++
    }

quicksort(data, 1, i-1, compare)

retval = data[1]
    for (i = 2; i in data; i++)
        retval = retval " " data[i]

return retval
}
# sort --- sort the data in ascending order and return it as a string

function sort(first, last)
{
    return do_sort(first, last, "num_lt")
}

# rsort --- sort the data in descending order and return it as a string

function rsort(first, last)
{
    return do_sort(first, last, "num_ge")
}

${this.title}

Code Editor : indirectcall.awk