main()

int main	(	int	iargc,
		char *	argv[]
	)

Main program.

This code tests reading and writing of binary data. And it performs some tests on the byte swapping facilities.

See also

I/O byte swapping facility.

FORTRAN I/O functions

Definition at line 237 of file fortraniotest.cc.

References tfxx::cmdline::arg_no, tfxx::cmdline::arg_opt, cpu_type(), FORTRANIOTEST_VERSION, tfxx::cmdline::Commandline::optset(), read_data(), tfxx::cmdline::Commandline::string_arg(), SWAPIT, and write_data().

{

  // define usage information
  char usage_text[]=
  {
    FORTRANIOTEST_VERSION "\n"
    "usage: fortraniotest [-v] [-c] [-s] [-C]" "\n"
    "                     [-w [file]] [-r [file]]" "\n"
    "   or: fortraniotest --help|-h" "\n"
  };

  // define full help text
  char help_text[]=
  {
    " " "\n"
    "-v           be verbose" "\n"
    "-c           check byte size of data types" "\n"
    "-s           test byte swapping" "\n"
    "-C           tell us about the CPU model" "\n"
    "-w [file]    write to file" "\n"
    "-r [file]    read from file" "\n"
    FORTRANIOTEST_CVSID
  };

  // define commandline options
  using namespace tfxx::cmdline;
  static Declare options[]= 
  {
    // 0: print help
    {"help",arg_no,"-"},
    // 1: verbose mode
    {"v",arg_no,"-"},
    // 2: check byte size
    {"c",arg_no,"-"},
    // 3: test byte swapping
    {"s",arg_no,"-"},
    // 4: tell about CPU
    {"C",arg_no,"-"},
    // 5: write to file
    {"w",arg_opt,"junk"},
    // 6: write to file
    {"r",arg_opt,"junk"},
    {NULL}
  };

  // no arguments? print usage...
  if (iargc<2) 
  {
    cerr << usage_text << endl;
    exit(0);
  }

  // collect options from commandline
  Commandline cmdline(iargc, argv, options);

  // help requested? print full help text...
  if (cmdline.optset(0))
  {
    cerr << usage_text << endl;
    cerr << help_text << endl;
    exit(0);
  }

  bool verbose=cmdline.optset(1);
  bool check_size=cmdline.optset(2);
  bool byte_swapping=cmdline.optset(3);
  bool tell_CPU=cmdline.optset(4);
  bool write_file=cmdline.optset(5);
  std::string outfile=cmdline.string_arg(5);
  bool read_file=cmdline.optset(6);
  std::string infile=cmdline.string_arg(6);

  if (verbose) { cout << FORTRANIOTEST_VERSION << endl << endl; }
  if (check_size) 
  { 
    cout << "NOTICE: check_assumed_size() no longer exists!"
      << endl
      <<    "        and the even better news: there is no need for it"
      << endl;
  }
  if (byte_swapping) 
  {
    SWAPIT(char)
    SWAPIT(int)
    SWAPIT(long int)
    SWAPIT(long long int)
    SWAPIT(float)
    SWAPIT(double)
  }
  if (tell_CPU) cpu_type();
  if (write_file) write_data(outfile, verbose);
  if (read_file) read_data(infile, verbose);
}

Here is the call graph for this function: