bool Test()
{
bool fail = false;
int r;
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
r = engine->RegisterObjectType("string", sizeof(string), asOBJ_CLASS_CDA); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("string", asBEHAVE_CONSTRUCT, "void f()", asFUNCTION(GenericString_Construct), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("string", asBEHAVE_DESTRUCT, "void f()", asFUNCTION(GenericString_Destruct), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("string", asBEHAVE_ASSIGNMENT, "string &f(string &in)", asFUNCTION(GenericString_Assignment), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterStringFactory("string", asFUNCTION(GenericString_Factory), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterGlobalFunction("void test(double)", asFUNCTION(TestDouble), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterGlobalFunction("void test(string)", asFUNCTION(TestString), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterGlobalFunction("double func1(int, double, string)", asFUNCTION(GenFunc1), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterObjectType("obj", 4, asOBJ_PRIMITIVE); assert( r >= 0 );
r = engine->RegisterObjectMethod("obj", "string mthd1(int, double)", asFUNCTION(GenMethod1), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("obj", asBEHAVE_ASSIGNMENT, "obj &f(obj &in)", asFUNCTION(GenAssign), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterGlobalProperty("obj o", &obj);
COutStream out;
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
engine->ExecuteString(0, "test(func1(23, 23, \"test\"))");
engine->ExecuteString(0, "test(o.mthd1(23, 23))");
engine->ExecuteString(0, "o = o");
engine->Release();
// Success
return fail;
}
//-----------------------------------------------------------------------------------------
void RegisterDialogBindings(asIScriptEngine *engine)
{
int r;
r = engine->RegisterGlobalProperty("AngelGUI gui", 0);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "Dialog@ createDialog(int, int)", asFUNCTION(createDialog), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "VBoxLayout@ createVBoxLayout()", asFUNCTION(createVBoxLayout), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "HBoxLayout@ createHBoxLayout()", asFUNCTION(createHBoxLayout), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "GridLayout@ createGridLayout()", asFUNCTION(createGridLayout), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "Button@ createButton(const string &in)", asFUNCTION(createButton), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "Button@ createButton(const Icon &in, const string &in)", asFUNCTION(createButtonEx), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "LineEdit@ createLineEdit(const string &in)", asFUNCTION(createLineEdit), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "Label@ createLabel(const string &in)", asFUNCTION(createLabel), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "ComboBox@ createComboBox()", asFUNCTION(createComboBox), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("AngelGUI", "CheckBox@ createCheckBox(const string &in)", asFUNCTION(createCheckBox), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("Dialog", "void setLayout(Layout@)", asMETHOD(QDialog, setLayout), asCALL_THISCALL);assert(r >= 0);
r = engine->RegisterObjectMethod("Dialog", "int exec()", asMETHOD(QDialog, exec), asCALL_THISCALL);assert(r >= 0);
r = engine->RegisterObjectMethod("Dialog", "void destroy()", asFUNCTION(destroyWidget), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("Dialog", "void setWindowTitle(const string &in)", asFUNCTION(setWindowTitle), asCALL_CDECL_OBJLAST);assert(r >= 0);
r = engine->RegisterObjectMethod("Dialog", "void accept()", asMETHOD(QDialog, accept), asCALL_THISCALL);assert(r >= 0);
r = engine->RegisterObjectMethod("Dialog", "void reject()", asMETHOD(QDialog, reject), asCALL_THISCALL);assert(r >= 0);
}
void registerScriptFunctions(asIScriptEngine *engine)
{
int r; // of type asERetCodes
engine->SetDefaultNamespace("Utils");
r = engine->RegisterGlobalFunction("string insertValues(const string &in, const string &in)", asFUNCTION(proxy_insertValues1), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("string insertValues(const string &in, const string &in, const string &in)", asFUNCTION(proxy_insertValues2), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("string insertValues(const string &in, const string &in, const string &in, const string &in)", asFUNCTION(proxy_insertValues3), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("string insertValues(const string &in, const string &in, const string &in, const string &in, const string &in)", asFUNCTION(proxy_insertValues4), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("void runScript(string &in)", asFUNCTION(runScript), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("int randomInt(int, int)", asFUNCTION(randomInt), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("float randomFloat(int, int)", asFUNCTION(randomFloat), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("void setTimeout(const string &in, float)", asFUNCTION(setTimeout), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterFuncdef("void TimeoutCallback()"); assert(r >= 0);
r = engine->RegisterGlobalFunction("void setTimeoutDelegate(TimeoutCallback@, float)", asFUNCTION(setTimeoutDelegate), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("void logInfo(const string &in)", asFUNCTION(logInfo), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("void logWarning(const string &in)", asFUNCTION(logWarning), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterGlobalFunction("void logError(const string &in)", asFUNCTION(logError), asCALL_CDECL); assert(r >= 0);
}
void RegisterScriptFunction(asCScriptEngine *engine)
{
// Register the gc behaviours for the script functions
int r;
engine->functionBehaviours.engine = engine;
engine->functionBehaviours.flags = asOBJ_REF | asOBJ_GC;
engine->functionBehaviours.name = "_builtin_function_";
#ifndef AS_MAX_PORTABILITY
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ADDREF, "void f()", asMETHOD(asCScriptFunction,AddRef), asCALL_THISCALL);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASE, "void f()", asMETHOD(asCScriptFunction,Release), asCALL_THISCALL);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asMETHOD(asCScriptFunction,GetRefCount), asCALL_THISCALL);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_SETGCFLAG, "void f()", asMETHOD(asCScriptFunction,SetFlag), asCALL_THISCALL);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asMETHOD(asCScriptFunction,GetFlag), asCALL_THISCALL);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asMETHOD(asCScriptFunction,EnumReferences), asCALL_THISCALL);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asMETHOD(asCScriptFunction,ReleaseAllHandles), asCALL_THISCALL);
asASSERT( r >= 0 );
#else
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ADDREF, "void f()", asFUNCTION(ScriptFunction_AddRef_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASE, "void f()", asFUNCTION(ScriptFunction_Release_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asFUNCTION(ScriptFunction_GetRefCount_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_SETGCFLAG, "void f()", asFUNCTION(ScriptFunction_SetFlag_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asFUNCTION(ScriptFunction_GetFlag_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asFUNCTION(ScriptFunction_EnumReferences_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asFUNCTION(ScriptFunction_ReleaseAllHandles_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
#endif
}
bool Test()
{
RET_ON_MAX_PORT
bool fail = false;
int r;
COutStream out;
CBufferedOutStream bout;
// asIScriptContext *ctx;
asIScriptEngine *engine;
// asIScriptModule *mod;
// Test circular reference between grid and ref
{
engine = asCreateScriptEngine();
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptHandle(engine);
RegisterScriptGrid(engine);
// Create the circular reference
r = ExecuteString(engine, "grid<ref> a; a.resize(1,1); @a[0,0] = a;");
if (r != asEXECUTION_FINISHED)
TEST_FAILED;
engine->GarbageCollect();
asUINT currSize, totDestroy, totDetect;
engine->GetGCStatistics(&currSize, &totDestroy, &totDetect);
if (currSize != 0 || totDestroy != 1 || totDetect != 1)
TEST_FAILED;
engine->ShutDownAndRelease();
}
// Test empty initialization list
// http://www.gamedev.net/topic/658849-empty-array-initialization/
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptGrid(engine);
r = ExecuteString(engine, "grid<int> a = {};"); // Valid 0x0 grid
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
r = ExecuteString(engine, "grid<int> a = {{}};"); // Valid 0x1 grid
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
r = ExecuteString(engine, "grid<int> a = {{},{}};"); // Valid 0x2 grid
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test grid object forcibly destroyed by garbage collector
// http://www.gamedev.net/topic/657955-a-quite-specific-bug/
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptGrid(engine);
RegisterScriptAny(engine);
RegisterScriptArray(engine, false);
asIScriptModule *mod = engine->GetModule("test", asGM_ALWAYS_CREATE);
mod->AddScriptSection("test",
"class B {} \n"
"class A \n"
"{ \n"
" any a; \n"
" grid<B@> t(10, 10); \n"
" A() \n"
" { \n"
" a.store(@this); \n"
" } \n"
"} \n"
"array<A@> arr; \n"
"void main() \n"
"{ \n"
" arr.insertLast(@A()); \n"
"} \n");
r = mod->Build();
if( r < 0 )
TEST_FAILED;
// The type B is not really garbage collected
asITypeInfo *t = mod->GetTypeInfoByDecl("B");
if( t == 0 || (t->GetFlags() & asOBJ_GC) )
TEST_FAILED;
// grid<B> is not garbage collected since B is not
t = mod->GetTypeInfoByDecl("grid<B>");
if( t == 0 || (t->GetFlags() & asOBJ_GC) )
TEST_FAILED;
// grid<B@> is however garbage collected because it is not possible to know
// that no class derived from B can't form a circular reference with it.
t = mod->GetTypeInfoByDecl("grid<B@>");
if( t == 0 || !(t->GetFlags() & asOBJ_GC) )
TEST_FAILED;
r = ExecuteString(engine, "main()", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test resize
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptGrid(engine);
RegisterStdString(engine);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
r = ExecuteString(engine,
"grid<string> g; \n"
"g.resize(1,1); \n"
"g[0,0] = 'hello'; \n"
"g.resize(2,2); \n"
"assert( g[0,0] == 'hello' ); \n"
"g[1,1] = 'there'; \n"
"g.resize(1,1); \n"
"assert( g.width() == 1 && g.height() == 1 ); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test initialization lists
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptGrid(engine);
RegisterStdString(engine);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
r = ExecuteString(engine,
"grid<int8> g = {{1,2,3},{4,5,6},{7,8,9}}; \n"
"assert( g[0,0] == 1 ); \n"
"assert( g[2,2] == 9 ); \n"
"assert( g[0,2] == 7 ); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
r = ExecuteString(engine,
"grid<string> g = {{'1','2'},{'4','5'}}; \n"
"assert( g[0,0] == '1' ); \n"
"assert( g[1,1] == '5' ); \n"
"assert( g[0,1] == '4' ); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
r = ExecuteString(engine,
"grid<grid<int>@> g = {{grid<int> = {{1}}, grid<int> = {{2}}}, {grid<int> = {{3}}, grid<int> = {{4}}}}; \n"
"assert( g[0,0][0,0] == 1 ); \n"
"assert( g[1,1][0,0] == 4 ); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Success
return fail;
}
bool Test()
{
bool fail = false;
int r;
COutStream out;
asIScriptEngine *engine;
asIScriptModule *mod;
asIScriptContext *ctx;
{
CMyDebugger debug;
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
RegisterScriptString(engine);
const char *script =
"void func(int a, const int &in b, string c, const string &in d, type @e, type &f, type @&in g) \n"
"{ \n"
"} \n"
"class type {} \n";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
ctx = engine->CreateContext();
ctx->SetLineCallback(asMETHOD(CMyDebugger, LineCallback), &debug, asCALL_THISCALL);
debug.InterpretCommand("s", ctx);
r = ExecuteString(engine, "type t; func(1, 2, 'c', 'd', t, t, t)", mod, ctx);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
if( debug.output != "ExecuteString:1; void ExecuteString()\n"
"ExecuteString:1; void ExecuteString()\n"
"script:0; type@ type()\n"
"script:0; type::type()\n"
"type t = {XXXXXXXX}\n"
"ExecuteString:1; void ExecuteString()\n"
"int a = 1\n"
"const int& b = 2\n"
"string c = \"c\"\n"
"const string& d = \"d\"\n"
"type@ e = {XXXXXXXX}\n"
"type& f = {XXXXXXXX}\n"
"type@& g = {XXXXXXXX}\n"
"script:3; void func(int, const int&in, string, const string&in, type@, type&inout, type@&in)\n"
"int a = 1\n"
"const int& b = 2\n"
"string c = \"c\"\n"
"const string& d = \"d\"\n"
"type@ e = {XXXXXXXX}\n"
"type& f = {XXXXXXXX}\n"
"type@& g = {XXXXXXXX}\n"
"script:3; void func(int, const int&in, string, const string&in, type@, type&inout, type@&in)\n"
"type t = {XXXXXXXX}\n"
"ExecuteString:2; void ExecuteString()\n" )
{
printf("%s", debug.output.c_str());
TEST_FAILED;
}
ctx->Release();
engine->Release();
}
// Test inspecting a script object
// http://www.gamedev.net/topic/627854-debugger-crashes-when-evaluating-uninitialized-object-expression/
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
mod = engine->GetModule("test", asGM_ALWAYS_CREATE);
mod->AddScriptSection("test",
"class CTest \n"
"{ \n"
" CTest() { value = 42; } \n"
" int value; \n"
"} \n"
"void Func() \n"
"{ \n"
" CTest t; \n"
" assert( t.value == 42 ); \n"
"} \n");
r = mod->Build();
if( r < 0 )
TEST_FAILED;
CMyDebugger2 debug;
ctx = engine->CreateContext();
ctx->SetLineCallback(asMETHOD(CMyDebugger, LineCallback), &debug, asCALL_THISCALL);
// Set a break point on the line where the object will be created
debug.InterpretCommand("b test:8", ctx);
// Set a break point after the object has been created
debug.InterpretCommand("b test:9", ctx);
ctx->Prepare(mod->GetFunctionByName("Func"));
// Before the function is actually executed the variables don't exist
if( ctx->IsVarInScope(0) )
TEST_FAILED;
if( ctx->GetAddressOfVar(0) )
TEST_FAILED;
// It will break twice on line 8. Once when setting up the function stack frame, and then on the first line that is executed
// TODO: The first SUSPEND in the bytecode should be optimized away as it is unnecessary
for( int n = 0; n < 2; n++ )
{
r = ctx->Execute();
if( r != asEXECUTION_SUSPENDED )
TEST_FAILED;
// Now we should be on the line where the object will be created created
if( ctx->GetLineNumber() != 8 )
TEST_FAILED;
else
{
// The address should be null
asIScriptObject *obj = (asIScriptObject*)ctx->GetAddressOfVar(0);
if( obj != 0 )
TEST_FAILED;
debug.PrintValue("t", ctx);
}
}
r = ctx->Execute();
if( r != asEXECUTION_SUSPENDED )
TEST_FAILED;
// Now we should be on the line after the object has been created
if( ctx->GetLineNumber() != 9 )
TEST_FAILED;
else
{
if( !ctx->IsVarInScope(0) )
TEST_FAILED;
asIScriptObject *obj = (asIScriptObject*)ctx->GetAddressOfVar(0);
if( obj == 0 )
TEST_FAILED;
if( *(int*)obj->GetAddressOfProperty(0) != 42 )
TEST_FAILED;
debug.PrintValue("t", ctx);
}
if( debug.output != "Setting break point in file 'test' at line 8\n"
"Setting break point in file 'test' at line 9\n"
"Reached break point 0 in file 'test' at line 8\n"
"test:8; void Func()\n"
"Reached break point 0 in file 'test' at line 8\n"
"test:8; void Func()\n"
"Reached break point 1 in file 'test' at line 9\n"
"test:9; void Func()\n"
"{XXXXXXXX}\n"
" int value = 42\n" )
{
printf("%s", debug.output.c_str());
TEST_FAILED;
}
ctx->Release();
engine->Release();
}
return fail;
}
void RegisterScriptObject(asCScriptEngine *engine)
{
// Register the default script class behaviours
int r = 0;
UNUSED_VAR(r); // It is only used in debug mode
engine->scriptTypeBehaviours.engine = engine;
engine->scriptTypeBehaviours.flags = asOBJ_SCRIPT_OBJECT | asOBJ_REF | asOBJ_GC;
engine->scriptTypeBehaviours.name = "_builtin_object_";
#ifndef AS_MAX_PORTABILITY
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_CONSTRUCT, "void f(int&in)", asFUNCTION(ScriptObject_Construct), asCALL_CDECL_OBJLAST); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_ADDREF, "void f()", asMETHOD(asCScriptObject,AddRef), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_RELEASE, "void f()", asMETHOD(asCScriptObject,Release), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterMethodToObjectType(&engine->scriptTypeBehaviours, "int &opAssign(int &in)", asFUNCTION(ScriptObject_Assignment), asCALL_CDECL_OBJLAST); asASSERT( r >= 0 );
// Register GC behaviours
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asMETHOD(asCScriptObject,GetRefCount), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_SETGCFLAG, "void f()", asMETHOD(asCScriptObject,SetFlag), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asMETHOD(asCScriptObject,GetFlag), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asMETHOD(asCScriptObject,EnumReferences), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asMETHOD(asCScriptObject,ReleaseAllHandles), asCALL_THISCALL); asASSERT( r >= 0 );
#else
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_CONSTRUCT, "void f(int&in)", asFUNCTION(ScriptObject_Construct_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_ADDREF, "void f()", asFUNCTION(ScriptObject_AddRef_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_RELEASE, "void f()", asFUNCTION(ScriptObject_Release_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterMethodToObjectType(&engine->scriptTypeBehaviours, "int &opAssign(int &in)", asFUNCTION(ScriptObject_Assignment_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
// Register GC behaviours
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asFUNCTION(ScriptObject_GetRefCount_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_SETGCFLAG, "void f()", asFUNCTION(ScriptObject_SetFlag_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asFUNCTION(ScriptObject_GetFlag_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asFUNCTION(ScriptObject_EnumReferences_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->scriptTypeBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asFUNCTION(ScriptObject_ReleaseAllHandles_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
#endif
}
bool Test()
{
bool fail = false;
int r;
asIScriptEngine *engine;
CBufferedOutStream bout;
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->ClearMessageCallback(); // Make sure this works
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterGlobalFunction("void func(mytype)", asFUNCTION(0), asCALL_GENERIC);
if( r >= 0 ) fail = true;
r = engine->RegisterGlobalFunction("void func(int &)", asFUNCTION(0), asCALL_GENERIC);
if( !engine->GetEngineProperty(asEP_ALLOW_UNSAFE_REFERENCES) )
{
if( r >= 0 ) fail = true;
}
else
{
if( r < 0 ) fail = true;
}
r = engine->RegisterObjectType("mytype", 0, asOBJ_REF);
if( r < 0 ) fail = true;
r = engine->RegisterObjectBehaviour("mytype", asBEHAVE_CONSTRUCT, "void f(othertype)", asFUNCTION(0), asCALL_GENERIC);
if( r >= 0 ) fail = true;
r = engine->RegisterGlobalBehaviour(asBEHAVE_ADD, "type f(type &, int)", asFUNCTION(0), asCALL_GENERIC);
if( r >= 0 ) fail = true;
r = engine->RegisterGlobalProperty("type a", 0);
if( r >= 0 ) fail = true;
r = engine->RegisterObjectMethod("mytype", "void method(int &)", asFUNCTION(0), asCALL_GENERIC);
if( !engine->GetEngineProperty(asEP_ALLOW_UNSAFE_REFERENCES) )
{
if( r >= 0 ) fail = true;
}
else
{
if( r < 0 ) fail = true;
}
r = engine->RegisterObjectProperty("mytype", "type a", 0);
if( r >= 0 ) fail = true;
r = engine->RegisterStringFactory("type", asFUNCTION(0), asCALL_GENERIC);
if( r >= 0 ) fail = true;
// Verify the output messages
if( !engine->GetEngineProperty(asEP_ALLOW_UNSAFE_REFERENCES) )
{
if( bout.buffer != "System function (1, 11) : Error : Identifier 'mytype' is not a data type\n"
"System function (1, 15) : Error : Only object types that support object handles can use &inout. Use &in or &out instead\n"
"System function (1, 8) : Error : Identifier 'othertype' is not a data type\n"
"System function (1, 1) : Error : Identifier 'type' is not a data type\n"
"System function (1, 8) : Error : Identifier 'type' is not a data type\n"
"System function (1, 13) : Error : Only object types that support object handles can use &inout. Use &in or &out instead\n"
"Property (1, 1) : Error : Identifier 'type' is not a data type\n"
"System function (1, 17) : Error : Only object types that support object handles can use &inout. Use &in or &out instead\n"
"Property (1, 1) : Error : Identifier 'type' is not a data type\n"
" (1, 1) : Error : Identifier 'type' is not a data type\n" )
fail = true;
}
else
{
if( bout.buffer != "System function (1, 11) : Error : Identifier 'mytype' is not a data type\n"
"System function (1, 8) : Error : Identifier 'othertype' is not a data type\n"
"System function (1, 1) : Error : Identifier 'type' is not a data type\n"
"System function (1, 8) : Error : Identifier 'type' is not a data type\n"
"Property (1, 1) : Error : Identifier 'type' is not a data type\n"
"Property (1, 1) : Error : Identifier 'type' is not a data type\n"
" (1, 1) : Error : Identifier 'type' is not a data type\n")
fail = true;
}
engine->Release();
// Success
return fail;
}
bool Test()
{
bool fail = false;
int r;
COutStream out;
CBufferedOutStream bout;
asIScriptEngine *engine = 0;
asIScriptModule *mod = 0;
// It must not be possible to declare global variables of the var type ?
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
const char *script1 = "? globvar;";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script1);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 1) : Error : Unexpected token '?'\n" ) TEST_FAILED;
bout.buffer = "";
// It must not be possible to declare local variables of the var type ?
const char *script2 = "void func() {? localvar;}";
mod->AddScriptSection("script", script2);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 1) : Info : Compiling void func()\n"
"script (1, 14) : Error : Expected expression value\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
bout.buffer = "";
// It must not be possible to register global properties of the var type ?
r = engine->RegisterGlobalProperty("? prop", (void*)1);
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "Property (1, 1) : Error : Expected data type\n"
" (0, 0) : Error : Failed in call to function 'RegisterGlobalProperty' with '? prop'\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
bout.buffer = "";
engine->Release();
// It must not be possible to register object members of the var type ?
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("test", 0, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectProperty("test", "? prop", 0);
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "Property (1, 1) : Error : Expected data type\n"
" (0, 0) : Error : Failed in call to function 'RegisterObjectProperty' with 'test' and '? prop'\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
bout.buffer = "";
engine->Release();
// It must not be possible to declare script class members of the var type ?
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
const char *script3 = "class c {? member;}";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script3);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 10) : Error : Expected method or property\n"
"script (1, 19) : Error : Unexpected token '}'\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
bout.buffer = "";
// It must not be possible to declare script functions that take the var type ? as parameter
const char *script4 = "void func(?&in a) {}";
mod->AddScriptSection("script", script4);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 11) : Error : Expected data type\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
bout.buffer = "";
// It must not be possible to declare script functions that return the var type ?
const char *script5 = "? func() {}";
mod->AddScriptSection("script", script5);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 1) : Error : Unexpected token '?'\n" ) TEST_FAILED;
bout.buffer = "";
// It must not be possible to declare script class methods that take the var type ? as parameter
const char *script6 = "class c {void method(?& in a) {}}";
mod->AddScriptSection("script", script6);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 22) : Error : Expected data type\n"
"script (1, 22) : Error : Expected method or property\n"
"script (1, 33) : Error : Unexpected token '}'\n" ) TEST_FAILED;
bout.buffer = "";
// It must not be possible to declare script class methods that return the var type ?
const char *script7 = "class c {? method() {}}";
mod->AddScriptSection("script", script7);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 10) : Error : Expected method or property\n"
"script (1, 23) : Error : Unexpected token '}'\n" ) TEST_FAILED;
bout.buffer = "";
// It must not be possible to declare arrays of the var type ?
const char *script8 = "void func() { ?[] array; }";
mod->AddScriptSection("script", script8);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 1) : Info : Compiling void func()\n"
"script (1, 15) : Error : Expected expression value\n" ) TEST_FAILED;
bout.buffer = "";
// It must not be possible to declare handles of the var type ?
const char *script9 = "void func() { ?@ handle; }";
mod->AddScriptSection("script", script9);
r = mod->Build();
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "script (1, 1) : Info : Compiling void func()\n"
"script (1, 15) : Error : Expected expression value\n" ) TEST_FAILED;
bout.buffer = "";
// It must not be possible to register functions that return the var type ?
r = engine->RegisterGlobalFunction("? testFunc()", asFUNCTION(testFuncI), asCALL_GENERIC);
if( r >= 0 ) TEST_FAILED;
if( bout.buffer != "System function (1, 1) : Error : Expected data type\n"
" (0, 0) : Error : Failed in call to function 'RegisterGlobalFunction' with '? testFunc()'\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
bout.buffer = "";
engine->Release();
// It must be possible to register functions that take the var type ? as parameter
// Only when the expression is explicitly sent as @ should the type id be @
// const ? & in
// ? & in
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
RegisterScriptString(engine);
r = engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
r = engine->RegisterGlobalFunction("void testFuncI(?& in)", asFUNCTION(testFuncI), asCALL_GENERIC);
if( r < 0 ) TEST_FAILED;
r = engine->RegisterGlobalFunction("void testFuncCI(const?&in)", asFUNCTION(testFuncI), asCALL_GENERIC);
if( r < 0 ) TEST_FAILED;
r = engine->RegisterGlobalFunction("void testFuncS(string &in)", asFUNCTION(testFuncS), asCALL_GENERIC);
r = ExecuteString(engine, "int a = 42; testFuncI(a);");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string a = \"test\"; testFuncI(a);");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string @a = @\"test\"; testFuncI(@a);");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
// Both functions should receive the string by reference
r = ExecuteString(engine, "string a = 'test'; testFuncI(a); testFuncS(a);");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
// It must be possible to register with 'out' references
// ? & out
r = engine->RegisterGlobalFunction("void testFuncO(?&out)", asFUNCTION(testFuncO), asCALL_GENERIC);
if( r < 0 ) TEST_FAILED;
r = ExecuteString(engine, "int a; testFuncO(a); assert(a == 42);");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string a; testFuncO(a); assert(a == \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string @a; testFuncO(@a); assert(a == \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
// It must be possible to mix normal parameter types with the var type ?
// e.g. func(const string &in, const ?& in), or func(const ?& in, const string &in)
r = engine->RegisterGlobalFunction("void testFuncIS(?& in, const string &in)", asFUNCTION(testFuncIS_generic), asCALL_GENERIC);
if( r < 0 ) TEST_FAILED;
r = engine->RegisterGlobalFunction("void testFuncSI(const string &in, ?& in)", asFUNCTION(testFuncSI_generic), asCALL_GENERIC);
if( r < 0 ) TEST_FAILED;
r = ExecuteString(engine, "int a = 42; testFuncIS(a, \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "int a = 42; testFuncSI(\"test\", a);");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string a = \"t\"; testFuncIS(a, \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string a = \"t\"; testFuncIS(@a, \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
// It must be possible to use native functions
if( !strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
r = engine->RegisterGlobalFunction("void _testFuncIS(?& in, const string &in)", asFUNCTION(testFuncIS), asCALL_CDECL);
if( r < 0 ) TEST_FAILED;
r = engine->RegisterGlobalFunction("void _testFuncSI(const string &in, ?& in)", asFUNCTION(testFuncSI), asCALL_CDECL);
if( r < 0 ) TEST_FAILED;
r = ExecuteString(engine, "int a = 42; _testFuncIS(a, \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "int a = 42; _testFuncSI(\"test\", a);");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string a = \"t\"; _testFuncIS(a, \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
r = ExecuteString(engine, "string a = \"t\"; _testFuncIS(@a, \"test\");");
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
}
// Don't give error on passing reference to const to ?&out
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
const char *script =
"class C { string @a; } \n";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
mod->Build();
r = ExecuteString(engine, "const C c; testFuncO(@c.a);", mod);
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
if( bout.buffer != "ExecuteString (1, 23) : Warning : Argument cannot be assigned. Output will be discarded.\n" ) TEST_FAILED;
bout.buffer = "";
// ?& with opAssign is allowed, but won't be used with the assignment operator
// TODO: Support ?& with the operators as well
engine->RegisterObjectType("type", sizeof(int), asOBJ_VALUE | asOBJ_APP_PRIMITIVE);
r = engine->RegisterObjectMethod("type", "type &opAssign(const ?& in)", asFUNCTION(testFuncSI_generic), asCALL_GENERIC);
if( r < 0 )
TEST_FAILED;
// TODO: This is a valid class method, but should perhaps not be allowed to be used as operator
/*
r = engine->RegisterObjectMethod("type", "type opAdd(const ?& in)", asFUNCTION(testFuncSI_generic), asCALL_GENERIC);
if( r >= 0 )
TEST_FAILED;
*/
// Don't allow use of ? without being reference
r = engine->RegisterGlobalFunction("void testFunc_err(const ?)", asFUNCTION(testFuncSI_generic), asCALL_GENERIC);
if( r >= 0 )
TEST_FAILED;
// Don't allow use of 'inout' reference, yet
// ? & [inout]
// const ? & [inout]
r = engine->RegisterGlobalFunction("void testFuncIO(?&)", asFUNCTION(testFuncSI_generic), asCALL_GENERIC);
if( r >= 0 ) TEST_FAILED;
r = engine->RegisterGlobalFunction("void testFuncCIO(const?&)", asFUNCTION(testFuncSI_generic), asCALL_GENERIC);
if( r >= 0 ) TEST_FAILED;
engine->Release();
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
RegisterScriptString(engine);
r = engine->RegisterObjectType("obj", sizeof(int), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_PRIMITIVE); assert( r >= 0 );
r = engine->RegisterObjectMethod("obj", "string @fmt(const string &in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in, ?&in)", asFUNCTION(testFuncSI_generic), asCALL_GENERIC); assert( r >= 0 );
asIScriptModule *mod = engine->GetModule("1", asGM_ALWAYS_CREATE);
mod->AddScriptSection("script",
"class App {\n"
" int Run() {\n"
" return 0;\n"
" }\n"
"}\n");
r = mod->Build();
if( r < 0 )
TEST_FAILED;
engine->Release();
}
return fail;
}
void RegisterStringAddon( asIScriptEngine *engine )
{
int r;
// register the string factory
r = engine->RegisterStringFactory( "String @", asFUNCTION( StringFactory ), asCALL_CDECL ); assert( r >= 0 );
// register object behaviours
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_FACTORY, "String @f()", asFUNCTION( objectString_Factory ), asCALL_CDECL ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_FACTORY, "String @f(const String &in)", asFUNCTION( objectString_FactoryCopy ), asCALL_CDECL ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_FACTORY, "String @f(int)", asFUNCTION( objectString_FactoryFromInt ), asCALL_CDECL ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_FACTORY, "String @f(float)", asFUNCTION( objectString_FactoryFromFloat ), asCALL_CDECL ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_FACTORY, "String @f(double)", asFUNCTION( objectString_FactoryFromDouble ), asCALL_CDECL ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_ADDREF, "void f()", asFUNCTION( objectString_Addref ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_RELEASE, "void f()", asFUNCTION( objectString_Release ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_IMPLICIT_VALUE_CAST, "int f() const", asFUNCTION( objectString_CastToInt ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_IMPLICIT_VALUE_CAST, "float f() const", asFUNCTION( objectString_CastToFloat ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectBehaviour( "String", asBEHAVE_IMPLICIT_VALUE_CAST, "double f() const", asFUNCTION( objectString_CastToDouble ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
// register object methods
// assignments
r = engine->RegisterObjectMethod( "String", "String &opAssign(const String &in)", asFUNCTION( objectString_AssignBehaviour ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String &opAssign(int)", asFUNCTION( objectString_AssignBehaviourI ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String &opAssign(double)", asFUNCTION( objectString_AssignBehaviourD ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String &opAssign(float)", asFUNCTION( objectString_AssignBehaviourF ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
// register the index operator, both as a mutator and as an inspector
r = engine->RegisterObjectMethod( "String", "uint8 &opIndex(uint)", asFUNCTION( objectString_Index ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "const uint8 &opIndex(uint) const", asFUNCTION( objectString_Index ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
// +=
r = engine->RegisterObjectMethod( "String", "String &opAddAssign(const String &in)", asFUNCTION( objectString_AddAssignBehaviourSS ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String &opAddAssign(int)", asFUNCTION( objectString_AddAssignBehaviourSI ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String &opAddAssign(double)", asFUNCTION( objectString_AddAssignBehaviourSD ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String &opAddAssign(float)", asFUNCTION( objectString_AddAssignBehaviourSF ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
// +
r = engine->RegisterObjectMethod( "String", "String @opAdd(const String &in) const", asFUNCTION( objectString_AddBehaviourSS ), asCALL_CDECL_OBJFIRST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @opAdd(int) const", asFUNCTION( objectString_AddBehaviourSI ), asCALL_CDECL_OBJFIRST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @opAdd_r(int) const", asFUNCTION( objectString_AddBehaviourIS ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @opAdd(double) const", asFUNCTION( objectString_AddBehaviourSD ), asCALL_CDECL_OBJFIRST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @opAdd_r(double) const", asFUNCTION( objectString_AddBehaviourDS ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @opAdd(float) const", asFUNCTION( objectString_AddBehaviourSF ), asCALL_CDECL_OBJFIRST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @opAdd_r(float) const", asFUNCTION( objectString_AddBehaviourFS ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
// ==
r = engine->RegisterObjectMethod( "String", "bool opEquals(const String &in) const", asFUNCTION( objectString_EqualBehaviour ), asCALL_CDECL_OBJFIRST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "uint len() const", asFUNCTION( objectString_Len ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "uint length() const", asFUNCTION( objectString_Len ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "bool empty() const", asFUNCTION( objectString_Empty ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @tolower() const", asFUNCTION( objectString_ToLower ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @toupper() const", asFUNCTION( objectString_ToUpper ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @trim() const", asFUNCTION( objectString_Trim ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @removeColorTokens() const", asFUNCTION( objectString_RemoveColorTokens ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @getToken(const uint) const", asFUNCTION( objectString_getToken ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "int toInt() const", asFUNCTION( objectString_toInt ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "float toFloat() const", asFUNCTION( objectString_toFloat ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "uint locate(String &, const uint) const", asFUNCTION( objectString_Locate ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @substr(const uint start, const uint length) const", asFUNCTION( objectString_Substring ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @subString(const uint start, const uint length) const", asFUNCTION( objectString_Substring ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @substr(const uint start) const", asFUNCTION( objectString_Substring2 ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "String @subString(const uint start) const", asFUNCTION( objectString_Substring2 ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "bool isAlpha() const", asFUNCTION( objectString_IsAlpha ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "bool isNumerical() const", asFUNCTION( objectString_IsNumeric ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "bool isNumeric() const", asFUNCTION( objectString_IsNumeric ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
r = engine->RegisterObjectMethod( "String", "bool isAlphaNumerical() const", asFUNCTION( objectString_IsAlphaNumerical ), asCALL_CDECL_OBJLAST ); assert( r >= 0 );
}
bool Test()
{
bool fail = Test2();
int r;
COutStream out;
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
RegisterScriptString(engine);
engine->RegisterGlobalFunction("void Assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script, strlen(script));
r = mod->Build();
if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "uint8 newmask = 0xFF, mask = 0x15; Assert( (newmask & ~mask) == 0xEA );");
if( r != asEXECUTION_FINISHED ) fail = true;
r = engine->ExecuteString(0, "uint8 newmask = 0xFF; newmask = newmask & (~mask2) & (~mask3) & (~mask5); Assert( newmask == 0xD3 );");
if( r != asEXECUTION_FINISHED ) fail = true;
r = engine->ExecuteString(0, "uint8 newmask = 0XFE; Assert( (newmask & mask0) == 0 );");
if( r != asEXECUTION_FINISHED ) fail = true;
r = engine->ExecuteString(0, "uint8 b = 0xFF; b &= ~mask4; BitsTest(b);");
if( r != asEXECUTION_FINISHED ) fail = true;
engine->RegisterGlobalFunction("uint8 ReturnByte(uint8)", asFUNCTION(ReturnByte), asCALL_GENERIC);
engine->RegisterGlobalFunction("uint16 ReturnWord(uint16)", asFUNCTION(ReturnWord), asCALL_GENERIC);
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script2, strlen(script2));
engine->SetEngineProperty(asEP_OPTIMIZE_BYTECODE, false);
r = mod->Build();
if( r < 0 )
fail = true;
r = engine->ExecuteString(0, "Test()");
if( r != asEXECUTION_FINISHED )
fail = true;
// bitwise operators should maintain signed/unsigned type of left hand operand
CBufferedOutStream bout;
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->ExecuteString(0, "int a = 0, b = 0; bool c = (a < (b>>1));");
if( r < 0 )
fail = true;
r = engine->ExecuteString(0, "uint a = 0, b = 0; bool c = (a < (b>>1));");
if( r < 0 )
fail = true;
if( bout.buffer != "" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Success
return fail;
}
void RegisterMathAddon( asIScriptEngine *engine )
{
const struct
{
const char *declaration;
asSFuncPtr ptr;
}
math_asGlobFuncs[] =
{
{ "int abs( int x )", asFUNCTION(asFunc_abs) },
{ "double abs( double x )", asFUNCTION(asFunc_fabs) },
{ "double log( double x )", asFUNCTION(asFunc_log) },
{ "double pow( double x, double y )", asFUNCTION(asFunc_pow) },
{ "double cos( double x )", asFUNCTION(asFunc_cos) },
{ "double sin( double x )", asFUNCTION(asFunc_sin) },
{ "double tan( double x )", asFUNCTION(asFunc_tan) },
{ "double acos( double x )", asFUNCTION(asFunc_acos) },
{ "double asin( double x )", asFUNCTION(asFunc_asin) },
{ "double atan( double x )", asFUNCTION(asFunc_atan) },
{ "double atan2( double x, double y )", asFUNCTION(asFunc_atan2) },
{ "double sqrt( double x )", asFUNCTION(asFunc_sqrt) },
{ "double ceil( double x )", asFUNCTION(asFunc_ceil) },
{ "double floor( double x )", asFUNCTION(asFunc_floor) },
{ "double random()", asFUNCTION(asFunc_random) },
{ "double brandom( double min, double max )", asFUNCTION(asFunc_brandom) },
{ "int rand()", asFUNCTION(asFunc_rand) },
{ NULL, asFUNCTION(0) }
}, *func;
int r;
for( func = math_asGlobFuncs; func->declaration; func++ ) {
r = engine->RegisterGlobalFunction( func->declaration, func->ptr, asCALL_CDECL ); assert( r >= 0 );
}
}
bool Test()
{
bool fail = false;
int r;
COutStream out;
CBufferedOutStream bout;
asIScriptEngine *engine = 0;
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptString(engine);
RegisterScriptDictionary(engine);
r = engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC); assert( r >= 0 );
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script, strlen(script));
r = mod->Build();
if( r < 0 )
fail = true;
asIScriptContext *ctx = 0;
r = engine->ExecuteString(0, "Test()", &ctx);
if( r != asEXECUTION_FINISHED )
{
if( r == asEXECUTION_EXCEPTION )
PrintException(ctx);
fail = true;
}
ctx->Release();
asUINT gcCurrentSize, gcTotalDestroyed, gcTotalDetected;
engine->GetGCStatistics(&gcCurrentSize, &gcTotalDestroyed, &gcTotalDetected);
engine->GarbageCollect();
engine->GetGCStatistics(&gcCurrentSize, &gcTotalDestroyed, &gcTotalDetected);
if( gcCurrentSize != 0 || gcTotalDestroyed != 1 || gcTotalDetected != 1 )
fail = true;
// Test circular references including a script class and the dictionary
mod->AddScriptSection("script", script2, strlen(script2));
r = mod->Build();
if( r < 0 )
fail = true;
r = engine->ExecuteString(0, "f()");
if( r != asEXECUTION_FINISHED )
fail = true;
engine->GetGCStatistics(&gcCurrentSize, &gcTotalDestroyed, &gcTotalDetected);
engine->GarbageCollect();
engine->GetGCStatistics(&gcCurrentSize, &gcTotalDestroyed, &gcTotalDetected);
if( gcCurrentSize != 0 || gcTotalDestroyed != 3 || gcTotalDetected != 3 )
fail = true;
// Test invalid ref cast together with the variable argument
bout.buffer = "";
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
r = engine->ExecuteString(0, "dictionary d; d.set('hello', cast<int>(4));");
if( r >= 0 )
fail = true;
if( bout.buffer != "ExecuteString (1, 35) : Error : Illegal target type for reference cast\n" )
{
fail = true;
printf(bout.buffer.c_str());
}
engine->Release();
//-------------------------
// Test the generic interface as well
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptString(engine);
RegisterScriptDictionary_Generic(engine);
r = engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC); assert( r >= 0 );
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script, strlen(script));
r = mod->Build();
if( r < 0 )
fail = true;
r = engine->ExecuteString(0, "Test()", &ctx);
if( r != asEXECUTION_FINISHED )
{
if( r == asEXECUTION_EXCEPTION )
PrintException(ctx);
fail = true;
}
ctx->Release();
engine->Release();
return fail;
}
bool TestCDecl_ClassC()
{
if( strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
printf("%s: Skipped due to AS_MAX_PORTABILITY\n", TESTNAME);
return false;
}
bool fail = false;
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->RegisterObjectType("class1", sizeof(ClassC1), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_CLASS_C);
engine->RegisterObjectType("class2", sizeof(ClassC2), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_CLASS_C);
engine->RegisterObjectType("class3", sizeof(ClassC3), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_CLASS_C);
engine->RegisterGlobalProperty("class1 c1", &c1);
engine->RegisterGlobalProperty("class2 c2", &c2);
engine->RegisterGlobalProperty("class3 c3", &c3);
engine->RegisterGlobalFunction("class1 _class1()", asFUNCTION(classC1), asCALL_CDECL);
engine->RegisterGlobalFunction("class2 _class2()", asFUNCTION(classC2), asCALL_CDECL);
engine->RegisterGlobalFunction("class3 _class3()", asFUNCTION(classC3), asCALL_CDECL);
COutStream out;
c1.a = 0;
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
int r = ExecuteString(engine, "c1 = _class1();");
if( r < 0 )
{
printf("%s: ExecuteString() failed %d\n", TESTNAME, r);
fail = true;
}
if( c1.a != 0xDEADC0DE )
{
printf("%s: Failed to assign complex object returned from function. c1.a = %X\n", TESTNAME, c1.a);
fail = true;
}
c2.a = 0;
c2.b = 0;
r = ExecuteString(engine, "c2 = _class2();");
if( r < 0 )
{
printf("%s: ExecuteString() failed %d\n", TESTNAME, r);
fail = true;
}
if( c2.a != 0xDEADC0DE )
{
printf("%s: Failed to assign complex object returned from function. c2.a = %X\n", TESTNAME, c2.a);
fail = true;
}
if( c2.b != 0x01234567 )
{
printf("%s: Failed to assign complex object returned from function. c2.b = %X\n", TESTNAME, c2.b);
fail = true;
}
c3.a = 0;
c3.b = 0;
c3.c = 0;
r = ExecuteString(engine, "c3 = _class3();");
if( r < 0 )
{
printf("%s: ExecuteString() failed %d\n", TESTNAME, r);
fail = true;
}
if( c3.a != 0xDEADC0DE )
{
printf("%s: Failed to assign complex object returned from function. c3.a = %X\n", TESTNAME, c3.a);
fail = true;
}
if( c3.b != 0x01234567 )
{
printf("%s: Failed to assign complex object returned from function. c3.b = %X\n", TESTNAME, c3.b);
fail = true;
}
if( c3.c != 0x89ABCDEF )
{
printf("%s: Failed to assign complex object returned from function. c3.c = %X\n", TESTNAME, c3.c);
fail = true;
}
engine->Release();
return fail;
}
//======================================================================
bool CScriptInt::RegisterFunction(const std::string& szFunction, const void* pFunction, asECallConvTypes eCallingConvention)
{
//Register function
if (!this->m_bInitialized)
return false;
if ((!szFunction.length()) || (!pFunction))
return false;
//Register global function
return (!AS_FAILED(this->m_pScriptEngine->RegisterGlobalFunction(szFunction.c_str(), asFUNCTION(pFunction), eCallingConvention)));
}
bool Test()
{
RET_ON_MAX_PORT
bool fail = false;
COutStream out;
CBufferedOutStream bout;
int r;
asIScriptEngine *engine = 0;
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
RegisterScriptMath(engine);
RegisterScriptMathComplex(engine);
RegisterScriptArray(engine, false);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
r = ExecuteString(engine, "float a = 1; uint b = fpToIEEE(a); assert( b == 0x3f800000 );");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
r = ExecuteString(engine, "uint64 a = 0x3ff0000000000000; double b = fpFromIEEE(a); assert( b == 1.0 );");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
// Test closeTo
r = ExecuteString(engine, "float a = 0; for( int i = 0; i < 100; i++ ) a += 3.14f; \n"
"assert( a != 314.0f ); \n"
"assert( closeTo(a, 314.0f) );");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
r = ExecuteString(engine, "assert( closeTo(67329.242f, 67329.234f) ); \n"
"assert( !closeTo(67329.f, 67331.f) ); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
// Test initialization list for value type in local variable
r = ExecuteString(engine,
"complex a = {1, 2}; \n"
"assert( a.r == 1 ); \n"
"assert( a.i == 2 ); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
// Test initialization list for value type in global variable
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME,
"complex g = {1,2}; \n");
r = mod->Build();
if( r < 0 )
TEST_FAILED;
Complex *g = (Complex*)mod->GetAddressOfGlobalVar(0);
if( g == 0 || g->r != 1 || g->i != 2 )
TEST_FAILED;
// Test initialization list for value type in class member
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME,
"class T { complex m = {1,2}; } \n"
"T g; \n");
r = mod->Build();
if( r < 0 )
TEST_FAILED;
Complex *m = (Complex*)((asIScriptObject*)mod->GetAddressOfGlobalVar(0))->GetAddressOfProperty(0);
if( m == 0 || m->r != 1 || m->i != 2 )
TEST_FAILED;
// Test initialization list for value type in initialization list
r = ExecuteString(engine, "array<complex> a = {{1,2}, {3,4}}; \n"
"assert( a[0].r == 1 ); \n"
"assert( a[1].r == 3 ); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
// Test the complex math add-on
Complex v;
engine->RegisterGlobalProperty("complex v", &v);
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script);
r = mod->Build();
if( r < 0 )
{
PRINTF("%s: Failed to build\n", TESTNAME);
TEST_FAILED;
}
else
{
// Internal return
r = ExecuteString(engine, "v = TestComplex();", mod);
if( r < 0 )
{
PRINTF("%s: ExecuteString() failed %d\n", TESTNAME, r);
TEST_FAILED;
}
if( v.r != 1 || v.i != 2 )
{
PRINTF("%s: Failed to assign correct Complex\n", TESTNAME);
TEST_FAILED;
}
// Manual return
v.r = 0; v.i = 0;
asIScriptContext *ctx = engine->CreateContext();
ctx->Prepare(mod->GetFunctionByDecl("complex TestComplex()"));
ctx->Execute();
Complex *ret = (Complex*)ctx->GetReturnObject();
if( ret->r != 1 || ret->i != 2 )
{
PRINTF("%s: Failed to assign correct Complex\n", TESTNAME);
TEST_FAILED;
}
ctx->Prepare(mod->GetFunctionByDecl("complex TestComplexVal(complex)"));
v.r = 3; v.i = 2;
ctx->SetArgObject(0, &v);
ctx->Execute();
ret = (Complex*)ctx->GetReturnObject();
if( ret->r != 3 || ret->i != 2 )
{
PRINTF("%s: Failed to pass Complex by val\n", TESTNAME);
TEST_FAILED;
}
ctx->Prepare(mod->GetFunctionByDecl("void TestComplexRef(complex &out)"));
ctx->SetArgObject(0, &v);
ctx->Execute();
if( v.r != 1 || v.i != 2 )
{
PRINTF("%s: Failed to pass Complex by ref\n", TESTNAME);
TEST_FAILED;
}
ctx->Release();
}
// Assignment of temporary object
r = ExecuteString(engine, "complex v; \n"
"float r = (v = complex(10.0f,7)).r; \n"
"assert( r > 9.9999f && r < 10.0001f );");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test some operator overloads
r = ExecuteString(engine, "complex v(1,0); assert( (v*complex(2,0)).abs() == 2 );");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
r = ExecuteString(engine, "complex v(1,0); assert( (complex(2,0)*v).abs() == 2 );");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
r = ExecuteString(engine, "complex v(1,0); assert( (v+v).abs() == 2 );");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
r = ExecuteString(engine, "complex v(1,0); assert( v == complex(1,0) );");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
r = ExecuteString(engine, "complex v(1,0); assert( (v *= complex(2)).abs() == 2 );");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test that implicit conversion to the complex type works
r = ExecuteString(engine, "complex v(1,1); v += 2; assert( v == complex(3,1) ); v = v - 3; assert( abs(v.r - 0) < 0.0001f );");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test error message when constructor is not found
bout.buffer = "";
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = ExecuteString(engine, "complex v = complex(4,3,2,1);");
if( r >= 0 )
{
TEST_FAILED;
}
// TODO: the function signature for the constructors/factories should carry the name of the object instead of _beh_0_
if( bout.buffer != "ExecuteString (1, 13) : Error : No matching signatures to 'complex(const int, const int, const int, const int)'\n"
"ExecuteString (1, 13) : Info : Candidates are:\n"
"ExecuteString (1, 13) : Info : complex::complex()\n"
"ExecuteString (1, 13) : Info : complex::complex(const complex&in)\n"
"ExecuteString (1, 13) : Info : complex::complex(float)\n"
"ExecuteString (1, 13) : Info : complex::complex(float, float)\n" )
{
PRINTF("%s", bout.buffer.c_str());
TEST_FAILED;
}
engine->Release();
return fail;
}
void RegisterScriptObject(asCScriptEngine *engine)
{
// Register the default script class behaviours
int r;
engine->scriptTypeBehaviours.flags = asOBJ_SCRIPT_OBJECT;
engine->scriptTypeBehaviours.name = "_builtin_object_";
#ifndef AS_MAX_PORTABILITY
#ifndef AS_64BIT_PTR
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_CONSTRUCT, "void f(int)", asFUNCTION(ScriptObject_Construct), asCALL_CDECL_OBJLAST); asASSERT( r >= 0 );
#else
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_CONSTRUCT, "void f(int64)", asFUNCTION(ScriptObject_Construct), asCALL_CDECL_OBJLAST); asASSERT( r >= 0 );
#endif
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_ADDREF, "void f()", asMETHOD(asCScriptObject,AddRef), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_RELEASE, "void f()", asMETHOD(asCScriptObject,Release), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_ASSIGNMENT, "int &f(int &in)", asFUNCTION(ScriptObject_Assignment), asCALL_CDECL_OBJLAST); asASSERT( r >= 0 );
// Register GC behaviours
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asMETHOD(asCScriptObject,GetRefCount), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_SETGCFLAG, "void f()", asMETHOD(asCScriptObject,SetFlag), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asMETHOD(asCScriptObject,GetFlag), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asMETHOD(asCScriptObject,EnumReferences), asCALL_THISCALL); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asMETHOD(asCScriptObject,ReleaseAllHandles), asCALL_THISCALL); asASSERT( r >= 0 );
#else
#ifndef AS_64BIT_PTR
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_CONSTRUCT, "void f(int)", asFUNCTION(ScriptObject_Construct_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
#else
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_CONSTRUCT, "void f(int64)", asFUNCTION(ScriptObject_Construct_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
#endif
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_ADDREF, "void f()", asFUNCTION(ScriptObject_AddRef_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_RELEASE, "void f()", asFUNCTION(ScriptObject_Release_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_ASSIGNMENT, "int &f(int &in)", asFUNCTION(ScriptObject_Assignment_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
// Register GC behaviours
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asFUNCTION(ScriptObject_GetRefCount_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_SETGCFLAG, "void f()", asFUNCTION(ScriptObject_SetFlag_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asFUNCTION(ScriptObject_GetFlag_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asFUNCTION(ScriptObject_EnumReferences_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
r = engine->RegisterSpecialObjectBehaviour(&engine->scriptTypeBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asFUNCTION(ScriptObject_ReleaseAllHandles_Generic), asCALL_GENERIC); asASSERT( r >= 0 );
#endif
}
void kexLocalPlayer::InitObject(void) {
kexScriptManager::RegisterRefObjectNoCount<kexLocalPlayer>("kLocalPlayer");
scriptManager.Engine()->RegisterObjectBehaviour(
"kActor",
asBEHAVE_REF_CAST,
"kLocalPlayer@ f()",
asFUNCTION((kexScriptManager::RefCast<kexLocalPlayer, kexActor>)),
asCALL_CDECL_OBJLAST);
kexActor::RegisterBaseProperties<kexLocalPlayer>("kLocalPlayer");
kexScriptManager::RegisterDataObject<kexPlayerMove>("kPlayerMove");
#define OBJMETHOD(str, a, b, c) \
scriptManager.Engine()->RegisterObjectMethod( \
"kLocalPlayer", \
str, \
asMETHODPR(kexLocalPlayer, a, b, c), \
asCALL_THISCALL)
OBJMETHOD("bool ActionDown(const kStr &in)", ActionDown, (const kexStr&), bool);
OBJMETHOD("int ActionHeldTime(const kStr &in)", ActionHeldTime, (const kexStr&), int);
OBJMETHOD("kActor @ToActor(void)", ToWorldActor, (void), kexActor*);
OBJMETHOD("kActor @Puppet(void)", PuppetToActor, (void), kexActor*);
OBJMETHOD("kVec3 &GetAcceleration(void)", GetAcceleration, (void), kexVec3&);
OBJMETHOD("void SetAcceleration(const kVec3 &in)", SetAcceleration, (const kexVec3&), void);
OBJMETHOD("float GetCrawlHeight(void)", GetCrawlHeight, (void), float);
OBJMETHOD("void SetCrawlHeight(const float)", SetCrawlHeight, (const float f), void);
OBJMETHOD("kPlayerMove &GroundMove(void)", GroundMove, (void), kexPlayerMove&);
OBJMETHOD("kPlayerMove &AirMove(void)", AirMove, (void), kexPlayerMove&);
OBJMETHOD("kPlayerMove &SwimMove(void)", SwimMove, (void), kexPlayerMove&);
OBJMETHOD("kPlayerMove &CrawlMove(void)", CrawlMove, (void), kexPlayerMove&);
OBJMETHOD("kPlayerMove &FlyMove(void)", FlyMove, (void), kexPlayerMove&);
OBJMETHOD("kPlayerMove &NoClipMove(void)", NoClipMove, (void), kexPlayerMove&);
OBJMETHOD("kPlayerMove &GetCurrentMove(void)", GetCurrentMove, (void), kexPlayerMove&);
OBJMETHOD("void SetCurrentMove(kPlayerMove &in)", SetCurrentMove, (kexPlayerMove&), void);
OBJMETHOD("void Lock(void)", Lock, (void), void);
OBJMETHOD("void Unlock(void)", Unlock, (void), void);
#define OBJPROPERTY(str, p) \
scriptManager.Engine()->RegisterObjectProperty( \
"kLocalPlayer", \
str, \
asOFFSET(kexLocalPlayer, p))
OBJPROPERTY("float cmdMouseX", cmd.mouse[0].f);
OBJPROPERTY("float cmdMouseY", cmd.mouse[1].f);
OBJPROPERTY("float deltaTime", cmd.frametime.f);
OBJPROPERTY("bool bAllowCrawl", bAllowCrawl);
#undef OBJMETHOD
#undef OBJPROPERTY
#define OBJMETHOD(str, a, b, c) \
scriptManager.Engine()->RegisterObjectMethod( \
"kPlayerMove", \
str, \
asMETHODPR(kexPlayerMove, a, b, c), \
asCALL_THISCALL)
OBJMETHOD("void Accelerate(int, int, const float)",
Accelerate, (int, int, const float), void);
#define OBJPROPERTY(str, p) \
scriptManager.Engine()->RegisterObjectProperty( \
"kPlayerMove", \
str, \
asOFFSET(kexPlayerMove, p))
OBJPROPERTY("kVec3 accelSpeed", accelSpeed);
OBJPROPERTY("kVec3 deaccelSpeed", deaccelSpeed);
OBJPROPERTY("kVec3 forwardSpeed", forwardSpeed);
OBJPROPERTY("kVec3 backwardSpeed", backwardSpeed);
#undef OBJMETHOD
#undef OBJPROPERTY
}
bool Test()
{
if( strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
// Skipping this due to not supporting native calling conventions
printf("Skipped due to AS_MAX_PORTABILITY\n");
return false;
}
bool fail = false;
int r;
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->RegisterObjectType("Object", sizeof(CObject), asOBJ_VALUE | asOBJ_APP_CLASS_CD);
r = engine->RegisterObjectType("RefObj", sizeof(CRefObject), asOBJ_REF); assert(r >= 0);
if( strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
engine->RegisterObjectBehaviour("Object", asBEHAVE_CONSTRUCT, "void f(int)", asFUNCTION(Construct2), asCALL_GENERIC);
engine->RegisterObjectBehaviour("Object", asBEHAVE_CONSTRUCT, "void f()", asFUNCTION(Construct_gen), asCALL_GENERIC);
engine->RegisterObjectBehaviour("Object", asBEHAVE_DESTRUCT, "void f()", asFUNCTION(Destruct_gen), asCALL_GENERIC);
engine->RegisterObjectMethod("Object", "Object &opAssign(const Object &in)", asFUNCTION(Assign_gen), asCALL_GENERIC);
r = engine->RegisterObjectBehaviour("RefObj", asBEHAVE_FACTORY, "RefObj@ f()", asFUNCTION(RefObjFactory_gen), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterObjectBehaviour("RefObj", asBEHAVE_ADDREF, "void f()", asFUNCTION(AddRef_gen), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterObjectBehaviour("RefObj", asBEHAVE_RELEASE, "void f()", asFUNCTION(Release_gen), asCALL_GENERIC); assert(r >= 0);
engine->RegisterGlobalFunction("void RaiseException()", asFUNCTION(RaiseException), asCALL_GENERIC);
engine->RegisterGlobalFunction("Object SuspendObj()", asFUNCTION(SuspendObj_gen), asCALL_GENERIC);
engine->RegisterGlobalFunction("Object ExceptionObj()", asFUNCTION(ExceptionObj_gen), asCALL_GENERIC);
engine->RegisterGlobalFunction("RefObj@ ExceptionHandle()", asFUNCTION(ExceptionHandle_gen), asCALL_GENERIC);
}
else
{
engine->RegisterObjectBehaviour("Object", asBEHAVE_CONSTRUCT, "void f(int)", asFUNCTION(Construct2), asCALL_GENERIC);
engine->RegisterObjectBehaviour("Object", asBEHAVE_CONSTRUCT, "void f()", asFUNCTION(Construct), asCALL_CDECL_OBJLAST);
engine->RegisterObjectBehaviour("Object", asBEHAVE_DESTRUCT, "void f()", asFUNCTION(Destruct), asCALL_CDECL_OBJLAST);
engine->RegisterObjectMethod("Object", "Object &opAssign(const Object &in)", asFUNCTION(Assign_gen), asCALL_GENERIC);
r = engine->RegisterObjectBehaviour("RefObj", asBEHAVE_FACTORY, "RefObj@ f()", asFUNCTION(RefObjFactory), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterObjectBehaviour("RefObj", asBEHAVE_ADDREF, "void f()", asMETHOD(CRefObject, AddRef), asCALL_THISCALL); assert(r >= 0);
r = engine->RegisterObjectBehaviour("RefObj", asBEHAVE_RELEASE, "void f()", asMETHOD(CRefObject, Release), asCALL_THISCALL); assert(r >= 0);
engine->RegisterGlobalFunction("void RaiseException()", asFUNCTION(RaiseException), asCALL_CDECL);
engine->RegisterGlobalFunction("Object SuspendObj()", asFUNCTION(SuspendObj), asCALL_CDECL);
engine->RegisterGlobalFunction("Object ExceptionObj()", asFUNCTION(ExceptionObj), asCALL_CDECL);
engine->RegisterGlobalFunction("RefObj@ ExceptionHandle()", asFUNCTION(ExceptionHandle), asCALL_CDECL);
}
COutStream out;
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script1, strlen(script1), 0);
mod->AddScriptSection(TESTNAME, script2, strlen(script2), 0);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("%s: Failed to compile the script\n", TESTNAME);
}
// The object has been initialized
r = ExecuteString(engine, "Test1()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// The object has not yet been initialized
r = ExecuteString(engine, "Test2()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// An object has been initialized and passed by value to function that throws exception
r = ExecuteString(engine, "Test3()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// An object has been initialized and passed by value to a function, but
// the function cannot be called due to the stack being full
engine->SetEngineProperty(asEP_MAX_STACK_SIZE, 4);
r = ExecuteString(engine, "Test3()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// An object is allocated and initialized with a call to
// a function that returns an object by value. The function
// suspends the thread. The context is then aborted.
asIScriptContext *ctx = engine->CreateContext();
engine->SetEngineProperty(asEP_MAX_STACK_SIZE, 0);
r = ExecuteString(engine, "Test4()", mod, ctx);
if( r != asEXECUTION_SUSPENDED )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
ctx->Abort();
ctx->Release();
// An object is allocated and initialized with a call to
// a function that returns an object by value. The function
// sets a script exception.
r = ExecuteString(engine, "Test5()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// The object constructor sets the exception
r = ExecuteString(engine, "Test6()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// A function that is supposed to return a handle sets an exception
r = ExecuteString(engine, "Test7()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// Attempt to call method on null class pointer
mod->AddScriptSection("script", script3, strlen(script3));
r = mod->Build();
if( r < 0 ) TEST_FAILED;
r = ExecuteString(engine, "calc()", mod);
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: Failed\n", TESTNAME);
TEST_FAILED;
}
// Exception happens after value object has already been destroyed
r = ExecuteString(engine, "{\n"
" Object o;\n"
"}\n"
"RaiseException();");
if( r != asEXECUTION_EXCEPTION )
TEST_FAILED;
// Exception happens after the value object has been destroyed and,
// the same position would also be used again after the exception
r = ExecuteString(engine, "{ Object o; } \n"
"RaiseException(); \n"
"Object o; \n");
if( r != asEXECUTION_EXCEPTION )
TEST_FAILED;
// The code has two places where the object is destroyed, one in the if case, and
// and one at the end of the function. If the code doesn't go in to the if case,
// and the exception happens afterwards, the exception handler must not think the
// object was already destroyed.
r = ExecuteString(engine, "Object o; bool a = false; \n"
"if( a ) return; \n"
"RaiseException(); \n");
if( r != asEXECUTION_EXCEPTION )
TEST_FAILED;
engine->Release();
// Success
return fail;
}
bool Test()
{
bool fail = TestHelper();
int r = 0;
CBufferedOutStream bout;
asIScriptEngine *engine;
const char *script;
// A type registered with asOBJ_REF must not register destructor
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 4, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_DESTRUCT, "void f()", asFUNCTION(0), asCALL_GENERIC);
if( r != asILLEGAL_BEHAVIOUR_FOR_TYPE )
fail = true;
if( bout.buffer != " (0, 0) : Error : The behaviour is not compatible with the type\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// A type registered with asOBJ_GC must register all gc behaviours
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("gc", 4, asOBJ_REF | asOBJ_GC); assert( r >= 0 );
r = engine->ExecuteString(0, "");
if( r >= 0 )
fail = true;
if( bout.buffer != " (0, 0) : Error : Type 'gc' is missing behaviours\n"
" (0, 0) : Info : A garbage collected type must have the addref, release, and all gc behaviours\n"
" (0, 0) : Error : Invalid configuration\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// A type registered with asOBJ_VALUE must not register addref, release, and gc behaviours
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("val", 4, asOBJ_VALUE | asOBJ_APP_PRIMITIVE); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("val", asBEHAVE_ADDREF, "void f()", asFUNCTION(0), asCALL_GENERIC);
if( r != asILLEGAL_BEHAVIOUR_FOR_TYPE )
fail = true;
r = engine->RegisterObjectBehaviour("val", asBEHAVE_RELEASE, "void f()", asFUNCTION(0), asCALL_GENERIC);
if( r != asILLEGAL_BEHAVIOUR_FOR_TYPE )
fail = true;
r = engine->RegisterObjectBehaviour("val", asBEHAVE_GETREFCOUNT, "int f()", asFUNCTION(0), asCALL_GENERIC);
if( r != asILLEGAL_BEHAVIOUR_FOR_TYPE )
fail = true;
if( bout.buffer != " (0, 0) : Error : The behaviour is not compatible with the type\n"
" (0, 0) : Error : The behaviour is not compatible with the type\n"
" (0, 0) : Error : The behaviour is not compatible with the type\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Object types registered as ref must not be allowed to be
// passed by value to registered functions, nor returned by value
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 4, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterGlobalFunction("void f(ref)", asFUNCTION(0), asCALL_GENERIC);
if( r >= 0 )
fail = true;
r = engine->RegisterGlobalFunction("ref f()", asFUNCTION(0), asCALL_GENERIC);
if( r >= 0 )
fail = true;
if( bout.buffer != "" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Ref type without registered assignment behaviour won't allow the assignment
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 0, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_FACTORY, "ref@ f()", asFUNCTION(0), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_ADDREF, "void f()", asFUNCTION(0), asCALL_GENERIC); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_RELEASE, "void f()", asFUNCTION(0), asCALL_GENERIC); assert( r >= 0 );
r = engine->ExecuteString(0, "ref r1, r2; r1 = r2;");
if( r >= 0 )
fail = true;
if( bout.buffer != "ExecuteString (1, 18) : Error : There is no copy operator for this type available.\n"
"ExecuteString (1, 16) : Error : There is no copy operator for this type available.\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Ref type must register addref and release
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 0, asOBJ_REF); assert( r >= 0 );
r = engine->ExecuteString(0, "ref r");
if( r >= 0 )
fail = true;
if( bout.buffer != " (0, 0) : Error : Type 'ref' is missing behaviours\n"
" (0, 0) : Info : A reference type must have the addref and release behaviours\n"
" (0, 0) : Error : Invalid configuration\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Ref type with asOBJ_NOHANDLE must not register addref, release, and factory
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 0, asOBJ_REF | asOBJ_NOHANDLE); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_ADDREF, "void f()", asFUNCTION(0), asCALL_GENERIC);
if( r != asILLEGAL_BEHAVIOUR_FOR_TYPE )
fail = true;
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_RELEASE, "void f()", asFUNCTION(0), asCALL_GENERIC);
if( r != asILLEGAL_BEHAVIOUR_FOR_TYPE )
fail = true;
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_FACTORY, "ref @f()", asFUNCTION(0), asCALL_GENERIC);
if( bout.buffer != " (0, 0) : Error : The behaviour is not compatible with the type\n"
" (0, 0) : Error : The behaviour is not compatible with the type\n"
"System function (1, 5) : Error : Object handle is not supported for this type\n")
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Value type with asOBJ_POD without registered assignment behaviour should allow bitwise copy
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("val", 4, asOBJ_VALUE | asOBJ_POD | asOBJ_APP_PRIMITIVE); assert( r >= 0 );
r = engine->ExecuteString(0, "val v1, v2; v1 = v2;");
if( r != asEXECUTION_FINISHED )
fail = true;
if( bout.buffer != "" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Value type without asOBJ_POD and assignment behaviour must not allow bitwise copy
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("val", 4, asOBJ_VALUE | asOBJ_APP_PRIMITIVE); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("val", asBEHAVE_CONSTRUCT, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->RegisterObjectBehaviour("val", asBEHAVE_DESTRUCT, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->ExecuteString(0, "val v1, v2; v1 = v2;");
if( r >= 0 )
fail = true;
if( bout.buffer != "ExecuteString (1, 18) : Error : There is no copy operator for this type available.\n"
"ExecuteString (1, 16) : Error : There is no copy operator for this type available.\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Value types without asOBJ_POD must have constructor and destructor registered
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("val", 4, asOBJ_VALUE | asOBJ_APP_PRIMITIVE); assert( r >= 0 );
r = engine->RegisterObjectType("val1", 4, asOBJ_VALUE | asOBJ_APP_PRIMITIVE); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("val1", asBEHAVE_CONSTRUCT, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->RegisterObjectType("val2", 4, asOBJ_VALUE | asOBJ_APP_PRIMITIVE); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("val2", asBEHAVE_DESTRUCT, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->ExecuteString(0, "val v1, v2; v1 = v2;");
if( r >= 0 )
fail = true;
if( bout.buffer != " (0, 0) : Error : Type 'val' is missing behaviours\n"
" (0, 0) : Info : A non-pod value type must have the constructor and destructor behaviours\n"
" (0, 0) : Error : Type 'val1' is missing behaviours\n"
" (0, 0) : Info : A non-pod value type must have the constructor and destructor behaviours\n"
" (0, 0) : Error : Type 'val2' is missing behaviours\n"
" (0, 0) : Info : A non-pod value type must have the constructor and destructor behaviours\n"
" (0, 0) : Error : Invalid configuration\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Ref type must register ADDREF and RELEASE
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 0, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectType("ref1", 0, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref1", asBEHAVE_ADDREF, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->RegisterObjectType("ref2", 0, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref2", asBEHAVE_RELEASE, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->ExecuteString(0, "ref @r;");
if( r >= 0 )
fail = true;
if( bout.buffer != " (0, 0) : Error : Type 'ref' is missing behaviours\n"
" (0, 0) : Info : A reference type must have the addref and release behaviours\n"
" (0, 0) : Error : Type 'ref1' is missing behaviours\n"
" (0, 0) : Info : A reference type must have the addref and release behaviours\n"
" (0, 0) : Error : Type 'ref2' is missing behaviours\n"
" (0, 0) : Info : A reference type must have the addref and release behaviours\n"
" (0, 0) : Error : Invalid configuration\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Ref types without default factory must not be allowed to be initialized, nor must it be allowed to be passed by value in parameters or returned by value
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 0, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_ADDREF, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_RELEASE, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
script = "ref func(ref r) { ref r2; return ref(); }";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script, strlen(script));
r = mod->Build();
if( r >= 0 )
fail = true;
if( bout.buffer != "script (1, 1) : Info : Compiling ref func(ref)\n"
"script (1, 1) : Error : Data type can't be 'ref'\n"
"script (1, 10) : Error : Parameter type can't be 'ref'\n"
"script (1, 23) : Error : Data type can't be 'ref'\n"
"script (1, 34) : Error : No matching signatures to 'ref()'\n"
"script (1, 34) : Error : Can't implicitly convert from 'const int' to 'ref'.\n"
"script (1, 34) : Error : No default constructor for object of type 'ref'.\n"
"script (1, 34) : Error : There is no copy operator for this type available.\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// Ref types without default constructor must not be allowed to be passed by in/out reference, but must be allowed to be passed by inout reference
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 0, asOBJ_REF); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_ADDREF, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
r = engine->RegisterObjectBehaviour("ref", asBEHAVE_RELEASE, "void f()", asFUNCTION(DummyFunc), asCALL_GENERIC);
script = "void func(ref &in r1, ref &out r2, ref &inout r3) { }";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script, strlen(script));
r = mod->Build();
if( r >= 0 )
fail = true;
if( bout.buffer != "script (1, 1) : Info : Compiling void func(ref&in, ref&out, ref&inout)\n"
"script (1, 11) : Error : Parameter type can't be 'ref&'\n"
"script (1, 23) : Error : Parameter type can't be 'ref&'\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
// It must not be possible to register functions that take handles of types with asOBJ_HANDLE
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("ref", 0, asOBJ_REF | asOBJ_NOHANDLE); assert( r >= 0 );
r = engine->ExecuteString(0, "ref @r");
if( r >= 0 )
fail = true;
r = engine->RegisterGlobalFunction("ref@ func()", asFUNCTION(0), asCALL_GENERIC);
if( r >= 0 )
fail = true;
if( bout.buffer != "ExecuteString (1, 5) : Error : Object handle is not supported for this type\n"
"ExecuteString (1, 6) : Error : Data type can't be 'ref'\n"
"System function (1, 4) : Error : Object handle is not supported for this type\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
// Must be possible to register float types
r = engine->RegisterObjectType("real", sizeof(float), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_FLOAT); assert( r >= 0 );
// It should be allowed to register the type without specifying the application type,
// if the engine won't use it (i.e. no native functions take or return the type by value)
if( !strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
bout.buffer = "";
r = engine->RegisterObjectType("test1", 4, asOBJ_VALUE | asOBJ_POD);
if( r < 0 ) fail = true;
r = engine->RegisterGlobalFunction("test1 f()", asFUNCTION(0), asCALL_CDECL);
if( r < 0 ) fail = true;
r = engine->RegisterGlobalFunction("void f(test1)", asFUNCTION(0), asCALL_CDECL);
if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "test1 t");
if( r >= 0 ) fail = true;
// TODO: These errors should really be returned immediately when registering the function
if( bout.buffer != " (0, 0) : Info : test1 f()\n"
" (0, 0) : Error : Can't return type 'test1' by value unless the application type is informed in the registration\n"
" (0, 0) : Info : void f(test1)\n"
" (0, 0) : Error : Can't pass type 'test1' by value unless the application type is informed in the registration\n"
" (0, 0) : Error : Invalid configuration\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
engine->Release();
}
// It must not be possible to register a value type without defining the application type
r = engine->RegisterObjectType("test2", 4, asOBJ_VALUE | asOBJ_APP_CLASS_CONSTRUCTOR);
if( r >= 0 ) fail = true;
engine->Release();
// REF+SCOPED
if( !fail ) fail = TestRefScoped();
// TODO:
// What about asOBJ_NOHANDLE and asEP_ALLOW_UNSAFE_REFERENCES? Should it allow &inout?
// TODO:
// Validate if the same behaviour is registered twice, e.g. if index
// behaviour is registered twice with signature 'int f(int)' and error should be given
// Success
return fail;
}
void Test()
{
printf("---------------------------------------------\n");
printf("%s\n\n", TESTNAME);
printf("AngelScript 2.31.0: Build 1.02 secs, Save 0.0920 secs, Load 0.125 secs\n");
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
COutStream out;
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
RegisterScriptArray(engine, true);
RegisterStdString(engine);
engine->RegisterGlobalFunction("void print(const string &in)", asFUNCTION(print), asCALL_CDECL);
////////////////////////////////////////////
printf("\nGenerating...\n");
const int numArrays = 2;
#ifdef _DEBUG
const int numElements = 10;
#else
const int numElements = 200000;
#endif
string script;
std::stringstream script_buffer;
for (unsigned i = 0; i < numArrays; i++)
{
script_buffer << "int[] array_" << i << " = {";
if (numElements > 0)
{
script_buffer << 0;
}
for (unsigned j = 1; j < numElements; j++)
{
script_buffer << ", " << j;
}
script_buffer << "};";
}
script_buffer << std::endl << "int main() { print (\"elem 999 = \" + array_0[999] + \"\\n\"); return 0; }";
script = script_buffer.str();
////////////////////////////////////////////
printf("\nBuilding...\n");
double time = GetSystemTimer();
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script.c_str(), script.size(), 0);
int r = mod->Build();
time = GetSystemTimer() - time;
if( r != 0 )
printf("Build failed\n");
else
printf("Time = %f secs\n", time);
////////////////////////////////////////////
printf("\nSaving...\n");
time = GetSystemTimer();
CBytecodeStream stream("");
mod->SaveByteCode(&stream);
time = GetSystemTimer() - time;
printf("Time = %f secs\n", time);
printf("Size = %d\n", int(stream.buffer.size()));
////////////////////////////////////////////
printf("\nLoading...\n");
time = GetSystemTimer();
asIScriptModule *mod2 = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod2->LoadByteCode(&stream);
time = GetSystemTimer() - time;
printf("Time = %f secs\n", time);
engine->Release();
}
bool TestRefScoped()
{
if( strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
// Skipping this due to not supporting native calling conventions
printf("Skipped due to AS_MAX_PORTABILITY\n");
return false;
}
bool fail = false;
int r = 0;
CBufferedOutStream bout;
asIScriptEngine *engine;
asIScriptModule *mod;
// REF+SCOPED
// This type requires a factory and a release behaviour. It cannot have the addref behaviour.
// The intention of this type is to permit value types that have special needs for memory management,
// for example must be aligned on 16 byte boundaries, or must use a memory pool. The type must not allow
// object handles (except when returning a new value from registered functions).
bout.buffer = "";
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
RegisterStdString(engine);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("scoped", 0, asOBJ_REF | asOBJ_SCOPED); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("scoped", asBEHAVE_FACTORY, "scoped @f()", asFUNCTION(Scoped_Factory), asCALL_CDECL); assert( r >= 0 );
r = engine->RegisterObjectBehaviour("scoped", asBEHAVE_RELEASE, "void f()", asFUNCTION(Scoped_Release), asCALL_CDECL_OBJLAST); assert( r >= 0 );
r = engine->RegisterObjectMethod("scoped", "scoped @opNeg()", asFUNCTION(Scoped_Negate), asCALL_CDECL_OBJLAST); assert( r >= 0 );
r = engine->RegisterObjectMethod("scoped", "scoped &opAssign(const scoped &in)", asFUNCTION(Scoped_Assignment), asCALL_CDECL_OBJLAST); assert( r >= 0 );
r = engine->RegisterObjectMethod("scoped", "scoped @opAdd(int)", asFUNCTION(Scoped_Add), asCALL_CDECL_OBJFIRST); assert( r >= 0 );
// Enumerate the objects behaviours
asIObjectType *ot = engine->GetObjectTypeById(engine->GetTypeIdByDecl("scoped"));
if( ot->GetBehaviourCount() != 1 )
fail = true;
asEBehaviours beh;
ot->GetBehaviourByIndex(0, &beh);
if( beh != asBEHAVE_RELEASE )
fail = true;
// Must be possible to determine type id for scoped types with handle
asIScriptFunction *func = engine->GetFunctionDescriptorById(ot->GetFactoryIdByIndex(0));
int typeId = func->GetReturnTypeId();
if( typeId != engine->GetTypeIdByDecl("scoped@") )
fail = true;
// Don't permit handles to be taken
r = engine->ExecuteString(0, "scoped @s = null");
if( r >= 0 ) fail = true;
// TODO: The second message is a consequence of the first error, and should ideally not be shown
if( sizeof(void*) == 4 )
{
if( bout.buffer != "ExecuteString (1, 8) : Error : Object handle is not supported for this type\n"
"ExecuteString (1, 13) : Error : Can't implicitly convert from '<null handle>' to 'scoped&'.\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
}
else
{
if( bout.buffer != "ExecuteString (1, 8) : Error : Object handle is not supported for this type\n"
"ExecuteString (1, 13) : Error : Can't implicitly convert from '<null handle>' to 'scoped&'.\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
}
// Test a legal actions
r = engine->ExecuteString(0, "scoped a");
if( r != asEXECUTION_FINISHED ) fail = true;
bout.buffer = "";
r = engine->ExecuteString(0, "scoped s; scoped t = s + 10;");
if( r != asEXECUTION_FINISHED ) fail = true;
if( bout.buffer != "" )
{
printf(bout.buffer.c_str());
fail = true;
}
// Test a compiler assert failure reported by Jeff Slutter on 2009-04-02
bout.buffer = "";
const char *script =
"SetObjectPosition( GetWorldPositionByName() ); \n";
r = engine->RegisterGlobalFunction("const scoped @GetWorldPositionByName()", asFUNCTION(Scoped_Factory), asCALL_CDECL); assert( r >= 0 );
r = engine->RegisterGlobalFunction("void SetObjectPosition(scoped &in)", asFUNCTION(Scoped_InRef), asCALL_CDECL); assert( r >= 0 );
r = engine->ExecuteString(0, script);
if( r != asEXECUTION_FINISHED ) fail = true;
if( bout.buffer != "" )
{
printf(bout.buffer.c_str());
fail = true;
}
// It must be possible to include the scoped type as member in script class
bout.buffer = "";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("test", "class A { scoped s; }");
r = mod->Build();
if( r < 0 )
fail = true;
if( bout.buffer != "" )
{
printf(bout.buffer.c_str());
fail = true;
}
r = engine->ExecuteString(0, "A a; scoped s; a.s = s;");
if( r != asEXECUTION_FINISHED )
{
fail = true;
}
// Don't permit functions to be registered with handle for parameters
bout.buffer = "";
r = engine->RegisterGlobalFunction("void f(scoped@)", asFUNCTION(DummyFunc), asCALL_GENERIC);
if( r >= 0 ) fail = true;
if( bout.buffer != "System function (1, 14) : Error : Object handle is not supported for this type\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
// Don't permit functions to be registered to take type by reference (since that require handles)
bout.buffer = "";
r = engine->RegisterGlobalFunction("void f(scoped&)", asFUNCTION(DummyFunc), asCALL_GENERIC);
if( r >= 0 ) fail = true;
if( bout.buffer != "System function (1, 14) : Error : Only object types that support object handles can use &inout. Use &in or &out instead\n" )
{
printf(bout.buffer.c_str());
fail = true;
}
// Permit &in
r = engine->RegisterGlobalFunction("void f(scoped&in)", asFUNCTION(DummyFunc), asCALL_GENERIC);
if( r < 0 ) fail = true;
engine->Release();
return fail;
}
bool TestExecute32MixedArgs()
{
bool fail = false;
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
if( strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
engine->RegisterGlobalFunction( "void cfunction("
"int, int, int, int,"
"float, float, float, float,"
"int, int, int, int,"
"float, float, float, float,"
"int, int, int, int,"
"float, float, float, float,"
"int, int, int, int,"
"float, float, float, float"
")", asFUNCTION(cfunction_gen), asCALL_GENERIC);
}
else
{
engine->RegisterGlobalFunction( "void cfunction("
"int, int, int, int,"
"float, float, float, float,"
"int, int, int, int,"
"float, float, float, float,"
"int, int, int, int,"
"float, float, float, float,"
"int, int, int, int,"
"float, float, float, float"
")", asFUNCTION(cfunction), asCALL_CDECL);
}
ExecuteString(engine,
"cfunction("
" 1, 2, 3, 4,"
" 5.0f, 6.0f, 7.0f, 8.0f,"
" 9, 10, 11, 12,"
"13.0f, 14.0f, 15.0f, 16.0f,"
"17, 18, 19, 20,"
"21.0f, 22.0f, 23.0f, 24.0f,"
"25, 26, 27, 28,"
"29.0f, 30.0f, 31.0f, 32.0f"
")");
if( !called )
{
// failure
printf("\n%s: cfunction not called from script\n\n", TESTNAME);
TEST_FAILED;
}
else if( !testVal )
{
// failure
printf("\n%s: testVal is not of expected value. Got:\n\n", TESTNAME);
int pos = 0;
for( int i = 0; i < 4; i++ )
{
int j;
for( j = 0; j < 4; j++ )
printf("ivalue[%d]: %d\n", pos+j, ivalues[pos+j]);
for( j = 0; j < 4; j++ )
printf("fvalue[%d]: %f\n", pos+j, fvalues[pos+j]);
pos += 4;
}
TEST_FAILED;
}
engine->Release();
// Success
return fail;
}
// This is where the utility functions are registered.
// The string type must have been registered first.
void RegisterScriptStringUtils(asIScriptEngine *engine)
{
int r;
r = engine->RegisterGlobalFunction("string@ substring(const string &in, int, int)", asFUNCTION(StringSubString_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findFirst(const string &in, const string &in)", asFUNCTION(StringFindFirst0_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findFirst(const string &in, const string &in, int)", asFUNCTION(StringFindFirst_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findLast(const string &in, const string &in)", asFUNCTION(StringFindLast0_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findLast(const string &in, const string &in, int)", asFUNCTION(StringFindLast_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findFirstOf(const string &in, const string &in)", asFUNCTION(StringFindFirstOf0_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findFirstOf(const string &in, const string &in, int)", asFUNCTION(StringFindFirstOf_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findFirstNotOf(const string &in, const string &in)", asFUNCTION(StringFindFirstNotOf0_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findFirstNotOf(const string &in, const string &in, int)", asFUNCTION(StringFindFirstNotOf_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findLastOf(const string &in, const string &in)", asFUNCTION(StringFindLastOf0_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findLastOf(const string &in, const string &in, int)", asFUNCTION(StringFindLastOf_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findLastNotOf(const string &in, const string &in)", asFUNCTION(StringFindLastNotOf0_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("int findLastNotOf(const string &in, const string &in, int)", asFUNCTION(StringFindLastNotOf_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("string@[]@ split(const string &in, const string &in)", asFUNCTION(StringSplit_Generic), asCALL_GENERIC); assert(r >= 0);
r = engine->RegisterGlobalFunction("string@ join(const string@[] &in, const string &in)", asFUNCTION(StringJoin_Generic), asCALL_GENERIC); assert(r >= 0);
}
bool Test()
{
if( strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
printf("Skipped due to AS_MAX_PORTABILITY\n");
return false;
}
bool fail = false;
int r;
CBufferedOutStream bout;
COutStream out;
asIScriptModule *mod;
asIScriptEngine *engine;
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
RegisterScriptArray(engine, true);
RegisterScriptString(engine);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
// The getter can return a handle while the setter takes a reference
{
const char *script =
"class Test \n"
"{ \n"
" string @get_s() { return 'test'; } \n"
" void set_s(const string &in) {} \n"
"} \n"
"void func() \n"
"{ \n"
" Test t; \n"
" string s = t.s; \n"
" t.s = s; \n"
"} \n";
mod->AddScriptSection("script", script);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
r = ExecuteString(engine, "Test t; @t.s = 'test';", mod);
if( r >= 0 )
{
TEST_FAILED;
printf("Shouldn't be allowed\n");
}
if( bout.buffer != "ExecuteString (1, 14) : Error : It is not allowed to perform a handle assignment on a non-handle property\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
}
// main1 and main2 should produce the same bytecode
const char *script1 =
"class Test \n"
"{ \n"
" int get_prop() { return _prop; } \n"
" void set_prop(int v) { _prop = v; } \n"
" int _prop; \n"
"} \n"
"void main1() \n"
"{ \n"
" Test t; \n"
" t.set_prop(42); \n"
" assert( t.get_prop() == 42 ); \n"
"} \n"
"void main2() \n"
"{ \n"
" Test t; \n"
" t.prop = 42; \n"
" assert( t.prop == 42 ); \n"
"} \n";
mod->AddScriptSection("script", script1);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "main1()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
r = ExecuteString(engine, "main2()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test compound assignment with accessors (not allowed)
const char *script2 =
"class Test \n"
"{ \n"
" void set_prop(int v) { _prop = v; } \n"
" int _prop; \n"
"} \n"
"void main1() \n"
"{ \n"
" Test t; \n"
" t.prop += 42; \n"
"} \n";
mod->AddScriptSection("script", script2);
bout.buffer = "";
r = mod->Build();
if( r >= 0 )
{
TEST_FAILED;
}
if( bout.buffer != "script (6, 1) : Info : Compiling void main1()\n"
"script (9, 10) : Error : Compound assignments with property accessors are not allowed\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test get accessor with boolean operators
const char *script3 =
"class Test \n"
"{ \n"
" bool get_boolProp() { return true; } \n"
"} \n"
"void main1() \n"
"{ \n"
" Test t; \n"
" if( t.boolProp ) {} \n"
" if( t.boolProp && true ) {} \n"
" if( false || t.boolProp ) {} \n"
" if( t.boolProp ^^ t.boolProp ) {} \n"
" if( !t.boolProp ) {} \n"
" t.boolProp ? t.boolProp : t.boolProp; \n"
"} \n";
mod->AddScriptSection("script", script3);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test get accessor with math operators
const char *script4 =
"class Test \n"
"{ \n"
" float get_prop() { return 1.0f; } \n"
"} \n"
"void main1() \n"
"{ \n"
" Test t; \n"
" float f = t.prop * 1; \n"
" f = (t.prop) + 1; \n"
" 10 / t.prop; \n"
" -t.prop; \n"
"} \n";
mod->AddScriptSection("script", script4);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test get accessor with bitwise operators
const char *script5 =
"class Test \n"
"{ \n"
" uint get_prop() { return 1; } \n"
"} \n"
"void main1() \n"
"{ \n"
" Test t; \n"
" t.prop << t.prop; \n"
" t.prop & t.prop; \n"
" ~t.prop; \n"
"} \n";
mod->AddScriptSection("script", script5);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test multiple get accessors for same property. Should give error
// Test multiple set accessors for same property. Should give error
const char *script6 =
"class Test \n"
"{ \n"
" uint get_p() {return 0;} \n"
" float get_p() {return 0;} \n"
" void set_s(float) {} \n"
" void set_s(uint) {} \n"
"} \n"
"void main() \n"
"{ \n"
" Test t; \n"
" t.p; \n"
" t.s = 0; \n"
"} \n";
mod->AddScriptSection("script", script6);
bout.buffer = "";
r = mod->Build();
if( r >= 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "script (8, 1) : Info : Compiling void main()\n"
"script (11, 4) : Error : Found multiple get accessors for property 'p'\n"
"script (11, 4) : Info : uint Test::get_p()\n"
"script (11, 4) : Info : float Test::get_p()\n"
"script (12, 4) : Error : Found multiple set accessors for property 's'\n"
"script (12, 4) : Info : void Test::set_s(float)\n"
"script (12, 4) : Info : void Test::set_s(uint)\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test mismatching type between get accessor and set accessor. Should give error
const char *script7 =
"class Test \n"
"{ \n"
" uint get_p() {return 0;} \n"
" void set_p(float) {} \n"
"} \n"
"void main() \n"
"{ \n"
" Test t; \n"
" t.p; \n"
"} \n";
mod->AddScriptSection("script", script7);
bout.buffer = "";
r = mod->Build();
if( r >= 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "script (6, 1) : Info : Compiling void main()\n"
"script (9, 4) : Error : The property 'p' has mismatching types for the get and set accessors\n"
"script (9, 4) : Info : uint Test::get_p()\n"
"script (9, 4) : Info : void Test::set_p(float)\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test only set accessor for read expression
// Test only get accessor for write expression
const char *script8 =
"class Test \n"
"{ \n"
" uint get_g() {return 0;} \n"
" void set_s(float) {} \n"
"} \n"
"void main() \n"
"{ \n"
" Test t; \n"
" t.g = 0; \n"
" t.s + 1; \n"
"} \n";
mod->AddScriptSection("script", script8);
bout.buffer = "";
r = mod->Build();
if( r >= 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "script (6, 1) : Info : Compiling void main()\n"
"script (9, 7) : Error : The property has no set accessor\n"
"script (10, 7) : Error : The property has no get accessor\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test pre and post ++. Should fail, since the expression is not a variable
const char *script9 =
"class Test \n"
"{ \n"
" uint get_p() {return 0;} \n"
" void set_p(uint) {} \n"
"} \n"
"void main() \n"
"{ \n"
" Test t; \n"
" t.p++; \n"
" --t.p; \n"
"} \n";
mod->AddScriptSection("script", script9);
bout.buffer = "";
r = mod->Build();
if( r >= 0 )
{
TEST_FAILED;
printf("Didn't fail to compile the script\n");
}
if( bout.buffer != "script (6, 1) : Info : Compiling void main()\n"
"script (9, 6) : Error : Invalid reference. Property accessors cannot be used in combined read/write operations\n"
"script (10, 3) : Error : Invalid reference. Property accessors cannot be used in combined read/write operations\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test using property accessors from within class methods without 'this'
// Test accessor where the object is a handle
const char *script10 =
"class Test \n"
"{ \n"
" uint get_p() {return 0;} \n"
" void set_p(uint) {} \n"
" void test() \n"
" { \n"
" p = 0; \n"
" int a = p; \n"
" } \n"
"} \n"
"void func() \n"
"{ \n"
" Test @a = Test(); \n"
" a.p = 1; \n"
" int b = a.p; \n"
"} \n";
mod->AddScriptSection("script", script10);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test accessors with function arguments (by value, in ref, out ref)
const char *script11 =
"class Test \n"
"{ \n"
" uint get_p() {return 0;} \n"
" void set_p(uint) {} \n"
"} \n"
"void func() \n"
"{ \n"
" Test a(); \n"
" byVal(a.p); \n"
" inArg(a.p); \n"
" outArg(a.p); \n"
"} \n"
"void byVal(int v) {} \n"
"void inArg(int &in v) {} \n"
"void outArg(int &out v) {} \n";
mod->AddScriptSection("script", script11);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// When the property is an object type, then the set accessor should be
// used instead of the overloaded assignment operator to set the value.
// Properties of object properties, must allow having different
// types for get and set. IsEqualExceptConstAndRef should be used.
const char *script12 =
"class Test \n"
"{ \n"
" string get_s() {return _s;} \n"
" void set_s(const string &in n) {_s = n;} \n"
" string _s; \n"
"} \n"
"void func() \n"
"{ \n"
" Test t; \n"
" t.s = 'hello'; \n"
" assert(t.s == 'hello'); \n"
"} \n";
mod->AddScriptSection("script", script12);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Compound assignments for object properties will not be allowed
r = ExecuteString(engine, "Test t; t.s += 'hello';", mod);
if( r >= 0 )
{
TEST_FAILED;
}
if( bout.buffer != "ExecuteString (1, 13) : Error : Compound assignments with property accessors are not allowed\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test @t.prop = @obj; Property is a handle, and the property is assigned a new handle. Should work
const char *script13 =
"class Test \n"
"{ \n"
" string@ get_s() {return _s;} \n"
" void set_s(string @n) {@_s = @n;} \n"
" string@ _s; \n"
"} \n"
"void func() \n"
"{ \n"
" Test t; \n"
" string s = 'hello'; \n"
" @t.s = @s; \n" // handle assignment
" assert(t.s is s); \n"
" t.s = 'other'; \n" // value assignment
" assert(s == 'other'); \n"
"} \n";
mod->AddScriptSection("script", script13);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test accessing members of an object property
const char *script14 =
"class Test \n"
"{ \n"
" string get_s() {return _s;} \n"
" void set_s(string n) {_s = n;} \n"
" string _s; \n"
"} \n"
"void func() \n"
"{ \n"
" Test t; \n"
" t.s = 'hello'; \n" // value assignment
" assert(t.s == 'hello'); \n"
" assert(t.s.length() == 5); \n" // this should work as length is const
"} \n";
mod->AddScriptSection("script", script14);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test accessing a non-const method on an object through a get accessor
// Should at least warn since the object is just a temporary one
/*
// This warning isn't done anymore as there are times when it is valid to call a non-const method on temporary objects, for example if a stream like object is implemented
bout.buffer = "";
r = ExecuteString(engine, "Test t; t.s.resize(4);", mod);
if( r < 0 )
TEST_FAILED;
if( (sizeof(void*) == 4 &&
bout.buffer != "ExecuteString (1, 13) : Warning : A non-const method is called on temporary object. Changes to the object may be lost.\n"
"ExecuteString (1, 13) : Info : void string::resize(uint)\n") ||
(sizeof(void*) == 8 &&
bout.buffer != "ExecuteString (1, 13) : Warning : A non-const method is called on temporary object. Changes to the object may be lost.\n"
"ExecuteString (1, 13) : Info : void string::resize(uint64)\n") )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
*/
// Test opNeg for object through get accessor
const char *script15 =
"class Val { int opNeg() const { return -1; } } \n"
"class Test \n"
"{ \n"
" Val get_s() const {return Val();} \n"
"} \n"
"void func() \n"
"{ \n"
" Test t; \n"
" assert( -t.s == -1 ); \n"
"} \n";
mod->AddScriptSection("script", script15);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test index operator for object through get accessor
const char *script16 =
"class Test \n"
"{ \n"
" int[] get_s() const { int[] a(1); a[0] = 42; return a; } \n"
"} \n"
"void func() \n"
"{ \n"
" Test t; \n"
" assert( t.s[0] == 42 ); \n"
"} \n";
mod->AddScriptSection("script", script16);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test accessing normal properties for object through get accessor
const char *script17 =
"class Val { int val; } \n"
"class Test \n"
"{ \n"
" Val get_s() const { Val v; v.val = 42; return v;} \n"
"} \n"
"void func() \n"
"{ \n"
" Test t; \n"
" assert( t.s.val == 42 ); \n"
"} \n";
mod->AddScriptSection("script", script17);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("Failed to compile the script\n");
}
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "func()", mod);
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
// Test const/non-const get and set accessors
const char *script18 =
"class Test \n"
"{ \n"
" int get_p() { return 42; } \n"
" int get_c() const { return 42; } \n"
" void set_s(int) {} \n"
"} \n"
"void func() \n"
"{ \n"
" const Test @t = @Test(); \n"
" assert( t.p == 42 ); \n" // Fail
" assert( t.c == 42 ); \n" // Success
" t.s = 42; \n" // Fail
"} \n";
mod->AddScriptSection("script", script18);
bout.buffer = "";
r = mod->Build();
if( r >= 0 )
TEST_FAILED;
if( bout.buffer != "script (7, 1) : Info : Compiling void func()\n"
"script (10, 15) : Error : Non-const method call on read-only object reference\n"
"script (10, 15) : Info : int Test::get_p()\n"
"script (12, 7) : Error : Non-const method call on read-only object reference\n"
"script (12, 7) : Info : void Test::set_s(int)\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// Test accessor with property of the same name
const char *script19 =
"int direction; \n"
"void set_direction(int val) { direction = val; } \n"
"void test_set() \n"
"{ \n"
" direction = 9; \n" // calls the set_direction property accessor
"} \n"
"void test_get() \n"
"{ \n"
" assert( direction == 9 ); \n" // fails, since there is no get accessor
"} \n";
mod->AddScriptSection("script", script19);
bout.buffer = "";
r = mod->Build();
if( r >= 0 )
TEST_FAILED;
if( bout.buffer != "script (7, 1) : Info : Compiling void test_get()\n"
"script (9, 21) : Error : The property has no get accessor\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
const char *script20 =
"class Test { \n"
" int direction; \n"
" void set_direction(int val) { direction = val; } \n"
"} \n";
mod->AddScriptSection("script", script20);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
TEST_FAILED;
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
r = ExecuteString(engine, "Test t; t.set_direction(3);", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
// Test accessing property of the same name on a member object
const char *script21 =
"class Test { \n"
" int a; \n"
" Test @member; \n"
" int get_a() const { return a; } \n"
" void set_a(int val) {a = val; if( member !is null ) member.a = val;} \n"
"} \n";
mod->AddScriptSection("script", script21);
bout.buffer = "";
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "Test t, s, u; @t.member = s; @s.member = u; t.set_a(3); assert( u.a == 3 );", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
if( bout.buffer != "" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
// TODO: Test non-const get accessor for object type with const overloaded dual operator
// TODO: Test get accessor that returns a reference (only from application func to start with)
// TODO: Test property accessor with inout references. Shouldn't be allowed as the value is not a valid reference
// TODO: Test set accessor with parameter declared as out ref (shouldn't be found)
// TODO: What should be done with expressions like t.prop; Should the get accessor be called even though
// the value is never used?
// TODO: Accessing a class member from within the property accessor with the same name as the property
// shouldn't call the accessor again. Instead it should access the real member. FindPropertyAccessor()
// shouldn't find any if the function being compiler is the property accessor itself
engine->Release();
// Test property accessor on temporary object handle
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterStdString(engine);
const char *script = "class Obj { void set_opacity(float v) {} }\n"
"Obj @GetObject() { return @Obj(); } \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "GetObject().opacity = 1.0f;", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test bug reported by Scarabus2
// The bug was an incorrect reusage of temporary variable by the
// property get accessor when compiling a binary operator
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
const char *script =
"class Object { \n"
" Object() {rot = 0;} \n"
" void set_rotation(float r) {rot = r;} \n"
" float get_rotation() const {return rot;} \n"
" float rot; } \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "Object obj; \n"
"float elapsed = 1.0f; \n"
"float temp = obj.rotation + elapsed * 1.0f; \n"
"obj.rotation = obj.rotation + elapsed * 1.0f; \n"
"assert( obj.rot == 1 ); \n", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test global property accessor
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
const char *script =
"int _s = 0; \n"
"int get_s() { return _s; } \n"
"void set_s(int v) { _s = v; } \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "s = 10; assert( s == 10 );", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
// The global property accessors are available to initialize global
// variables, but can possibly throw an exception if used inappropriately.
// This test also verifies that circular references between global
// properties and functions is properly resolved by the GC.
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
RegisterStdString(engine);
bout.buffer = "";
script =
"string _s = s; \n"
"string get_s() { return _s; } \n";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r != asINIT_GLOBAL_VARS_FAILED )
TEST_FAILED;
if( bout.buffer != "script (1, 13) : Error : Failed to initialize global variable '_s'\n"
"script (2, 0) : Info : Exception 'Null pointer access' in 'string get_s()'\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
engine->Release();
}
// Test property accessor for object in array
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptArray(engine, true);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
const char *script =
"class MyObj { bool get_Active() { return true; } } \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "MyObj[] a(1); if( a[0].Active == true ) { } if( a[0].get_Active() == true ) { }", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test property accessor from within class method
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
const char *script =
"class Vector3 \n"
"{ \n"
" float x; \n"
" float y; \n"
" float z; \n"
"}; \n"
"class Hoge \n"
"{ \n"
" const Vector3 get_pos() { return mPos; } \n"
" const Vector3 foo() { return pos; } \n"
" const Vector3 zoo() { return get_pos(); } \n"
" Vector3 mPos; \n"
"}; \n"
"void main() \n"
"{ \n"
" Hoge h; \n"
" Vector3 vec; \n"
" vec = h.zoo(); \n" // ok
" vec = h.foo(); \n" // runtime exception
"} \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "main", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test property accessor in type conversion
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptArray(engine, true);
const char *script =
"class sound \n"
"{ \n"
" int get_pitch() { return 1; } \n"
" void set_pitch(int p) {} \n"
"} \n"
"void main() \n"
"{ \n"
" sound[] sounds(1) ; \n"
" sounds[0].pitch = int(sounds[0].pitch)/2; \n"
"} \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "main", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test property accessor in type conversion (2)
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
const char *script =
"class sound \n"
"{ \n"
" const int &get_id() const { return i; } \n"
" int i; \n"
"} \n"
"void main() \n"
"{ \n"
" sound s; \n"
" if( s.id == 1 ) \n"
" return; \n"
"} \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "main", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test property accessors for opIndex
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptArray(engine, false);
RegisterScriptString(engine);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
const char *script =
"class CTest \n"
"{ \n"
" CTest() { arr.resize(5); } \n"
" int get_opIndex(int i) const { return arr[i]; } \n"
" void set_opIndex(int i, int v) { arr[i] = v; } \n"
" array<int> arr; \n"
"} \n"
"void main() \n"
"{ \n"
" CTest s; \n"
" s[0] = 42; \n"
" assert( s[0] == 42 ); \n"
" s[1] = 24; \n"
" assert( s[1] == 24 ); \n"
"} \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "main", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test global property accessors with index argument
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptArray(engine, false);
RegisterScriptString(engine);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
const char *script =
" int get_arr(int i) { arr.resize(5); return arr[i]; } \n"
" void set_arr(int i, int v) { arr.resize(5); arr[i] = v; } \n"
" array<int> arr; \n"
"void main() \n"
"{ \n"
" arr[0] = 42; \n"
" assert( arr[0] == 42 ); \n"
" arr[1] = 24; \n"
" assert( arr[1] == 24 ); \n"
"} \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "main()", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test member property accessors with index argument
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptArray(engine, false);
RegisterScriptString(engine);
engine->RegisterGlobalFunction("void assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
const char *script =
"class CTest \n"
"{ \n"
" CTest() { arr.resize(5); } \n"
" int get_arr(int i) { return arr[i]; } \n"
" void set_arr(int i, int v) { arr[i] = v; } \n"
" private array<int> arr; \n"
" void test() \n"
" { \n"
" arr[0] = 42; \n"
" assert( arr[0] == 42 ); \n"
" arr[1] = 24; \n"
" assert( arr[1] == 24 ); \n"
" } \n"
"} \n"
"void main() \n"
"{ \n"
" CTest s; \n"
" s.arr[0] = 42; \n"
" assert( s.arr[0] == 42 ); \n"
" s.arr[1] = 24; \n"
" assert( s.arr[1] == 24 ); \n"
" s.test(); \n"
"} \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r < 0 )
TEST_FAILED;
r = ExecuteString(engine, "main()", mod);
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
// Test member property accessors with ++ where the set accessor takes a reference
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
bout.buffer = "";
const char *script =
"class CTest \n"
"{ \n"
" double _vol; \n"
" double get_vol() const { return _vol; } \n"
" void set_vol(double &in v) { _vol = v; } \n"
"} \n"
"CTest t; \n"
"void main() \n"
"{ \n"
" for( t.vol = 0; t.vol < 10; t.vol++ ); \n"
"} \n";
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", script);
r = mod->Build();
if( r >= 0 )
TEST_FAILED;
if( bout.buffer != "script (8, 1) : Info : Compiling void main()\n"
"script (10, 36) : Error : Invalid reference. Property accessors cannot be used in combined read/write operations\n" )
{
printf("%s", bout.buffer.c_str());
TEST_FAILED;
}
engine->Release();
}
// Test get property returning reference
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
engine->RegisterObjectType("LevelType", sizeof(CLevel), asOBJ_VALUE | asOBJ_POD);
engine->RegisterObjectProperty("LevelType", "float attr", offsetof(CLevel, attr));
engine->RegisterGlobalFunction("LevelType &get_Level()", asFUNCTION(get_Level), asCALL_CDECL);
r = ExecuteString(engine, "Level.attr = 0.5f;");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
if( g_level.attr != 0.5f )
TEST_FAILED;
engine->Release();
}
// Make sure it is possible to update properties of objects returned through getter
{
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptMath3D(engine);
engine->RegisterObjectType("node", 0, asOBJ_REF);
engine->RegisterObjectBehaviour("node", asBEHAVE_FACTORY, "node @f()", asFUNCTION(CNode::CNodeFactory), asCALL_CDECL);
engine->RegisterObjectBehaviour("node", asBEHAVE_ADDREF, "void f()", asMETHOD(CNode, AddRef), asCALL_THISCALL);
engine->RegisterObjectBehaviour("node", asBEHAVE_RELEASE, "void f()", asMETHOD(CNode, Release), asCALL_THISCALL);
engine->RegisterObjectMethod("node", "node @+ get_child()", asMETHOD(CNode, GetChild), asCALL_THISCALL);
engine->RegisterObjectMethod("node", "void set_child(node @+)", asMETHOD(CNode, SetChild), asCALL_THISCALL);
engine->RegisterObjectProperty("node", "vector3 vector", offsetof(CNode, vector));
engine->RegisterObjectProperty("node", "float x", offsetof(CNode, vector));
r = ExecuteString(engine, "node @a = node(); \n"
"@a.child = node(); \n"
"a.child.x = 0; \n"
"a.child.vector = vector3(0,0,0); \n");
if( r != asEXECUTION_FINISHED )
TEST_FAILED;
engine->Release();
}
fail = Test2() || fail;
// Success
return fail;
}
void RegisterScriptFunction(asCScriptEngine *engine)
{
// Register the gc behaviours for the script functions
int r = 0;
UNUSED_VAR(r); // It is only used in debug mode
engine->functionBehaviours.engine = engine;
engine->functionBehaviours.flags = asOBJ_REF | asOBJ_GC | asOBJ_SCRIPT_FUNCTION;
engine->functionBehaviours.name = "_builtin_function_";
#ifndef AS_MAX_PORTABILITY
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ADDREF, "void f()", asMETHOD(asCScriptFunction,AddRef), asCALL_THISCALL, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASE, "void f()", asMETHOD(asCScriptFunction,Release), asCALL_THISCALL, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asMETHOD(asCScriptFunction,GetRefCount), asCALL_THISCALL, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_SETGCFLAG, "void f()", asMETHOD(asCScriptFunction,SetFlag), asCALL_THISCALL, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asMETHOD(asCScriptFunction,GetFlag), asCALL_THISCALL, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asMETHOD(asCScriptFunction,EnumReferences), asCALL_THISCALL, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asMETHOD(asCScriptFunction,ReleaseAllHandles), asCALL_THISCALL, 0);
asASSERT( r >= 0 );
#else
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ADDREF, "void f()", asFUNCTION(ScriptFunction_AddRef_Generic), asCALL_GENERIC, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASE, "void f()", asFUNCTION(ScriptFunction_Release_Generic), asCALL_GENERIC, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asFUNCTION(ScriptFunction_GetRefCount_Generic), asCALL_GENERIC, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_SETGCFLAG, "void f()", asFUNCTION(ScriptFunction_SetFlag_Generic), asCALL_GENERIC, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asFUNCTION(ScriptFunction_GetFlag_Generic), asCALL_GENERIC, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asFUNCTION(ScriptFunction_EnumReferences_Generic), asCALL_GENERIC, 0);
asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->functionBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asFUNCTION(ScriptFunction_ReleaseAllHandles_Generic), asCALL_GENERIC, 0);
asASSERT( r >= 0 );
#endif
// Register the builtin function for creating delegates
// This function returns a handle to the delegate, but since the type is not known at this time it is
// registered to return a void then the return type is changed manually to the builtin function type
// The name of the function is an invalid identifier so it cannot be invoked accidentally from the script
#ifndef AS_MAX_PORTABILITY
r = engine->RegisterGlobalFunction("void f(int &in, int &in)", asFUNCTION(CreateDelegate), asCALL_CDECL);
asASSERT( r >= 0 );
#else
r = engine->RegisterGlobalFunction("void f(int &in, int &in)", asFUNCTION(ScriptFunction_CreateDelegate_Generic), asCALL_GENERIC);
asASSERT( r >= 0 );
#endif
// Rename the function so that it cannot be called manually by the script
int idx = engine->registeredGlobalFuncs.GetIndex(engine->scriptFunctions[r]);
engine->registeredGlobalFuncs.Erase(idx);
engine->scriptFunctions[r]->name = DELEGATE_FACTORY;
engine->registeredGlobalFuncs.Put(engine->scriptFunctions[r]);
// Change the return type so the VM will know the function really returns a handle
engine->scriptFunctions[r]->returnType = asCDataType::CreateObject(&engine->functionBehaviours, false);
engine->scriptFunctions[r]->returnType.MakeHandle(true);
}
bool Test()
{
bool fail = Test2();
int r;
COutStream out;
asIScriptContext *ctx;
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
RegisterScriptString_Generic(engine);
engine->RegisterGlobalFunction("void Assert(bool)", asFUNCTION(Assert), asCALL_GENERIC);
asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script1, strlen(script1), 0);
r = mod->Build();
if( r < 0 )
{
fail = true;
printf("%s: Failed to compile the script\n", TESTNAME);
}
r = engine->ExecuteString(0, "TestArray()", &ctx);
if( r != asEXECUTION_FINISHED )
{
if( r == asEXECUTION_EXCEPTION )
PrintException(ctx);
printf("%s: Failed to execute script\n", TESTNAME);
fail = true;
}
if( ctx ) ctx->Release();
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script2, strlen(script2), 0);
r = mod->Build();
if( r < 0 )
{
fail = true;
printf("%s: Failed to compile the script\n", TESTNAME);
}
r = engine->ExecuteString(0, "TestArrayException()");
if( r != asEXECUTION_EXCEPTION )
{
printf("%s: No exception\n", TESTNAME);
fail = true;
}
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script3, strlen(script3), 0);
r = mod->Build();
if( r < 0 )
{
fail = true;
printf("%s: Failed to compile the script\n", TESTNAME);
}
r = engine->ExecuteString(0, "TestArrayMulti()", &ctx);
if( r != asEXECUTION_FINISHED )
{
printf("%s: Failure\n", TESTNAME);
fail = true;
}
if( r == asEXECUTION_EXCEPTION )
{
PrintException(ctx);
}
if( ctx ) ctx->Release();
ctx = 0;
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script4, strlen(script4), 0);
r = mod->Build();
if( r < 0 )
{
fail = true;
printf("%s: Failed to compile the script\n", TESTNAME);
}
r = engine->ExecuteString(0, "TestArrayChar()", &ctx);
if( r != asEXECUTION_FINISHED )
{
printf("%s: Failure\n", TESTNAME);
fail = true;
}
if( r == asEXECUTION_EXCEPTION )
{
PrintException(ctx);
}
if( ctx ) ctx->Release();
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script5, strlen(script5), 0);
r = mod->Build();
if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestArrayInitList()", &ctx);
if( r != asEXECUTION_FINISHED ) fail = true;
if( r == asEXECUTION_EXCEPTION )
PrintException(ctx);
if( ctx ) ctx->Release();
CBufferedOutStream bout;
engine->SetMessageCallback(asMETHOD(CBufferedOutStream,Callback), &bout, asCALL_THISCALL);
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script6, strlen(script6), 0);
r = mod->Build();
if( r >= 0 ) fail = true;
if( bout.buffer != "TestArray (1, 1) : Info : Compiling void Test()\n"
"TestArray (3, 15) : Error : Initialization lists cannot be used with 'int[]@'\n"
"TestArray (4, 16) : Error : Initialization lists cannot be used with 'int'\n" )
fail = true;
// Array object must call default constructor of the script classes
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script7, strlen(script7), 0);
r = mod->Build();
if( r < 0 )
fail = true;
r = engine->ExecuteString(0, "Test()");
if( r != asEXECUTION_FINISHED )
fail = true;
// Test bool[] on Mac OS X with PPC CPU
// Submitted by Edward Rudd
const char *script8 =
"bool[] f(10); \n"
"for (int i=0; i<10; i++) { \n"
" f[i] = false; \n"
"} \n"
"Assert(f[0] == false); \n"
"Assert(f[1] == false); \n"
"f[0] = true; \n"
"Assert(f[0] == true); \n"
"Assert(f[1] == false); \n";
r = engine->ExecuteString(0, script8);
if( r != asEXECUTION_FINISHED )
fail = true;
// Make sure it is possible to do multiple assignments with the array type
r = engine->ExecuteString(0, "int[] a, b, c; a = b = c;");
if( r < 0 )
fail = true;
engine->Release();
// Success
return fail;
}
void RegisterObjectTypeGCBehaviours(asCScriptEngine *engine)
{
// Register the gc behaviours for the object types
int r = 0;
UNUSED_VAR(r); // It is only used in debug mode
engine->objectTypeBehaviours.engine = engine;
engine->objectTypeBehaviours.flags = asOBJ_REF | asOBJ_GC;
engine->objectTypeBehaviours.name = "_builtin_objecttype_";
#ifndef AS_MAX_PORTABILITY
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_ADDREF, "void f()", asMETHOD(asCObjectType,AddRef), asCALL_THISCALL, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_RELEASE, "void f()", asMETHOD(asCObjectType,Release), asCALL_THISCALL, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asMETHOD(asCObjectType,GetRefCount), asCALL_THISCALL, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_SETGCFLAG, "void f()", asMETHOD(asCObjectType,SetGCFlag), asCALL_THISCALL, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asMETHOD(asCObjectType,GetGCFlag), asCALL_THISCALL, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asMETHOD(asCObjectType,EnumReferences), asCALL_THISCALL, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asMETHOD(asCObjectType,ReleaseAllHandles), asCALL_THISCALL, 0); asASSERT( r >= 0 );
#else
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_ADDREF, "void f()", asFUNCTION(ObjectType_AddRef_Generic), asCALL_GENERIC, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_RELEASE, "void f()", asFUNCTION(ObjectType_Release_Generic), asCALL_GENERIC, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_GETREFCOUNT, "int f()", asFUNCTION(ObjectType_GetRefCount_Generic), asCALL_GENERIC, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_SETGCFLAG, "void f()", asFUNCTION(ObjectType_SetGCFlag_Generic), asCALL_GENERIC, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_GETGCFLAG, "bool f()", asFUNCTION(ObjectType_GetGCFlag_Generic), asCALL_GENERIC, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_ENUMREFS, "void f(int&in)", asFUNCTION(ObjectType_EnumReferences_Generic), asCALL_GENERIC, 0); asASSERT( r >= 0 );
r = engine->RegisterBehaviourToObjectType(&engine->objectTypeBehaviours, asBEHAVE_RELEASEREFS, "void f(int&in)", asFUNCTION(ObjectType_ReleaseAllHandles_Generic), asCALL_GENERIC, 0); asASSERT( r >= 0 );
#endif
}
bool Test()
{
if( strstr(asGetLibraryOptions(), "AS_MAX_PORTABILITY") )
{
printf("%s: Skipped due to AS_MAX_PORTABILITY\n", TESTNAME);
return false;
}
bool fail = false;
int r;
COutStream out;
asIScriptEngine *engine;
asIScriptModule *mod;
asIScriptContext *ctx;
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
RegisterScriptString(engine);
r = engine->RegisterObjectType("refclass", sizeof(CRefClass), asOBJ_REF); assert(r >= 0);
r = engine->RegisterObjectBehaviour("refclass", asBEHAVE_FACTORY, "refclass@ f()", asFUNCTION(Factory), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterObjectBehaviour("refclass", asBEHAVE_ADDREF, "void f()", asMETHOD(CRefClass, AddRef), asCALL_THISCALL); assert(r >= 0);
r = engine->RegisterObjectBehaviour("refclass", asBEHAVE_RELEASE, "void f()", asMETHOD(CRefClass, Release), asCALL_THISCALL); assert(r >= 0);
r = engine->RegisterObjectMethod("refclass", "refclass &opAssign(refclass &in)", asMETHOD(CRefClass, operator=), asCALL_THISCALL); assert(r >= 0);
r = engine->RegisterObjectMethod("refclass", "refclass &Do()", asMETHOD(CRefClass,Do), asCALL_THISCALL); assert(r >= 0);
r = engine->RegisterObjectMethod("refclass", "refclass &opAdd(refclass &in)", asFUNCTION(CRefClass::Add), asCALL_CDECL_OBJFIRST); assert(r >= 0);
r = engine->RegisterGlobalFunction("void Assert(bool)", asFUNCTION(Assert), asCALL_GENERIC); assert( r >= 0 );
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script1, strlen(script1), 0);
engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);
r = mod->Build();
if( r < 0 )
{
TEST_FAILED;
printf("%s: Failed to compile the script\n", TESTNAME);
}
ctx = engine->CreateContext();
r = ExecuteString(engine, "TestObjHandle()", mod, ctx);
if( r != asEXECUTION_FINISHED )
{
if( r == asEXECUTION_EXCEPTION )
PrintException(ctx);
TEST_FAILED;
printf("%s: Execution failed\n", TESTNAME);
}
if( ctx ) ctx->Release();
// Call TestObjReturnHandle() from the application to verify that references are updated as necessary
ctx = engine->CreateContext();
ctx->Prepare(engine->GetModule(0)->GetFunctionIdByDecl("refclass@ TestObjReturnHandle(refclass@)"));
CRefClass *refclass = new CRefClass();
ctx->SetArgObject(0, refclass);
r = ctx->Execute();
if( r != asEXECUTION_FINISHED )
{
if( r == asEXECUTION_EXCEPTION )
PrintException(ctx);
TEST_FAILED;
printf("%s: Execution failed\n", TESTNAME);
}
if( refclass->refCount != 2 )
{
TEST_FAILED;
printf("%s: Ref count is wrong\n", TESTNAME);
}
refclass->Release();
if( ctx ) ctx->Release();
// Test returning a reference to the object from an object method
r = engine->GarbageCollect();
asUINT gcCurrentSize;
engine->GetGCStatistics(&gcCurrentSize, 0, 0);
assert( gcCurrentSize == 10 ); // The script class types and functions are also in the gc
r = ExecuteString(engine, "refclass ref; ref.Do()");
if( r != asEXECUTION_FINISHED )
{
TEST_FAILED;
}
engine->Release();
//--------------------
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
RegisterScriptArray(engine, true);
r = engine->RegisterGlobalFunction("void Assert(bool)", asFUNCTION(Assert), asCALL_GENERIC); assert( r >= 0 );
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection(TESTNAME, script5, strlen(script5), 0);
r = mod->Build();
if( r < 0 ) TEST_FAILED;
r = ExecuteString(engine, "Test()", mod);
if( r != asEXECUTION_FINISHED ) TEST_FAILED;
engine->Release();
//----------------------
// It should be allowed to have a global function return a handle to a const object
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);
const char *scriptC = "class T {} const T@ func() {return T();}";
mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
mod->AddScriptSection("script", scriptC, strlen(scriptC));
r = mod->Build();
if( r < 0 ) TEST_FAILED;
engine->Release();
//---------------------
// These tests are designed to make sure ambiguities with handles is avoided
CBufferedOutStream bout;
engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
r = engine->RegisterObjectType("A", sizeof(CRefClass), asOBJ_REF); assert(r >= 0);
r = engine->RegisterObjectBehaviour("A", asBEHAVE_FACTORY, "A@ f()", asFUNCTION(Factory), asCALL_CDECL); assert(r >= 0);
r = engine->RegisterObjectBehaviour("A", asBEHAVE_ADDREF, "void f()", asMETHOD(CRefClass, AddRef), asCALL_THISCALL); assert(r >= 0);
r = engine->RegisterObjectBehaviour("A", asBEHAVE_RELEASE, "void f()", asMETHOD(CRefClass, Release), asCALL_THISCALL); assert(r >= 0);
r = engine->RegisterObjectMethod("A", "A &opAssign(const A &in)", asMETHOD(CRefClass, operator=), asCALL_THISCALL); assert(r >= 0);
bout.buffer = "";
r = ExecuteString(engine, "A a; a == null;"); // Should give warning
if( r < 0 || bout.buffer == "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; null == a;"); // Should give warning
if( r < 0 || bout.buffer == "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; @a == null;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; null == @a;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; @a == a;"); // Should give warning
if( r < 0 || bout.buffer == "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; a == @a;"); // Should give warning
if( r < 0 || bout.buffer == "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; @a == @a;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A @a = null;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; A @b = a;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; A @b = @a;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; A b = @b;"); // Should give error
if( r >= 0 || bout.buffer == "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A @a, b; @a = @b;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A @a, b; @a = b;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A @a, b; a = @b;"); // Should give error
if( r >= 0 || bout.buffer == "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; null is a;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
bout.buffer = "";
r = ExecuteString(engine, "A a; a !is null;"); // OK
if( r < 0 || bout.buffer != "" )
{
TEST_FAILED;
}
engine->Release();
// Success
return fail;
}
bool Test()
{
bool fail = false;
asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
engine->RegisterGlobalFunction("void Assert(bool)", asFUNCTION(Assert), asCALL_CDECL);
COutStream out;
float f = 0;
double d = 0;
asUINT ui = 0;
int i = 0;
char i8 = 0;
short i16 = 0;
unsigned char ui8 = 0;
unsigned short ui16 = 0;
asBYTE b8 = 0;
asWORD b16 = 0;
asDWORD b = 0;
engine->RegisterGlobalProperty("float f", &f);
engine->RegisterGlobalProperty("double d", &d);
engine->RegisterGlobalProperty("uint ui", &ui);
engine->RegisterGlobalProperty("uint8 ui8", &ui8);
engine->RegisterGlobalProperty("uint16 ui16", &ui16);
engine->RegisterGlobalProperty("int i", &i);
engine->RegisterGlobalProperty("int8 i8", &i8);
engine->RegisterGlobalProperty("int16 i16", &i16);
engine->RegisterGlobalProperty("bits b", &b);
engine->RegisterGlobalProperty("bits8 b8", &b8);
engine->RegisterGlobalProperty("bits16 b16", &b16);
engine->RegisterGlobalFunction("void TestDouble(double)", asFUNCTION(TestDouble), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestFloat(float)", asFUNCTION(TestFloat), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestInt(int)", asFUNCTION(TestInt), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestI16(int16)", asFUNCTION(TestI16), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestI8(int8)", asFUNCTION(TestI8), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestUInt(uint)", asFUNCTION(TestUInt), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestUI16(uint16)", asFUNCTION(TestUI16), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestUI8(uint8)", asFUNCTION(TestUI8), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestDoubleByRef(double &in)", asFUNCTION(TestDoubleByRef), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestFloatByRef(float &in)", asFUNCTION(TestFloatByRef), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestIntByRef(int &in)", asFUNCTION(TestIntByRef), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestI16ByRef(int16 &in)", asFUNCTION(TestI16ByRef), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestI8ByRef(int8 &in)", asFUNCTION(TestI8ByRef), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestUIntByRef(uint &in)", asFUNCTION(TestUIntByRef), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestUI16ByRef(uint16 &in)", asFUNCTION(TestUI16ByRef), asCALL_CDECL);
engine->RegisterGlobalFunction("void TestUI8ByRef(uint8 &in)", asFUNCTION(TestUI8ByRef), asCALL_CDECL);
engine->SetCommonMessageStream(&out);
d = 12.3; engine->ExecuteString(0, "d = double(d);"); if( d != 12.3 ) fail = true;
f = 12.3f; engine->ExecuteString(0, "d = double(f);"); if( d != 12.3f ) fail = true;
ui = 123; engine->ExecuteString(0, "d = double(ui);"); if( d != 123.0 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "d = double(ui8);"); if( d != 123.0 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "d = double(ui16);"); if( d != 123.0 ) fail = true;
i = -123; engine->ExecuteString(0, "d = double(i);"); if( d != -123.0 ) fail = true;
i8 = -123; engine->ExecuteString(0, "d = double(i8);"); if( d != -123.0 ) fail = true;
i16 = -123; engine->ExecuteString(0, "d = double(i16);"); if( d != -123.0 ) fail = true;
d = 12.3; engine->ExecuteString(0, "d = d;"); if( d != 12.3 ) fail = true;
f = 12.3f; engine->ExecuteString(0, "d = f;"); if( d != 12.3f ) fail = true;
ui = 123; engine->ExecuteString(0, "d = ui;"); if( d != 123.0 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "d = ui8;"); if( d != 123.0 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "d = ui16;"); if( d != 123.0 ) fail = true;
i = -123; engine->ExecuteString(0, "d = i;"); if( d != -123.0 ) fail = true;
i8 = -123; engine->ExecuteString(0, "d = i8;"); if( d != -123.0 ) fail = true;
i16 = -123; engine->ExecuteString(0, "d = i16;"); if( d != -123.0 ) fail = true;
d = 12.3; engine->ExecuteString(0, "f = float(d);"); if( f != 12.3f ) fail = true;
f = 12.3f; engine->ExecuteString(0, "f = float(f);"); if( f != 12.3f ) fail = true;
ui = 123; engine->ExecuteString(0, "f = float(ui);"); if( f != 123.0f ) fail = true;
ui8 = 123; engine->ExecuteString(0, "f = float(ui8);"); if( f != 123.0f ) fail = true;
ui16 = 123; engine->ExecuteString(0, "f = float(ui16);"); if( f != 123.0f ) fail = true;
i = -123; engine->ExecuteString(0, "f = float(i);"); if( f != -123.0f ) fail = true;
i8 = -123; engine->ExecuteString(0, "f = float(i8);"); if( f != -123.0f ) fail = true;
i16 = -123; engine->ExecuteString(0, "f = float(i16);"); if( f != -123.0f ) fail = true;
d = 12.3; engine->ExecuteString(0, "f = d;"); if( f != 12.3f ) fail = true;
f = 12.3f; engine->ExecuteString(0, "f = f;"); if( f != 12.3f ) fail = true;
ui = 123; engine->ExecuteString(0, "f = ui;"); if( f != 123.0f ) fail = true;
ui8 = 123; engine->ExecuteString(0, "f = ui8;"); if( f != 123.0f ) fail = true;
ui16 = 123; engine->ExecuteString(0, "f = ui16;"); if( f != 123.0f ) fail = true;
i = -123; engine->ExecuteString(0, "f = i;"); if( f != -123.0f ) fail = true;
i8 = -123; engine->ExecuteString(0, "f = i8;"); if( f != -123.0f ) fail = true;
i16 = -123; engine->ExecuteString(0, "f = i16;"); if( f != -123.0f ) fail = true;
d = 12.3; engine->ExecuteString(0, "i = int(d);"); if( i != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "i = int(f);"); if( i != - 12 ) fail = true;
ui = 123; engine->ExecuteString(0, "i = int(ui);"); if( i != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "i = int(ui8);"); if( i != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "i = int(ui16);"); if( i != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "i = int(i);"); if( i != -123 ) fail = true;
i8 = -123; engine->ExecuteString(0, "i = int(i8);"); if( i != -123 ) fail = true;
i16 = -123; engine->ExecuteString(0, "i = int(i16);"); if( i != -123 ) fail = true;
d = 12.3; engine->ExecuteString(0, "i = d;"); if( i != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "i = f;"); if( i != - 12 ) fail = true;
ui = 123; engine->ExecuteString(0, "i = ui;"); if( i != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "i = ui8;"); if( i != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "i = ui16;"); if( i != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "i = i;"); if( i != -123 ) fail = true;
i8 = -123; engine->ExecuteString(0, "i = i8;"); if( i != -123 ) fail = true;
i16 = -123; engine->ExecuteString(0, "i = i16;"); if( i != -123 ) fail = true;
d = 12.3; engine->ExecuteString(0, "i8 = int8(d);"); if( i8 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "i8 = int8(f);"); if( i8 != - 12 ) fail = true;
ui = 123; engine->ExecuteString(0, "i8 = int8(ui);"); if( i8 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "i8 = int8(ui8);"); if( i8 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "i8 = int8(ui16);"); if( i8 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "i8 = int8(i);"); if( i8 != -123 ) fail = true;
i8 = -123; engine->ExecuteString(0, "i8 = int8(i8);"); if( i8 != -123 ) fail = true;
i16 = -123; engine->ExecuteString(0, "i8 = int8(i16);"); if( i8 != -123 ) fail = true;
d = 12.3; engine->ExecuteString(0, "i8 = d;"); if( i8 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "i8 = f;"); if( i8 != - 12 ) fail = true;
ui = 123; engine->ExecuteString(0, "i8 = ui;"); if( i8 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "i8 = ui8;"); if( i8 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "i8 = ui16;"); if( i8 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "i8 = i;"); if( i8 != -123 ) fail = true;
i8 = -123; engine->ExecuteString(0, "i8 = i8;"); if( i8 != -123 ) fail = true;
i16 = -123; engine->ExecuteString(0, "i8 = i16;"); if( i8 != -123 ) fail = true;
d = 12.3; engine->ExecuteString(0, "i16 = int16(d);"); if( i16 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "i16 = int16(f);"); if( i16 != - 12 ) fail = true;
ui = 123; engine->ExecuteString(0, "i16 = int16(ui);"); if( i16 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "i16 = int16(ui8);"); if( i16 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "i16 = int16(ui16);"); if( i16 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "i16 = int16(i);"); if( i16 != -123 ) fail = true;
i8 = -123; engine->ExecuteString(0, "i16 = int16(i8);"); if( i16 != -123 ) fail = true;
i16 = -123; engine->ExecuteString(0, "i16 = int16(i16);"); if( i16 != -123 ) fail = true;
d = 12.3; engine->ExecuteString(0, "i16 = d;"); if( i16 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "i16 = f;"); if( i16 != - 12 ) fail = true;
ui = 123; engine->ExecuteString(0, "i16 = ui;"); if( i16 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "i16 = ui8;"); if( i16 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "i16 = ui16;"); if( i16 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "i16 = i;"); if( i16 != -123 ) fail = true;
i8 = -123; engine->ExecuteString(0, "i16 = i8;"); if( i16 != -123 ) fail = true;
i16 = -123; engine->ExecuteString(0, "i16 = i16;"); if( i16 != -123 ) fail = true;
d = 12.3; engine->ExecuteString(0, "ui = uint(d);"); if( ui != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "ui = uint(f);"); if( ui != asUINT(-12) ) fail = true;
ui = 123; engine->ExecuteString(0, "ui = uint(ui);"); if( ui != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "ui = uint(ui8);"); if( ui != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "ui = uint(ui16);"); if( ui != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "ui = uint(i);"); if( ui != asUINT(-123) ) fail = true;
i8 = -123; engine->ExecuteString(0, "ui = uint(i8);"); if( ui != asUINT(-123) ) fail = true;
i16 = -123; engine->ExecuteString(0, "ui = uint(i16);"); if( ui != asUINT(-123) ) fail = true;
d = 12.3; engine->ExecuteString(0, "ui = d;"); if( ui != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "ui = f;"); if( ui != asUINT(-12) ) fail = true;
ui = 123; engine->ExecuteString(0, "ui = ui;"); if( ui != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "ui = ui8;"); if( ui != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "ui = ui16;"); if( ui != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "ui = i;"); if( ui != asUINT(-123) ) fail = true;
i8 = -123; engine->ExecuteString(0, "ui = i8;"); if( ui != asUINT(-123) ) fail = true;
i16 = -123; engine->ExecuteString(0, "ui = i16;"); if( ui != asUINT(-123) ) fail = true;
d = 12.3; engine->ExecuteString(0, "ui8 = uint8(d);"); if( ui8 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "ui8 = uint8(f);"); if( ui8 != asBYTE(-12) ) fail = true;
ui = 123; engine->ExecuteString(0, "ui8 = uint8(ui);"); if( ui8 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "ui8 = uint8(ui8);"); if( ui8 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "ui8 = uint8(ui16);"); if( ui8 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "ui8 = uint8(i);"); if( ui8 != asBYTE(-123) ) fail = true;
i8 = -123; engine->ExecuteString(0, "ui8 = uint8(i8);"); if( ui8 != asBYTE(-123) ) fail = true;
i16 = -123; engine->ExecuteString(0, "ui8 = uint8(i16);"); if( ui8 != asBYTE(-123) ) fail = true;
d = 12.3; engine->ExecuteString(0, "ui8 = d;"); if( ui8 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "ui8 = f;"); if( ui8 != asBYTE(-12) ) fail = true;
ui = 123; engine->ExecuteString(0, "ui8 = ui;"); if( ui8 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "ui8 = ui8;"); if( ui8 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "ui8 = ui16;"); if( ui8 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "ui8 = i;"); if( ui8 != asBYTE(-123) ) fail = true;
i8 = -123; engine->ExecuteString(0, "ui8 = i8;"); if( ui8 != asBYTE(-123) ) fail = true;
i16 = -123; engine->ExecuteString(0, "ui8 = i16;"); if( ui8 != asBYTE(-123) ) fail = true;
d = 12.3; engine->ExecuteString(0, "ui16 = uint16(d);"); if( ui16 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "ui16 = uint16(f);"); if( ui16 != asWORD(-12) ) fail = true;
ui = 123; engine->ExecuteString(0, "ui16 = uint16(ui);"); if( ui16 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "ui16 = uint16(ui8);"); if( ui16 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "ui16 = uint16(ui16);"); if( ui16 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "ui16 = uint16(i);"); if( ui16 != asWORD(-123) ) fail = true;
i8 = -123; engine->ExecuteString(0, "ui16 = uint16(i8);"); if( ui16 != asWORD(-123) ) fail = true;
i16 = -123; engine->ExecuteString(0, "ui16 = uint16(i16);"); if( ui16 != asWORD(-123) ) fail = true;
d = 12.3; engine->ExecuteString(0, "ui16 = d;"); if( ui16 != 12 ) fail = true;
f = -12.3f; engine->ExecuteString(0, "ui16 = f;"); if( ui16 != asWORD(-12) ) fail = true;
ui = 123; engine->ExecuteString(0, "ui16 = ui;"); if( ui16 != 123 ) fail = true;
ui8 = 123; engine->ExecuteString(0, "ui16 = ui8;"); if( ui16 != 123 ) fail = true;
ui16 = 123; engine->ExecuteString(0, "ui16 = ui16;"); if( ui16 != 123 ) fail = true;
i = -123; engine->ExecuteString(0, "ui16 = i;"); if( ui16 != asWORD(-123) ) fail = true;
i8 = -123; engine->ExecuteString(0, "ui16 = i8;"); if( ui16 != asWORD(-123) ) fail = true;
i16 = -123; engine->ExecuteString(0, "ui16 = i16;"); if( ui16 != asWORD(-123) ) fail = true;
engine->ExecuteString(0, "TestDouble(d); TestFloat(d); TestInt(d); TestI16(d); TestI8(d); TestUInt(d); TestUI16(d); TestUI8(d);");
engine->ExecuteString(0, "TestDouble(f); TestFloat(f); TestInt(f); TestI16(f); TestI8(f); TestUInt(f); TestUI16(f); TestUI8(f);");
engine->ExecuteString(0, "TestDouble(ui); TestFloat(ui); TestInt(ui); TestI16(ui); TestI8(ui); TestUInt(ui); TestUI16(ui); TestUI8(ui);");
engine->ExecuteString(0, "TestDouble(ui8); TestFloat(ui8); TestInt(ui8); TestI16(ui8); TestI8(ui8); TestUInt(ui8); TestUI16(ui8); TestUI8(ui8);");
engine->ExecuteString(0, "TestDouble(ui16); TestFloat(ui16); TestInt(ui16); TestI16(ui16); TestI8(ui16); TestUInt(ui16); TestUI16(ui16); TestUI8(ui16);");
engine->ExecuteString(0, "TestDouble(i); TestFloat(i); TestInt(i); TestI16(i); TestI8(i); TestUInt(i); TestUI16(i); TestUI8(i);");
engine->ExecuteString(0, "TestDouble(i8); TestFloat(i8); TestInt(i8); TestI16(i8); TestI8(i8); TestUInt(i8); TestUI16(i8); TestUI8(i8);");
engine->ExecuteString(0, "TestDouble(i16); TestFloat(i16); TestInt(i16); TestI16(i16); TestI8(i16); TestUInt(i16); TestUI16(i16); TestUI8(i16);");
d = 0; i8 = -22; engine->ExecuteString(0, "d = d + i8"); if( d != -22 ) fail = true;
engine->ExecuteString(0, "int[] a(1); a[0] == 1");
engine->ExecuteString(0, "b + i");
engine->ExecuteString(0, "int a = 0, b = 0; (a+b)&1;");
f = 0; engine->ExecuteString(0, "f = float(0x3f800000)"); if( f != 1 ) fail = true;
CBufferedOutStream bout;
engine->SetCommonMessageStream(&bout);
engine->ExecuteString(0, "i == ui");
if( bout.buffer != "ExecuteString (1, 3) : Warning : Signed/Unsigned mismatch\n" )
fail = true;
bout.buffer = "";
int r;
// Allow the conversion of a type to another even for reference parameters (C++ doesn't allow this)
r = engine->ExecuteString(0, "TestDoubleByRef(d); TestFloatByRef(d); TestIntByRef(d); TestI16ByRef(d); TestI8ByRef(d); TestUIntByRef(d); TestUI16ByRef(d); TestUI8ByRef(d);"); if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestDoubleByRef(f); TestFloatByRef(f); TestIntByRef(f); TestI16ByRef(f); TestI8ByRef(f); TestUIntByRef(f); TestUI16ByRef(f); TestUI8ByRef(f);"); if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestDoubleByRef(ui); TestFloatByRef(ui); TestIntByRef(ui); TestI16ByRef(ui); TestI8ByRef(ui); TestUIntByRef(ui); TestUI16ByRef(ui); TestUI8ByRef(ui);"); if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestDoubleByRef(ui8); TestFloatByRef(ui8); TestIntByRef(ui8); TestI16ByRef(ui8); TestI8ByRef(ui8); TestUIntByRef(ui8); TestUI16ByRef(ui8); TestUI8ByRef(ui8);"); if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestDoubleByRef(ui16); TestFloatByRef(ui16); TestIntByRef(ui16); TestI16ByRef(ui16); TestI8ByRef(ui16); TestUIntByRef(ui16); TestUI16ByRef(ui16); TestUI8ByRef(ui16);"); if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestDoubleByRef(i); TestFloatByRef(i); TestIntByRef(i); TestI16ByRef(i); TestI8ByRef(i); TestUIntByRef(i); TestUI16ByRef(i); TestUI8ByRef(i);"); if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestDoubleByRef(i8); TestFloatByRef(i8); TestIntByRef(i8); TestI16ByRef(i8); TestI8ByRef(i8); TestUIntByRef(i8); TestUI16ByRef(i8); TestUI8ByRef(i8);"); if( r < 0 ) fail = true;
r = engine->ExecuteString(0, "TestDoubleByRef(i16); TestFloatByRef(i16); TestIntByRef(i16); TestI16ByRef(i16); TestI8ByRef(i16); TestUIntByRef(i16); TestUI16ByRef(i16); TestUI8ByRef(i16);"); if( r < 0 ) fail = true;
engine->SetCommonMessageStream(&out);
engine->AddScriptSection(0, "script", script, strlen(script));
engine->Build(0);
// This test is to make sure that the float is in fact converted to a double
engine->ExecuteString(0, "TestScript();");
// Make sure uint and int can be converted to bits when using the ~ operator
engine->ExecuteString(0, "bits x = 0x34; x = ~x;");
engine->ExecuteString(0, "uint x = 0x34; x = ~x;");
engine->ExecuteString(0, "int x = 0x34; x = ~x;");
engine->Release();
if( fail )
printf("%s: failed\n", TESTNAME);
// Success
return fail;
}
