1

/* $Id$ */

     2

     3

/** @file ai_info.cpp Implementation of AIInfo */

     4

     5

#include "../stdafx.h"

     6

#include "../core/alloc_func.hpp"

     7

     8

#include <squirrel.h>

     9

#include "../squirrel.hpp"

    10

#include "../squirrel_helper.hpp"

    11

#include "../squirrel_class.hpp"

    12

#include "../squirrel_std.hpp"

    13

#include "ai_info.hpp"

    14

#include "ai_squirrel.hpp"

    15

#include "api/ai_controller.hpp"

    16

    17

AIInfo::~AIInfo()

    18

{

    20

	free(this->script_name);

    21

	free(this->dir_name);

    22

	free(this->SQ_instance);

    23

}

    24

    25

const char *AIInfo::GetAuthor()

    26

{

    27

	return this->engine->CallStringMethod(*this->SQ_instance, "GetAuthor");

    28

}

    29

    30

const char *AIInfo::GetName()

    31

{

    32

	return this->engine->CallStringMethod(*this->SQ_instance, "GetName");

    33

}

    34

    35

const char *AIInfo::GetDescription()

    36

{

    37

	return this->engine->CallStringMethod(*this->SQ_instance, "GetDescription");

    38

}

    39

    40

int AIInfo::GetVersion()

    41

{

    42

	return this->engine->CallIntegerMethod(*this->SQ_instance, "GetVersion");

    43

}

    44

    45

const char *AIInfo::GetDate()

    46

{

    47

	return this->engine->CallStringMethod(*this->SQ_instance, "GetDate");

    48

}

    49

    50

bool AIInfo::AllowStartup()

    51

{

    52

	return true;

    53

}

    54

    55

AIController *AIInfo::CreateInstance()

    56

{

    57

	const char *class_name = this->engine->CallStringMethod(*this->SQ_instance, "CreateInstance");

    58

	return new AIController(this->script_name, class_name);

    59

}

    60

    61

const char *AIInfo::GetDirName()

    62

{

    63

	return this->dir_name;

    64

}

    65

    66

const char *AIInfo::GetScriptName()

    67

{

    68

	return this->script_name;

    69

}

    70

    71

void AIInfo::CheckMethods(SQInteger *res, const char *name)

    72

{

    73

	if (!this->engine->MethodExists(*this->SQ_instance, name)) {

    74

		char error[1024];

    76

		this->engine->ThrowError(error);

    77

		*res = SQ_ERROR;

    78

	}

    79

}

    80

    81

/* static */ SQInteger AIInfo::Constructor(HSQUIRRELVM vm)

    82

{

    83

	/* Create a new AIInfo */

    84

	AIInfo *info = new AIInfo();

    85

	SQInteger res = 0;

    86

    87

	/* Set some basic info from the parent */

    88

	info->SQ_instance = MallocT<SQObject>(sizeof(SQObject));

    92

	info->base = ((AISquirrel *)Squirrel::GetGlobalPointer(vm));

    93

	info->engine = info->base->GetEngine();

    94

    95

	/* Check if all needed fields are there */

    96

	info->CheckMethods(&res, "GetAuthor");

    97

	info->CheckMethods(&res, "GetName");

    98

	info->CheckMethods(&res, "GetDescription");

    99

	info->CheckMethods(&res, "GetVersion");

   100

	info->CheckMethods(&res, "GetDate");

   101

	info->CheckMethods(&res, "CreateInstance");

   102

   103

	/* Abort if one method was missing */

   104

	if (res != 0) return res;

   105

   106

	info->script_name = strdup(info->base->GetCurrentScript());

   107

	info->dir_name = strdup(info->base->GetCurrentDirName());

   110

	info->base->RegisterAI(info);

   111

   112

	return 0;

   113

}