# HG changeset patch
# User jwe
# Date 1068661553 0
# Node ID 3680bb30de0b17a87f5d36152ba58e1fa1d64f1f
# Parent  c7d466e9ebb50e7d26b3d2e1aebbea49c6d464e3
[project @ 2003-11-12 18:25:53 by jwe]

diff --git a/src/sysdep.cc b/src/sysdep.cc
--- a/src/sysdep.cc
+++ b/src/sysdep.cc
@@ -630,13 +630,23 @@
 floating point calculations.\n\
 @end deftypefn")
 {
-  oct_mach_info::float_format flt_fmt =
-    oct_mach_info::native_float_format ();
+  oct_mach_info::float_format flt_fmt = oct_mach_info::native_float_format ();
 
   return octave_value (flt_fmt == oct_mach_info::flt_fmt_ieee_little_endian
 		       || flt_fmt == oct_mach_info::flt_fmt_ieee_big_endian);
 }
 
+DEFUN (native_float_format, , ,
+  "-*- texinfo -*-\n\
+@deftypefn {Built-in Function} {} native_float_format ()\n\
+Return the native floating point format as a string\n\
+@end deftypefn")
+{
+  oct_mach_info::float_format flt_fmt = oct_mach_info::native_float_format ();
+
+  return octave_value (oct_mach_info::float_format_as_string (flt_fmt));
+}
+
 DEFUN (tilde_expand, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} tilde_expand (@var{string})\n\