diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
| commit | 3950ffe2a485479f6561c27364d3d7df5a21d124 (patch) | |
| tree | 468c6e14449d1b1e279222ec32f676b0311917d2 /src/lib/libast/uwin/rint.c | |
| download | ksh-upstream.tar.gz | |
Imported Upstream version 93u+upstream
Diffstat (limited to 'src/lib/libast/uwin/rint.c')
| -rw-r--r-- | src/lib/libast/uwin/rint.c | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/src/lib/libast/uwin/rint.c b/src/lib/libast/uwin/rint.c new file mode 100644 index 0000000..9c88011 --- /dev/null +++ b/src/lib/libast/uwin/rint.c @@ -0,0 +1,41 @@ +/*********************************************************************** +* * +* This software is part of the ast package * +* Copyright (c) 1985-2011 AT&T Intellectual Property * +* and is licensed under the * +* Eclipse Public License, Version 1.0 * +* by AT&T Intellectual Property * +* * +* A copy of the License is available at * +* http://www.eclipse.org/org/documents/epl-v10.html * +* (with md5 checksum b35adb5213ca9657e911e9befb180842) * +* * +* Information and Software Systems Research * +* AT&T Research * +* Florham Park NJ * +* * +* Glenn Fowler <gsf@research.att.com> * +* David Korn <dgk@research.att.com> * +* Phong Vo <kpv@research.att.com> * +* * +***********************************************************************/ +#include "FEATURE/uwin" + +#if !_UWIN || _lib_ceil && _lib_floor && _lib_rint + +void _STUB_rint(){} + +#else + +#include <math.h> + +extern double rint(x) +double x; +{ + double d = floor((x+=.5)); + if(d==x && d/2.!=floor(d/2)) + d = d-1; + return(d); +} + +#endif |