Mercurial > hg > octave-lojdl
changeset 4600:3680bb30de0b
[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 +++ 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\