[unix-history] / 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
Commit	Line	Data
483839cf C	1	!<arch>
	2	t.0 307335954 9 3 100664 23 `
	3	{i = i+1; print i, NR}
	4
	5	t.1.x 307335954 9 3 100664 32 `
	6	{i="count" $1 $2; print i , $0}
	7	t.2.x 307335954 9 3 100664 31 `
	8	{i=2; j=$3; $1=i;print i,j,$1}
	9
	10	t.3 307335954 9 3 100664 23 `
	11	$1 == "5" \|\| $1 == "4"
	12
	13	t.3.x 307335954 9 3 100664 50 `
	14	{
	15	x = $1
	16	while (x > 1) {
	17	print x
	18	x = x / 10
	19	}
	20	}
	21	t.4 307335954 9 3 100664 21 `
	22	$1 ~ /5/ \|\| $1 ~ /4/
	23
	24	t.4.x 307335954 9 3 100664 18 `
	25	{i=$(1); print i}
	26	t.5.x 307335954 9 3 100664 28 `
	27	{$(1) = "xxx"; print $1,$0}
	28	t.6 307335954 9 3 100664 76 `
	29	/a\|b\|c/ {
	30	i = $1
	31	print
	32	while (i >= 1) {
	33	print " ", i
	34	i = i / 10
	35	}
	36	}
	37	t.6.x 307335955 9 3 100664 14 `
	38	{print NF,$0}
	39	t.6a 307335955 9 3 100664 64 `
	40	/a\|b\|c/ {
	41	print
	42	for (i = $1; i >= 1; )
	43	print " ", i /= 10
	44	}
	45	t.6b 307335955 9 3 100664 65 `
	46	/a\|b\|c/ {
	47	print
	48	for (i = $1; (i /= 10)>= 1; )
	49	print " ", i
	50	}
	51
	52	t.8.x 307335955 9 3 100664 15 `
	53	{$2=$1; print}
	54
	55	t.a 307335955 9 3 100666 130 `
	56	{if (amount[$2] "" == "") item[num++] = $2;
	57	amount[$2] += $1
	58	}
	59	END {for (i=0; i<num; i++)
	60	print item[i], amount[item[i]]
	61	}
	62	t.aeiou 307335955 9 3 100664 58 `
	63	/^[^aeiouy][aeiou][^aeiouy][aeiouy][aeiouy][^aeiouy]*$/
	64	t.aeiouy 307335955 9 3 100664 81 `
65	/^[^aeiouy]a[^aeiouy]e[^aeiouy]i[^aeiouy]o[^aeiouy]u[^aeiouy]y[^aeiouy]*$/
66
67	t.arith 307335955 9 3 100664 52 `
68	{ print $1, $1+$1, $1-$1, $1 * $1, $1/$1, $1 % NR }
69	t.array 307335955 9 3 100664 147 `
70	{ x[NR] = $0 }
71
72	END {
73	i = 1
74	while (i <= NR) {
75	print x[i]
76	split (x[i], y)
77	usage = y[1]
78	name = y[2]
79	print " ", name, usage
80	i++
81	}
82	}
83
84	t.array1 307335955 9 3 100664 123 `
85	{for(i=1; i<=NF; i++) {
86	if (x[$i] == "")
87	y[n++] = $i
88	x[$i]++
89	}
90	}
91	END {
92	for (i=0; i<n; i++)
93	print (y[i], x[y[i]])
94	}
95
96	t.array2 307335955 9 3 100664 168 `
97	$2 ~ /^[a-l]/ { x["a"] = x["a"] + 1 }
98	$2 ~ /^[m-z]/ { x["m"] = x["m"] + 1 }
99	$2 !~ /^[a-z]/ { x["other"] = x["other"] + 1 }
100	END { print NR, x["a"], x["m"], x["other"] }
101	t.avg 307335955 9 3 100664 80 `
102	{s = s + $1; c = c + 1}
103	END {
104	print "sum=", s, " count=", c
105	print "avg=", s/c
106	}
107	t.b.x 307335956 9 3 100664 36 `
108	{$6=":::" ; print $6; print NF, $0}
109	t.be 307335956 9 3 100664 42 `
110	BEGIN { print FILENAME }
111	END { print NR }
112	t.break 307335956 9 3 100664 91 `
113	{
114	for (i=1; i <= NF; i++)
115	if ($i ~ /^[a-z]+$/) {
116	print $i " is alphabetic"
117	break
118	}
119	}
120
121	t.break1 307335956 9 3 100664 135 `
122	{ x[NR] = $0 }
123	END {
124	for (i = 1; i <= NR; i++) {
125	print i, x[i]
126	if (x[i] ~ /shen/)
127	break
128	}
129	print "got here"
130	print i, x[i]
131	}
132
133	t.break2 307335956 9 3 100664 122 `
134	{ x[NR] = $0 }
135	END {
136	for (i in x) {
137	print i, x[i]
138	if (x[i] ~ /shen/)
139	break
140	}
141	print "got here"
142	print i, x[i]
143	}
144	t.break3 307335956 9 3 100666 116 `
145	{ for (i = 1; i <= NF; i++) {
146	for (j = 1; j <= NF; j++)
147	break;
148	print "inner", i, j
149	}
150	print "outer", i, j
151	}
152	t.bug1 307335985 9 3 100666 103 `
153	# this program fails if awk is created without separate I&D
154	# prints garbage if no $3
155	{ print $1, $3 }
156
157	t.cat 307335956 9 3 100664 114 `
158	{print $2 " " $1}
159	{print $1 " " "is", $2}
160	{print $2 FS "is" FS $1}
161	{print length($1 $2), length($1) + length($2)}
162	t.cat1 307335957 9 3 100664 38 `
163	{print x $0} # should precede by zero
164	t.cat2 307335957 9 3 100664 21 `
165	{$1 = $1 "*"; print}
166
167	t.cmp 307335957 9 3 100664 8 `
168	$2 > $1
169	t.coerce 307335957 9 3 100664 47 `
170	END { print i, NR
171	if (i < NR)
172	print i, NR
173	}
174
175	t.comment 307335957 9 3 100664 112 `
176	# this is a comment line
177	# so is this
178	/#/ { print "this one has a # in it: " $0 # comment
179	print "again:" $0
180	}
181	t.comment1 307335957 9 3 100664 88 `
182	#comment
183	#
184	BEGIN { x = 1 }
185	/abc/ { print $0 }
186	#comment
187	END { print NR }
188	#comment
189	t.contin 307335957 9 3 100664 130 `
190	{
191	for (i = 1; i <= NF; i++) {
192	if ($i ~ /^[0-9]+$/)
193	continue;
194	print $i, " is non-numeric"
195	next
196	}
197	print $0, "is all numeric"
198	}
199	t.count 307335957 9 3 100664 17 `
200	END { print NR }
201
202	t.cum 307335957 9 3 100664 38 `
203	{i = i + $1; print i}
204	END {
205	print i
206	}
207	t.d.x 307335958 9 3 100664 43 `
208	BEGIN {FS=":" ; OFS=":"}
209	{print NF " ",$0}
210
211	t.e 307335958 9 3 100664 23 `
212	$1 < 10 \|\| $2 ~ /bwk/
213
214	t.else 307335958 9 3 100664 46 `
215	{ if($1>1000) print "yes"
216	else print "no"
217	}
218	t.exit 307335958 9 3 100664 32 `
219	{ print }
220	$1 < 5000 { exit NR }
221	t.f 307335958 9 3 100664 15 `
222	{print $2, $1}
223
224	t.f.x 307335958 9 3 100664 26 `
225	$1>0 {print $1, sqrt($1)}
226	t.f0 307335959 9 3 100664 20 `
227	$1 ~ /x/ {print $0}
228	t.f1 307335959 9 3 100664 16 `
229	{$1 = 1; print}
230	t.f2 307335959 9 3 100664 19 `
231	{$1 = 1; print $0}
232
233	t.f3 307335959 9 3 100664 17 `
234	{$1 = NR; print}
235
236	t.f4 307335959 9 3 100664 20 `
237	{$1 = NR; print $0}
238	t.for 307335959 9 3 100664 39 `
239	{ for (i=1; i<=NF; i++)
240	print i, $i
241	}
242
243	t.for1 307335959 9 3 100664 68 `
244	{
245	i = 1
246	for (;;) {
247	if (i > NF)
248	next
249	print i, $i
250	i++
251	}
252	}
253	t.for2 307335960 9 3 100664 61 `
254	{
255	for (i=1;;i++) {
256	if (i > NF)
257	next
258	print i, $i
259	}
260	}
261
262	t.format4 307335985 9 3 100664 127 `
263	BEGIN {
264	text=sprintf ("%125s", "x")
265	print length (text)
266	print text
267	xxx=substr (text,1,105)
268	print length (xxx)
269	print xxx
270	exit
271	}
272
273	t.func 307335960 9 3 100664 73 `
274	{ print $1, length($1), log($1), sqrt($1), int(sqrt($1)), exp($1 % 10) }
275
276	t.getline 307335984 9 3 100666 117 `
277	{ x = $1
278	for (i = 1; i <= 3; i++)
279	if (getline)
280	x = x " " $1
281	print x
282	x = ""
283	}
284	END {
285	if (x != "") print x
286	}
287
288	t.i.x 307335960 9 3 100664 52 `
289	{i=i+log($1); print i,log($1)}
290	END {print exp(i),i}
291	t.if 307335960 9 3 100664 21 `
292	{if($1 \|\| $2) print}
293
294	t.in 307335960 9 3 100664 98 `
295	BEGIN {
296	x["apple"] = 1;
297	x["orange"] = 2;
298	x["lemon"] = 3;
299	for (i in x)
300	print i, x[i]
301	exit
302	}
303	t.in1 307335960 9 3 100664 126 `
304	{ if (amount[$2] == "")
305	name[++n] = $2
306	amount[$2] += $1
307	}
308	END { for (i in name)
309	print i, name[i], amount[name[i]]
310	}
311	t.in2 307335960 9 3 100664 68 `
312	{ x[substr($2, 1, 1)] += $1 }
313	END { for (i in x)
314	print i, x[i]
315	}
316	t.in3 307335960 9 3 100664 83 `
317	{ x[NR] = $0 }
318	END {
319	for (i in x)
320	if (x[i] ~ /shen/)
321	break
322	print i, x[i]
323	}
324
325	t.incr 307335960 9 3 100664 52 `
326	{ ++i; --j; k++; l-- }
327	END { print NR, i, j, k, l }
328	t.incr2 307335960 9 3 100664 56 `
329	{ s = 0
330	for (i=1; i <= NF; )
331	s += $(i++)
332	print s
333	}
334	t.incr3 307335960 9 3 100664 58 `
335	{ s = 0
336	for (i=1; i <= NF; s += $(i++))
337	;
338	print s
339	}
340	t.index 307335960 9 3 100664 144 `
341	{ n = length
342	d = 0
343	for (i = 1; i <= n; i++)
344	if ((k = index($0, substr($0, i))) != i)
345	d = 1
346	if (d)
347	print $0, "has duplicate letters"
348	}
349	t.j.x 307335961 9 3 100664 55 `
350	{i=i+sqrt($1); print i,sqrt($1)}
351	END {print sqrt(i),i}
352
353	t.longstr 307335984 9 3 100666 137 `
354	BEGIN{
355	x = "111111111122222222233333333334444444444555555555566666666667777777777888888888899999999990000000000"
356	printf "%s\n", x
357	exit
358	}
359
360	t.makef 307335961 9 3 100664 30 `
361	{$3 = 2*$1; print $1, $2, $3}
362	t.match 307335961 9 3 100664 15 `
363	$2 ~ /ava\|bwk/
364
365	t.max 307335961 9 3 100664 58 `
366	length > max { max = length; x = $0}
367	END { print max, x }
368	t.mod 307335961 9 3 100664 12 `
369	NR % 2 == 1
370	t.monotone 307335961 9 3 100664 112 `
371	/^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?$/
372	t.nameval 307335961 9 3 100664 132 `
373	{ if (amount[$2] == "")
374	name[++n] = $2
375	amount[$2] += $1
376	}
377	END { for (i = 1; i <= n; i++)
378	print name[i], amount[name[i]]
379	}
380	t.next 307335961 9 3 100664 29 `
381	$1 > 5000 { next }
382	{ print }
383
384	t.not 307335961 9 3 100664 55 `
385	$2 !~ /ava\|bwk/
386	!($1 < 2000)
387	!($2 ~ /bwk/)
388	!$2 ~ /bwk/
389
390	t.ofmt 307335961 9 3 100664 34 `
391	BEGIN {OFMT="%.5g"}
392	{print $1+0}
393	t.ofs 307335961 9 3 100664 67 `
394	BEGIN { OFS = " %% "; ORS = "##" }
395	{ print $1, $2; print "#x\n" }
396
397	t.pipe 307335962 9 3 100664 54 `
398	BEGIN {print "read /usr/bwk/awk/t.pipe" \| "mail bwk"}
399	t.pp 307335962 9 3 100664 8 `
400	/a/,/b/
401	t.pp1 307335962 9 3 100664 87 `
402	/bwk/,/bwk/ { print $2, $1 }
403	/ava/,/ava/ { print $2, $1 }
404	/pjw/,/pjw/ { print $2, $1 }
405
406	t.pp2 307335962 9 3 100664 99 `
407	/bwk/,/scj/ { print "1: ", $0 }
408	/bwk/, /bsb/ { print "2: ", $0 }
409	/mel/, /doug/ { print "3: ", $0 }
410
411	t.printf 307335962 9 3 100664 82 `
412	{
413	printf "%%: %s ... %s \t", $2, $1
414	x = sprintf "%8d %10.10s", $1, $2
415	print x
416	}
417	t.quote 307335962 9 3 100664 21 `
418	{print "\"" $1 "\""}
419
420	t.re1 307335962 9 3 100664 98 `
421	/[a-cg-j1-3]/ { print $0 " matches /[a-cg-j1-3]/" }
422	/[^aeiou]/ { print $0 " matches /[^aeiou]/" }
423	t.rec 307335962 9 3 100664 19 `
424	{ print sqrt($1) }
425
426	t.redir 307335962 9 3 100664 55 `
427	$1%2==1 {print >"oddtemp"}
428	$1%2==0 {print >"eventemp"}
429
430	t.roff 307335962 9 3 100664 251 `
431	NF > 0 {
432	for (i = 1; i <= NF; i++) {
433	n = length($i)
434	if (n + olen >= 60) {
435	print oline
436	olen = n
437	oline = $i
438	} else {
439	oline = oline " " $i
440	olen += n
441	}
442	}
443	}
444
445	NF == 0 {
446	print oline
447	olen = 0
448	}
449
450	END {
451	if (olen > 0)
452	print oline
453	}
454
455	t.sep 307335962 9 3 100664 90 `
456	BEGIN { FS = "1"; print "field separator is", FS }
457	NF>1 { print $0 " has " NF " fields" }
458	t.seqno 307335962 9 3 100664 15 `
459	{print NR, $0}
460
461	t.split 307335962 9 3 100664 64 `
462	BEGIN { z = "stuff" }
463	{ split ($0, x); print x[3], x[2], x[1] }
464	t.split2 307335962 9 3 100664 36 `
465	{ split ($0, x); print x[2], x[1] }
466	t.split9 307334948 9 3 100666 145 `
467	{
468	n = split ($0, x, FS)
469	if (n != NF)
470	print "botch at ", NR, n, NF
471	for (i=1; i<=n; i++)
472	if ($i != x[i])
473	print "diff at ", i, x[i], $i
474	}
475
476	t.split9a 307336346 9 3 100666 164 `
477	BEGIN { FS = "a" }
478	{
479	n = split ($0, x, FS)
480	if (n != NF)
481	print "botch at ", NR, n, NF
482	for (i=1; i<=n; i++)
483	if ($i != x[i])
484	print "diff at ", i, x[i], $i
485	}
486	t.stately 307335962 9 3 100664 159 `
487	/^(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)*$/
488
489	t.strcmp 307335963 9 3 100664 42 `
490	$2 >= "ava" && $2 <= "bwk" \|\| $2 >= "pjw"
491	t.strcmp1 307335963 9 3 100664 52 `
492	$1 != 1 && $1 != 2 && $1 != 3 && $1 != 4 && $1 != 5
493	t.substr 307335963 9 3 100664 61 `
494	substr($2, 1, 1) ~ /[abc]/
495	substr($2, length($2)) !~ /[a-z]/
496
497	t.time 307335963 9 3 100664 96 `
498	BEGIN {
499	FS = "-"
500	}
501
502	/ing$/ {
503	n++
504	s += length($NF)
505	print
506	}
507
508	END {
509	print n, s, s/n >"glop"
510	}
511	t.vf 307335983 9 3 100664 44 `
512	BEGIN { i = 1 }
513	{print $(i+i)}
514	{print $(1)}
515	t.vf1 307335983 9 3 100664 66 `
516	{ print
517	i = 1
518	while (i <= NF) {
519	print " " $i
520	i = i + 1
521	}
522	}
523	t.vf3 307335984 9 3 100664 36 `
524	BEGIN { i=1; j=2 }
525	{$i = $j; print}
526	t.x 307335984 9 3 100664 4 `
527	/x/
528	Compare 308460881 9 1 100777 165 `
529	for i
530	do
531	echo $i:
532	awk -f $i foo >junk1
533	a.out -f $i foo >junk2
534	if cmp -s junk1 junk2
535	then echo $i: good
536	else echo $i: BAD
537	fi
538	diff -b junk1 junk2 \| ind
539	done
540
541	testall 307336168 9 3 100777 27 `
542	Compare t.* >test.out 2>&1
543
544	t.null0 312829527 9 1 100666 397 `
545	BEGIN { FS = ":" }
546	{ if (a) print "a", a
547	if (b == 0) print "b", b
548	if ( c == "0") print "c", c
549	if (d == "") print "d", d
550	if (e == 1-1) print "e", e
551	}
552	$1 == 0 {print "$1 = 0"}
553	$1 == "0" {print "$1 = quoted 0"}
554	$1 == "" {print "$1 = null string"}
555	$5 == 0 {print "$5 = 0"}
556	$5 == "0" {print "$5 = quoted 0"}
557	$5 == "" {print "$5 = null string"}
558	$1 == $3 {print "$1 = $3"}
559	$5 == $6 {print "$5 = $6"}
560
561	test.data 323961880 9 3 100666 1429 `
562	/dev/rrp3:
563	17379 mel
564	16693 bwk
565	16116 ken
566	15713 srb
567	11895 lem
568	10409 scj
569	10252 rhm
570	9853 shen
571	9748 a68
572	9492 sif
573	9190 pjw
574	8912 nls
575	8895 dmr
576	8491 cda
577	8372 bs
578	8252 llc
579	7450 mb
580	7360 ava
581	7273 jrv
582	7080 bin
583	7063 greg
584	6567 dict
585	6462 lck
586	6291 rje
587	6211 lwf
588	5671 dave
589	5373 jhc
590	5220 agf
591	5167 doug
592	5007 valerie
593	3963 jca
594	3895 bbs
595	3796 moh
596	3481 xchar
597	3200 tbl
598	2845 s
599	2774 tgs
600	2641 met
601	2566 jck
602	2511 port
603	2479 sue
604	2127 root
605	1989 bsb
606	1989 jeg
607	1933 eag
608	1801 pdj
609	1590 tpc
610	1385 cvw
611	1370 rwm
612	1316 avg
613	1205 eg
614	1194 jam
615	1153 dl
616	1150 lgm
617	1031 cmb
618	1018 jwr
619	950 gdb
620	931 marc
621	898 usg
622	865 ggr
623	822 daemon
624	803 mihalis
625	700 honey
626	624 tad
627	559 acs
628	541 uucp
629	523 raf
630	495 adh
631	456 kec
632	414 craig
633	386 donmac
634	375 jj
635	348 ravi
636	344 drw
637	327 stars
638	288 mrg
639	272 jcb
640	263 ralph
641	253 tom
642	251 sjb
643	248 haight
644	224 sharon
645	222 chuck
646	213 dsj
647	201 bill
648	184 god
649	176 sys
650	166 meh
651	163 jon
652	144 dan
653	143 fox
654	123 dale
655	116 kab
656	95 buz
657	80 asc
658	79 jas
659	79 trt
660	64 wsb
661	62 dwh
662	56 ktf
663	54 lr
664	47 dlc
665	45 dls
666	45 jwf
667	44 mash
668	43 ars
669	43 vgl
670	37 jfo
671	32 rab
672	31 pd
673	29 jns
674	25 spm
675	22 rob
676	15 egb
677	10 hm
678	10 mhb
679	6 aed
680	6 cpb
681	5 evp
682	4 ber
683	4 men
684	4 mitch
685	3 ast
686	3 jfr
687	3 lax
688	3 nel
689	2 blue
690	2 jfk
691	2 njas
692	1 122sec
693	1 ddwar
694	1 gopi
695	1 jk
696	1 learn
697	1 low
698	1 nac
699	1 sidor
700