FM / awk

/usr/share/awk

Name	Size	Mode	Actions
assert.awk	383	0644	edit dl rm
bits2str.awk	334	0644	edit dl rm
cliff_rand.awk	307	0644	edit dl rm
ctime.awk	234	0644	edit dl rm
ftrans.awk	315	0644	edit dl rm
getopt.awk	2202	0644	edit dl rm
gettime.awk	2491	0644	edit dl rm
group.awk	1765	0644	edit dl rm
have_mpfr.awk	221	0644	edit dl rm
inplace.awk	1996	0644	edit dl rm
intdiv0.awk	462	0644	edit dl rm
join.awk	378	0644	edit dl rm
libintl.awk	238	0644	edit dl rm
noassign.awk	422	0644	edit dl rm
ord.awk	937	0644	edit dl rm
passwd.awk	1199	0644	edit dl rm
processarray.awk	355	0644	edit dl rm
quicksort.awk	1031	0644	edit dl rm
readable.awk	489	0644	edit dl rm
readfile.awk	267	0644	edit dl rm
rewind.awk	404	0644	edit dl rm
round.awk	661	0644	edit dl rm
shellquote.awk	472	0644	edit dl rm
strtonum.awk	1454	0644	edit dl rm
walkarray.awk	214	0644	edit dl rm
zerofile.awk	424	0644	edit dl rm

Edit: /usr/share/awk/strtonum.awk (1454B)

# mystrtonum --- convert string to number

#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# February, 2004
# Revised June, 2014

function mystrtonum(str,        ret, n, i, k, c)
{
    if (str ~ /^0[0-7]*$/) {
        # octal
        n = length(str)
        ret = 0
        for (i = 1; i <= n; i++) {
            c = substr(str, i, 1)
            # index() returns 0 if c not in string,
            # includes c == "0"
            k = index("1234567", c)

ret = ret * 8 + k
        }
    } else if (str ~ /^0[xX][[:xdigit:]]+$/) {
        # hexadecimal
        str = substr(str, 3)    # lop off leading 0x
        n = length(str)
        ret = 0
        for (i = 1; i <= n; i++) {
            c = substr(str, i, 1)
            c = tolower(c)
            # index() returns 0 if c not in string,
            # includes c == "0"
            k = index("123456789abcdef", c)

ret = ret * 16 + k
        }
    } else if (str ~ \
  /^[-+]?([0-9]+([.][0-9]*([Ee][0-9]+)?)?|([.][0-9]+([Ee][-+]?[0-9]+)?))$/) {
        # decimal number, possibly floating point
        ret = str + 0
    } else
        ret = "NOT-A-NUMBER"

return ret
}

# BEGIN {     # gawk test harness
#     a[1] = "25"
#     a[2] = ".31"
#     a[3] = "0123"
#     a[4] = "0xdeadBEEF"
#     a[5] = "123.45"
#     a[6] = "1.e3"
#     a[7] = "1.32"
#     a[8] = "1.32E2"
#
#     for (i = 1; i in a; i++)
#         print a[i], strtonum(a[i]), mystrtonum(a[i])
# }

# mystrtonum --- convert string to number # # Arnold Robbins, arnold@skeeve.com, Public Domain # February, 2004 # Revised June, 2014 function mystrtonum(str, ret, n, i, k, c) { if (str ~ /^0[0-7]*$/) { # octal n = length(str) ret = 0 for (i = 1; i <= n; i++) { c = substr(str, i, 1) # index() returns 0 if c not in string, # includes c == "0" k = index("1234567", c) ret = ret * 8 + k } } else if (str ~ /^0[xX][[:xdigit:]]+$/) { # hexadecimal str = substr(str, 3) # lop off leading 0x n = length(str) ret = 0 for (i = 1; i <= n; i++) { c = substr(str, i, 1) c = tolower(c) # index() returns 0 if c not in string, # includes c == "0" k = index("123456789abcdef", c) ret = ret * 16 + k } } else if (str ~ \ /^[-+]?([0-9]+([.][0-9]*([Ee][0-9]+)?)?|([.][0-9]+([Ee][-+]?[0-9]+)?))$/) { # decimal number, possibly floating point ret = str + 0 } else ret = "NOT-A-NUMBER" return ret } # BEGIN { # gawk test harness # a[1] = "25" # a[2] = ".31" # a[3] = "0123" # a[4] = "0xdeadBEEF" # a[5] = "123.45" # a[6] = "1.e3" # a[7] = "1.32" # a[8] = "1.32E2" # # for (i = 1; i in a; i++) # print a[i], strtonum(a[i]), mystrtonum(a[i]) # }