tacselect.c

Go to the documentation of this file.

 
/*****************************************************************************/
#include "tpcclibConfig.h"
/*****************************************************************************/
#include "tpcift.h"
/*****************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>
#include <string.h>
/*****************************************************************************/
#include "tpctac.h"
/*****************************************************************************/
 
/*****************************************************************************/
int tacSelectTACs(
  TAC *d,
  const char *region_name,
  int reset,
  TPCSTATUS *status
) {
  int verbose=0; if(status!=NULL) verbose=status->verbose;
  if(verbose>0) printf("%s()\n", __func__);
  /* Check that required data exists */
  if(d==NULL || d->tacNr<1) {
    statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_NO_DATA);
    return 0;
  }
 
  int ri, len, match_nr=0;
 
  /* Check if NULL was given as tac name; if, then select all */
  if(region_name==NULL) {
    for(ri=0; ri<d->tacNr; ri++) d->c[ri].sw=1;
    statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_OK);
    return(d->tacNr);
  }
 
  /* Reset all selections if required */
  if(reset!=0) for(ri=0; ri<d->tacNr; ri++) d->c[ri].sw=0;
  
  /* Remove any quotation marks from name */
  len=strlen(region_name);
  char local_name[len+1];
  if(len>1) len=strncpyClean(local_name, region_name, len+1);
  else strcpy(local_name, region_name);
 
  /* If tac name is empty, then select all tacs with missing names */
  if(len<1) {
    for(ri=0; ri<d->tacNr; ri++) {
      if(strlen(d->c[ri].name)==0) {d->c[ri].sw=1; match_nr++; continue;}
      /* maybe here should also be checked for names consisting of only space characters */
    }
    statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_OK);
    return(match_nr);
  }
 
  /* Check each TAC name */
  for(ri=0; ri<d->tacNr; ri++) {
    /* does the name match? */
    if(roinameMatch(d->c[ri].name, local_name, status)!=0) {
      d->c[ri].sw=1; match_nr++; continue;
    }
  }
  /* If at least one match was found, then we are ready */
  if(match_nr>0) {
    statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_OK);
    return(match_nr);
  }
 
  /* Next try VOI number, if region_name is suitable */
  int n;
  if(sscanf(local_name, "%d", &n)!=1 || n<1 || n>d->tacNr) {
    statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_NO_DATA);
    return(0);
  }
  d->c[n-1].sw=1; match_nr=1;
  statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_OK);
  return(match_nr);
}
/*****************************************************************************/
 
/*****************************************************************************/
int tacSelectedTACs(
  TAC *d
) {
  int ri, n;
 
  /* Check the input */
  if(d==NULL || d->tacNr<1) return(0);
  /* Check each VOI */
  for(ri=n=0; ri<d->tacNr; ri++) if(d->c[ri].sw!=0) n++;
  return(n);
}
/*****************************************************************************/
 
/*****************************************************************************/
int tacFirstSelected(
  TAC *d
) {
  if(d==NULL || d->tacNr<1) return(-1);
  for(int i=0; i<d->tacNr; i++) if(d->c[i].sw!=0) return(i);
  return(-1);
}
/*****************************************************************************/
 
/*****************************************************************************/
int tacSelectBestReference(
  TAC *d
) {
  int ri, len, min_len, i;
  
  if(d==NULL || d->tacNr<1) return -1;
  if(tacSelectedTACs(d)<1) return -2;
  for(ri=0, i=-1, min_len=9999; ri<d->tacNr; ri++) {
    if(d->c[ri].sw==0) continue;
    len=strlen(d->c[ri].name);
    if(strcasestr(d->c[ri].name, "ALL")!=NULL) len-=4;
    if(strcasestr(d->c[ri].name, "AVG")!=NULL) len-=4;
    if(strcasestr(d->c[ri].name, "MEAN")!=NULL) len-=5;
    if(len<min_len) {min_len=len; i=ri;}
  }
  if(i<0) return -2; else return i;
}
/*****************************************************************************/
 
/*****************************************************************************/
#if(0)
int tacNameMatch(
  const char *tacname,
  const char *test_str,
  TPCSTATUS *status
) {
  int verbose=0; if(status!=NULL) verbose=status->verbose;
  if(verbose>0) printf("%s()\n", __func__);
  statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_OK);
  /* If both string are empty, then that is a match */
  if((tacname==NULL || strlen(tacname)<1) && (test_str==NULL || strlen(test_str)<1)) {return 1;} 
  /* If just either of those is empty, then that is a no match */
  if(tacname==NULL || strlen(tacname)<1) {
    statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_NO_DATA);
    return 0;
  }
  if(test_str==NULL || strlen(test_str)<1) {
    statusSet(status, __func__, __FILE__, __LINE__, TPCERROR_NO_DATA);
    return 0;
  }
 
  /* Split full names into subnames */
  char tacsub[3][MAX_TACNAME_LEN+1];
  char refsub[3][MAX_TACNAME_LEN+1];
  int  ni, tacsubnr=0, refsubnr=0;
  tacsubnr=tacNameSplit(tacname, tacsub[0], tacsub[1], tacsub[2], MAX_TACNAME_LEN);
  refsubnr=tacNameSplit(test_str, refsub[0], refsub[1], refsub[2], MAX_TACNAME_LEN);
  if(verbose>3) {
    printf("tacsubnr := %d\nsubnames :=", tacsubnr);
    for(ni=0; ni<tacsubnr; ni++) printf(" '%s'", tacsub[ni]); 
    printf("\n");
    printf("refsubnr := %d\nsubnames :=", refsubnr);
    for(ni=0; ni<refsubnr; ni++) printf(" '%s'", refsub[ni]); 
    printf("\n");
  }
  if(tacsubnr==0 && refsubnr==0) return(1);
  if(tacsubnr==0 || refsubnr==0) return(0);
  
  /* If more than one subname to test for, then test against corresponding
     subnames with wildcards */
  if(refsubnr>1) {
    if(tacsubnr!=refsubnr) return(0);
    for(ni=0; ni<refsubnr; ni++) {
      if(strlen(refsub[ni])==0 && strlen(tacsub[ni])==0) continue;
      if( strlen(refsub[ni])<1 || fncasematch(tacsub[ni], refsub[ni])==0 ) {
        return(0);}
    }
    return(1);
  }
 
  /* We have just one subname in the test string */
  /* If only one subname also in TAC name, then test them with wildcards */
  if(tacsubnr==1) {
    if(fncasematch(tacsub[0], refsub[0])==0 ) return(0); else return(1);
  }
  /* If it is found in any of sub names, then we consider it a match */
  for(ni=0; ni<tacsubnr; ni++) if(fncasematch(tacsub[ni], refsub[0])) return(1);
  return(0);
}
#endif
/*****************************************************************************/
 
/*****************************************************************************/