GNU Octave  8.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
Macros | Functions
data-conv.cc File Reference
#include <cctype>
#include <cstdlib>
#include <istream>
#include <limits>
#include <ostream>
#include <vector>
#include "byte-swap.h"
#include "data-conv.h"
#include "lo-error.h"
#include "lo-ieee.h"
#include "oct-locbuf.h"
Include dependency graph for data-conv.cc:

Go to the source code of this file.

Macros

#define FIND_SIZED_FLOAT_TYPE(VAL, BITS)
 
#define FIND_SIZED_INT_TYPE(VAL, BITS, TQ, Q)
 
#define GET_SIZED_INT_TYPE(T, U)
 
#define LS_DO_READ(TYPE, swap, data, size, len, stream)
 
#define LS_DO_WRITE(TYPE, data, size, len, stream)
 

Functions

void do_double_format_conversion (void *data, octave_idx_type len, octave::mach_info::float_format from_fmt, octave::mach_info::float_format to_fmt)
 
void do_float_format_conversion (void *data, octave_idx_type len, octave::mach_info::float_format from_fmt, octave::mach_info::float_format to_fmt)
 
void do_float_format_conversion (void *data, std::size_t sz, octave_idx_type len, octave::mach_info::float_format from_fmt, octave::mach_info::float_format to_fmt)
 
static OCTAVE_NORETURN void err_unrecognized_float_fmt (void)
 
static void IEEE_big_double_to_IEEE_little_double (void *d, octave_idx_type len)
 
static void IEEE_big_float_to_IEEE_little_float (void *d, octave_idx_type len)
 
static void IEEE_little_double_to_IEEE_big_double (void *d, octave_idx_type len)
 
static void IEEE_little_float_to_IEEE_big_float (void *d, octave_idx_type len)
 
static void init_sized_type_lookup_table (oct_data_conv::data_type table[3][4])
 
void read_doubles (std::istream &is, double *data, save_type type, octave_idx_type len, bool swap, octave::mach_info::float_format fmt)
 
void read_floats (std::istream &is, float *data, save_type type, octave_idx_type len, bool swap, octave::mach_info::float_format fmt)
 
static std::string strip_spaces (const std::string &str)
 
void write_doubles (std::ostream &os, const double *data, save_type type, octave_idx_type len)
 
void write_floats (std::ostream &os, const float *data, save_type type, octave_idx_type len)
 

Macro Definition Documentation

◆ FIND_SIZED_FLOAT_TYPE

#define FIND_SIZED_FLOAT_TYPE (   VAL,
  BITS 
)
Value:
do \
{ \
int sz = BITS / std::numeric_limits<unsigned char>::digits; \
if (sizeof (float) == sz) \
VAL = oct_data_conv::dt_float; \
else if (sizeof (double) == sz) \
VAL = oct_data_conv::dt_double; \
else \
VAL = oct_data_conv::dt_unknown; \
} \
while (0)
oct_data_conv::dt_double
@ dt_double
Definition: data-conv.h:51
oct_data_conv::dt_unknown
@ dt_unknown
Definition: data-conv.h:65
oct_data_conv::dt_float
@ dt_float
Definition: data-conv.h:64

Definition at line 87 of file data-conv.cc.

◆ FIND_SIZED_INT_TYPE

#define FIND_SIZED_INT_TYPE (   VAL,
  BITS,
  TQ,
  Q 
)
Value:
do \
{ \
int sz = BITS / std::numeric_limits<unsigned char>::digits; \
if (sizeof (TQ char) == sz) \
VAL = oct_data_conv::dt_ ## Q ## char; \
else if (sizeof (TQ short) == sz) \
VAL = oct_data_conv::dt_ ## Q ## short; \
else if (sizeof (TQ int) == sz) \
VAL = oct_data_conv::dt_ ## Q ## int; \
else if (sizeof (TQ long) == sz) \
VAL = oct_data_conv::dt_ ## Q ## long; \
else \
VAL = oct_data_conv::dt_unknown; \
} \
while (0)
Q
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * Q
Definition: lo-lapack-proto.h:995

Definition at line 69 of file data-conv.cc.

◆ GET_SIZED_INT_TYPE

#define GET_SIZED_INT_TYPE (   T,
  U 
)
Value:
do \
{ \
switch (sizeof (T)) \
{ \
case 1: \
retval = dt_ ## U ## int8; \
break; \
\
case 2: \
retval = dt_ ## U ## int16; \
break; \
\
case 4: \
retval = dt_ ## U ## int32; \
break; \
\
case 8: \
retval = dt_ ## U ## int64; \
break; \
\
default: \
retval = dt_unknown; \
break; \
} \
} \
while (0)

Definition at line 158 of file data-conv.cc.

◆ LS_DO_READ

#define LS_DO_READ (   TYPE,
  swap,
  data,
  size,
  len,
  stream 
)
Value:
do \
{ \
if (len > 0) \
{ \
OCTAVE_LOCAL_BUFFER (TYPE, ptr, len); \
std::streamsize n_bytes = size * static_cast<std::streamsize> (len); \
stream.read (reinterpret_cast<char *> (ptr), n_bytes); \
if (swap) \
swap_bytes< size > (ptr, len); \
for (octave_idx_type i = 0; i < len; i++) \
data[i] = ptr[i]; \
} \
} \
while (0)
octave_idx_type
len
F77_RET_T len
Definition: xerbla.cc:61

Definition at line 580 of file data-conv.cc.

◆ LS_DO_WRITE

#define LS_DO_WRITE (   TYPE,
  data,
  size,
  len,
  stream 
)
Value:
do \
{ \
if (len > 0) \
{ \
char tmp_type = type; \
stream.write (&tmp_type, 1); \
OCTAVE_LOCAL_BUFFER (TYPE, ptr, len); \
for (octave_idx_type i = 0; i < len; i++) \
ptr[i] = static_cast<TYPE> (data[i]); \
std::streamsize n_bytes = size * static_cast<std::streamsize> (len); \
stream.write (reinterpret_cast<char *> (ptr), n_bytes); \
} \
} \
while (0)

Definition at line 599 of file data-conv.cc.

Function Documentation

◆ do_double_format_conversion()

void do_double_format_conversion ( void *  data,
octave_idx_type  len,
octave::mach_info::float_format  from_fmt,
octave::mach_info::float_format  to_fmt 
)

Definition at line 659 of file data-conv.cc.

References err_unrecognized_float_fmt(), flt_fmt_ieee_big_endian, flt_fmt_ieee_little_endian, IEEE_big_double_to_IEEE_little_double(), IEEE_little_double_to_IEEE_big_double(), and len.

Referenced by convert_data(), do_float_format_conversion(), read_doubles(), and read_floats().

◆ do_float_format_conversion() [1/2]

void do_float_format_conversion ( void *  data,
octave_idx_type  len,
octave::mach_info::float_format  from_fmt,
octave::mach_info::float_format  to_fmt 
)

Definition at line 706 of file data-conv.cc.

References err_unrecognized_float_fmt(), flt_fmt_ieee_big_endian, flt_fmt_ieee_little_endian, IEEE_big_float_to_IEEE_little_float(), IEEE_little_float_to_IEEE_big_float(), and len.

Referenced by convert_and_copy(), convert_data(), do_float_format_conversion(), read_doubles(), and read_floats().

◆ do_float_format_conversion() [2/2]

void do_float_format_conversion ( void *  data,
std::size_t  sz,
octave_idx_type  len,
octave::mach_info::float_format  from_fmt,
octave::mach_info::float_format  to_fmt 
)

Definition at line 753 of file data-conv.cc.

References do_double_format_conversion(), do_float_format_conversion(), and len.

◆ err_unrecognized_float_fmt()

static OCTAVE_NORETURN void err_unrecognized_float_fmt ( void  )
static

Definition at line 619 of file data-conv.cc.

Referenced by do_double_format_conversion(), and do_float_format_conversion().

◆ IEEE_big_double_to_IEEE_little_double()

static void IEEE_big_double_to_IEEE_little_double ( void *  d,
octave_idx_type  len 
)
static

Definition at line 635 of file data-conv.cc.

References d, len, and swap_bytes< 8 >().

Referenced by do_double_format_conversion().

◆ IEEE_big_float_to_IEEE_little_float()

static void IEEE_big_float_to_IEEE_little_float ( void *  d,
octave_idx_type  len 
)
static

Definition at line 641 of file data-conv.cc.

References d, len, and swap_bytes< 4 >().

Referenced by do_float_format_conversion().

◆ IEEE_little_double_to_IEEE_big_double()

static void IEEE_little_double_to_IEEE_big_double ( void *  d,
octave_idx_type  len 
)
static

Definition at line 647 of file data-conv.cc.

References d, len, and swap_bytes< 8 >().

Referenced by do_double_format_conversion().

◆ IEEE_little_float_to_IEEE_big_float()

static void IEEE_little_float_to_IEEE_big_float ( void *  d,
octave_idx_type  len 
)
static

Definition at line 653 of file data-conv.cc.

References d, len, and swap_bytes< 4 >().

Referenced by do_float_format_conversion().

◆ init_sized_type_lookup_table()

static void init_sized_type_lookup_table ( oct_data_conv::data_type  table[3][4])
static

Definition at line 124 of file data-conv.cc.

References FIND_SIZED_FLOAT_TYPE, and FIND_SIZED_INT_TYPE.

Referenced by oct_data_conv::string_to_data_type().

◆ read_doubles()

void read_doubles ( std::istream &  is,
double *  data,
save_type  type,
octave_idx_type  len,
bool  swap,
octave::mach_info::float_format  fmt 
)

Definition at line 776 of file data-conv.cc.

References do_double_format_conversion(), do_float_format_conversion(), len, LS_CHAR, LS_DO_READ, LS_DOUBLE, LS_FLOAT, LS_INT, LS_SHORT, LS_U_CHAR, LS_U_INT, LS_U_SHORT, and OCTAVE_LOCAL_BUFFER.

Referenced by octave_complex::load_binary(), octave_complex_diag_matrix::load_binary(), octave_complex_matrix::load_binary(), octave_sparse_complex_matrix::load_binary(), octave_diag_matrix::load_binary(), octave_matrix::load_binary(), octave_sparse_matrix::load_binary(), octave_scalar::load_binary(), read_mat5_binary_data(), and read_mat_binary_data().

◆ read_floats()

void read_floats ( std::istream &  is,
float *  data,
save_type  type,
octave_idx_type  len,
bool  swap,
octave::mach_info::float_format  fmt 
)

Definition at line 836 of file data-conv.cc.

References do_double_format_conversion(), do_float_format_conversion(), len, LS_CHAR, LS_DO_READ, LS_DOUBLE, LS_FLOAT, LS_INT, LS_SHORT, LS_U_CHAR, LS_U_INT, LS_U_SHORT, and OCTAVE_LOCAL_BUFFER.

Referenced by octave_float_scalar::load_binary(), octave_float_complex::load_binary(), octave_float_complex_diag_matrix::load_binary(), octave_float_complex_matrix::load_binary(), octave_float_diag_matrix::load_binary(), octave_float_matrix::load_binary(), and read_mat5_binary_data().

◆ strip_spaces()

static std::string strip_spaces ( const std::string &  str)
static

Definition at line 141 of file data-conv.cc.

References n.

Referenced by oct_data_conv::string_to_data_type().

◆ write_doubles()

void write_doubles ( std::ostream &  os,
const double *  data,
save_type  type,
octave_idx_type  len 
)

Definition at line 892 of file data-conv.cc.

References len, LS_CHAR, LS_DO_WRITE, LS_DOUBLE, LS_FLOAT, LS_INT, LS_SHORT, LS_U_CHAR, LS_U_INT, and LS_U_SHORT.

Referenced by octave_complex_diag_matrix::save_binary(), octave_complex_matrix::save_binary(), octave_sparse_complex_matrix::save_binary(), octave_diag_matrix::save_binary(), octave_matrix::save_binary(), and octave_sparse_matrix::save_binary().

◆ write_floats()

void write_floats ( std::ostream &  os,
const float *  data,
save_type  type,
octave_idx_type  len 
)

Definition at line 942 of file data-conv.cc.

References len, LS_CHAR, LS_DO_WRITE, LS_DOUBLE, LS_FLOAT, LS_INT, LS_SHORT, LS_U_CHAR, LS_U_INT, and LS_U_SHORT.

Referenced by octave_float_complex_diag_matrix::save_binary(), octave_float_complex_matrix::save_binary(), octave_float_diag_matrix::save_binary(), and octave_float_matrix::save_binary().