DescriptorIndex.cpp File Reference

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include "../Enum/Enum.h"
#include "../io/io.h"
#include "../Exceptions/exceptions.h"

Go to the source code of this file.

Functions
int	DescriptorIndex (char *root, int *pindex, char *descriptor)

Function Documentation

DescriptorIndex()

int DescriptorIndex	(	char *	root,
		int *	pindex,
		char *	descriptor
	)

Definition at line 20 of file DescriptorIndex.cpp.

                                                              { //We assume root has already been allocated, and we just have to copy into it.
 
   char * pch=NULL;
 
   /*retrieve first token, separated by underscore: */
   pch = strtok (descriptor,"_");
   if(!pch)_error_("descriptor " << descriptor << " is not correctly formatted!");
 
   if (strncmp(pch,"scaled",6)==0){
      /*we have a scaled variable. recover the root: */
      pch = strtok (NULL, "_");
      if(!pch)_error_("scaled descriptor " << descriptor << " is not correctly formatted!");
      memcpy(root,pch,(strlen(pch)+1)*sizeof(char));
 
      /*now recover  the index if it exists: */
      pch = strtok (NULL, "_");
      if(!pch){
         *pindex=-1;
      }
      else{
         sscanf(pch,"%i",pindex);
      }
      return ScaledEnum;
   }
   else if (strncmp(pch,"indexed",7)==0){
      /*we have an indexed variable. recover the root: */
      pch = strtok (NULL, "_");
      if(!pch)_error_("indexed descriptor " << descriptor << " is not correctly formatted!");
      memcpy(root,pch,(strlen(pch)+1)*sizeof(char));
      /*now recover  the index: */
      pch = strtok (NULL, "_");
      if(!pch)_error_("indexed descriptor " << descriptor << " is not correctly formatted!");
      sscanf(pch,"%i",pindex);
      return IndexedEnum;
   }
   else if (strncmp(pch,"nodal",5)==0){
      /*we have an indexed variable. recover the root: */
      pch = strtok (NULL, "_");
      if(!pch)_error_("nodal descriptor " << descriptor << " is not correctly formatted!");
      memcpy(root,pch,(strlen(pch)+1)*sizeof(char));
      /*now recover  the index: */
      pch = strtok (NULL, "_");
      if(!pch)_error_("nodal descriptor " << descriptor << " is not correctly formatted!");
      sscanf(pch,"%i",pindex);
      return NodalEnum;
   }
   else{
      /*We don't have _ in the name, this is a regular variable: */
      memcpy(root,pch,(strlen(pch)+1)*sizeof(char));
      *pindex=-1;
      return RegularEnum;
   }
}