#include "angelscript.h"
#include <cassert>
#include <cstdio>

void MessageCallback(const asSMessageInfo *msg, void *param)
{
	const char *type = "ERR ";
	if( msg->type == asMSGTYPE_WARNING ) 
		type = "WARN";
	else if( msg->type == asMSGTYPE_INFORMATION ) 
		type = "INFO";

	printf("%s (%d, %d) : %s : %s\n", msg->section, msg->row, msg->col, type, msg->message);
}

struct Simple {
};

struct Complex {
};

void implicit(asIScriptGeneric * gen) {
}

int main(int, char **) {
  asIScriptEngine * engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
  engine->SetMessageCallback(asFUNCTION(MessageCallback), 0, asCALL_CDECL);
  int r;
  r = engine->RegisterObjectType("simple", sizeof(Simple), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_PRIMITIVE); assert(r >= 0);
  r = engine->RegisterObjectType("complex", sizeof(Complex), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_PRIMITIVE); assert(r >= 0);
  r = engine->RegisterObjectBehaviour("complex", asBEHAVE_IMPLICIT_VALUE_CAST, "int f()", asFUNCTION(implicit), asCALL_GENERIC);
  r = engine->RegisterObjectBehaviour("complex", asBEHAVE_IMPLICIT_VALUE_CAST, "double f()", asFUNCTION(implicit), asCALL_GENERIC);
  r = engine->RegisterObjectBehaviour("complex", asBEHAVE_IMPLICIT_VALUE_CAST, "simple f()", asFUNCTION(implicit), asCALL_GENERIC);

  const char script[] =
    "void main() {\n"
    "  int i;\n"
    "  double d;\n"
    "  simple s;\n"
    "  complex c;\n"
    "  i = c;\n"
    "  d = c;\n"
    "  s = c;\n"
    "}";
  asIScriptModule * mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
  r = mod->AddScriptSection("script", script, sizeof(script) - 1); assert(r >= 0);
  r = mod->Build(); assert(r >= 0);
  
  int func_id = mod->GetFunctionIdByDecl("void main()"); assert(func_id >= 0);
  asIScriptContext * ctx = engine->CreateContext();

  r = ctx->Prepare(func_id); assert(r >= 0);
  r = ctx->Execute(); assert(r >= 0);

  ctx->Release();
  engine->Release();
}

void main(){  var foo = "This is a string";  string bar = foo;  Print(bar);}