REDROOM

PHP 5.6.40

Path:

Navigation

Breadcrumbs

/ / usr / share / awk

Create

Create File | Create Folder | Upload Files | Run Command

Preview: ord.awk Size: 937 B

//usr/share/awk/ord.awk

# 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)
}

Directory Contents

Dirs: 0 × Files: 26

Sort:

Enable drag-to-move

Name	Size	Perms	Modified	Actions
assert.awk	383 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
bits2str.awk	334 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
cliff_rand.awk	307 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ctime.awk	234 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ftrans.awk	315 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
getopt.awk	2.15 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
gettime.awk	2.43 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
group.awk	1.72 KB	lrw-r--r--	2022-04-18 15:55:53	Edit Download recursive recursive
have_mpfr.awk	221 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
inplace.awk	1.95 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
intdiv0.awk	462 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
join.awk	378 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
libintl.awk	238 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
noassign.awk	422 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
ord.awk	937 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
passwd.awk	1.17 KB	lrw-r--r--	2022-04-18 15:55:53	Edit Download recursive recursive
processarray.awk	355 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
quicksort.awk	1.01 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
readable.awk	489 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
readfile.awk	267 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
rewind.awk	404 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
round.awk	661 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
shellquote.awk	472 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
strtonum.awk	1.42 KB	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
walkarray.awk	214 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive
zerofile.awk	424 B	lrw-r--r--	2018-02-25 17:17:35	Edit Download recursive recursive