gno/usr.bin/awk/tests/check1
tribby ddb82cb2e0 Remaining files for awk 2.0 that were left out of the previous checkin.
Maybe someday I'll become adept at using cvs...
1998-04-07 17:06:53 +00:00

20 lines
399 B
Plaintext

# check1 - print total deposits and checks
/^check/ { ck = 1; next }
/^deposit/ { dep = 1; next }
/^amount/ { amt = $2; next }
/^$/ { addup() }
END { addup()
printf("deposits $%.2f, checks $%.2f\n",
deposits, checks)
}
function addup() {
if (ck)
checks += amt
else if (dep)
deposits += amt
ck = dep = amt = 0
}