studynr.c

Go to the documentation of this file.

/*****************************************************************************/
#include "tpcclibConfig.h"
/*****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "tpcextensions.h"
/*****************************************************************************/
 
/*****************************************************************************/
int studynrVerify(
  const char *s,
  int zero_ok
) {
  if(s==NULL) return(2);
  size_t len, i, j;
  len=strlen(s); if(len<2 || len>10) return(1);
  for(i=0; i<len; i++) if(!isalnum((int)s[i])) return(1);
  for(i=0; i<len; i++) if(!isalpha((int)s[i])) break;
  if(i<1 || i>5) return(1);
  if(zero_ok==0 && s[i]=='0') return(1); /* first digit must be >0 */
  for(j=0; (i+j)<len; j++) if(!isdigit((int)s[i+j])) return(1);
  if(j<1 || j>5) return(1);
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynrStandardize(
  char *s
) {
  if(s==NULL) return(1);
  size_t i, j, len;
  len=strlen(s); if(len<2) return(1);
  if(isdigit((int)s[0])) return(2);
  if(!isdigit((int)s[len-1])) return(3);
  /* Convert to lower-case */
  for(i=0; i<len; i++) {
    if(isdigit((int)s[i])) break;
    s[i]=(char)tolower((int)s[i]);
  }
  /* Remove initial zeroes */
  for(i=1; i<len; i++) if(isdigit((int)s[i])) break;
  for(j=i; j<len; j++) if(s[j]!='0') break;
  if(i==j) return(0); /* no initial zeroes */
  for(;j<=len; i++, j++) s[i]=s[j];
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynrFromFilename(
  const char *fname,
  char *studynr,
  int force
) {
  if(studynr==NULL) return(1); 
  strcpy(studynr, "");
  if(fname==NULL || strnlen(fname, 2)<2) return(1);
  /* Work with copy of file name */
  char *temp=strdup(fname);
  /* Remove path and extensions */
  filenameRmPath(temp); filenameRmExtensions(temp);
  /* Check if any part of base file name could be a valid study number */
  int ret=0, j;
  size_t i, k, n, len;
  len=strlen(temp); if(len<1) {free(temp); return(2);}
  for(i=1; i<len; i++) if(isalpha(temp[i-1]) && isdigit(temp[i])) {
    j=i-1; while(j>0 && isalpha(temp[j-1])) j--;
    k=i; while(k<len-1 && isdigit(temp[k+1])) k++;
    n=k-j+1; if(n>=2 && n<=10) {
      strlcpy(studynr, temp+j, n+1);
      if(force==1) {ret=1; break;}
      if(studynrStandardize(studynr)==0 && studynrVerify(studynr, 0)==0) {
        ret=2; break;}
    } 
  }
  if(ret) {free(temp); return 0;}
  if(force==0) {free(temp); return 3;}
  /* ok we have to take something */
  for(j=0; j<(int)len; j++) if(isalpha(temp[j]) || isdigit(temp[j])) break;
  for(k=j; k<len-1; k++) if(!isalpha(temp[k+1]) && !isdigit(temp[k+1])) break;
  n=k-j+1; if(n<1) {free(temp); return 4;}
  if(n>10) n=10;
  strlcpy(studynr, temp+j, n+1);
  free(temp);
  return 0;
}
/*****************************************************************************/
 
/*****************************************************************************/