Mercurial > octave-nkf

changeset 4600:3680bb30de0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-11-12 18:25:53 by jwe]
author jwe
date Wed, 12 Nov 2003 18:25:53 +0000
parents c7d466e9ebb5
children 1ed6cfbc8ea4
files src/sysdep.cc
diffstat 1 files changed, 12 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/sysdep.cc	Wed Nov 12 17:48:31 2003 +0000
+++ b/src/sysdep.cc	Wed Nov 12 18:25:53 2003 +0000
@@ -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\