File Manager

X7ROOT File Manager

Current Path: /usr/share/awk

?? ..
?? assert.awk(383 B)
?? bits2str.awk(334 B)
?? cliff_rand.awk(307 B)
?? ctime.awk(234 B)
?? ftrans.awk(315 B)
?? getopt.awk(2.15 KB)
?? gettime.awk(2.43 KB)
?? group.awk(1.72 KB)
?? have_mpfr.awk(221 B)
?? inplace.awk(1.95 KB)
?? intdiv0.awk(462 B)
?? join.awk(378 B)
?? libintl.awk(238 B)
?? noassign.awk(422 B)
?? ord.awk(937 B)
?? passwd.awk(1.17 KB)
?? processarray.awk(355 B)
?? quicksort.awk(1.01 KB)
?? readable.awk(489 B)
?? readfile.awk(267 B)
?? rewind.awk(404 B)
?? round.awk(661 B)
?? shellquote.awk(472 B)
?? strtonum.awk(1.42 KB)
?? walkarray.awk(214 B)
?? zerofile.awk(424 B)

Editing: strtonum.awk

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

X7ROOT File Manager

Editing: strtonum.awk

Upload File

Create Folder