checksum_list.h File Reference

#include <iostream>
#include <iomanip>
#include <fstream>
#include <string>
#include <list>
#include <filesystem>
#include <algorithm>
#include <stdexcept>
#include <map>
#include <checksum.h>
#include <vector>
#include <dirent.h>

Go to the source code of this file.

Data Structures
class	List_checksum

Macros
#define	_FCALL
#define	write_out_file   write_out_file_
#define	grab_checksums   grab_checksums_

Functions
void	write_out_file (int *fd, const char *line, int *len_line)
void	grab_checksums (int *fd, char *input, int *leni, char *path, int *lenp)

Macro Definition Documentation

_FCALL

#define _FCALL

Definition at line 36 of file checksum_list.h.

grab_checksums

#define grab_checksums   grab_checksums_

Definition at line 44 of file checksum_list.h.

write_out_file

#define write_out_file   write_out_file_

Definition at line 43 of file checksum_list.h.

Function Documentation

grab_checksums()

void grab_checksums	(	int *	fd,
		char *	input,
		int *	leni,
		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);
    }
  
  }

write_out_file()

void write_out_file	(	int *	fd,
		const char *	line,
		int *	len_line )