author | truebrain |
Tue, 26 Feb 2008 21:35:22 +0000 | |
branch | noai |
changeset 9782 | e8d8d8894f23 |
parent 9674 | 15f7b310b6cf |
child 9789 | 33d3214a2fce |
permissions | -rw-r--r-- |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
1 |
/* $Id$ */ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
2 |
|
9422
33efcc5f1b09
(svn r9223) [NoAI] -Change: moved squirrel/engine.cpp to squirrel.cpp in root
truelight
parents:
9404
diff
changeset
|
3 |
/** @file squirrel.hpp defines the Squirrel class */ |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
4 |
|
9422
33efcc5f1b09
(svn r9223) [NoAI] -Change: moved squirrel/engine.cpp to squirrel.cpp in root
truelight
parents:
9404
diff
changeset
|
5 |
#ifndef SQUIRREL_HPP |
33efcc5f1b09
(svn r9223) [NoAI] -Change: moved squirrel/engine.cpp to squirrel.cpp in root
truelight
parents:
9404
diff
changeset
|
6 |
#define SQUIRREL_HPP |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
7 |
|
9422
33efcc5f1b09
(svn r9223) [NoAI] -Change: moved squirrel/engine.cpp to squirrel.cpp in root
truelight
parents:
9404
diff
changeset
|
8 |
class Squirrel { |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
9 |
private: |
9782
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
10 |
typedef void (SQPrintFunc)(bool error_msg, const char *message); |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
11 |
|
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
12 |
HSQUIRRELVM vm; ///< The VirtualMachine instnace for squirrel |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
13 |
void *global_pointer; ///< Can be set by who ever initializes Squirrel |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
14 |
SQPrintFunc *print_func; ///< Points to either NULL, or a custom print handler |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
15 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
16 |
/** |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
17 |
* The internal RunError handler. It looks up the real error and calls RunError with it. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
18 |
*/ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
19 |
static SQInteger _RunError(HSQUIRRELVM vm); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
20 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
21 |
protected: |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
22 |
/** |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
23 |
* The CompileError handler. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
24 |
*/ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
25 |
static void CompileError(HSQUIRRELVM vm, const SQChar *desc, const SQChar *source, SQInteger line, SQInteger column); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
26 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
27 |
/** |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
28 |
* The RunError handler. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
29 |
*/ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
30 |
static void RunError(HSQUIRRELVM vm, const char *error); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
31 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
32 |
/** |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
33 |
* If a user runs 'print' inside a script, this function gets the params. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
34 |
*/ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
35 |
static void PrintFunc(HSQUIRRELVM vm, const SQChar *s, ...); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
36 |
|
9576
d650eb70a8d0
(svn r9593) [NoAI] -Add: on runtime-error, print the complete stack, so the user can see where it went wrong
truelight
parents:
9539
diff
changeset
|
37 |
/** |
d650eb70a8d0
(svn r9593) [NoAI] -Add: on runtime-error, print the complete stack, so the user can see where it went wrong
truelight
parents:
9539
diff
changeset
|
38 |
* If an error has to be print, this function is called. |
d650eb70a8d0
(svn r9593) [NoAI] -Add: on runtime-error, print the complete stack, so the user can see where it went wrong
truelight
parents:
9539
diff
changeset
|
39 |
*/ |
d650eb70a8d0
(svn r9593) [NoAI] -Add: on runtime-error, print the complete stack, so the user can see where it went wrong
truelight
parents:
9539
diff
changeset
|
40 |
static void ErrorPrintFunc(HSQUIRRELVM vm, const SQChar *s, ...); |
d650eb70a8d0
(svn r9593) [NoAI] -Add: on runtime-error, print the complete stack, so the user can see where it went wrong
truelight
parents:
9539
diff
changeset
|
41 |
|
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
42 |
public: |
9422
33efcc5f1b09
(svn r9223) [NoAI] -Change: moved squirrel/engine.cpp to squirrel.cpp in root
truelight
parents:
9404
diff
changeset
|
43 |
Squirrel(); |
33efcc5f1b09
(svn r9223) [NoAI] -Change: moved squirrel/engine.cpp to squirrel.cpp in root
truelight
parents:
9404
diff
changeset
|
44 |
~Squirrel(); |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
45 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
46 |
/** |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
47 |
* Load a script. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
48 |
* @param script The full script-name to load. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
49 |
* @return False if loading failed. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
50 |
*/ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
51 |
bool LoadScript(const char *script); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
52 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
53 |
/** |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
54 |
* Adds a function to the stack. Depending on the current state this means |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
55 |
* either a method or a global function. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
56 |
*/ |
9539
7416d0694d3a
(svn r9461) [NoAI] -Add: allow to set the amount of params that SQ should expect in the SQ define lines. Script to automated this are coming up next.
truelight
parents:
9525
diff
changeset
|
57 |
void AddMethod(const char *method_name, SQFUNCTION proc, uint nparam = 0, const char *params = NULL, void *userdata = NULL, int size = 0); |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
58 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
59 |
/** |
9525
1d6c509b56ee
(svn r9445) [NoAI] -Change: changed from sq_createslot to sq_newslot (first is deprecated)
truelight
parents:
9435
diff
changeset
|
60 |
* Adds a const to the stack. Depending on the current state this means |
1d6c509b56ee
(svn r9445) [NoAI] -Change: changed from sq_createslot to sq_newslot (first is deprecated)
truelight
parents:
9435
diff
changeset
|
61 |
* either a const to a class or to the global space. |
1d6c509b56ee
(svn r9445) [NoAI] -Change: changed from sq_createslot to sq_newslot (first is deprecated)
truelight
parents:
9435
diff
changeset
|
62 |
*/ |
1d6c509b56ee
(svn r9445) [NoAI] -Change: changed from sq_createslot to sq_newslot (first is deprecated)
truelight
parents:
9435
diff
changeset
|
63 |
void AddConst(const char *var_name, int value); |
1d6c509b56ee
(svn r9445) [NoAI] -Change: changed from sq_createslot to sq_newslot (first is deprecated)
truelight
parents:
9435
diff
changeset
|
64 |
|
1d6c509b56ee
(svn r9445) [NoAI] -Change: changed from sq_createslot to sq_newslot (first is deprecated)
truelight
parents:
9435
diff
changeset
|
65 |
/** |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
66 |
* Adds a class to the global scope. Make sure to call AddClassEnd when you |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
67 |
* are done adding methods. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
68 |
*/ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
69 |
void AddClassBegin(const char *class_name); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
70 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
71 |
/** |
9588
01b2435c977b
(svn r9618) [NoAI] -Add: allow an extra param for PreRegister to register classes as extends of others
truelight
parents:
9576
diff
changeset
|
72 |
* Adds a class to the global scope, extending 'parent_class'. |
01b2435c977b
(svn r9618) [NoAI] -Add: allow an extra param for PreRegister to register classes as extends of others
truelight
parents:
9576
diff
changeset
|
73 |
* Make sure to call AddClassEnd when you are done adding methods. |
01b2435c977b
(svn r9618) [NoAI] -Add: allow an extra param for PreRegister to register classes as extends of others
truelight
parents:
9576
diff
changeset
|
74 |
*/ |
01b2435c977b
(svn r9618) [NoAI] -Add: allow an extra param for PreRegister to register classes as extends of others
truelight
parents:
9576
diff
changeset
|
75 |
void AddClassBegin(const char *class_name, const char *parent_class); |
01b2435c977b
(svn r9618) [NoAI] -Add: allow an extra param for PreRegister to register classes as extends of others
truelight
parents:
9576
diff
changeset
|
76 |
|
01b2435c977b
(svn r9618) [NoAI] -Add: allow an extra param for PreRegister to register classes as extends of others
truelight
parents:
9576
diff
changeset
|
77 |
/** |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
78 |
* Finishes adding a class to the global scope. If this isn't called, no |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
79 |
* class is really created. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
80 |
*/ |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
81 |
void AddClassEnd(); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
82 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
83 |
/** |
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
84 |
* Call a method of an instance, in various flavors. |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
85 |
*/ |
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
86 |
void CallMethod(HSQOBJECT instance, const char *method_name, HSQOBJECT *ret); |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
87 |
void CallMethod(HSQOBJECT instance, const char *method_name) { this->CallMethod(instance, method_name, NULL); } |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
88 |
const char *CallStringMethod(HSQOBJECT instance, const char *method_name) { HSQOBJECT ret; this->CallMethod(instance, method_name, &ret); return ObjectToString(&ret); } |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
89 |
int CallIntegerMethod(HSQOBJECT instance, const char *method_name) { HSQOBJECT ret; this->CallMethod(instance, method_name, &ret); return ObjectToInteger(&ret); } |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
90 |
|
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
91 |
/** |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
92 |
* Check if a method exists in an instance. |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
93 |
*/ |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
94 |
bool MethodExists(HSQOBJECT instance, const char *method_name); |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
95 |
|
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
96 |
/** |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
97 |
* Creates a class instance. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
98 |
* @param class_name The name of the class of which we create an instance. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
99 |
* @param real_instance The instance to the real class, if it represents a real class. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
100 |
* @param instance Returning value with the pointer to the instance. |
9674
15f7b310b6cf
(svn r10613) [NoAI] -Add r10612: give release-hook for return values of classes for which SQ creates a temporary holder so they are free'd when SQ does
truelight
parents:
9673
diff
changeset
|
101 |
* @param release_hook Optional param to give a release hook. |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
102 |
* @return False if creating failed. |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
103 |
*/ |
9674
15f7b310b6cf
(svn r10613) [NoAI] -Add r10612: give release-hook for return values of classes for which SQ creates a temporary holder so they are free'd when SQ does
truelight
parents:
9673
diff
changeset
|
104 |
static bool CreateClassInstanceVM(HSQUIRRELVM vm, const char *class_name, void *real_instance, HSQOBJECT *instance, SQRELEASEHOOK release_hook); |
9673
ee4f133c84ec
(svn r10612) [NoAI] -Add: allow a class as return value; pack the result in a SQ instance and it should work perfectly
truelight
parents:
9588
diff
changeset
|
105 |
|
ee4f133c84ec
(svn r10612) [NoAI] -Add: allow a class as return value; pack the result in a SQ instance and it should work perfectly
truelight
parents:
9588
diff
changeset
|
106 |
/** |
ee4f133c84ec
(svn r10612) [NoAI] -Add: allow a class as return value; pack the result in a SQ instance and it should work perfectly
truelight
parents:
9588
diff
changeset
|
107 |
* Exactly the same as CreateClassInstanceVM, only callable without instance of Squirrel. |
ee4f133c84ec
(svn r10612) [NoAI] -Add: allow a class as return value; pack the result in a SQ instance and it should work perfectly
truelight
parents:
9588
diff
changeset
|
108 |
*/ |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
109 |
bool CreateClassInstance(const char *class_name, void *real_instance, HSQOBJECT *instance); |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
110 |
|
9394
796c684ca5b6
(svn r9186) [NoAI] -Documentation: forgot to document GetInstance()
truelight
parents:
9393
diff
changeset
|
111 |
/** |
796c684ca5b6
(svn r9186) [NoAI] -Documentation: forgot to document GetInstance()
truelight
parents:
9393
diff
changeset
|
112 |
* Get the real-instance pointer. |
796c684ca5b6
(svn r9186) [NoAI] -Documentation: forgot to document GetInstance()
truelight
parents:
9393
diff
changeset
|
113 |
* @note This will only work just after a function-call from within Squirrel |
796c684ca5b6
(svn r9186) [NoAI] -Documentation: forgot to document GetInstance()
truelight
parents:
9393
diff
changeset
|
114 |
* to your C++ function. |
796c684ca5b6
(svn r9186) [NoAI] -Documentation: forgot to document GetInstance()
truelight
parents:
9393
diff
changeset
|
115 |
*/ |
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
116 |
static bool GetRealInstance(HSQUIRRELVM vm, SQUserPointer *ptr) { return SQ_SUCCEEDED(sq_getinstanceup(vm, 1, ptr, 0)); } |
9394
796c684ca5b6
(svn r9186) [NoAI] -Documentation: forgot to document GetInstance()
truelight
parents:
9393
diff
changeset
|
117 |
|
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
118 |
/** |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
119 |
* Get the Squirrel-instance pointer. |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
120 |
* @note This will only work just after a function-call from within Squirrel |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
121 |
* to your C++ function. |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
122 |
*/ |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
123 |
static bool GetInstance(HSQUIRRELVM vm, HSQOBJECT *ptr) { sq_getclass(vm, 1); sq_getstackobj(vm, 1, ptr); return true; } |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
124 |
|
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
125 |
/** |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
126 |
* Convert a Squirrel-object to a string. |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
127 |
*/ |
9435
9dad22394553
(svn r9245) [NoAI] -Fix: allow compilation with _UNICODE
glx
parents:
9422
diff
changeset
|
128 |
static const char *ObjectToString(HSQOBJECT *ptr) { return FS2OTTD(sq_objtostring(ptr)); } |
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
129 |
|
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
130 |
/** |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
131 |
* Convert a Squirrel-object to an integer. |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
132 |
*/ |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
133 |
static int ObjectToInteger(HSQOBJECT *ptr) { return sq_objtointeger(ptr); } |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
134 |
|
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
135 |
/** |
9782
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
136 |
* Sets a pointer in the VM that is reachable from where ever you are in SQ. |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
137 |
* Useful to keep track of the main instance. |
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
138 |
*/ |
9782
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
139 |
void SetGlobalPointer(void *ptr) { this->global_pointer = ptr; } |
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
140 |
|
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
141 |
/** |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
142 |
* Get the pointer as set by SetGlobalPointer. |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
143 |
*/ |
9782
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
144 |
static void *GetGlobalPointer(HSQUIRRELVM vm) { return ((Squirrel *)sq_getforeignptr(vm))->global_pointer; } |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
145 |
|
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
146 |
/** |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
147 |
* Set a custom print function, so you can handle outputs from SQ yourself. |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
148 |
*/ |
e8d8d8894f23
(svn r12277) [NoAI] -Change: overlay GlobalPointer with local instance access and create sub-node to contain data
truebrain
parents:
9674
diff
changeset
|
149 |
void SetPrintFunction(SQPrintFunc *func) { this->print_func = func; } |
9404
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
150 |
|
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
151 |
/** |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
152 |
* Throw a Squirrel error that will be nicely displayed to the user. |
ef9e171617a3
(svn r9201) [NoAI] -Change: make adding a default-constructor for DefSQClass optional
truelight
parents:
9399
diff
changeset
|
153 |
*/ |
9435
9dad22394553
(svn r9245) [NoAI] -Fix: allow compilation with _UNICODE
glx
parents:
9422
diff
changeset
|
154 |
void ThrowError(const char *error) { sq_throwerror(this->vm, OTTD2FS(error)); } |
9393
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
155 |
}; |
04bd925b9069
(svn r9185) [NoAI] -Codechange: split up the squirrel code so we have SquirrelCore
truelight
parents:
diff
changeset
|
156 |
|
9422
33efcc5f1b09
(svn r9223) [NoAI] -Change: moved squirrel/engine.cpp to squirrel.cpp in root
truelight
parents:
9404
diff
changeset
|
157 |
#endif /* SQUIRREL_HPP */ |