Return to atolfp.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ntp / libntp

Annotation of embedaddon/ntp/libntp/atolfp.c, revision 1.1

1.1     ! misho       1: /*
        !             2:  * atolfp - convert an ascii string to an l_fp number
        !             3:  */
        !             4: #include <stdio.h>
        !             5: #include <ctype.h>
        !             6: 
        !             7: #include "ntp_fp.h"
        !             8: #include "ntp_string.h"
        !             9: #include "ntp_assert.h"
        !            10: 
        !            11: /*
        !            12:  * Powers of 10
        !            13:  */
        !            14: static u_long ten_to_the_n[10] = {
        !            15:        0,
        !            16:        10,
        !            17:        100,
        !            18:        1000,
        !            19:        10000,
        !            20:        100000,
        !            21:        1000000,
        !            22:        10000000,
        !            23:        100000000,
        !            24:        1000000000,
        !            25: };
        !            26: 
        !            27: 
        !            28: int
        !            29: atolfp(
        !            30:        const char *str,
        !            31:        l_fp *lfp
        !            32:        )
        !            33: {
        !            34:        register const char *cp;
        !            35:        register u_long dec_i;
        !            36:        register u_long dec_f;
        !            37:        char *ind;
        !            38:        int ndec;
        !            39:        int isneg;
        !            40:        static const char *digits = "0123456789";
        !            41: 
        !            42:        NTP_REQUIRE(str != NULL);
        !            43: 
        !            44:        isneg = 0;
        !            45:        dec_i = dec_f = 0;
        !            46:        ndec = 0;
        !            47:        cp = str;
        !            48: 
        !            49:        /*
        !            50:         * We understand numbers of the form:
        !            51:         *
        !            52:         * [spaces][-|+][digits][.][digits][spaces|\n|\0]
        !            53:         */
        !            54:        while (isspace((int)*cp))
        !            55:            cp++;
        !            56:        
        !            57:        if (*cp == '-') {
        !            58:                cp++;
        !            59:                isneg = 1;
        !            60:        }
        !            61:        
        !            62:        if (*cp == '+')
        !            63:            cp++;
        !            64: 
        !            65:        if (*cp != '.' && !isdigit((int)*cp))
        !            66:            return 0;
        !            67: 
        !            68:        while (*cp != '\0' && (ind = strchr(digits, *cp)) != NULL) {
        !            69:                dec_i = (dec_i << 3) + (dec_i << 1);    /* multiply by 10 */
        !            70:                dec_i += (ind - digits);
        !            71:                cp++;
        !            72:        }
        !            73: 
        !            74:        if (*cp != '\0' && !isspace((int)*cp)) {
        !            75:                if (*cp++ != '.')
        !            76:                    return 0;
        !            77:        
        !            78:                while (ndec < 9 && *cp != '\0'
        !            79:                       && (ind = strchr(digits, *cp)) != NULL) {
        !            80:                        ndec++;
        !            81:                        dec_f = (dec_f << 3) + (dec_f << 1);    /* *10 */
        !            82:                        dec_f += (ind - digits);
        !            83:                        cp++;
        !            84:                }
        !            85: 
        !            86:                while (isdigit((int)*cp))
        !            87:                    cp++;
        !            88:                
        !            89:                if (*cp != '\0' && !isspace((int)*cp))
        !            90:                    return 0;
        !            91:        }
        !            92: 
        !            93:        if (ndec > 0) {
        !            94:                register u_long tmp;
        !            95:                register u_long bit;
        !            96:                register u_long ten_fact;
        !            97: 
        !            98:                ten_fact = ten_to_the_n[ndec];
        !            99: 
        !           100:                tmp = 0;
        !           101:                bit = 0x80000000;
        !           102:                while (bit != 0) {
        !           103:                        dec_f <<= 1;
        !           104:                        if (dec_f >= ten_fact) {
        !           105:                                tmp |= bit;
        !           106:                                dec_f -= ten_fact;
        !           107:                        }
        !           108:                        bit >>= 1;
        !           109:                }
        !           110:                if ((dec_f << 1) > ten_fact)
        !           111:                    tmp++;
        !           112:                dec_f = tmp;
        !           113:        }
        !           114: 
        !           115:        if (isneg)
        !           116:            M_NEG(dec_i, dec_f);
        !           117:        
        !           118:        lfp->l_ui = dec_i;
        !           119:        lfp->l_uf = dec_f;
        !           120:        return 1;
        !           121: }