Return to radcon.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / lib

Annotation of 43BSD/contrib/icon/src/lib/radcon.icn, revision 1.1

1.1     ! root        1: #      RADCON(2)
        !             2: #
        !             3: #      Radix conversion procedures
        !             4: #
        !             5: #      Ralph E. Griswold
        !             6: #
        !             7: #      Last modified 5/29/83
        !             8: #
        !             9: 
        !            10: 
        !            11: procedure exbase10(i,j)
        !            12:    static digits
        !            13:    local s, d, sign
        !            14:    initial digits := "0123456789" || &lcase
        !            15:    if i = 0 then return 0
        !            16:    if i < 0 then {
        !            17:       sign := "-"
        !            18:       i := -i
        !            19:       }
        !            20:    else sign := ""
        !            21:    s := ""
        !            22:    while i > 0 do {
        !            23:       d := i % j
        !            24:       if d > 9 then d := digits[d + 1]
        !            25:       s := d || s
        !            26:       i /:= j
        !            27:       }
        !            28:    return sign || s
        !            29: end
        !            30: 
        !            31: procedure inbase10(s,i)
        !            32:    if s[1] == "-" then return "-" || integer(i || "r" || s[2:0])
        !            33:    else return integer(i || "r" || s)
        !            34: end
        !            35: 
        !            36: procedure radcon(s,i,j)
        !            37:    return exbase10(inbase10(s,i),j)
        !            38: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.