*** empty log message ***

[h316.git] / pc-tools / ldc2 / src / main.cpp

/* ldc2 preliminary main program */


#include <vector>
#include <string>

#include "config.hh"
#include "tool.hh"

#include "tape_block.hh"
#include "data_block_0.hh"

using namespace std;

#ifndef BUILD_STAMP
#define BUILD_STAMP ""
#endif

#ifndef VERSION
#define VERSION "0.0"
#endif

#define ID_STRING "\n     ldc2 - The X16 object tape analyser\n\
            (C) 2007 Philipp Hachtmann\n\n\
     Version %s, built %s\n     %s\n\n"

/******************************************************************************/

static FILE * stdwarn; //! Suppressable warning output file pointer.
static vector<tape_block*> tape; //! Represents the whole tape contents.
static vector<vector<tape_block*> > objects; //! Tape content in objects.

static int errors=0;
static int warnings=0;
static int errcode=0;  //! Variable for error codes.


void exit_on_error(){
  if (errors){
    fprintf(stderr,"Failed. (%i)\n",errcode);
    exit(errcode);
  }
}
  
/******************************************************************************/
/*!
 *\brief Read in Tape data and do some checks and messages.
 *
 * This routine reads in the tape data.
 * During reading in, checksums are checked and
 * /da001/ information is generated. No object integrity test.
 * Tape block object pointers are put into the global vector 
 * tape.
 */
void read_tape(){

  tape_block * block=0;  //! Pointer to current block.
  bool read_ahead=true;  //! Continue scanning for blocks.
  int read_pointer=0;    //! Read position in input.
  int block_start=0;     //! Start of block position in input.
  int block_end=0;       //! End of block position in input.
  int blocks_read=0;     //! Number of blocks read in.
  
  bool spaced=false;     //! Help flag for spaced messages. 
  
  string message;        //! A warning or help message.

  
  while(read_ahead){

    bool err_checksum=false;
    bool err_integrity=false;
    
    bool warning=false;
    bool error=false;
    
    try{
      block=tape_block::gen_from_fd(in_fd);
    }
    
    catch(tape_block::eof_legal_exception &e){
      read_pointer+=e.get_consumed();
      break; // Immediately leave read loop.
    }
    
    catch(tape_block::io_error_exception){
      if (in_fd){
 	fprintf(stderr,"Error: Could not read from \"%s\"!\n",cfg_infile.c_str());
      } else {
 	fprintf(stderr,"Error: Could not read from stdin!\n");
      }
      error=true;
      errcode=2;
      break; // Immediately leave read loop.
    }
    
    catch(tape_block::eof_illegal_exception &e){
      block=e.get_block();
      err_integrity=true;
      read_ahead=false;
      if (cfg_ignore_block_errors){
	message="Warning: Block integrity check failed!\n";
 	warning=true;
      } else {
	message="Error: Block integrity check failed!\n";
 	error=true;
 	errcode=3;
      }
    }
    
    catch(tape_block::checksum_error_exception &e){
      block=e.get_block();
      err_checksum=true;
      if (cfg_ignore_checksum_errors){
 	message="Warning: Block checksum wrong!\n";
 	warning=true;
      } else {
	message="Error: Block checksum wrong!\n";
 	error=true;
 	read_ahead=false;
 	errcode=4;
      }
    }
    
    // Now let's check for block type
    if ((!error)&&(!warning)&&!block->has_known_type()){
      if (cfg_ignore_unknown_block_errors){
	message="Warning: Unknown Block type!";
	warning=true;
      }else{
	message="Error: Unknown Block type!";
	error=true;
	read_ahead=false;
	errcode=5;
      }
    }
    
    // Count block.
    blocks_read++;
    tape.insert(tape.end(),block);
    block_start=read_pointer+block->get_discarded_bytes();
    block_end=block_start+block->get_raw_size()-1;
    read_pointer=block_end+1;

    FILE * fp=stdwarn;
    if (error) fp=stderr;
         
    if (cfg_verbose||error||warning){
      if (!spaced) fprintf(fp,"\n");
      spaced=false;
      fprintf(fp,"Block No.%03i:  Start:0x%04x  End:0x%04x  Size:0x%02x\n",
	      blocks_read-1,
	      block_start,
	      block_end,
	      block->get_raw_size());
    }
    
    if (error)   fprintf(stderr,message.c_str());
    if (warning) fprintf(stdwarn,message.c_str());
    
    if(cfg_list_contents){
      dump_vector(block->get_description());
      if (!error&&!warning) spaced=false;
    }

    if (error||warning||cfg_verbose){
      fprintf(fp,"\n");
      spaced=true;
    }
    if (error) errors++;
    if (warning) warnings++;
  } // while....
  if (cfg_verbose){
    close(in_fd);
    fprintf(stderr,"Reading finished.\n");
    fprintf(stderr,"Bytes read:%i, Blocks read:%i\n",read_pointer,blocks_read);
    }
} // read_tape()

/******************************************************************************/

void type_check(){
  bool warning=false;
  bool error=false;

  for (unsigned int i=0; i<tape.size();i++){
    bool spaced=false;
    if (!tape[i]->has_known_type()){
      FILE * fp;
      if (cfg_ignore_unknown_block_errors){
	fp=stdwarn;
	warning=true;
      } else {
	fp=stderr;
	error=true;
      }	
      if (!spaced) {
	spaced=false;fprintf(fp,"\n");
	fprintf(fp,"Warning: Unknown Block type! Block No.%i\n",i);
	dump_vector_fp(tape[i]->get_description(),fp);
	fprintf(fp,"\n");
	spaced=true;
      }
      if (!cfg_ignore_unknown_block_errors){
	int errcode=5;
	fprintf(stdwarn,"Failed. (%i)\n",errcode);
	exit(errcode);
      }
    }
  }
} // type_check()

/******************************************************************************/
/*!
 *\brief The main routine.
 */
int main(int argc, char ** args){


  // Do all the configuration stuff
  do_config(argc,args);

  // Output a version message if desired
  if (cfg_version){
    fprintf(stderr, ID_STRING, VERSION, BUILD_DATE, BUILD_STAMP);
    exit(0);
  }
  
  // Assign warning output according to configuration
  if (cfg_quiet) stdwarn=fopen("/dev/null","w");
  else stdwarn=stderr;
  
  read_tape(); // Process input to completion.
  exit_on_error();
  
  
  
  if (cfg_split_objects){
    for (unsigned int i=0; i<tape.size();i++){
      tape[i]->dump_to_fd(out_fd);
    }
  }
  
 
  return 0;
} // main()