X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=pc-tools%2Fldc2%2Fsrc%2Fmain.cpp;h=8b7da8788adc4e0753701545b23467a48f19bcd1;hb=0f7b7e093c962c7883622efd53cf74597d433799;hp=34f2279b29a479e04191030fa77c47e986175156;hpb=874a2bd89fd65e5a1763d88c218f066a424e0d04;p=h316.git

diff --git a/pc-tools/ldc2/src/main.cpp b/pc-tools/ldc2/src/main.cpp
index 34f2279..8b7da87 100644
--- a/pc-tools/ldc2/src/main.cpp
+++ b/pc-tools/ldc2/src/main.cpp
@@ -1,9 +1,49 @@
-/* ldc2 preliminary main program */
+/******************************************************************************
+ * 
+ * LDC2 source code
+ *
+ * $Date: 2010/01/04 02:10:59 $
+ * $Author: hachti $
+ *
+ * $Log: main.cpp,v $
+ * Revision 2.6  2010/01/04 02:10:59  hachti
+ * *** empty log message ***
+ *
+ * Revision 2.5  2008-10-01 13:30:14  hachti
+ * Added some includes
+ *
+ * Revision 2.4  2008-08-25 21:02:24  hachti
+ * *** empty log message ***
+ *
+ * Revision 2.3  2007-05-30 02:51:16  hachti
+ * Changed everything towards LDC2 use.
+ * Worked on the buildlib.sh.
+ * Centralized  buildlib.sh to a new lib/common directory.
+ *
+ * Revision 2.2  2007-03-26 03:20:31  hachti
+ * *** empty log message ***
+ *
+ * Revision 2.1  2007-03-26 01:15:21  hachti
+ * *** empty log message ***
+ *
+ * Revision 2.0  2007-03-26 01:00:40  hachti
+ * *** empty log message ***
+ *
+ *
+ ******************************************************************************/
+ 
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <stdlib.h>
 
 
 #include <vector>
 #include <string>
-
+  
 #include "config.hh"
 #include "tool.hh"
 
@@ -26,21 +66,29 @@ using namespace std;
 
 /******************************************************************************/
 
-static FILE * stdwarn; //! Suppressable warning output file pointer.
-static vector<tape_block*> tape; //! Represents the whole tape contents.
+static FILE * stdwarn;       //! Suppressable warning output file pointer.
+static vector<tape_block*> tape;     //! 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.
+static int errors  = 0;  //! Global error counter.
+static int warnings= 0;  //! Global warning counter.
+static int errcode = 0;  //! Error code for error exit routine.
 
 
+/******************************************************************************/
+/*!
+ *\brief Error exit routine.
+ *
+ * This routine tests the global error counter and terminates the program
+ * if necessary.
+ */
 void exit_on_error(){
   if (errors){
     fprintf(stderr,"Failed. (%i)\n",errcode);
     exit(errcode);
   }
 }
+
   
 /******************************************************************************/
 /*!
@@ -68,12 +116,13 @@ void read_tape(){
   
   while(read_ahead){
 
-    bool err_checksum=false;
-    bool err_integrity=false;
+	  //  bool err_checksum=false;  //! Checksum error flag.
+	  //    bool err_integrity=false; //! Integrity error flag.
     
-    bool warning=false;
-    bool error=false;
+    bool warning=false;       //! Warning flag.
+    bool error=false;         //! Error flag.
     
+    // Try to generate block
     try{
       block=tape_block::gen_from_fd(in_fd);
     }
@@ -85,7 +134,8 @@ void read_tape(){
     
     catch(tape_block::io_error_exception){
       if (in_fd){
- 	fprintf(stderr,"Error: Could not read from \"%s\"!\n",cfg_infile.c_str());
+ 	fprintf(stderr,"Error: Could not read from \"%s\"!\n",
+		cfg_infile.c_str());
       } else {
  	fprintf(stderr,"Error: Could not read from stdin!\n");
       }
@@ -96,7 +146,7 @@ void read_tape(){
     
     catch(tape_block::eof_illegal_exception &e){
       block=e.get_block();
-      err_integrity=true;
+      //      err_integrity=true;
       read_ahead=false;
       if (cfg_ignore_block_errors){
 	message="Warning: Block integrity check failed!\n";
@@ -110,7 +160,7 @@ void read_tape(){
     
     catch(tape_block::checksum_error_exception &e){
       block=e.get_block();
-      err_checksum=true;
+      //      err_checksum=true;
       if (cfg_ignore_checksum_errors){
  	message="Warning: Block checksum wrong!\n";
  	warning=true;
@@ -157,10 +207,15 @@ void read_tape(){
     
     if (error)   fprintf(stderr,message.c_str());
     if (warning) fprintf(stdwarn,message.c_str());
-    
-    if(cfg_list_contents){
+        
+    if(error||warning){
       dump_vector(block->get_description());
-      if (!error&&!warning) spaced=false;
+    } else {
+      if(cfg_list_contents){
+	FILE * tmp_fp=fdopen(out_fd,"w");
+	dump_vector_fp(block->get_description(),tmp_fp);
+	if (!error&&!warning) spaced=false;
+      }
     }
 
     if (error||warning||cfg_verbose){
@@ -177,46 +232,239 @@ void read_tape(){
     }
 } // read_tape()
 
+
 /******************************************************************************/
+/*!
+ *\brief Do integrity test and object or block dumps.
+ */
+void process_tape(){
+  if (cfg_verbose) fprintf(stdwarn,"\nProcessing Data.\n");
+  
+  bool in_object=false;
+  char filename[100];
+  char filename_numbered[100];
+  string objname;
+  int unknown_count=-1;
+  int fd=-1, fd_numbered=-1;
+  int obj_no=0;
+  int obj_start_block;
+  
+  for (unsigned int i=0; i<tape.size();i++){
+    tape_block * block=tape[i];
 
-void type_check(){
-  bool warning=false;
-  bool error=false;
+      if (block->get_type()==tape_block::TBT_EOT){
+	objname="EOT";
+	if (in_object){
+	  if (cfg_ignore_object_integrity_errors){
+	    fprintf(stdwarn,"Warning: Object integrity error!\
+ (Object no %i, Block %i unexpected)\n",obj_no,i);
+	    warnings++;
+	  } else {
+	    fprintf(stderr,"Error: Object integrity error!\
+ (Object no %i, Block %i unexpected)\n",obj_no,i);
+	    errors++;
+	    errcode=6;
+	    return;
+	  }
+	}
+      }
+    if (!in_object){ // object begin
+      
+      obj_no++;
+      obj_start_block=i;
+      
+      objname="UNKNOWN";
+      unknown_count++;
+      
+      vector<string>names=block->get_exported_symbols();
+      for (unsigned int a=0; a<names.size();a++){
+	objname=names[0];
+	if (objname!="      "){
+	  objname=objname.substr(0,objname.find_last_not_of(" ")+1);
+	  unknown_count--;
+	  break;
+	}
+      }
+           
+      if (block->get_type()==tape_block::TBT_EOT){
+	objname="EOT";
+      }
+      
+      // Open file for split objects
+      if (cfg_split_objects && (block->get_type()!=tape_block::TBT_EOT)){
+	if (objname=="UNKNOWN")snprintf(filename,99,"UNKNOWN%02i",
+					unknown_count);
+	else snprintf(filename,99,"%s",objname.c_str());
+	if (fd>-1) close (fd);
+	if (cfg_verbose) fprintf(stdwarn,"Writing file: %s\n",filename);
+	fd=open(filename,O_WRONLY|O_CREAT|O_TRUNC,0666);
+	if (fd<0){
+	  fprintf(stderr,"Error: could not open file \"%s\" for writing!\n",
+		  filename);
+	  errors++;
+	  errcode=1;
+	  return;
+	}
+      }
+
+      // Open file for split objects numbered
+      snprintf(filename_numbered,99,"%03i0-%s",obj_no,objname.c_str());
+      if (cfg_split_objects_numbered){
+	close (fd_numbered);
+	if (cfg_verbose) fprintf(stdwarn,"Writing file: %s\n",filename_numbered);
+	fd_numbered=open(filename_numbered,O_WRONLY|O_CREAT|O_TRUNC,0666);
+	if (fd_numbered<0){
+	  fprintf(stderr,"Error: could not open file \"%s\" for writing!\n",
+		  filename_numbered);
+	  errors++;
+	  errcode=1;
+	  return;
+	}
+      }
+      in_object=true;
+    } // object begin
+    
+    // Output block data
+    if (cfg_split_objects){
+      try{
+	if (block->get_type()!=tape_block::TBT_EOT) // Don't want EOT here
+	  block->dump_to_fd(fd);
+      }
+      catch (tape_block::io_error_exception e){
+	fprintf(stderr,"Error: could write to file \"%s\"!\n",
+		filename);
+	errors++;
+	errcode=1;
+	return;
+      }
+    } // if (cfg_split_objects)
+
+    // Output block data
+    if (cfg_split_objects_numbered){
+      try{
+	block->dump_to_fd(fd_numbered);
+      }
+      catch (tape_block::io_error_exception e){
+	fprintf(stderr,"Error: could write to file \"%s\"!\n",
+		filename_numbered);
+	  errors++;
+	  errcode=1;
+	  return;
+      }
+    } // if (cfg_split_objects_numbered)
+
+    // Output individual block file if desired
+    if (cfg_split_blocks){
+      char fname[100];
+      snprintf(fname,99,"%03i0-%s-%03i.block",obj_no,objname.c_str(),
+	       i-obj_start_block);
+      if (cfg_verbose) fprintf(stdwarn,"Writing file: %s\n",fname);
+      int fd_block=open(fname,O_WRONLY|O_TRUNC|O_CREAT,0666);
+      if (fd_block<0){
+	  fprintf(stderr,"Error: could not open file \"%s\" for writing!\n",
+		  fname);
+	  errors++;
+	  errcode=1;
+	  close(fd);
+	  close(fd_numbered);
+	  return;
+      }
+      try{
+	block->dump_to_fd(fd_block);
+      }
+      catch (tape_block::io_error_exception e){
+	fprintf(stderr,"Error: could write to file \"%s\"!\n",
+		fname);
+	errors++;
+	errcode=1;
+	close(fd);
+	close(fd_numbered);
+	return;
+      }
+      close(fd_block);
+    }
+    
+    if (block->is_endblock()||(block->get_type()==tape_block::TBT_EOT)) {
+      in_object=false; 
+      close(fd);
+      close(fd_numbered);
+    }
+  } // for (...)
+  
+  if (in_object){
+    if (cfg_ignore_object_integrity_errors){
+      fprintf(stdwarn,"Warning: Object integrity error! Last object incomplete!\n");
+      warnings++;
+    } else {
+      fprintf(stdwarn,"Error: Object integrity error! Last Object incomplete!\n");
+      errors++;
+      errcode=6;
+      if (fd!=-1) close(fd);
+      if (fd_numbered!=-1) close(fd_numbered);
+      return;
+    }
+  }
+} // process_tape()
+
+/******************************************************************************/
+/*!
+ *\brief Everything that has to do with symbol listing.
+ */
+void process_symbols(){
+  vector<string>exported;
+  vector<string>called;
+  vector <string>unsatisfied;
+
+  if (cfg_verbose) fprintf(stdwarn,"\nProcessing Symbols.\n");  
 
   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);
+    merge_vector_unique(exported,tape[i]->get_exported_symbols());
+    merge_vector_unique(called,tape[i]->get_called_symbols());
+  }
+  
+  for (unsigned int icalled=0;icalled<called.size();icalled++){
+    bool found=false;
+    for (unsigned int iexported=0;iexported<exported.size();iexported++){
+      if (exported[iexported].compare(called[icalled])==0){
+	found=true;
+	break;
+      }
+    }
+    if (!found) {
+      bool present=false;
+      for (unsigned int i=0;i<unsatisfied.size();i++){
+	if (unsatisfied[i].compare(called[icalled])==0){
+	  present=true;
+	  break;
+	}
       }
+      if (!present) unsatisfied.insert(unsatisfied.end(),called[icalled]);
     }
   }
-} // type_check()
+  
+  FILE * outp=fdopen(out_fd,"w");
+
+  if (cfg_output_called){
+    dump_vector_fp(called,outp);
+  }
+
+  if (cfg_output_exported){
+    dump_vector_fp(exported,outp);
+  }
+
+  if (cfg_output_unsatisfied){
+    dump_vector_fp(unsatisfied,outp);
+  }
+
+} // process_symbols()
 
 /******************************************************************************/
 /*!
  *\brief The main routine.
+ *
  */
 int main(int argc, char ** args){
 
-
   // Do all the configuration stuff
   do_config(argc,args);
 
@@ -233,15 +481,25 @@ int main(int argc, char ** args){
   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);
-    }
+  process_tape();
+  exit_on_error();
+
+  process_symbols();
+  exit_on_error();
+    
+  if (warnings>0){
+    fprintf(stdwarn,"Warnings:%i\n",warnings);
+    return 99;
   }
-  
- 
+  if (cfg_verbose) fprintf(stdwarn,"\nSuccess.\n");
   return 0;
+
+  /*
+   * All over this program, no memory is freed. This is not necessary because
+   * everything is allocated once and that's it.
+   * The classes support proper freeing of their internal buffers.
+   */
+
 } // main()
 
+/******************************************************************************/