summaryrefslogtreecommitdiff
path: root/Build/source/texk/seetexk/strtol.c
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/seetexk/strtol.c
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/seetexk/strtol.c')
-rw-r--r--Build/source/texk/seetexk/strtol.c56
1 files changed, 56 insertions, 0 deletions
diff --git a/Build/source/texk/seetexk/strtol.c b/Build/source/texk/seetexk/strtol.c
new file mode 100644
index 00000000000..5cb6662fbb6
--- /dev/null
+++ b/Build/source/texk/seetexk/strtol.c
@@ -0,0 +1,56 @@
+#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;
+ }
+}