finish_block()

void tfxx::fortranio::FortranBinInput::finish_block ( )

private

finish open block

Definition at line 93 of file fortranio.cc.

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

Referenced by match_magic(), and ~FortranBinInput().

  {
    // do we have to read any more from current block?
    while (Mnremain>0) { this->extract_next_char(); }
    // had this block finite size? Then read end count and compare
    if (Mnbytes>0) {
      tfxx::ioswap::IOUnion<int> buf;
      Mistream.read(buf.bytes, sizeof(int));
      int endcount=buf.value;
      if (Mswap) { endcount=tfxx::ioswap::swap(buf.value); }
      TFXX_assert((Mnbytes == endcount),
        "FortranBinInput (finish_block): "
        "bount count at end of block does not match!");
    }
    // we do not open a new block - indicate by zero blocksize
    Mnbytes=0;
  }

Here is the call graph for this function:

Here is the caller graph for this function: