Name	Size	Mode	Actions
ct_length.awk	407	0755	editdlrm
decl.awk	3044	0755	editdlrm
deps.awk	1306	0755	editdlrm
eatc.awk	492	0755	editdlrm
gdecl.awk	2791	0755	editdlrm
hcal	14046	0755	editdlrm
hical	2960	0755	editdlrm
nocomment.awk	590	0755	editdlrm
primes.awk	1058	0755	editdlrm
qsort.awk	1094	0755	editdlrm

#!/usr/bin/mawk -f # ct_length.awk # # replaces all length # by length($0) # { while ( i = index($0, "length") ) { printf "%s" , substr($0,1, i+5) # ...length $0 = substr($0,i+6) if ( match($0, /^[ \t]*\(/) ) { # its OK printf "%s", substr($0, 1, RLENGTH) $0 = substr($0, RLENGTH+1) } else # length alone printf "($0)" } print }