summaryrefslogtreecommitdiff
path: root/reference/C/CONTRIB/SNIP/hexorint.c
blob: 0ab0e31ca3c55ee4fca53c4aa583d74a57ca4040 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
/*
**  HEXORINT.C - Detect if a string denotes a hex or decimal
**  number by detecting a leading "0X" or trailing "H" string.
**
**  public domain demo by Bob Stout
*/

#include <stdlib.h>
#include <string.h>

#undef NUL
#define NUL  '\0'
 
#define LAST_CHAR(s) (((char *)s)[strlen(s) - 1])

/*
**  Let strtol() do most of the work
*/

long hexorint(const char *string)
{
      int radix = 0;
      char *dummy, valstr[128];

      strcpy(valstr, string);
      if (strchr("Hh", LAST_CHAR(valstr)))
      {
            LAST_CHAR(valstr) = NUL;
            radix = 16;
      }
      return strtol(valstr, &dummy, radix);
}

/*
**  Test code follows - compile with TEST macro defined to test
*/

#ifdef TEST

#include <stdio.h>

main(int argc, char *argv[])
{
      long val;

      while (--argc)
      {
            val = hexorint(*(++argv));
            printf("Value of %s = %ld = %#lx\n", *argv, val, val);
      }
      return EXIT_SUCCESS;
}

#endif /* TEST */