Gecko [ v99win.today ]

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 : wc.awk

# wc.awk --- count lines, words, characters
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# May 1993

# Options:
#    -l    only count lines
#    -w    only count words
#    -c    only count characters
#
# Default is to count lines, words, characters
#
# Requires getopt() and file transition library functions

BEGIN {
    # let getopt() print a message about
    # invalid options. we ignore them
    while ((c = getopt(ARGC, ARGV, "lwc")) != -1) {
        if (c == "l")
            do_lines = 1
        else if (c == "w")
            do_words = 1
        else if (c == "c")
            do_chars = 1
    }
    for (i = 1; i < Optind; i++)
        ARGV[i] = ""

# if no options, do all
    if (! do_lines && ! do_words && ! do_chars)
        do_lines = do_words = do_chars = 1

print_total = (ARGC - i > 1)
}
function beginfile(file)
{
    lines = words = chars = 0
    fname = FILENAME
}
function endfile(file)
{
    tlines += lines
    twords += words
    tchars += chars
    if (do_lines)
        printf "\t%d", lines
    if (do_words)
        printf "\t%d", words
    if (do_chars)
        printf "\t%d", chars
    printf "\t%s\n", fname
}
# do per line
{
    chars += length($0) + 1    # get newline
    lines++
    words += NF
}
END {
    if (print_total) {
        if (do_lines)
            printf "\t%d", tlines
        if (do_words)
            printf "\t%d", twords
        if (do_chars)
            printf "\t%d", tchars
        print "\ttotal"
    }
}

${this.title}

Code Editor : wc.awk