decpoint.c

Go to the documentation of this file.

 
/*****************************************************************************/
 
/*****************************************************************************/
#include "tpcclibConfig.h"
/*****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#include <math.h>
#include "tpcextensions.h"
/*****************************************************************************/
 
/*****************************************************************************/
int strIsValidNumber(
  const char *s
) {
  if(s==NULL || strnlen(s, 256)<1) return 0;
 
  char *p=(char*)s;
  int i, nn=0;
  /* It can start with + or minus */
  if(*p=='+' || *p=='-') p++;
  /* Then jump over all digits, counting them */
  i=strspn(p, "0123456789"); nn+=i; p+=i;
  if(!*p) {if(nn>0) return 1; else return 0;} // end of string
  /* Then there can be a decimal point or comma, but only one per string */
  if(*p=='.' || *p==',') p++;
  if(!*p) {if(nn>0) return 1; else return 0;} // end of string
  /* Again jump over all digits, counting them */
  i=strspn(p, "0123456789"); nn+=i; p+=i;
  /* At this point we must have got at least one digit */
  if(nn<1) return 0;
  if(!*p) return 1; // end of string
  /* String continues, the next character must be E or e */
  if(*p=='E' || *p=='e') p++; else return 0;
  /* next can be + or - but not necessarily */
  if(*p=='+' || *p=='-') p++;
  /* then we must have at least one digit */
  i=strspn(p, "0123456789"); if(i<1) return 0;
  nn+=i; p+=i;
  /* now we must be at the end of string */
  if(!*p) return 1; else return 0; 
}
/*****************************************************************************/
 
/*****************************************************************************/
double atofVerified(
  const char *s
) {
  if(s==NULL || !strIsValidNumber(s)) return nan("");
  char *p; p=strchr(s, ','); if(p==NULL) return atof(s);
  char *s2=strdup(s); p=strchr(s2, ','); *p='.';
  double t=atof(s2); free(s2); return t;
}
/*****************************************************************************/
 
/*****************************************************************************/
int atofCheck(
  const char *s,
  double *v
) {
  if(v!=NULL) *v=nan(""); 
  if(s==NULL) return 1;
  if(!strIsValidNumber(s)) return 1;
  char *p; p=strchr(s, ','); if(p==NULL) {*v=atof(s); return 0;}
  char *s2=strdup(s); p=strchr(s2, ','); *p='.';
  *v=atof(s2); free(s2); return 0;
}
/*****************************************************************************/
 
/*****************************************************************************/
int strHaveDecimalComma(
  const char *s
) {
  if(s==NULL) return(0);
  if(strchr(s, '.')!=NULL) return(0);
  if(strchr(s, ',')!=NULL) return(1);
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int strHaveDecimalSeparator(
  const char *s
) {
  if(s==NULL) return(0);
  if(strchr(s, '.')!=NULL) return(1);
  if(strchr(s, ',')!=NULL) return(2);
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int atofList(
  const char *s1,
  const char *s2,
  double *x,
  int maxn
) {
  if(x==NULL || maxn<=0) return(-1);
  for(int i=0; i<maxn; i++) x[i]=nan("");
  if(s1==NULL || s2==NULL) return(0);
  
  /* Get the nr of tokens */
  int i, n;
  n=strTokenNr((char*)s1, s2); if(n<1) return(0);
  /* Read the values */
  char tmp[256];
  double v; 
  for(i=0; i<n && i<maxn; i++) {
    if(strTokenNCpy(s1, s2, 1+i, tmp, 256)<1) return(-2);
    v=atofVerified(tmp); if(isnan(v)) return(-3);
    x[i]=v;
  }
  return(i);
}
/*****************************************************************************/
 
/*****************************************************************************/