# HG changeset patch # User jwe # Date 783635970 0 # Node ID 61d83ce7368ca1512274bf586661711edc240a7a # Parent 67eb44488be5ca80bccf40a3a414f1cbbd0d2079 [project @ 1994-10-31 20:39:30 by jwe] diff -r 67eb44488be5 -r 61d83ce7368c src/sysdep.cc --- a/src/sysdep.cc Mon Oct 31 20:25:56 1994 +0000 +++ b/src/sysdep.cc Mon Oct 31 20:39:30 1994 +0000 @@ -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" {