remove unused _sfstrtod()

diff --git a/lib/sfio/Makefile.am b/lib/sfio/Makefile.am
index 708b8b3718f39d2a8163c03a757c24bfc4c31fda..ad7f65bcb20ea29f78950218b0a2fa3b9f16bd2b 100644 (file)
--- a/lib/sfio/Makefile.am
+++ b/lib/sfio/Makefile.am
@@ -16,7 +16,7 @@ libsfio_C_la_SOURCES = sfclose.c sfcvt.c sfdisc.c \
        sfprintf.c \
        sfputr.c sfraise.c sfrd.c sfread.c \
        sfresize.c sfscanf.c sfseek.c sfsetbuf.c sfsetfd.c \
-       sfsk.c sfstack.c sfstrtod.c sfswap.c sfsync.c \
+       sfsk.c sfstack.c sfswap.c sfsync.c \
        sftable.c sftell.c sftmp.c sfungetc.c sfvprintf.c \
        sfvscanf.c sfwr.c sfwrite.c
 

diff --git a/lib/sfio/sfhdr.h b/lib/sfio/sfhdr.h
index 48f4b786f1621ba321d868ea75faf6c7e51a2cf2..179de33f605c5b622dfcc229bdb85bb31d02f049 100644 (file)
--- a/lib/sfio/sfhdr.h
+++ b/lib/sfio/sfhdr.h
@@ -681,7 +681,6 @@ extern "C" {
     extern int _sfsetpool(Sfio_t *);
     extern char *_sfcvt(void *, int, int *, int *, int);
     extern char **_sfgetpath(char *);
-    extern Sfdouble_t _sfstrtod(const char *, char **);
 
 #ifndef errno
     extern int errno;

diff --git a/lib/sfio/sfio.vcxproj b/lib/sfio/sfio.vcxproj
index 2d8e2da289efa85f2e31916824e0ad880dac61ec..7cc7dc80661de9028afe9b507ee83f74f577c7e8 100644 (file)
--- a/lib/sfio/sfio.vcxproj
+++ b/lib/sfio/sfio.vcxproj
@@ -111,7 +111,6 @@
     <ClCompile Include="sfsetfd.c" />
     <ClCompile Include="sfsk.c" />
     <ClCompile Include="sfstack.c" />
-    <ClCompile Include="sfstrtod.c" />
     <ClCompile Include="sfswap.c" />
     <ClCompile Include="sfsync.c" />
     <ClCompile Include="sftable.c" />

diff --git a/lib/sfio/sfio.vcxproj.filters b/lib/sfio/sfio.vcxproj.filters
index 366224108f85877ef8aec5bf3973170eba77de70..628eade43b7ddb45624351d8ca5a17b5edebba9f 100644 (file)
--- a/lib/sfio/sfio.vcxproj.filters
+++ b/lib/sfio/sfio.vcxproj.filters
@@ -116,9 +116,6 @@
     <ClCompile Include="sfstack.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="sfstrtod.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="sfswap.c">
       <Filter>Source Files</Filter>
     </ClCompile>

diff --git a/lib/sfio/sfstrtod.c b/lib/sfio/sfstrtod.c
deleted file mode 100644 (file)
index e5b6fa9..0000000
--- a/lib/sfio/sfstrtod.c
+++ /dev/null
@@ -1,135 +0,0 @@
-/* $Id$ $Revision$ */
-/* vim:set shiftwidth=4 ts=8: */
-
-/*************************************************************************
- * Copyright (c) 2011 AT&T Intellectual Property 
- * All rights reserved. This program and the accompanying materials
- * are made available under the terms of the Eclipse Public License v1.0
- * which accompanies this distribution, and is available at
- * http://www.eclipse.org/legal/epl-v10.html
- *
- * Contributors: See CVS logs. Details at http://www.graphviz.org/
- *************************************************************************/
-
-#include       <sfio/sfhdr.h>
-
-/*     Convert a Sfdouble_t value represented in an ASCII format into
-**     the internal Sfdouble_t representation.
-**
-**     Written by Kiem-Phong Vo.
-*/
-
-#define BATCH  (2*sizeof(int)) /* accumulate this many digits at a time */
-#define IPART          0       /* doing integer part */
-#define FPART          1       /* doing fractional part */
-#define EPART          2       /* doing exponent part */
-
-static Sfdouble_t sfpow10(int n)
-{
-    Sfdouble_t dval;
-
-    switch (n) {
-    case -3:
-       return .001;
-    case -2:
-       return .01;
-    case -1:
-       return .1;
-    case 0:
-       return 1.;
-    case 1:
-       return 10.;
-    case 2:
-       return 100.;
-    case 3:
-       return 1000.;
-    }
-
-    if (n < 0) {
-       dval = .0001;
-       for (n += 4; n < 0; n += 1)
-           dval /= 10.;
-    } else {
-       dval = 10000.;
-       for (n -= 4; n > 0; n -= 1)
-           dval *= 10.;
-    }
-
-    return dval;
-}
-
-/**
- * @param s string to convert
- * @param retp to return the remainder of string
- */
-Sfdouble_t _sfstrtod(const char *s, char **retp)
-{
-    int n, c, m;
-    int mode, fexp, sign, expsign;
-    Sfdouble_t dval;
-    char decpoint = 0, thousand;
-    SFSETLOCALE(decpoint, thousand);
-
-    /* skip initial blanks */
-    while (isspace(*s))
-       ++s;
-
-    /* get the sign */
-    if ((sign = (*s == '-')) || *s == '+')
-       s += 1;
-
-    mode = IPART;
-    fexp = expsign = 0;
-    dval = 0.;
-    while (*s) {               /* accumulate a handful of the digits */
-       for (m = BATCH, n = 0; m > 0; --m, ++s) {       /* get and process a char */
-           c = *s;
-           if (isdigit(c))
-               n = 10 * n + (c - '0');
-           else
-               break;
-       }
-
-       /* number of digits accumulated */
-       m = BATCH - m;
-
-       if (mode == IPART) {    /* doing the integer part */
-           if (dval == 0.)
-               dval = (Sfdouble_t) n;
-           else
-               dval = dval * sfpow10(m) + (Sfdouble_t) n;
-       } else if (mode == FPART) {     /* doing the fractional part */
-           fexp -= m;
-           if (n > 0)
-               dval += n * sfpow10(fexp);
-       } else if (n) {         /* doing the exponent part */
-           if (expsign)
-               n = -n;
-           dval *= sfpow10(n);
-       }
-
-       if (!c)
-           break;
-
-       if (m < BATCH) {        /* detected a non-digit */
-           if (c == decpoint) {        /* start the fractional part or no match */
-               if (mode != IPART)
-                   break;
-               mode = FPART;
-               s += 1;
-           } else if (c == 'e' || c == 'E') {
-               if (mode == EPART)
-                   break;
-               mode = EPART;
-               c = *++s;
-               if ((expsign = (c == '-')) || c == '+')
-                   s += 1;
-           } else
-               break;
-       }
-    }
-
-    if (retp)
-       *retp = (char *) s;
-    return sign ? -dval : dval;
-}