Return to xstrtol.h CVS log

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

lrzsz ver 0.12.20

    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_ */