Subversion Repositories public iLand

/********************************************************************************************

**    iLand - an individual based forest landscape and disturbance model

**    http://iland.boku.ac.at

**    Copyright (C) 2009-  Werner Rammer, Rupert Seidl

**

**    This program is free software: you can redistribute it and/or modify

**    it under the terms of the GNU General Public License as published by

**    the Free Software Foundation, either version 3 of the License, or

**    (at your option) any later version.

**

**    This program is distributed in the hope that it will be useful,

**    but WITHOUT ANY WARRANTY; without even the implied warranty of

**    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

**    GNU General Public License for more details.

**

**    You should have received a copy of the GNU General Public License

**    along with this program.  If not, see <http://www.gnu.org/licenses/>.

********************************************************************************************/

#include "agent.h"

#include "agenttype.h"

#include "scheduler.h"

#include "forestmanagementengine.h"

#include "fmstand.h"

#include "fomescript.h"

#include "fmstp.h"

namespace ABE {

/** @class Agent

    @ingroup abe

    The Agent class is a lightweight implementation of a single forest manager. Several agents (responsible for particular parts

    of the landscape) may be of the same AgentType and thus share certain characteristics.

  */

int Agent::mAgentsCreated = 0;

Agent::Agent(AgentType *type, QJSValue js)

{

    mType = type;

    mJSAgent = js;

    mAgentsCreated++;

    mName = QString("agent_%1").arg(mAgentsCreated);

}

void Agent::setName(const QString &name)

{

    mName = name;

    mJSAgent.setProperty("name", name);

}

double Agent::useSustainableHarvest() const

{

    return schedulerOptions().useSustainableHarvest;

}

void Agent::setup()

{

    QJSValue scheduler = jsAgent().property("scheduler");

    mSchedulerOptions.setup( scheduler );

    FMSTP *stp = type()->stpByName("default");

    if (!stp)

        throw IException("Agent::setup(): default-STP not defined");

    QJSValue onSelect_handler = type()->jsObject().property("onSelect");

    const QMultiMap<FMUnit*, FMStand*> &stand_map = ForestManagementEngine::instance()->stands();

    foreach (FMUnit *unit, mUnits) {

        QMultiMap<FMUnit*, FMStand*>::const_iterator it = stand_map.constFind(unit);

        unit->setU(stp->rotationLengthOfType(2)); // medium

        while (it!=stand_map.constEnd() && it.key()==unit) {

            FMStand *stand = it.value();

            // check if STP is already assigned. If not, do it now.

            if (!stand->stp()) {

                stand->reload(); // fetch data from iLand ...

                if (onSelect_handler.isCallable()) {

                    FomeScript::setExecutionContext(stand);

                    //QJSValue mix = onSelect_handler.call();

                    QJSValue mix = onSelect_handler.callWithInstance(type()->jsObject());

                    QString mixture_type = mix.toString();

                    if (!type()->stpByName(mixture_type))

                        throw IException(QString("Agent::setup(): the selected mixture type '%1' for stand '%2' is not valid for agent '%3'.").arg(mixture_type).arg(stand->id()).arg(mName));

                    stand->setSTP(type()->stpByName(mixture_type));

                } else {

                    // todo.... some automatic stp selection

                    stand->setSTP(stp);

                }

                stand->setU( unit->U() );

                stand->setThinningIntensity( unit->thinningIntensity() );

                stand->setTargetSpeciesIndex( unit->targetSpeciesIndex() );

                stand->initialize(); // run initialization

            }

            ++it;

        }

    }

}

} // namespace