param.c

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#include <polylib/polylib.h>
 
/****************************************************/
/* Read_ParamNames() :                              */
/* Reads FILE *in for the parameter names           */
/* if in==NULL or not enough parameters on input,   */
/*  use default names                               */
/* returns an n-array of strings                    */
/****************************************************/
char **Read_ParamNames(FILE *in, int m) {
  char **param_name;
  int c, i, j, f;
  char s[1024], param[32];
 
  if (!in)
    f = 0;
  else
    do
      f = (fgets(s, 1024, in) != NULL);
    while (f && (*s == '#' || *s == '\n'));
 
  param_name = malloc(m * sizeof(char *));
  i = 0;
  if (f) {
    c = 0;
    for (; i < m; ++i) {
      j = 0;
      for (;; ++c) {
        if (s[c] == ' ') {
          if (j == 0)
            continue;
          else
            break;
        }
        if (s[c] == '\n' || s[c] == 0)
          break;
        param[j++] = s[c];
      }
 
      /* Not enough parameters on input, end */
      if (j == 0)
        break;
      param[j] = 0;
      param_name[i] = malloc((j + 1) * sizeof(char));
      strcpy(param_name[i], param);
    }
  }
 
  /* Not enough parameters on input : use default names */
  if (!f || i != m) {
    for (; i < m; ++i) {
      param_name[i] = malloc(2 * sizeof(char));
      snprintf(param_name[i], 2, "%c", PCHAR + i + 1);
    }
  }
  return param_name;
} /* Read_ParamNames */
 
void Free_ParamNames(char **params, int m) {
  while (--m >= 0) {
    free(params[m]);
  }
  free(params);
}