Return to hextolfp.c CVS log

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

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

1.1     ! misho       1: /*
        !             2:  * hextolfp - convert an ascii hex 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_stdlib.h"
        !            10: 
        !            11: int
        !            12: hextolfp(
        !            13:        const char *str,
        !            14:        l_fp *lfp
        !            15:        )
        !            16: {
        !            17:        register const char *cp;
        !            18:        register const char *cpstart;
        !            19:        register u_long dec_i;
        !            20:        register u_long dec_f;
        !            21:        char *ind = NULL;
        !            22:        static const char *digits = "0123456789abcdefABCDEF";
        !            23: 
        !            24:        dec_i = dec_f = 0;
        !            25:        cp = str;
        !            26: 
        !            27:        /*
        !            28:         * We understand numbers of the form:
        !            29:         *
        !            30:         * [spaces]8_hex_digits[.]8_hex_digits[spaces|\n|\0]
        !            31:         */
        !            32:        while (isspace((int)*cp))
        !            33:            cp++;
        !            34:        
        !            35:        cpstart = cp;
        !            36:        while (*cp != '\0' && (cp - cpstart) < 8 &&
        !            37:               (ind = strchr(digits, *cp)) != NULL) {
        !            38:                dec_i = dec_i << 4;     /* multiply by 16 */
        !            39:                dec_i += ((ind - digits) > 15) ? (ind - digits) - 6
        !            40:                        : (ind - digits);
        !            41:                cp++;
        !            42:        }
        !            43: 
        !            44:        if ((cp - cpstart) < 8 || ind == NULL)
        !            45:            return 0;
        !            46:        if (*cp == '.')
        !            47:            cp++;
        !            48: 
        !            49:        cpstart = cp;
        !            50:        while (*cp != '\0' && (cp - cpstart) < 8 &&
        !            51:               (ind = strchr(digits, *cp)) != NULL) {
        !            52:                dec_f = dec_f << 4;     /* multiply by 16 */
        !            53:                dec_f += ((ind - digits) > 15) ? (ind - digits) - 6
        !            54:                        : (ind - digits);
        !            55:                cp++;
        !            56:        }
        !            57: 
        !            58:        if ((cp - cpstart) < 8 || ind == NULL)
        !            59:            return 0;
        !            60:        
        !            61:        if (*cp != '\0' && !isspace((int)*cp))
        !            62:            return 0;
        !            63: 
        !            64:        lfp->l_ui = dec_i;
        !            65:        lfp->l_uf = dec_f;
        !            66:        return 1;
        !            67: }