summaryrefslogtreecommitdiff
path: root/Build/source/texk/seetexk/strtol.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/seetexk/strtol.c')
-rw-r--r--Build/source/texk/seetexk/strtol.c56
1 files changed, 0 insertions, 56 deletions
diff --git a/Build/source/texk/seetexk/strtol.c b/Build/source/texk/seetexk/strtol.c
deleted file mode 100644
index 5cb6662fbb6..00000000000
--- a/Build/source/texk/seetexk/strtol.c
+++ /dev/null
@@ -1,56 +0,0 @@
-#include <stdio.h>
-#include <ctype.h>
-
-/*
- * This is for people who don't have strtol defined on their systems.
- * -- Compliments of Daniel.Stodolsky@cs.cmu.edu
- */
-
-long strtol(nptr,base,eptr)
-char *nptr;
-int base;
-char **eptr;
-{
- long l;
-
- if (base==10)
- {
- if (sscanf(nptr,"%ld",&l)!=1)
- {
- *eptr = nptr;
- return 0;
- }
- else
- {
- while(!isdigit(*nptr))
- nptr++;
- while (isdigit(*nptr))
- nptr++;
- *eptr = nptr;
- return l;
- }
- }
- else
- if (base==16)
- {
- if (sscanf(nptr,"%lx",&l)!=1)
- {
- *eptr = nptr;
- return 0;
- }
- else
- {
- while(!isxdigit(*nptr))
- nptr++;
- while (isxdigit(*nptr))
- nptr++;
- *eptr = nptr;
- return l;
- }
- }
- else
- { /* a base we don't understand. Puke */
- *eptr = nptr;
- return 0;
- }
-}