cdf.cc

#include "para.h"
#include <cstdio>

int is_valid_line( char* ptrBuf )
{
  int i = 0, bValid = 0;
  char c_pre = '\0';
  do {
    char c = ptrBuf[i];
    if (c == '/' && c_pre == '/') {
      bValid = 0; break;
    }
    if (c != '\t' && c != '\r' && c != '\n' && c != ' ' && c != '/') {
      bValid = 1; break;
    }
    c_pre = c;
  } while (ptrBuf[++i] != '\0');
  return bValid;
}

#define NMAX 1024

void file_walk_lines( FILE* file, void (*proc)(char*, int, void* st), void* st ) {
  char* buffer = new char [NMAX];
  char* ptrBuf = NULL;
  int count = 0;
  do {
    ptrBuf = fgets( buffer, NMAX, file );
    if (ptrBuf != NULL) {
      if (is_valid_line( ptrBuf ) == 1) {
        proc( ptrBuf, count, st );
        count ++;
      }
    }
    else // EOF
      break;
  } while (1);
  delete[] buffer;
  rewind( file );
}

// count lines
struct st_file_count_lines { int nLine; };
void proc_file_count_lines(char* ptrBuf, int count, void* st) {
  ((st_file_count_lines*) st)->nLine ++;
}
int file_count_lines( FILE* file ) {
  st_file_count_lines st;
  st.nLine = 0;
  file_walk_lines( file, proc_file_count_lines, (void*)&st );
  return st.nLine;
}

struct st_cdf_read_driver {
  void (*sscanf_st)( char* ptrBuf, int count, parameters* ps );
  parameters* ps;
};
void proc_cdf_read_driver(char* ptrBuf, int count, void* st) {
  parameters *ps = ((st_cdf_read_driver*) st)->ps;
  ((st_cdf_read_driver*) st)->sscanf_st( ptrBuf, count, ps );
}
void cdf_read_driver( FILE* file, void (*sscanf_st)( char*, int, parameters* ),
                      parameters* ps ) {
  st_cdf_read_driver st;
  st.sscanf_st = sscanf_st; st.ps = ps;
  file_walk_lines( file, proc_cdf_read_driver, (void*)&st );
}

#include <cstring>
void cdf_read( const char* name, int count, void (*sscanf_st)( char*, int, parameters* ),
               parameters* ps )
{
  char file_name[1024];
  strcpy( file_name, ps->dirBase );
  strcat( file_name, name );

  FILE* file = NULL;
  if (NULL != (file = fopen( file_name, "r" )))  {
    int nLine = file_count_lines( file );
    if (count != nLine)
      fprintf( stderr, "CDF warning: no. of lines (%d) in file %s does not agree with "
               "no. of data (%d) defined in configuration file.\n",
               nLine, file_name, count );
    cdf_read_driver( file, sscanf_st, ps );
    fclose( file );
  } else {
    fprintf( stderr, "CDF error: Cannot open file %s.\n", file_name );
  }
}