KSG-Script/ksgScript/Klassen/KSGSThread.cpp

#include "KSGSThread.h"
#include "KSGSTyp.h"
#include "../Error/Error.h"
#include "KSGSInt.h"
#include "KSGSBool.h"

using namespace KSGScript;

// Inhalt der KSGSThreadKlasse Klasse aus KSGSThreadKlasse.h
// Konstruktor
KSGSThreadKlasse::KSGSThreadKlasse( KSGScriptObj *zObj, KSGSFunktionInstanz *f )
	: KSGSKlasseInstanz( KSGS_THREAD, 0, 0, zObj )
{
	func = f;
}

// Destruktor
KSGSThreadKlasse::~KSGSThreadKlasse()
{
	if( func )
		func->release();
}

// nicht constant
void KSGSThreadKlasse::threadEnde()
{
	if( func )
		func = func->release();
}

KSGSVariable *KSGSThreadKlasse::startFunktion( int id, bool access, RCArray< KSGSVariable > *parameter )
{
	switch( id )
	{
	case 0: // void pause();
		if( func )
			func->setPause( 1 );
		break;
	case 1: // void fortsetzen();
		if( func )
			func->setPause( 0 );
		break;
	case 2: // void ende();
		if( func )
			func->setEnde();
		break;
	case 3: // bool läuft();
		if( func )
		{
			parameter->release();
			return new KSGSBoolKlasse( obj, func->wirdAusgeführt() );
		}
		break;
	case 4: // int warteAufThread( int zeit )
		if( func )
		{
			int zeit = 0;
			if( parameter->getEintragAnzahl() >= 1 && parameter->z( 0 ) )
				zeit = parameter->z( 0 )->getInt();
			else
				error( 20, {}, obj );
			parameter->release();
			return new KSGSIntKlasse( obj, func->warteAufFunktion( zeit ) );
		}
		break;
	default:
		error( 19, {}, obj );
		break;
	}
	parameter->release();
	return 0;
}

// Reference Counting
KSGSVariable *KSGSThreadKlasse::release()
{
	ref--;
	if( !ref )
		delete this;
	return 0;
}