1

/* $Id$ */

     2

     3

/** @file squirrel_class.cpp defines templates for converting C++ classes to Squirrel classes */

     4

     5

#ifndef SQUIRREL_CLASS_HPP

     6

#define SQUIRREL_CLASS_HPP

     7

     8

/**

     9

 * The template to define classes in Squirrel. It takes care of the creation

    10

 *  and calling of such classes, to make the AI Layer cleaner while having a

    11

 *  powerful script as possible AI language.

    12

 */

    13

template <class CL>

    14

class DefSQClass {

    15

private:

    16

	const char *classname;

    17

    18

public:

    19

	DefSQClass(const char *_classname) :

    20

		classname(_classname)

    21

	{}

    22

    23

	/**

    24

	 * The destructor, to delete the real instance.

    25

	 */

    26

	static SQInteger Destructor(SQUserPointer p, SQInteger size)

    27

	{

    28

		/* Remove the real instance too */

    29

		if (p != NULL) delete (CL *)p;

    30

		return 0;

    31

	}

    32

    33

	/**

    34

	 * The constructor, to create the real instance.

    35

	 */

    36

	static SQInteger Constructor(HSQUIRRELVM vm)

    37

	{

    38

		/* Create the real instance */

    39

		CL *instance = new CL();

    40

		sq_setinstanceup(vm, -1, instance);

    41

		sq_setreleasehook(vm, -1, &DefSQClass::Destructor);

    42

		return 0;

    43

	}

    44

    45

	/**

    46

	 * This defines a method inside a class for Squirrel.

    47

	 */

    48

	template <typename Func>

    49

	void DefSQFunction(Squirrel *engine, Func function_proc, const char *function_name)

    50

	{

    51

		engine->AddMethod(function_name, SQConvert::DefSQCallback<CL, Func>, &function_proc, sizeof(function_proc));

    52

	}

    53

    60

	void PreRegister(Squirrel *engine)

    61

	{

    62

		engine->AddClassBegin(this->classname);

    63

	}

    64

    65

	void AddConstructor(Squirrel *engine)

    66

	{

    67

		engine->AddMethod("constructor", &DefSQClass::Constructor);

    68

	}

    69

    70

	void PostRegister(Squirrel *engine)

    71

	{

    72

		engine->AddClassEnd();

    73

	}

    74

};

    75

    76

#endif /* SQUIRREL_CLASS_HPP */