52 #define INIT_FLT_PAR(fp, fmt, sm1, sm2, lrg1, lrg2, rt1, rt2, dv1, dv2) \
56 fp.fp_par[0].i[0] = (sm1); fp.fp_par[0].i[1] = (sm2); \
57 fp.fp_par[1].i[0] = (lrg1); fp.fp_par[1].i[1] = (lrg2); \
58 fp.fp_par[2].i[0] = (rt1); fp.fp_par[2].i[1] = (rt2); \
59 fp.fp_par[3].i[0] = (dv1); fp.fp_par[3].i[1] = (dv2); \
67 for (i = 0; i < len; i++)
68 if (v[i].i[0] != std[i].i[0] || v[i].i[1] != std[i].i[1])
127 char c[
sizeof (long)];
132 return (u.c[sizeof (
long) - 1] == 1);
154 (*current_liboctave_error_handler)
155 (
"unable to create command history object!");
189 if (s ==
"native" || s ==
"n")
191 else if (s ==
"ieee-be" || s ==
"b")
193 else if (s ==
"ieee-le" || s ==
"l")
195 else if (s ==
"unknown")
199 (
"invalid architecture type specified");
207 std::string retval =
"unknown";
double F77_FUNC(d1mach, D1MACH)(const octave_idx_type &)
static std::string float_format_as_string(float_format)
static oct_mach_info * instance
float_format native_float_fmt
double precision function d1mach(i)
static float_format string_to_float_format(const std::string &)
liboctave_error_handler current_liboctave_error_handler
static bool words_little_endian(void)
static bool words_big_endian(void)
static bool instance_ok(void)
static float_format native_float_format(void)
static oct_mach_info::float_format get_float_format(void)
#define INIT_FLT_PAR(fp, fmt, sm1, sm2, lrg1, lrg2, rt1, rt2, dv1, dv2)
static void cleanup_instance(void)
oct_mach_info::float_format fp_fmt
static bool ten_little_endians(void)
static int equiv_compare(const equiv *std, const equiv *v, int len)