#include "KSGSRückruf.h" #include "../Klassen/KSGSTyp.h" #include "../Main/KSGScriptObj.h" #include "../Befehl/KSGSKlasse.h" using namespace KSGScript; // Inhalt der KSGSRückrufFInstanz Klasse aus KSGSRückruf.h // Konstruktor KSGSRückrufInstanz::KSGSRückrufInstanz( KSGScriptObj *obj ) : KSGSFunktionInstanz( new RCArray< KSGSBefehl >(), KSGS_VOID, obj, 0 ) { parameter = 0; } // Destruktor KSGSRückrufInstanz::~KSGSRückrufInstanz() { if( parameter ) parameter->release(); } // nicht constant void KSGSRückrufInstanz::setParameter( Array< KSGSVariableDef * > *zDef, RCArray< KSGSVariable > *vars ) { if( parameter ) parameter->release(); parameter = vars; } KSGSVariable *KSGSRückrufInstanz::startFunktion() { return obj->rückruf( parameter ? ( RCArray< KSGSVariable >* )parameter->getThis() : new RCArray< KSGSVariable >() ); } // Inhalt der KSGSRückrufFunktion Klasse aus KSGSRückruf.h // Konstruktor KSGSRückrufFunktion::KSGSRückrufFunktion() : KSGSFunktion( 0, 0, KSGS_VOID ) {} // nicht constant KSGSFunktionInstanz *KSGSRückrufFunktion::erstellInstanz( KSGScriptObj *obj, KSGSVariable *klasse, RCArray< KSGSVariable > *params ) { KSGSRückrufInstanz *inst = new KSGSRückrufInstanz( obj ); if( params ) inst->setParameter( 0, params ); return inst; }