plugins/libukcprog/strtol.c

/* strtol.c - strtol, for machines that don't have it */

/*  Copyright 1991 Mark Russell, University of Kent at Canterbury. */

char ukcprog_strtol_sccsid[] = "$Id: strtol.c,v 1.1 2002/03/08 14:37:29 tdb Exp $ UKC";

#if defined(clipper) || (defined(vax) && !defined(ultrix))

#include <ctype.h>
#include <stdlib.h>

#define NO_STRTOL
#endif

#ifdef NO_STRTOL
long
strtol(nptr, eptr, base)
const char *nptr;
char **eptr;
int base;
{
        const char *s, *save_s;
        long val;

        for (s = nptr; *s != '\0' && isspace(*s); ++s)
                ;
        
        if (base > 36) {
                base = 10;
        }
        else if (base == 16) {
                if (*s == '0' && (s[1] == 'x' || s[1] == 'X'))
                        s += 2;
        }
        else if (base == 0) {
                if (*s == '0') {
                        ++s;
                        if (*s == 'x' || *s == 'X') {
                                ++s;
                                base = 16;
                        }
                        else if (isdigit(*s))
                                base = 8;
                        else {
                                --s;
                                base = 10;
                        }
                }
                else
                        base = 10;
        }

        val = 0;
        for (save_s = s; *s != '\0'; ++s) {
                int digit;

                if (isdigit(*s))
                        digit = *s - '0';
                else if (isupper(*s))
                        digit = *s - 'A' + 10;
                else if (islower(*s))
                        digit = *s - 'a' + 10;
                else
                        break;
                if (digit >= base)
                        break;
                
                val = val * base + digit;
        }
        if (s == save_s)
                s = nptr;

        if (eptr != NULL)
                *eptr = (char *)((s > save_s) ? s : nptr);
        
        return val;
}
#endif /* clipper || vax */
Revision:	1.2
Committed:	Fri Mar 28 16:30:32 2003 UTC (21 years, 7 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+1 -1 lines
State:	*FILE REMOVED*
Log Message:	Removed some un-used code from CVS. We can always resurrect this later if someone feels they want to work on it. Gone are the old perl ihost which isn't needed now, winhost which is broken and shows no sign of being fixed, and DBReporter. If someone wants to revive them, I'll undelete them :-)
#	Content
1	/* strtol.c - strtol, for machines that don't have it */
2
3	/* Copyright 1991 Mark Russell, University of Kent at Canterbury. */
4
5	char ukcprog_strtol_sccsid[] = "$Id: strtol.c,v 1.1 2002/03/08 14:37:29 tdb Exp $ UKC";
6
7	#if defined(clipper) \|\| (defined(vax) && !defined(ultrix))
8
9	#include <ctype.h>
10	#include <stdlib.h>
11
12	#define NO_STRTOL
13	#endif
14
15	#ifdef NO_STRTOL
16	long
17	strtol(nptr, eptr, base)
18	const char *nptr;
19	char **eptr;
20	int base;
21	{
22	const char s, save_s;
23	long val;
24
25	for (s = nptr; s != '\0' && isspace(s); ++s)
26	;
27
28	if (base > 36) {
29	base = 10;
30	}
31	else if (base == 16) {
32	if (*s == '0' && (s[1] == 'x' \|\| s[1] == 'X'))
33	s += 2;
34	}
35	else if (base == 0) {
36	if (*s == '0') {
37	++s;
38	if (s == 'x' \|\| s == 'X') {
39	++s;
40	base = 16;
41	}
42	else if (isdigit(*s))
43	base = 8;
44	else {
45	--s;
46	base = 10;
47	}
48	}
49	else
50	base = 10;
51	}
52
53	val = 0;
54	for (save_s = s; *s != '\0'; ++s) {
55	int digit;
56
57	if (isdigit(*s))
58	digit = *s - '0';
59	else if (isupper(*s))
60	digit = *s - 'A' + 10;
61	else if (islower(*s))
62	digit = *s - 'a' + 10;
63	else
64	break;
65	if (digit >= base)
66	break;
67
68	val = val * base + digit;
69	}
70	if (s == save_s)
71	s = nptr;
72
73	if (eptr != NULL)
74	eptr = (char )((s > save_s) ? s : nptr);
75
76	return val;
77	}
78	#endif /* clipper \|\| vax */