Return to xstrtol.h CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lrzsz / lib

Annotation of embedaddon/lrzsz/lib/xstrtol.h, revision 1.1

1.1     ! misho       1: #ifndef _xstrtol_h_
        !             2: #define _xstrtol_h_ 1
        !             3: 
        !             4: #if STRING_TO_UNSIGNED
        !             5: # define __xstrtol xstrtoul
        !             6: # define __strtol strtoul
        !             7: # define __unsigned unsigned
        !             8: # define __ZLONG_MAX ULONG_MAX
        !             9: #else
        !            10: # define __xstrtol xstrtol
        !            11: # define __strtol strtol
        !            12: # define __unsigned /* empty */
        !            13: # define __ZLONG_MAX LONG_MAX
        !            14: #endif
        !            15: 
        !            16: #undef __P
        !            17: #if defined (__STDC__) && __STDC__
        !            18: #define        __P(x) x
        !            19: #else
        !            20: #define        __P(x) ()
        !            21: #endif
        !            22: 
        !            23: enum strtol_error
        !            24:   {
        !            25:     LONGINT_OK, LONGINT_INVALID, LONGINT_INVALID_SUFFIX_CHAR, LONGINT_OVERFLOW
        !            26:   };
        !            27: typedef enum strtol_error strtol_error;
        !            28: 
        !            29: strtol_error
        !            30:   __xstrtol __P ((const char *s, char **ptr, int base,
        !            31:                  __unsigned long int *val, const char *valid_suffixes));
        !            32: 
        !            33: #define _STRTOL_ERROR(exit_code, str, argument_type_string, err)       \
        !            34:   do                                                                   \
        !            35:     {                                                                  \
        !            36:       switch ((err))                                                   \
        !            37:        {                                                               \
        !            38:        case LONGINT_OK:                                                \
        !            39:          abort ();                                                     \
        !            40:                                                                        \
        !            41:        case LONGINT_INVALID:                                           \
        !            42:          error ((exit_code), 0, "invalid %s `%s'",                     \
        !            43:                 (argument_type_string), (str));                        \
        !            44:          break;                                                        \
        !            45:                                                                        \
        !            46:        case LONGINT_INVALID_SUFFIX_CHAR:                               \
        !            47:          error ((exit_code), 0, "invalid character following %s `%s'", \
        !            48:                 (argument_type_string), (str));                        \
        !            49:          break;                                                        \
        !            50:                                                                        \
        !            51:        case LONGINT_OVERFLOW:                                          \
        !            52:          /* FIXME: make this message dependent on STRING_TO_UNSIGNED */\
        !            53:          error ((exit_code), 0, "%s `%s' larger than maximum long int",\
        !            54:                 (argument_type_string), (str));                        \
        !            55:          break;                                                        \
        !            56:        }                                                               \
        !            57:     }                                                                  \
        !            58:   while (0)
        !            59: 
        !            60: #define STRTOL_FATAL_ERROR(str, argument_type_string, err)             \
        !            61:   _STRTOL_ERROR (2, str, argument_type_string, err)
        !            62: 
        !            63: #define STRTOL_FAIL_WARN(str, argument_type_string, err)               \
        !            64:   _STRTOL_ERROR (0, str, argument_type_string, err)
        !            65: 
        !            66: #endif /* _xstrtol_h_ */