rname.c

Go to the documentation of this file.

 
/****************************************************************************/
#include "libtpcmisc.h"
/*****************************************************************************/
 
/*****************************************************************************/
int rnameSplit(
  char *rname,
  char *name1,
  char *name2,
  char *name3,
  int max_name_len
) {
  char temp[MAX_REGIONNAME_LEN+1], temp2[MAX_REGIONNAME_LEN+1];
  char *cptr, *lptr, space[64];
  int nr;
 
  if(rname==NULL || name1==NULL || name2==NULL || name3==NULL) return(0);
#if(0)
      printf("  rname := '%s'\n", rname);  
#endif
  if(max_name_len<1) return(0);
  name1[0]=name2[0]=name3[0]=(char)0;
  strncpy(temp, rname, MAX_REGIONNAME_LEN); temp[MAX_REGIONNAME_LEN]=(char)0;
 
  /* Try to divide long name with only upper case letters as possible dividers */
  if((int)strlen(rname)>max_name_len) {
    int nr1, nr2;
    strcpy(space, " _-."); nr1=strChrCount(temp, space);
    nr2=strUppercaseCount(temp+1); // not counting first character if that is uppercase
    if(nr1==0 && nr2>0 && nr2<=3) {
      nr=0;
      int len=strlen(temp);
      int i=1, n=0;
      cptr=temp;
      while(i<len && !isupper(temp[i])) i++;
      n=i; if(n>max_name_len) n=max_name_len;
      strncpy(name1, cptr, n); name1[n]=(char)0; nr++;
      cptr=temp+i; n=0;
      while(i<len && (!isupper(temp[i]) || n==0)) {i++; n++;}
      if(n>max_name_len) n=max_name_len;
      if(n>0) {
        strncpy(name2, cptr, n); name2[n]=(char)0; nr++;
        cptr=temp+i; n=0;
        while(i<len && (!isupper(temp[i]) || n==0)) {i++; n++;}
        if(n>max_name_len) n=max_name_len;
        if(n>0) {strncpy(name3, cptr, n); name3[n]=(char)0; nr++;}
      }
#if(0)
      printf("  -> subnames := '%s' '%s' '%s'\n", name1, name2, name3);  
#endif
      return(nr);
    }
  }
 
  nr=rnameRmDots(temp, temp2);
#if(0)  
  printf("temp = '%s'\n", temp);  
  printf("temp2 = '%s'\n", temp2);  
#endif
  strcpy(space, " \t");
  if(nr<3) {
    if(strChrCount(temp2, space)<2) strcat(space, "_");
    if(strChrCount(temp2, space)<2) strcat(space, "-");
  }
  strcat(space, "\n\r");
  nr=0; lptr=temp;
  cptr=strtok(lptr, space); if(cptr==NULL) return(nr);
  strncpy(name1, cptr, max_name_len); name1[max_name_len]=(char)0; nr++;
  cptr=strtok(NULL, space); if(cptr==NULL) return(nr);
  strncpy(name2, cptr, max_name_len); name2[max_name_len]=(char)0; nr++;
  cptr=strtok(NULL, space); if(cptr==NULL) return(nr);
  strncpy(name3, cptr, max_name_len); name3[max_name_len]=(char)0; nr++;
#if(0)
  printf("  -> subnames := '%s' '%s' '%s'\n", name1, name2, name3);  
#endif
  return(nr);
}
/*****************************************************************************/
 
/*****************************************************************************/
int rnameRmDots(
  char *rname1,
  char *rname2
) {
  char *temp, *out, *cptr, *lptr;
  int len, c=0;
 
  if(rname1==NULL) return -1;
  len=strlen(rname1);
  if(len<1) {if(rname2!=NULL) strcpy(rname2, ""); return 0;}
  temp=malloc(len+1); if(temp==NULL) return -3;
  strcpy(temp, rname1);
  if(rname2==NULL) out=rname1; else out=rname2;
  strcpy(out, "");
 
  /* remove dots and extra spaces */
  lptr=temp;
  cptr=strtok(lptr, " \t\n\r");
  while(cptr!=NULL) {
    if(strcmp(cptr, ".")!=0) {
      if(strlen(out)>0) strcat(out, " ");
      strcat(out, cptr); c++;
    }
    cptr=strtok(NULL, " \t\n\r");
  }
  free(temp);
  return c;
}
/*****************************************************************************/
 
/*****************************************************************************/
int rnameMatch(
  char *rname,
  int rnr,
  char *test_str
) {
  char region[3][MAX_REGIONNAME_LEN+1];
  char test[3][MAX_REGIONNAME_LEN+1];
  unsigned int ni, m, rtoknr=0, ttoknr=0;
 
  /* Check the input */
  if(rname==NULL || strlen(rname)<1) return(0);
  if(test_str==NULL || strlen(test_str)<1) return(0);
  /* Split region names into 1-3 subnames */
  rtoknr=rnameSplit(rname, region[0], region[1], region[2], MAX_REGIONNAME_LEN);
  ttoknr=rnameSplit(test_str, test[0], test[1], test[2], MAX_REGIONNAME_LEN);
  if(rtoknr==0 || ttoknr==0) return(0);
  /* If more than one subname to test for, then test against corresponding
     subnames */
  if(ttoknr>1) {
    for(ni=0; ni<ttoknr; ni++) {
      if( strcmp(test[ni], ".") && fncasematch(test[ni], region[ni])==0 ) {
        return(0);}
    }
    return(1);
  }
  /* If just one subname to test for */
  /* If it contains only digits, then we assume that it is region number */
  for(ni=m=0; ni<strlen(test[0]); ni++)
    if(isdigit((int)test[0][ni])==0) {m++; break;}
  if(m==0 && (ni=atoi(test[0]))>0) { /* it indeed is an acceptable  number */
    if((unsigned int)rnr==ni) return(1); else return(0);
  }
  /* It is name; chack if it is found anywhere in the region name */
  for(ni=0; ni<rtoknr; ni++) if(fncasematch(test[0], region[ni])) return(1);
  return(0);
}
/*****************************************************************************/
 
/*****************************************************************************/
int rnameCatenate(
  char *rname,
  int max_rname_len,
  char *name1,
  char *name2,
  char *name3,
  char space
) {
  unsigned int len, rlen;
 
  if(rname==NULL || max_rname_len<1) return 1;
  if(name1==NULL && name2==NULL && name3==NULL) return 2;
 
  strcpy(rname, "");
 
  len=strlen(name1);
  if(len>0 && len<(unsigned int)max_rname_len && strcmp(name1, ".")!=0)
    strcpy(rname, name1);
 
  len=strlen(name2); rlen=strlen(rname);
  if(len>0 && (len+strlen(rname)+1)<(unsigned int)max_rname_len 
           && strcmp(name2, ".")!=0) {
    if(rlen>0) {rname[rlen]=(char)space; rname[rlen+1]=(char)0;}
    strcat(rname, name2);
  }
 
  len=strlen(name3); rlen=strlen(rname);
  if(len>0 && (len+strlen(rname)+1)<(unsigned int)max_rname_len 
           && strcmp(name3, ".")!=0) {
    if(rlen>0) {rname[rlen]=(char)space; rname[rlen+1]=(char)0;}
    strcat(rname, name3);
  }
 
  if(strlen(rname)<1) return 3;
  return 0;
}
/*****************************************************************************/
 
/*****************************************************************************/
int roinameExists(
  char *roiname
) {
  if(roiname==NULL) return(0);
  size_t len, n;
  len=strlen(roiname); if(len==0) return(0);
  n=strspn(roiname, " _-.\t"); if(n==len) return(0);
  return(1);
}
/*****************************************************************************/
 
/*****************************************************************************/