read_block_size()

void tfxx::fortranio::FortranBinInput::read_block_size ( )

private

read next block size

return next character from buffer

Definition at line 66 of file fortranio.cc.

References tfxx::ioswap::IOUnion< T >::bytes, Mistream, Mnbytes, Mnremain, Mswap, tfxx::ioswap::swap(), TFXX_assert, and tfxx::ioswap::IOUnion< T >::value.

Referenced by extract_next_char().

  {
    tfxx::ioswap::IOUnion<int> buf;
    // in case we are already in the file, we have to read and check the
    // byte-count at the end of the block
    if (Mnbytes != 0)
    {
      TFXX_assert((Mnremain==0),
        "FotranBinInput: internal error - remain count is not zero!");
      Mistream.read(buf.bytes, sizeof(int));
      int endcount=buf.value;
      if (Mswap) { endcount=tfxx::ioswap::swap(buf.value); }
      TFXX_assert((Mnbytes == endcount),
        "FortranBinInput: bount count at end of block does not match!");
    }
    // read byte-count at beginning of next block
    Mistream.read(buf.bytes, sizeof(int));
    Mnremain=buf.value;
    if (Mswap) { Mnremain=tfxx::ioswap::swap(buf.value); }
    Mnbytes=Mnremain;
    TFXX_assert((Mistream.good()),
      "FortranBinInput: stream is not good after reading block size");
  }

Here is the call graph for this function:

Here is the caller graph for this function: