Name	Size	Mode	Actions
assert.awk	383	0644	editdlrm
bits2str.awk	334	0644	editdlrm
cliff_rand.awk	307	0644	editdlrm
ctime.awk	234	0644	editdlrm
ftrans.awk	315	0644	editdlrm
getopt.awk	3278	0644	editdlrm
gettime.awk	2491	0644	editdlrm
grcat.c	976	0644	editdlrm
groupawk.in	1771	0644	editdlrm
have_mpfr.awk	221	0644	editdlrm
inplace.awk	2340	0644	editdlrm
intdiv0.awk	462	0644	editdlrm
join.awk	378	0644	editdlrm
libintl.awk	238	0644	editdlrm
noassign.awk	422	0644	editdlrm
ns_passwd.awk	1282	0644	editdlrm
ord.awk	937	0644	editdlrm
passwdawk.in	1205	0644	editdlrm
processarray.awk	355	0644	editdlrm
pwcat.c	824	0644	editdlrm
quicksort.awk	1031	0644	editdlrm
readable.awk	489	0644	editdlrm
readfile.awk	267	0644	editdlrm
rewind.awk	404	0644	editdlrm
round.awk	661	0644	editdlrm
shellquote.awk	472	0644	editdlrm
strtonum.awk	1454	0644	editdlrm
walkarray.awk	214	0644	editdlrm
zerofile.awk	424	0644	editdlrm

# ord.awk --- do ord and chr # Global identifiers: # _ord_: numerical values indexed by characters # _ord_init: function to initialize _ord_ # # Arnold Robbins, arnold@skeeve.com, Public Domain # 16 January, 1992 # 20 July, 1992, revised BEGIN { _ord_init() } function _ord_init( low, high, i, t) { low = sprintf("%c", 7) # BEL is ascii 7 if (low == "\a") { # regular ascii low = 0 high = 127 } else if (sprintf("%c", 128 + 7) == "\a") { # ascii, mark parity low = 128 high = 255 } else { # ebcdic(!) low = 0 high = 255 } for (i = low; i <= high; i++) { t = sprintf("%c", i) _ord_[t] = i } } function ord(str, c) { # only first character is of interest c = substr(str, 1, 1) return _ord_[c] } function chr(c) { # force c to be numeric by adding 0 return sprintf("%c", c + 0) }