Name	Size	Mode	Actions
assert.awk	382	0644	editdlrm
bits2str.awk	327	0644	editdlrm
cliff_rand.awk	307	0644	editdlrm
ctime.awk	233	0644	editdlrm
ftrans.awk	317	0644	editdlrm
getopt.awk	2241	0644	editdlrm
gettime.awk	2491	0644	editdlrm
group.awk	1810	0644	editdlrm
join.awk	378	0644	editdlrm
libintl.awk	238	0644	editdlrm
nextfile.awk	386	0644	editdlrm
noassign.awk	422	0644	editdlrm
ord.awk	937	0644	editdlrm
passwd.awk	1164	0644	editdlrm
readable.awk	446	0644	editdlrm
rewind.awk	404	0644	editdlrm
round.awk	661	0644	editdlrm
strtonum.awk	1455	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) }