---

geno_fx.cpp

#include <ctype.h> // isupper()
#include "geno_fx.h"
#include "framsg.h"

int Geno_fx::roulette(const double *probtab,int count)
{
   double sum=0;
   int i;
        for (i=0;i<count;i++) sum+=probtab[i];
   double sel=rnd01*sum;
   for (sum=0,i=0;i<count;i++) {sum+=probtab[i]; if (sel<sum) return i;}
   return -1;
}

int Geno_fx::getRandomNeuroClass()
{
   int ileakt=0;
   for(int i=0;i<Neuro::getClassCount();i++) ileakt+=(Neuro::getClass(i)->active==true);
   if (ileakt==0) return -1;
   int los=randomN(ileakt)+1;
   ileakt=0;
   for(int i=0;i<Neuro::getClassCount();i++)
      {ileakt+=(Neuro::getClass(i)->active==true); if (ileakt==los) return i;}
   return -1; //never happens   
}

int Geno_fx::parseNeuroClass(char*& s)
{
   int len=strlen(s);
   int Len=0,I=-1;
   for(int i=0;i<Neuro::getClassCount();i++)
   {
      const char *n=Neuro::getClass(i)->name;
      int l=strlen(n);
      if (len>=l && l>Len && (strncmp(s,n,l)==0)) {I=i; Len=l;}
   }
   s+=Len;
   return I;
}

int Geno_fx::getNeuroClass(const char* s)
{
   char *p=(char*)s;
   return parseNeuroClass(p);
}

int Geno_fx::neuroClassProp(char*& s,int neuroclass,bool also_v1_N_props)
{
   int len=strlen(s);
   int Len=0,I=-1;
   Param p=Neuro::getClass(neuroclass)->getProperties();
/*      if (p.type(i)[0]=='f') do mutowania...
      {
         double mn=0,mx=1,df=0.5,c=p.getDouble(i);
         p.getMinMax(i,mn,mx,df);
         p.setDouble(i,RandMutValue(c,mn,mx));
         changed++;
         break;
      }*/
   for(int i=0;i<p.getPropCount();i++)
   {
      const char *n=p.id(i);
      int l=strlen(n);
      if (len>=l && l>Len && (strncmp(s,n,l)==0)) {I=i; Len=l;}
      if (also_v1_N_props) //recognize old properties symbols /=!
      {
         if (strcmp(n,"si")==0) n="/"; else
         if (strcmp(n,"in")==0) n="="; else
         if (strcmp(n,"fo")==0) n="!";
         l=strlen(n);
         if (len>=l && l>Len && (strncmp(s,n,l)==0)) {I=i; Len=l;}
      }
   }
   s+=Len;
   return I;
}

bool Geno_fx::isWS(const char c)
{return c==' ' || c=='\n' || c=='\t' || c=='\r';}

void Geno_fx::skipWS(char *&s)
{ if (!s) FramMessage("Geno_fx","skipWS","NULL reference!",1); else
     while (isWS(*s)) s++;
}

char* Geno_fx::strchrn0(const char *str,char ch)
{ return ch==0?NULL:strchr((char*)str,ch); }

bool Geno_fx::isNeuroClassName(const char firstchar)
{
   return isupper(firstchar) || firstchar=='|' || firstchar=='@';
}

//class TGeno_f2 : public Geno_fx {}; //przyklad

---