match_magic()

bool tfxx::fortranio::FortranBinInput::match_magic

(

const char *

cmagic

)

expect magic number and adjust swapping flag

look out for expected magic number and adjust swapping flag

Definition at line 137 of file fortranio.cc.

References tfxx::ioswap::file_magic_test(), finish_block(), tfxx::ioswap::magic_nomatch, tfxx::ioswap::magic_swap, Mistream, and Mswap.

Referenced by tfxx::fortranio::operator>>().

  {
    // skip rest of previous block
    this->finish_block();
    tfxx::ioswap::Emagic_type result
      =tfxx::ioswap::file_magic_test(Mistream, cmagic, true);
    if (result==tfxx::ioswap::magic_nomatch) return(false);
    if (result==tfxx::ioswap::magic_swap) { Mswap=true; }
    else { Mswap=false; }
    return(true);
  }

Here is the call graph for this function:

Here is the caller graph for this function: