Mercurial > hg > octave-lyh
changeset 862:61d83ce7368c
[project @ 1994-10-31 20:39:30 by jwe]
author | jwe |
---|---|
date | Mon, 31 Oct 1994 20:39:30 +0000 |
parents | 67eb44488be5 |
children | a2e030473d6d |
files | src/sysdep.cc |
diffstat | 1 files changed, 37 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/sysdep.cc +++ b/src/sysdep.cc @@ -478,6 +478,43 @@ return retval; } +// XXX FIXME XXX -- maybe this should only return 1 if IEEE floating +// point functions really work. + +DEFUN ("isieee", Fisieee, Sisieee, 1, 1, + "isieee (): return 1 if host uses IEEE floating point") +{ + Octave_object retval; + +#if defined (IEEE_BIG_ENDIAN) || defined (IEEE_LITTLE_ENDIAN) + retval = 1.0; +#else + retval = 0.0; +#endif + + return retval; +} + +DEFUN ("realmax", Frealmax, Srealmax, 0, 1, + "realmax (): return largest representable floating point number") +{ + Octave_object retval; + + retval = DBL_MAX; + + return retval; +} + +DEFUN ("realmin", Frealmin, Srealmin, 0, 1, + "realmin (): return smallest representable floating point number") +{ + Octave_object retval; + + retval = DBL_MIN; + + return retval; +} + #if !defined (HAVE_GETHOSTNAME) && defined (HAVE_SYS_UTSNAME_H) extern "C" {