+ // Open file for split objects
+ if (cfg_split_objects && (block->get_type()!=tape_block::TBT_EOT)){
+ if (objname=="UNKNOWN")snprintf(filename,99,"UNKNOWN%02i.obj",
+ unknown_count);
+ else snprintf(filename,99,"%s.obj",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",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++){
+ merge_vector_unique(exported,tape[i]->get_exported_symbols());
+ merge_vector_unique(called,tape[i]->get_called_symbols());