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	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"
 {