OS/2 Shareware BBS: 11 Util/11-Util.zip/MAWK113.ZIP/mawk113/msdos/examples/srcstat.awk

Text File | 1992-12-05 | 723b | 27 lines

# Ben Myers <[e-mail]>

# Sum up number, line count, and sizes of SOURCE files in current directory
# run with
#       bmawk -fsrcsize.awk workfile
# or similar command syntax with your awk program
# where workfile is a work file
BEGIN {
# redirection done by shelled command
# system("dir *.* >workfile")
system("dir *.* >" ARGV[1])
ssize = 0   # size accumulator
slines = 0  # line counter
scount = 0  # obj counter
}
# Now read workfile back in
$2 == "C" || $2 == "H" || $2 == "CPP" || $2 == "HPP" {
    filename = sprintf("%s.%s", $1, $2)
    ssize += $3
    while (getline < filename > 0) {slines++}
    scount++
    }
END {
print scount " files, " slines " lines, total size " ssize " bytes"
system("del " ARGV[1])
}