checksum_list.cpp File Reference

#include <checksum_model.h>
#include <checksum_output_files.h>
#include <checksum_list.h>

Go to the source code of this file.

Functions
void	grab_checksums (int *fd, char *rootname, int *lenr, char *path, int *lenp)

Function Documentation

grab_checksums()

void grab_checksums	(	int *	fd,
		char *	rootname,
		int *	lenr,
		char *	path,
		int *	lenp )

Definition at line 557 of file checksum_list.cpp.

                                                                            {
    int i;
 
    // Convert input fortran to C Character
 
    char rootname_c[257];             // maximum length of the input string is 256 in Starter
    for (i=0;i<*lenr;i++){
      rootname_c[i]=rootname[i];
    }
    rootname_c[*lenr]='\0';           // Add null character to the end of the string
    string str_rootname(rootname_c);  // Convert to string
 
 
    char path_c[2029];                // maximum length of the path string is 2048 in Starter
    for (i=0;i<*lenp;i++){
      path_c[i]=path[i];
    }
    path_c[*lenp]='\0';               // Add null character to the end of the string
    string str_path(path_c);          // Convert to string
    
 
    // Create checksum_list object
    // grab the input deck name
    list<tuple<string,list<string>>> checksum_list;            // checksum list collection from all decks : filename, checksum list
    List_checksum chksum_tool;
    checksum_list=chksum_tool.chk_list(str_rootname,str_path); // Compute the checksums from the input deck and parse the output files
 
 
    // Print the checksum list to the output file
    const char* blank=" ";
    int len_blank= strlen(blank);
 
    for (const auto& item : checksum_list){
      string filename="    File. . . .   "+get<0>(item);
      const char* line=filename.c_str();
      int len_line= strlen(line);
      write_out_file(fd,line,&len_line);
      int len_blanck=1;
      write_out_file(fd," ",&len_blank);
   
      for (const auto& checksum : get<1>(item)){
        size_t pos = checksum.find_last_of("_");
        string title=checksum.substr(0,pos); // Remove the checksum value
        string digest=checksum.substr(pos+1);  // Keep only the checksum value
        string checksum_line="                  "+title+" : "+digest;
        const char* line=checksum_line.c_str();
        len_line= strlen(line);
        write_out_file(fd,line,&len_line);   // Fortran routine to write the checksum line
      }
      write_out_file(fd,blank,&len_blank);
      write_out_file(fd,blank,&len_blank);
    }
  
  }