4.3BSD/usr/src/bin/awk/test.a
!<arch>
t.0 307335954 9 3 100664 23 `
{i = i+1; print i, NR}
t.1.x 307335954 9 3 100664 32 `
{i="count" $1 $2; print i , $0}
t.2.x 307335954 9 3 100664 31 `
{i=2; j=$3; $1=i;print i,j,$1}
t.3 307335954 9 3 100664 23 `
$1 == "5" || $1 == "4"
t.3.x 307335954 9 3 100664 50 `
{
x = $1
while (x > 1) {
print x
x = x / 10
}
}
t.4 307335954 9 3 100664 21 `
$1 ~ /5/ || $1 ~ /4/
t.4.x 307335954 9 3 100664 18 `
{i=$(1); print i}
t.5.x 307335954 9 3 100664 28 `
{$(1) = "xxx"; print $1,$0}
t.6 307335954 9 3 100664 76 `
/a|b|c/ {
i = $1
print
while (i >= 1) {
print " ", i
i = i / 10
}
}
t.6.x 307335955 9 3 100664 14 `
{print NF,$0}
t.6a 307335955 9 3 100664 64 `
/a|b|c/ {
print
for (i = $1; i >= 1; )
print " ", i /= 10
}
t.6b 307335955 9 3 100664 65 `
/a|b|c/ {
print
for (i = $1; (i /= 10)>= 1; )
print " ", i
}
t.8.x 307335955 9 3 100664 15 `
{$2=$1; print}
t.a 307335955 9 3 100666 130 `
{if (amount[$2] "" == "") item[num++] = $2;
amount[$2] += $1
}
END {for (i=0; i<num; i++)
print item[i], amount[item[i]]
}
t.aeiou 307335955 9 3 100664 58 `
/^[^aeiouy]*[aeiou][^aeiouy][aeiouy][aeiouy]*[^aeiouy]*$/
t.aeiouy 307335955 9 3 100664 81 `
/^[^aeiouy]*a[^aeiouy]*e[^aeiouy]*i[^aeiouy]*o[^aeiouy]*u[^aeiouy]*y[^aeiouy]*$/
t.arith 307335955 9 3 100664 52 `
{ print $1, $1+$1, $1-$1, $1 * $1, $1/$1, $1 % NR }
t.array 307335955 9 3 100664 147 `
{ x[NR] = $0 }
END {
i = 1
while (i <= NR) {
print x[i]
split (x[i], y)
usage = y[1]
name = y[2]
print " ", name, usage
i++
}
}
t.array1 307335955 9 3 100664 123 `
{for(i=1; i<=NF; i++) {
if (x[$i] == "")
y[n++] = $i
x[$i]++
}
}
END {
for (i=0; i<n; i++)
print (y[i], x[y[i]])
}
t.array2 307335955 9 3 100664 168 `
$2 ~ /^[a-l]/ { x["a"] = x["a"] + 1 }
$2 ~ /^[m-z]/ { x["m"] = x["m"] + 1 }
$2 !~ /^[a-z]/ { x["other"] = x["other"] + 1 }
END { print NR, x["a"], x["m"], x["other"] }
t.avg 307335955 9 3 100664 80 `
{s = s + $1; c = c + 1}
END {
print "sum=", s, " count=", c
print "avg=", s/c
}
t.b.x 307335956 9 3 100664 36 `
{$6=":::" ; print $6; print NF, $0}
t.be 307335956 9 3 100664 42 `
BEGIN { print FILENAME }
END { print NR }
t.break 307335956 9 3 100664 91 `
{
for (i=1; i <= NF; i++)
if ($i ~ /^[a-z]+$/) {
print $i " is alphabetic"
break
}
}
t.break1 307335956 9 3 100664 135 `
{ x[NR] = $0 }
END {
for (i = 1; i <= NR; i++) {
print i, x[i]
if (x[i] ~ /shen/)
break
}
print "got here"
print i, x[i]
}
t.break2 307335956 9 3 100664 122 `
{ x[NR] = $0 }
END {
for (i in x) {
print i, x[i]
if (x[i] ~ /shen/)
break
}
print "got here"
print i, x[i]
}
t.break3 307335956 9 3 100666 116 `
{ for (i = 1; i <= NF; i++) {
for (j = 1; j <= NF; j++)
break;
print "inner", i, j
}
print "outer", i, j
}
t.bug1 307335985 9 3 100666 103 `
# this program fails if awk is created without separate I&D
# prints garbage if no $3
{ print $1, $3 }
t.cat 307335956 9 3 100664 114 `
{print $2 " " $1}
{print $1 " " "is", $2}
{print $2 FS "is" FS $1}
{print length($1 $2), length($1) + length($2)}
t.cat1 307335957 9 3 100664 38 `
{print x $0} # should precede by zero
t.cat2 307335957 9 3 100664 21 `
{$1 = $1 "*"; print}
t.cmp 307335957 9 3 100664 8 `
$2 > $1
t.coerce 307335957 9 3 100664 47 `
END { print i, NR
if (i < NR)
print i, NR
}
t.comment 307335957 9 3 100664 112 `
# this is a comment line
# so is this
/#/ { print "this one has a # in it: " $0 # comment
print "again:" $0
}
t.comment1 307335957 9 3 100664 88 `
#comment
#
BEGIN { x = 1 }
/abc/ { print $0 }
#comment
END { print NR }
#comment
t.contin 307335957 9 3 100664 130 `
{
for (i = 1; i <= NF; i++) {
if ($i ~ /^[0-9]+$/)
continue;
print $i, " is non-numeric"
next
}
print $0, "is all numeric"
}
t.count 307335957 9 3 100664 17 `
END { print NR }
t.cum 307335957 9 3 100664 38 `
{i = i + $1; print i}
END {
print i
}
t.d.x 307335958 9 3 100664 43 `
BEGIN {FS=":" ; OFS=":"}
{print NF " ",$0}
t.e 307335958 9 3 100664 23 `
$1 < 10 || $2 ~ /bwk/
t.else 307335958 9 3 100664 46 `
{ if($1>1000) print "yes"
else print "no"
}
t.exit 307335958 9 3 100664 32 `
{ print }
$1 < 5000 { exit NR }
t.f 307335958 9 3 100664 15 `
{print $2, $1}
t.f.x 307335958 9 3 100664 26 `
$1>0 {print $1, sqrt($1)}
t.f0 307335959 9 3 100664 20 `
$1 ~ /x/ {print $0}
t.f1 307335959 9 3 100664 16 `
{$1 = 1; print}
t.f2 307335959 9 3 100664 19 `
{$1 = 1; print $0}
t.f3 307335959 9 3 100664 17 `
{$1 = NR; print}
t.f4 307335959 9 3 100664 20 `
{$1 = NR; print $0}
t.for 307335959 9 3 100664 39 `
{ for (i=1; i<=NF; i++)
print i, $i
}
t.for1 307335959 9 3 100664 68 `
{
i = 1
for (;;) {
if (i > NF)
next
print i, $i
i++
}
}
t.for2 307335960 9 3 100664 61 `
{
for (i=1;;i++) {
if (i > NF)
next
print i, $i
}
}
t.format4 307335985 9 3 100664 127 `
BEGIN {
text=sprintf ("%125s", "x")
print length (text)
print text
xxx=substr (text,1,105)
print length (xxx)
print xxx
exit
}
t.func 307335960 9 3 100664 73 `
{ print $1, length($1), log($1), sqrt($1), int(sqrt($1)), exp($1 % 10) }
t.getline 307335984 9 3 100666 117 `
{ x = $1
for (i = 1; i <= 3; i++)
if (getline)
x = x " " $1
print x
x = ""
}
END {
if (x != "") print x
}
t.i.x 307335960 9 3 100664 52 `
{i=i+log($1); print i,log($1)}
END {print exp(i),i}
t.if 307335960 9 3 100664 21 `
{if($1 || $2) print}
t.in 307335960 9 3 100664 98 `
BEGIN {
x["apple"] = 1;
x["orange"] = 2;
x["lemon"] = 3;
for (i in x)
print i, x[i]
exit
}
t.in1 307335960 9 3 100664 126 `
{ if (amount[$2] == "")
name[++n] = $2
amount[$2] += $1
}
END { for (i in name)
print i, name[i], amount[name[i]]
}
t.in2 307335960 9 3 100664 68 `
{ x[substr($2, 1, 1)] += $1 }
END { for (i in x)
print i, x[i]
}
t.in3 307335960 9 3 100664 83 `
{ x[NR] = $0 }
END {
for (i in x)
if (x[i] ~ /shen/)
break
print i, x[i]
}
t.incr 307335960 9 3 100664 52 `
{ ++i; --j; k++; l-- }
END { print NR, i, j, k, l }
t.incr2 307335960 9 3 100664 56 `
{ s = 0
for (i=1; i <= NF; )
s += $(i++)
print s
}
t.incr3 307335960 9 3 100664 58 `
{ s = 0
for (i=1; i <= NF; s += $(i++))
;
print s
}
t.index 307335960 9 3 100664 144 `
{ n = length
d = 0
for (i = 1; i <= n; i++)
if ((k = index($0, substr($0, i))) != i)
d = 1
if (d)
print $0, "has duplicate letters"
}
t.j.x 307335961 9 3 100664 55 `
{i=i+sqrt($1); print i,sqrt($1)}
END {print sqrt(i),i}
t.longstr 307335984 9 3 100666 137 `
BEGIN{
x = "111111111122222222233333333334444444444555555555566666666667777777777888888888899999999990000000000"
printf "%s\n", x
exit
}
t.makef 307335961 9 3 100664 30 `
{$3 = 2*$1; print $1, $2, $3}
t.match 307335961 9 3 100664 15 `
$2 ~ /ava|bwk/
t.max 307335961 9 3 100664 58 `
length > max { max = length; x = $0}
END { print max, x }
t.mod 307335961 9 3 100664 12 `
NR % 2 == 1
t.monotone 307335961 9 3 100664 112 `
/^a?b?c?d?e?f?g?h?i?j?k?l?m?n?o?p?q?r?s?t?u?v?w?x?y?z?$|^z?y?x?w?v?u?t?s?r?q?p?o?n?m?l?k?j?i?h?g?f?e?d?c?b?a?$/
t.nameval 307335961 9 3 100664 132 `
{ if (amount[$2] == "")
name[++n] = $2
amount[$2] += $1
}
END { for (i = 1; i <= n; i++)
print name[i], amount[name[i]]
}
t.next 307335961 9 3 100664 29 `
$1 > 5000 { next }
{ print }
t.not 307335961 9 3 100664 55 `
$2 !~ /ava|bwk/
!($1 < 2000)
!($2 ~ /bwk/)
!$2 ~ /bwk/
t.ofmt 307335961 9 3 100664 34 `
BEGIN {OFMT="%.5g"}
{print $1+0}
t.ofs 307335961 9 3 100664 67 `
BEGIN { OFS = " %% "; ORS = "##" }
{ print $1, $2; print "#x\n" }
t.pipe 307335962 9 3 100664 54 `
BEGIN {print "read /usr/bwk/awk/t.pipe" | "mail bwk"}
t.pp 307335962 9 3 100664 8 `
/a/,/b/
t.pp1 307335962 9 3 100664 87 `
/bwk/,/bwk/ { print $2, $1 }
/ava/,/ava/ { print $2, $1 }
/pjw/,/pjw/ { print $2, $1 }
t.pp2 307335962 9 3 100664 99 `
/bwk/,/scj/ { print "1: ", $0 }
/bwk/, /bsb/ { print "2: ", $0 }
/mel/, /doug/ { print "3: ", $0 }
t.printf 307335962 9 3 100664 82 `
{
printf "%%: %s ... %s \t", $2, $1
x = sprintf "%8d %10.10s", $1, $2
print x
}
t.quote 307335962 9 3 100664 21 `
{print "\"" $1 "\""}
t.re1 307335962 9 3 100664 98 `
/[a-cg-j1-3]/ { print $0 " matches /[a-cg-j1-3]/" }
/[^aeiou]/ { print $0 " matches /[^aeiou]/" }
t.rec 307335962 9 3 100664 19 `
{ print sqrt($1) }
t.redir 307335962 9 3 100664 55 `
$1%2==1 {print >"oddtemp"}
$1%2==0 {print >"eventemp"}
t.roff 307335962 9 3 100664 251 `
NF > 0 {
for (i = 1; i <= NF; i++) {
n = length($i)
if (n + olen >= 60) {
print oline
olen = n
oline = $i
} else {
oline = oline " " $i
olen += n
}
}
}
NF == 0 {
print oline
olen = 0
}
END {
if (olen > 0)
print oline
}
t.sep 307335962 9 3 100664 90 `
BEGIN { FS = "1"; print "field separator is", FS }
NF>1 { print $0 " has " NF " fields" }
t.seqno 307335962 9 3 100664 15 `
{print NR, $0}
t.split 307335962 9 3 100664 64 `
BEGIN { z = "stuff" }
{ split ($0, x); print x[3], x[2], x[1] }
t.split2 307335962 9 3 100664 36 `
{ split ($0, x); print x[2], x[1] }
t.split9 307334948 9 3 100666 145 `
{
n = split ($0, x, FS)
if (n != NF)
print "botch at ", NR, n, NF
for (i=1; i<=n; i++)
if ($i != x[i])
print "diff at ", i, x[i], $i
}
t.split9a 307336346 9 3 100666 164 `
BEGIN { FS = "a" }
{
n = split ($0, x, FS)
if (n != NF)
print "botch at ", NR, n, NF
for (i=1; i<=n; i++)
if ($i != x[i])
print "diff at ", i, x[i], $i
}
t.stately 307335962 9 3 100664 159 `
/^(al|ak|az|ar|ca|co|ct|de|fl|ga|hi|io|il|in|ia|ks|ky|la|me|md|ma|mi|mn|ms|mo|mt|nb|nv|nh|nj|nm|ny|nc|nd|oh|ok|or|pa|ri|sc|sd|tn|tx|ut|vt|va|wa|wv|wi|-|wy)*$/
t.strcmp 307335963 9 3 100664 42 `
$2 >= "ava" && $2 <= "bwk" || $2 >= "pjw"
t.strcmp1 307335963 9 3 100664 52 `
$1 != 1 && $1 != 2 && $1 != 3 && $1 != 4 && $1 != 5
t.substr 307335963 9 3 100664 61 `
substr($2, 1, 1) ~ /[abc]/
substr($2, length($2)) !~ /[a-z]/
t.time 307335963 9 3 100664 96 `
BEGIN {
FS = "-"
}
/ing$/ {
n++
s += length($NF)
print
}
END {
print n, s, s/n >"glop"
}
t.vf 307335983 9 3 100664 44 `
BEGIN { i = 1 }
{print $(i+i)}
{print $(1)}
t.vf1 307335983 9 3 100664 66 `
{ print
i = 1
while (i <= NF) {
print " " $i
i = i + 1
}
}
t.vf3 307335984 9 3 100664 36 `
BEGIN { i=1; j=2 }
{$i = $j; print}
t.x 307335984 9 3 100664 4 `
/x/
Compare 308460881 9 1 100777 165 `
for i
do
echo $i:
awk -f $i foo >junk1
a.out -f $i foo >junk2
if cmp -s junk1 junk2
then echo $i: good
else echo $i: BAD
fi
diff -b junk1 junk2 | ind
done
testall 307336168 9 3 100777 27 `
Compare t.* >test.out 2>&1
t.null0 312829527 9 1 100666 397 `
BEGIN { FS = ":" }
{ if (a) print "a", a
if (b == 0) print "b", b
if ( c == "0") print "c", c
if (d == "") print "d", d
if (e == 1-1) print "e", e
}
$1 == 0 {print "$1 = 0"}
$1 == "0" {print "$1 = quoted 0"}
$1 == "" {print "$1 = null string"}
$5 == 0 {print "$5 = 0"}
$5 == "0" {print "$5 = quoted 0"}
$5 == "" {print "$5 = null string"}
$1 == $3 {print "$1 = $3"}
$5 == $6 {print "$5 = $6"}
test.data 323961880 9 3 100666 1429 `
/dev/rrp3:
17379 mel
16693 bwk
16116 ken
15713 srb
11895 lem
10409 scj
10252 rhm
9853 shen
9748 a68
9492 sif
9190 pjw
8912 nls
8895 dmr
8491 cda
8372 bs
8252 llc
7450 mb
7360 ava
7273 jrv
7080 bin
7063 greg
6567 dict
6462 lck
6291 rje
6211 lwf
5671 dave
5373 jhc
5220 agf
5167 doug
5007 valerie
3963 jca
3895 bbs
3796 moh
3481 xchar
3200 tbl
2845 s
2774 tgs
2641 met
2566 jck
2511 port
2479 sue
2127 root
1989 bsb
1989 jeg
1933 eag
1801 pdj
1590 tpc
1385 cvw
1370 rwm
1316 avg
1205 eg
1194 jam
1153 dl
1150 lgm
1031 cmb
1018 jwr
950 gdb
931 marc
898 usg
865 ggr
822 daemon
803 mihalis
700 honey
624 tad
559 acs
541 uucp
523 raf
495 adh
456 kec
414 craig
386 donmac
375 jj
348 ravi
344 drw
327 stars
288 mrg
272 jcb
263 ralph
253 tom
251 sjb
248 haight
224 sharon
222 chuck
213 dsj
201 bill
184 god
176 sys
166 meh
163 jon
144 dan
143 fox
123 dale
116 kab
95 buz
80 asc
79 jas
79 trt
64 wsb
62 dwh
56 ktf
54 lr
47 dlc
45 dls
45 jwf
44 mash
43 ars
43 vgl
37 jfo
32 rab
31 pd
29 jns
25 spm
22 rob
15 egb
10 hm
10 mhb
6 aed
6 cpb
5 evp
4 ber
4 men
4 mitch
3 ast
3 jfr
3 lax
3 nel
2 blue
2 jfk
2 njas
1 122sec
1 ddwar
1 gopi
1 jk
1 learn
1 low
1 nac
1 sidor