intutil.c

Go to the documentation of this file.

 
/*****************************************************************************/
 
/*****************************************************************************/
#include "tpcclibConfig.h"
/*****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <math.h>
#include "tpcextensions.h"
/*****************************************************************************/
 
/*****************************************************************************/
int atoiCheck(
  const char *s,
  int *v
) {
  if(v!=NULL) *v=0; 
  if(s==NULL || strnlen(s, 2)<1) return(1);
  errno=0; char *tail;
  *v=strtol(s, &tail, 10);
  if(errno) {*v=0; return(2);}
  if(*tail) {*v=0; return(3);}
  return 0;
}
/*****************************************************************************/
 
/*****************************************************************************/
unsigned int factorial(
  unsigned int n
) {
  if(n<1) return(1);
  if(n>12) return(0);
  return(n*factorial(n-1));
}
/*****************************************************************************/
 
/*****************************************************************************/
unsigned long long int lfactorial(
  unsigned long long int n
) {
  if(n<1) return(1);
  if(n>20) return(0);
  return(n*lfactorial(n-1));
}
/*****************************************************************************/
 
/*****************************************************************************/
void intlistInit(
  INTLIST *l
) {
  if(l==NULL) return;
  l->nr=0; l->_nr=0;
  l->i=NULL;
}
void intlistFree(
  INTLIST *l
) {
  if(l==NULL) return;
  free(l->i);
  intlistInit(l);
}
/*****************************************************************************/
 
/*****************************************************************************/
int intlistAdd(
  INTLIST *l,
  const int v,
  const int ifnew
) {
  if(l==NULL) return(-1);
  /* If only new value is to be added, then check that this is new */
  if(ifnew!=0) {for(int i=0; i<l->nr; i++) if(l->i[i]==v) return(0);}
  /* Add value to list if there is space left, and quit */
  if(l->_nr>l->nr) {l->i[l->nr++]=v; return(1);}
  /* Allocate more space */
  if(l->_nr==0) l->i=(int*)malloc(10*sizeof(int));
  else l->i=(int*)realloc(l->i, (10+l->_nr)*sizeof(int));
  if(l->i==NULL) {l->nr=l->_nr=0; return(-2);}
  l->_nr+=10;
  /* Add value to list */
  l->i[l->nr++]=v;
  return(1);
}
/*****************************************************************************/
 
/*****************************************************************************/
void intlistSort(
  INTLIST *l
) {
  if(l==NULL || l->i==NULL || l->nr<2) return;
  int i, j, v;
  for(i=0; i<l->nr; i++) for(j=i+1; j<l->nr; j++) {
    if(l->i[i]>l->i[j]) {v=l->i[i]; l->i[i]=l->i[j]; l->i[j]=v;}
  }
}
/*****************************************************************************/
 
/*****************************************************************************/
int intlistAddFromString(
  const char *s1,
  const char *s2,
  INTLIST *l,
  const int ifnew
) {
  if(l==NULL) return(-1);
  if(s1==NULL || s2==NULL) return(0);
  
  /* Get the nr of tokens */
  int i, j, m, n, v;
  n=strTokenNr((char*)s1, s2); if(n<1) return(0);
  /* Read the values */
  char tmp[128];
  for(i=j=0; i<n; i++) {
    if(strTokenNCpy(s1, s2, 1+i, tmp, 128)<1) return(-2);
    if(atoiCheck(tmp, &v)) return(-3);
    m=intlistAdd(l, v, ifnew); if(m<0) return(-4);
    j+=m;
  }
  return(j);
}
/*****************************************************************************/
 
/*****************************************************************************/
int intlistExpandFromString(
  const char *s1,
  const char *s2,
  INTLIST *l,
  const int ifnew
) {
  if(l==NULL) return(-1);
  if(s1==NULL || s2==NULL) return(0);
  
  /* Get the nr of tokens */
  int n=strTokenNr((char*)s1, s2); if(n<1) return(0);
  /* Read the values */
  char tmp[128], tmp2[128], *t, *tail;
  int i, j, m, first, last, sw;
  for(i=j=0; i<n; i++) {
    if(strTokenNCpy(s1, s2, 1+i, tmp, 128)<1) return(-2);
    t=tmp; errno=0;
    first=strtol(t, &tail, 10); if(errno) return(-3);
    if(*tail) {
      strcpy(tmp2, tail); t=tmp2;
      if(*t=='-') t++;
      else if(*t=='.') {t++; if(*t=='.') t++; else return(-4);}
      else return(-5);
      if(!*t) return(-6);
      last=strtol(t, &tail, 10); if(errno) return(-7);
      if(*tail) return(-8);
    } else {
      last=first;
    }
 
    if(first>last) {sw=first; first=last; last=sw;}
    for(int v=first; v<=last; v++) {
      m=intlistAdd(l, v, ifnew); if(m<0) return(-10);
      j+=m;
    }
  }
  return(j);
}
/*****************************************************************************/
 
/*****************************************************************************/