studynr.c

Go to the documentation of this file.

/*****************************************************************************/
#include "libtpcmisc.h"
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_in_fname(
  char *fname, 
  char *studynr
) {
  unsigned int i;
  int ret;
  char *cptr, *lptr, temp[FILENAME_MAX], temp2[FILENAME_MAX];
 
  //printf("studynr_in_filename(%s, string)\n", fname);
  if(fname==NULL || studynr==NULL) return(1);
  for(i=0; i<=MAX_STUDYNR_LEN; i++) studynr[i]=(char)0;
  /* Remove path */
  cptr=strrchr(fname, '/'); if(cptr==NULL) cptr=strrchr(fname, '\\');
  if(cptr==NULL) cptr=fname; else cptr++;
  //i=strlen(cptr); if(i>FILENAME_MAX-1) i=FILENAME_MAX-1;
  strlcpy(temp, cptr, FILENAME_MAX); lptr=temp;
  /* Verify tokens in filename whether they are valid as study number */
  cptr=strtok(lptr, "_-+{}!~.()");
  while(cptr!=NULL && !studynr[0]) {
    strcpy(temp2, cptr);
    /* Remove everything after the letter+digit parts */
    for(i=1; i<strlen(temp2); i++) if(!isalpha((int)temp2[i])) break;
    for(; i<strlen(temp2); i++) if(!isdigit((int)temp2[i])) break;
    temp2[i]=(char)0;
    /* Only then check it */
    ret=studynr_validity_check2(temp2, 1);
    if(ret==1) {
      strcpy(studynr, temp2); 
      if(studynr_rm_zeroes(studynr)!=0) strcpy(studynr, "");
      if(studynr_to_lowercase(studynr)!=0) strcpy(studynr, "");
    }
    cptr=strtok(NULL, "_-+{}!~.()");
  }
  if(!studynr[0]) return(2);
  return 0;
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_from_fname2(
  char *fname,
  char *studynr,
  int force
) {
  unsigned int i;
  char *cptr;
 
  //printf("studynr_from_fname2()\n");
 
  if(fname==NULL || studynr==NULL) return(1);
  strcpy(studynr, "");
 
  /* At first try if studynr_in_fname() works */
  if(studynr_in_fname(fname, studynr)==0) return(0);
 
  /* Remove path */
  cptr=strrchr(fname, '/'); if(cptr==NULL) cptr=strrchr(fname, '\\');
  if(cptr==NULL) cptr=fname; else cptr++;
  //i=strlen(cptr); if(i>MAX_STUDYNR_LEN) i=MAX_STUDYNR_LEN;
  strlcpy(studynr, cptr, MAX_STUDYNR_LEN); //studynr[i]=(char)0;
  if(force!=0) return(0);
 
  /* Check that first character is a letter */
  if(!isalpha((int)studynr[0])) {strcpy(studynr, ""); return(4);}
  /* Remove everything after the letter+digit parts */
  for(i=1; i<strlen(studynr); i++) if(!isalpha((int)studynr[i])) break;
  for(; i<strlen(studynr); i++) if(!isdigit((int)studynr[i])) break;
  studynr[i]=(char)0;
  /* Check the length of the study number */
  if(strlen(studynr)<2) {strcpy(studynr, ""); return(5);}
  /* Remove initial zeroes from the number part */
  if(studynr_rm_zeroes(studynr)!=0) {strcpy(studynr, ""); return(6);}
  /* Convert characters to lower case */
  if(studynr_to_lowercase(studynr)!=0) {strcpy(studynr, ""); return(7);}
  /* Check the validity of the study number */
  if(!studynr_validity_check(studynr)) {strcpy(studynr, ""); return(8);}
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_from_fname(
  char *fname, 
  char *studynr
) {
  return studynr_from_fname2(fname, studynr, 0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_match(char *studynr1, char *studynr2) {
  int len1, len2;
  char *cptr1, *cptr2;
 
  len1=strlen(studynr1); if(len1<2 || len1>MAX_STUDYNR_LEN) return(0);
  len2=strlen(studynr2); if(len2<2 || len2>MAX_STUDYNR_LEN) return(0);
  if(len1==len2 && strcmp(studynr1, studynr2)==0) return(1);
  if(len2>len1) cptr2=studynr2+len2-len1; else cptr2=studynr2;
  if(len1>len2) cptr1=studynr1+len1-len2; else cptr1=studynr1;
  if(strcasecmp(cptr1, cptr2)==0) return(2);
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_validity_check2(
  char *studynr,
  int zero_ok
) {
  int i, j, len;
 
  len=strlen(studynr); if(len<2 || len>MAX_STUDYNR_LEN) return(0);
  for(i=0; i<len; i++) if(!isalnum((int)studynr[i])) return(0);
  for(i=0; i<len; i++) if(!isalpha((int)studynr[i])) break;
  if(i<1 || i>5) return(0);
  if(zero_ok==0 && studynr[i]=='0') return(0); /* first digit must be >0 */
  for(j=0; (i+j)<len; j++) if(!isdigit((int)studynr[i+j])) return(0);
  //if(j<1 || j>5) return(0);
  if(j<1 || (i+j)>10) return(0);
  return(1);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_validity_check(
  char *studynr
) {
  return studynr_validity_check2(studynr, 0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_rm_zeroes(char *studynr) {
  int i, j, len;
 
  len=strlen(studynr); if(len<2) return(1);
  if(isdigit((int)studynr[0])) return(2);
  if(!isdigit((int)studynr[len-1])) return(3);
  for(i=1; i<len; i++) if(isdigit((int)studynr[i])) break;
  for(j=i; j<len; j++) if(studynr[j]!='0') break;
  if(i==j) return(0); /* no initial zeroes */
  for(;j<=len; i++, j++) studynr[i]=studynr[j];
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int studynr_to_lowercase(char *studynr) {
  int i, len;
 
  len=strlen(studynr); if(len<2) return(1);
  if(isdigit((int)studynr[0])) return(2);
  if(!isdigit((int)studynr[len-1])) return(3);
  for(i=0; i<len; i++) {
    if(isdigit((int)studynr[i])) break;
    studynr[i]=(char)tolower((int)studynr[i]);
  }
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/