source: cpp/frams/_demos/genotypemini.cpp @ 986

#include "genotypemini.h"
#include <frams/vm/classes/collectionobj.h>
#include <common/log.h>

#define FIELDSTRUCT GenotypeMini
ParamEntry genotypemini_paramtab[] =
{
        { "Genotype", 1, 31, "org", },

        { "name", 0, 0, "Name", "s 0 40", FIELD(name), },
        { "genotype", 0, 0, "Genotype", "s 1", FIELD(genotype), "Genes as a string of characters.", },

        { "info_timestamp", 1, 0, "Last modified", "ft 0 -1 0", FIELD(info_timestamp), },
        { "info_author", 1, 0, "Author name", "s 0 100", FIELD(info_author), },
        { "info_author_ispublic", 1, 0, "Author name is public", "d 0 1 1", FIELD(info_author_ispublic), },
        { "info_email", 1, 0, "Author email", "s 0 100", FIELD(info_email), },
        { "info_email_ispublic", 1, 0, "Author email is public", "d 0 1 0", FIELD(info_email_ispublic), },
        { "info", 1, 0, "Description", "s 1 1000", FIELD(info), "Short description of key features of this creature.", },
        { "info_origin", 1, 0, "Origin", "d 0 4 0 ~Unspecified~Designed~Designed and evolved~Evolved under various conditions~Evolved using single, constant setup", FIELD(info_origin), "Declaration of how this genotype originated." },
        { "info_how_created", 1, 0, "How created", "s 1 1000", FIELD(info_how_created), "Description of the process of designing and/or evolving this genotype." },
        { "info_performance", 1, 0, "Performance notes", "s 1 1000", FIELD(info_performance), "Description of why this genotype is special/interesting and how it performs." },

        { "energy0", 0, 0, "Starting energy", "f 0 -1 0", FIELD(energy0), },
        { "numparts", 0, 0, "Body parts", "d", FIELD(numparts), },
        { "numjoints", 0, 0, "Body joints", "d", FIELD(numjoints), },
        { "numneurons", 0, 0, "Brain size", "d", FIELD(numneurons), },
        { "numconnections", 0, 0, "Brain connections", "d", FIELD(numconnections), },

        { "num", 0, 0, "Ordinal number", "d", FIELD(ordnumber), },
        { "gnum", 0, 0, "Generation", "d", FIELD(generation), },

        { "instances", 0, 0, "Instances", "d", FIELD(instances), "Copies of this genotype", },

        { "lifespan", 0, 0, "Life span", "f", FIELD(lifespan), "Average life span", },
        { "velocity", 0, 0, "Velocity", "f", FIELD(velocity), "Average velocity", },
        { "distance", 0, 0, "Distance", "f", FIELD(distance), },
        { "vertvel", 0, 0, "Vertical velocity", "f", FIELD(vertvel), },
        { "vertpos", 0, 0, "Vertical position", "f", FIELD(vertpos), },

        { "user1", 0, 0, "User field 1", "x", FIELD(user1), },
        { "user2", 0, 0, "User field 2", "x", FIELD(user2), },
        { "user3", 0, 0, "User field 3", "x", FIELD(user3), },
        { "data", 3, PARAM_OBJECTSET, "Custom fields dictionary", "oDictionary", FIELD(data), },

        { "is_valid", 0, 0, "Validity", "d -1 1 -1", FIELD(is_valid),
        "0 = invalid genotype\n"
        "1 = valid genotype\n"
        "-1 = validity is not known." },

        { "uid", 0, 0, "#", "s", FIELD(uid), "Unique identifier" },

        { "mutate", 0, 0, "Mutate", "p()", PROCEDURE(p_mutate), },

        { 0, 0, 0, },
};
#undef FIELDSTRUCT

void GenotypeMini::initData()
{
        DictionaryObject *d = new DictionaryObject;
        data = d->makeObject();
}

GenotypeMini::GenotypeMini()
{
        initData();
}

GenotypeMini::GenotypeMini(const GenotypeMini &src)
{
        initData();
        name = src.name; genotype = src.genotype; info = src.info; uid = src.uid; info_timestamp = src.info_timestamp; info_author = src.info_author; info_email = src.info_email; info_author_ispublic = src.info_author_ispublic; info_email_ispublic = src.info_email_ispublic; info_origin = src.info_origin; info_how_created = src.info_how_created; info_performance = src.info_performance; energy0 = src.energy0; lifespan = src.lifespan; velocity = src.velocity; distance = src.distance; vertvel = src.vertvel; vertpos = src.vertpos; numparts = src.numparts; numjoints = src.numjoints; numneurons = src.numneurons; numconnections = src.numconnections; ordnumber = src.ordnumber; generation = src.generation; instances = src.instances; is_valid = src.is_valid; user1 = src.user1; user2 = src.user2; user3 = src.user3;

        // special case for 'data' (Dictionary inside an ExtObject)
        // 'data=src.data' would copy the Dictionary object reference (very wrong!)
        // performing a shallow copy instead:
        DictionaryObject *d = DictionaryObject::fromObject(data);
        DictionaryObject *src_d = DictionaryObject::fromObject(src.data);
        d->copyFrom(src_d);
}

void GenotypeMini::clear()
{
        Param p(genotypemini_paramtab, this);
        p.setDefault();
}

static std::function<Geno(const Geno&)> genman_mutate;

void GenotypeMini::useGenManMutate(std::function<Geno(const Geno&)> gmm)
{
        genman_mutate = gmm;
}

void GenotypeMini::p_mutate(ExtValue *args, ExtValue *ret)
{
        if (ret != NULL) ret->setEmpty();
        if (!genman_mutate)
        {
                logPrintf("GenotypeMini", "mutate", LOG_ERROR, "No function for mutation provided. See GENOTYPEMINI_USE_GENMAN().");
                return;
        }
        Geno in(genotype.c_str(), -1, name.c_str(), info.c_str());
        Geno out = genman_mutate(in);
        genotype = out.getGenesAndFormat();
        name = out.getName();
        info = out.getComment();
}