mystring.c, drop auxiliary implementations of np_round() and np_trunc()

This commit is contained in:
rlar 2014-05-24 12:53:18 +02:00
parent 4abb068405
commit c1bd74f982
1 changed files with 0 additions and 47 deletions

View File

@ -599,51 +599,6 @@ spos_(char *sub, const char *s)
}
#ifndef HAVE_LIBM
long
np_round(double x)
/* using <math.h>, it would be simpler: floor(x+0.5), see below */
{
double u;
long z;
int n;
// Str (40, s);
SPICE_DSTRING s;
spice_dstring_init(&s);
u = 2e9;
if (x > u)
x = u;
else if (x < -u)
x = -u;
n = sprintf(s, "%-12.0f", x);
s[n] = 0;
sscanf(s, "%ld", &z);
return z;
}
long
np_trunc(double x)
{
long n = np_round(x);
if ((n > x) && (x >= 0.0))
n--;
else if ((n < x) && (x < 0.0))
n++;
return n;
}
#else /* use floor() and ceil() */
long
np_round(double r)
{
@ -659,5 +614,3 @@ np_trunc(double r)
else
return (long) ceil(r);
}
#endif