File: strtol.c

package info (click to toggle)
trueprint 5.3-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny, squeeze, wheezy
  • size: 1,744 kB
  • ctags: 728
  • sloc: ansic: 8,296; sh: 1,225; makefile: 138
file content (22 lines) | stat: -rw-r--r-- 350 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
/*
 * Stub for strtol - only works with base 10
 */
long int strtol(const char *nptr, char **endptr, int base)
{
  long int retval = 0;
  char *cptr;

  if (base != 10)
    abort();

  *endptr = nptr;

  while (('0' <= **endptr) && (**endptr <= '9'))
    {
      retval = retval * 10 + (**endptr - '0');
      (*endptr)++;
    }

  return retval;
}