---

util_unformatted_io.C

Go to the documentation of this file.

       //=======================================================//    _\|/_
      //  __  _____           ___                    ___       //      /|\ ~
     //  /      |      ^     |   \  |         ^     |   \     //          _\|/_
    //   \__    |     / \    |___/  |        / \    |___/    //            /|\ ~
   //       \   |    /___\   |  \   |       /___\   |   \   // _\|/_
  //     ___/   |   /     \  |   \  |____  /     \  |___/  //   /|\ ~
 //                                                       //            _\|/_
//=======================================================//              /|\ ~

// util_unformatted_io.C:  functions for unformatted I/O.  May require lowering
//                         the optimization level with some compilers...

#include "starlab_vector.h"
#include "util_io.h"
#include "story.h"
#include <ctype.h>

// Until we get an official word from autoconf,
// try to guess whether we're little-endian or not.

#ifndef WORDS_BIGENDIAN
# if MIPSEB || __MIPSEB || __MIPSEB__ || sparc || __sparc || __sparc__
#  define WORDS_BIGENDIAN 1
# elif i386 || __i386__ || alpha || __alpha__ || MIPSEL || __MIPSEL || __MIPSEL__
#  define WORDS_BIGENDIAN 0
# else
#  error  Is this machine big- or little-endian?  Need to define WORDS_BIGENDIAN=0 or 1
# endif
#endif

#undef isalnum          /* Hacks for Irix 6.5 <ctype.h> backward compatibility */
#undef isspace

void write_unformatted_real( ostream & s, real v )
{
#if WORDS_BIGENDIAN
    s.write( (char *)&v, 8 );
#else
    unsigned long long lv = *(unsigned long long *)&v;
    lv = (lv>>32) | (lv<<32);
    lv = (lv&0x0000FFFF0000FFFFLL)<<16
       | (lv>>16)&0x0000FFFF0000FFFFLL;
    lv = (lv&0x00FF00FF00FF00FFLL)<<8
       | (lv>>8)&0x00FF00FF00FF00FFLL;
    s.write( (char *)&lv, 8 );
#endif
}

void write_unformatted32_real( ostream & s, real v )
{
    float f = v;
#if WORDS_BIGENDIAN
    s.write( (char *)&f, 4 );
#else
    unsigned int l = (*(unsigned int *)&f)>>16 | (*(unsigned int *)&f)<<16;
    l = (l&0x00FF00FF)<<8
      | (l>>8)&0x00FF00FF;
    s.write( (char *)&l, 4 );
#endif
}

void write_unformatted_vector( ostream & s, vector & v )
{
    write_unformatted_real( s, v[0] );
    write_unformatted_real( s, v[1] );
    write_unformatted_real( s, v[2] );
}

void write_unformatted32_vector( ostream & s, vector & v )
{
    write_unformatted32_real( s, v[0] );
    write_unformatted32_real( s, v[1] );
    write_unformatted32_real( s, v[2] );
}

real read_unformatted_real( istream & s )
{
#if WORDS_BIGENDIAN
    real r;
    s.read( (char *)&r, 8 );
    return r;
#else
    unsigned long long lv;
    s.read( (char *)&lv, 8 );
    lv = (lv>>32) | (lv<<32);
    lv = (lv&0x0000FFFF0000FFFFLL)<<16
       | (lv>>16)&0x0000FFFF0000FFFFLL;
    lv = (lv&0x00FF00FF00FF00FFLL)<<8
       | (lv>>8)&0x00FF00FF00FF00FFLL;
    return *(real *)&lv;
#endif
}

real read_unformatted32_real( istream & s )
{
#if WORDS_BIGENDIAN
    float f;
    s.read( (char *)&f, 4 );
    return f;
#else
    unsigned int iv;
    s.read( (char *)&iv, 4 );
    iv = (iv>>16) | (iv<<16);
    iv = (iv&0x00FF00FF)<<8
        | (iv>>8)&0x00FF00FF;
    return *(float *)&iv;
#endif
}

void read_unformatted_vector( istream & s, vector & v )
{
    v[0] = read_unformatted_real( s );
    v[1] = read_unformatted_real( s );
    v[2] = read_unformatted_real( s );
}

void read_unformatted32_vector( istream & s, vector & v )
{
    v[0] = read_unformatted32_real( s );
    v[1] = read_unformatted32_real( s );
    v[2] = read_unformatted32_real( s );
}

---