decpoint.c

Go to the documentation of this file.

/*****************************************************************************/
#include "libtpcmisc.h"
/*****************************************************************************/
 
/*****************************************************************************/
int dec_comma_is(
  char *str
) {
  if(strchr(str, '.')!=NULL) return(0);
  if(strchr(str, ',')!=NULL) return(1);
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int dec_separator(
  char *str
) {
  if(strchr(str, '.')!=NULL) return(1);
  if(strchr(str, ',')!=NULL) return(2);
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
void dec_separator_change(
  char *str,
  int decsep
) {
  char *cptr;
  cptr=strchr(str, '.'); if(cptr!=NULL && decsep==1) {*cptr=','; return;}
  cptr=strchr(str, ','); if(cptr!=NULL && decsep==0) {*cptr='.'; return;}
  return;
}
/*****************************************************************************/
 
/*****************************************************************************/
double atof_dpi(
  char *str
) {
  char *cptr;
  double f;
 
  if(str==NULL) return(nan(""));
  /* If string contains a dot, then use atof directly */
  if(strchr(str, '.')!=NULL) return(atof(str));
  /* Otherwise, convert all commas to dots */
  //while((cptr=strchr(str, ','))!=NULL) *cptr='.';
  cptr=strchr(str, ','); if(cptr!=NULL) *cptr='.';
  f=atof(str); if(cptr!=NULL) *cptr=',';
  return(f);
}
/*****************************************************************************/
 
/*****************************************************************************/
int dec_nr(char *str)
{
  char *cptr;
  int n;
 
  if(str==NULL) return 0;
  /* Find the first dot or comma, but stop with E */
  cptr=str;
  while(*cptr!='.' && *cptr!=',') {
    if(*cptr==(char)0 || *cptr=='E' || *cptr=='e') return 0;
    cptr++;
  }
  if(*cptr==(char)0 || (*cptr!='.' && *cptr!=',')) return 0;
  /* Calculate the number of digits that follows */
  cptr++; n=0; while(cptr!=NULL && isdigit(*cptr)) {n++; cptr++;}
  return n;
}
/*****************************************************************************/
 
/*****************************************************************************/
int atof_with_check(
  char *double_as_string,
  double *result_value
) {
  char* cptr;
  double f;
 
  if(result_value!=NULL) *result_value=nan("");
  if(double_as_string==NULL) return(1);
  f=atof_dpi(double_as_string);
  if(f!=0.0) {if(result_value!=NULL) *result_value=f; return(0);}
  cptr=double_as_string;
  while(*cptr!=0 && (*cptr=='+' || *cptr=='-' || *cptr==' ')) cptr++;
  if(*cptr=='0') {if(result_value!=NULL) *result_value=f; return(0);}
  return(1);
}
/*****************************************************************************/
 
/*****************************************************************************/
char *strPtrToNextValue(
  char *str, 
  char **nxtp
) {
  char *cptr, *strt;
  unsigned int i, j, n=0;
 
  // search the start
  if(str==NULL || strlen(str)<1) {*nxtp=NULL; return NULL;}
  // find the index where number might start
  cptr=str;
  do {
    i=strcspn(cptr, "+-0123456789"); if(i==strlen(cptr)) {*nxtp=NULL; return NULL;}
    strt=cptr+i;
    // any previous character must be a separator
    if(i>0) {cptr=strt-1; i=strcspn(cptr, " \t,;"); if(i>0) cptr+=i;}
  } while(i>0);
  // get past + and - ; if more than one, that is an error
  cptr=strt; if(*cptr=='-' || *cptr=='+') {n++; cptr++;}
  // get past first set of numbers
  i=strspn(cptr, "0123456789"); n+=i;
  if(i<1) {*nxtp=cptr; return NULL;}
  cptr+=i; n+=i;
  // get past decimal separator
  i=strspn(cptr, ",.");
  if(i==0) { // there was none, thus we're done
    *nxtp=cptr; return strt; 
  } else if(i>1) { // can't be more than one decimal separator
    *nxtp=cptr; return strt;
  }
  cptr+=1; n+=1;
  // after decimal separator we must have numbers again
  i=strspn(cptr, "0123456789");
  if(i<1) { // what was thought to be decimal separator was not that
    *nxtp=cptr-1; return strt;
  }
  cptr+=i; n+=i;
  // check if we have exponent part
  if(*cptr=='E' || *cptr=='e') i=1; else i=0;
  // if not, then we're done
  if(i==0) {*nxtp=cptr; return strt;}
  cptr+=1;
  // we may have signed exponent
  if(*cptr=='-' || *cptr=='+') {cptr+=1; i++;}
  // after exponent we must have numbers again
  j=strspn(cptr, "0123456789");
  if(j<1) { // what was thought to be exponent was not that
    *nxtp=cptr-i; return strt;
  }
  cptr+=j; n+=j;
  // now this must be the end
  *nxtp=cptr;
  return strt;
}
#if(0) // Tests
int test_strPtrToNextValue()
{
  char *cptr, *cptr2=NULL, tmp[256];
  int i=0, j=0, n;
 
  static char *tests[] = {
  "",
  " ",
  " abc d ef",
  " 1  ",
  "M2 s123456 7s",
  "65s, 44.3min m44m b7,7 c1,2,3 43.2",
  "6 s",
  "1 23      4,5 6, 7",
  "-1.2345E-009 0.23 434.1 +65 +2.3E2",
  "-1.2345E-009,0.23,434.1,+65,+2.3E2",
  "-1.2345E-009, 0.23, 434.1, +65, +2.3E2",
  "-1,2345E-009;0,23;434,1;+65;+2,3E2",
  "-1.2345E-009 0.23  434.1 +65 +2.3E2", // tabs
  0};
 
  while(tests[i]!=0) {
    j=0; printf("Test %d:\n", 1+i); printf("  test_string := '%s'\n", tests[i]);
    cptr=strPtrToNextValue(tests[i], &cptr2);
    while(cptr!=NULL) {
      n=strlen(cptr); if(cptr2!=NULL) n-=strlen(cptr2);
      strncpy(tmp, cptr, n); tmp[n]=(char)0;
      printf("  valstring[%d] := '%s'\n", 1+j, tmp);
      if(cptr2==NULL) break;
      cptr=cptr2; cptr=strPtrToNextValue(cptr, &cptr2);
      j++;
    }
    i++;
  }
  return 0;
}
#endif
/*****************************************************************************/
 
/*****************************************************************************/
int atoi_with_check(
  const char *int_as_string,
  int *result_value
) {
  int i, len;
 
  if(result_value!=NULL) *result_value=0;
  if(int_as_string==NULL) return(1);
  len=strlen(int_as_string); if(len<1) return(1);
  /* First character can be + or - */
  i=strspn(int_as_string, "+-");
  if(i>1) return(1);
  if(i==1 && len==1) return(1); 
  /* Check that (rest of) characters are digits */
  for( ; i<len; i++) if(!isdigit(int_as_string[i])) return(1);
  /* Convert to int */
  if(result_value!=NULL) *result_value=atoi(int_as_string);
  return(0);
}
#if(0)  // Tests
int test_atoi_with_check()
{
  char temp[128];
  int v, ret;
 
  strcpy(temp, "");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "a");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "a123");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "1");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret!=0 || v!=1) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "0");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret!=0 || v!=0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "123a");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "+123");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret!=0 || v!=123) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "-2");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret!=0 || v!=-2) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "+-2");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "-2.3");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "3,14");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  strcpy(temp, "-2E2");
  ret=atoi_with_check(temp, &v);
  printf("atoi_with_check('%s', %d) := %d\n\n", temp, v, ret);
  if(ret==0) {printf("Wrong result.\n"); return(1);}
 
  return(0);
}
#endif
/*****************************************************************************/
 
/*****************************************************************************/