23 #if defined (HAVE_CONFIG_H)
54 #define INIT_FLT_PAR(fp, fmt, sm1, sm2, lrg1, lrg2, rt1, rt2, dv1, dv2) \
58 fp.fp_par[0].i[0] = (sm1); fp.fp_par[0].i[1] = (sm2); \
59 fp.fp_par[1].i[0] = (lrg1); fp.fp_par[1].i[1] = (lrg2); \
60 fp.fp_par[2].i[0] = (rt1); fp.fp_par[2].i[1] = (rt2); \
61 fp.fp_par[3].i[0] = (dv1); fp.fp_par[3].i[1] = (dv2); \
69 for (i = 0; i < len; i++)
70 if (v[i].i[0] != std[i].i[0] || v[i].i[1] != std[i].i[1])
100 equiv mach_fp_par[4];
129 char c[
sizeof (long)];
134 return (
u.c[sizeof (
long) - 1] == 1);
155 (*current_liboctave_error_handler)
156 (
"unable to create command history object!");
187 if (s ==
"native" || s ==
"n")
189 else if (s ==
"ieee-be" || s ==
"b")
191 else if (s ==
"ieee-le" || s ==
"l")
193 else if (s ==
"unknown")
float_format native_float_fmt
static int equiv_compare(const equiv *std, const equiv *v, int len)
double F77_FUNC(d1mach, D1MACH)(const octave_idx_type &)
Octave interface to the compression and uncompression libraries.
static mach_info * instance
static bool ten_little_endians(void)
OCTAVE_NORETURN liboctave_error_handler current_liboctave_error_handler
double precision function d1mach(i)
octave::mach_info::float_format flt_fmt
static bool words_little_endian(void)
static float_format string_to_float_format(const std::string &)
static bool words_big_endian(void)
static void cleanup_instance(void)
static bool instance_ok(void)
static std::string float_format_as_string(float_format)
the sparsity preserving column transformation such that that defines the pivoting threshold can be given in which case it defines the c
static float_format native_float_format(void)
=val(i)}if ode{val(i)}occurs in table i
mach_info::float_format fp_fmt
static mach_info::float_format get_float_format(void)
#define INIT_FLT_PAR(fp, fmt, sm1, sm2, lrg1, lrg2, rt1, rt2, dv1, dv2)
If this string is the system will ring the terminal sometimes it is useful to be able to print the original representation of the string