made the pack completely portable and wrote relevent bat files to go with it
This commit is contained in:
44
gitportable/usr/share/awk/ord.awk
Normal file
44
gitportable/usr/share/awk/ord.awk
Normal file
@@ -0,0 +1,44 @@
|
||||
# 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)
|
||||
}
|
||||
Reference in New Issue
Block a user