X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fstdlib%2Fstrtox.c;fp=functions%2Fstdlib%2Fstrtox.c;h=0000000000000000000000000000000000000000;hb=a1f747e81dad0bb9897cb11c652403bb7bbf084c;hp=db739529f7e33b90068712b467b1465de12a4fab;hpb=1d9d92ba957a0b8307c9a65c35867fde68e6533b;p=pdclib

diff --git a/functions/stdlib/strtox.c b/functions/stdlib/strtox.c
deleted file mode 100644
index db73952..0000000
--- a/functions/stdlib/strtox.c
+++ /dev/null
@@ -1,149 +0,0 @@
-/* ----------------------------------------------------------------------------
- * $Id$
- * ----------------------------------------------------------------------------
- * Public Domain C Library - http://pdclib.sourceforge.net
- * This code is Public Domain. Use, modify, and redistribute at will.
- * --------------------------------------------------------------------------*/
-
-double atof( const char * s ) { /* TODO */ };
-int atoi( const char * s ) { /* TODO */ };
-long atol( const char * s ) { /* TODO */ };
-long long atoll( const char * s) { /* TODO */ };
-
-double strtod( const char * restrict s, char * * restrict endptr ) { /* TODO */ };
-float strtof( const char * restrict s, char * * restrict endptr ) { /* TODO */ };
-long double strtold( const char * restrict s, char * * restrict endptr ) { /* TODO */ };
-
-long long strtoll( const char * restrict s, char * * restrict endptr, int base ) { /* TODO */ };
-unsigned long long strtoull( const char * restrict s, char * * restrict endptr, int base) { /* TODO */ };
-
-long strtol( const char * restrict s, char * * restrict endptr, int base ) { /* TODO */ };
-unsigned long strtoul( const char * restrict s, char * * restrict endptr, int base) { /* TODO */ };
-
-/* PDPC code - unreviewed, verbatim
-double atof(const char *nptr)
-{
-    return (strtod(nptr, (char **)NULL));
-}
-
-double strtod(const char *nptr, char **endptr)
-{
-    double x = 0.0;
-    
-    while (1)
-    {
-        if (isdigit(*nptr))
-        {
-            x = x * 10 + (*nptr - '0');
-        }
-        else
-        {
-            if (endptr != NULL)
-            {
-                *endptr = (char *)nptr;
-            }
-            break;
-        }
-        nptr++;
-    }
-    return (x);
-}
-
-int atoi(const char *nptr)
-{
-    return ((int)strtol(nptr, (char **)NULL, 10));
-}
-
-long int atol(const char *nptr)
-{
-    return (strtol(nptr, (char **)NULL, 10));
-}
-
-long int strtol(const char *nptr, char **endptr, int base)
-{
-    long x = 0;
-    int undecided = 0;
-    
-    if (base == 0)
-    {
-        undecided = 1;
-    }
-    while (1)
-    {
-        if (isdigit(*nptr))
-        {
-            if (base == 0)
-            {
-                if (*nptr == '0')
-                {
-                    base = 8;
-                }
-                else
-                {
-                    base = 10;
-                    undecided = 0;
-                }
-            }
-            x = x * base + (*nptr - '0');
-            nptr++;
-        }
-        else if (isalpha(*nptr))
-        {
-            if ((*nptr == 'X') || (*nptr == 'x'))
-            {
-                if ((base == 0) || ((base == 8) && undecided))
-                {
-                    base = 16;
-                    undecided = 0;
-                }
-                else
-                {
-                    break;
-                }
-            }
-            else
-            {
-                x = x * base + (toupper((unsigned char)*nptr) - 'A') + 10;
-                nptr++;
-            }
-        }
-        else
-        {
-            break;
-        }
-    }
-    if (endptr != NULL)
-    {
-        *endptr = (char *)nptr;
-    }
-    return (x);
-}
-
-unsigned long int strtoul(const char *nptr, char **endptr, int base)
-{
-    unsigned long x = 0;
-    
-    while (1)
-    {
-        if (isdigit(*nptr))
-        {
-            x = x * base + (*nptr - '0');
-            nptr++;
-        }
-        else if (isalpha(*nptr) && (base > 10))
-        {
-            x = x * base + (toupper((unsigned char)*nptr) - 'A') + 10;
-            nptr++;
-        }
-        else
-        {
-            break;
-        }
-    }
-    if (endptr != NULL)
-    {
-        *endptr = (char *)nptr;
-    }
-    return (x);
-}
-*/