summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authortruebrain <truebrain@openttd.org>2011-11-29 23:26:52 +0000
committertruebrain <truebrain@openttd.org>2011-11-29 23:26:52 +0000
commit3e6d0261291a1c91bf4f57c06fd9d180c175befc (patch)
tree11dcdfe79e138b991d531fa3d6955fdd99f5e428 /src
parent4505edbd4715befb0944e91ad7f986a8ca83f113 (diff)
downloadopenttd-3e6d0261291a1c91bf4f57c06fd9d180c175befc.tar.xz
(svn r23366) -Codechange: move most of the Dummy code to script/, unifying it
Diffstat (limited to 'src')
-rw-r--r--src/ai/ai_instance.cpp6
-rw-r--r--src/ai/ai_instance.hpp1
-rw-r--r--src/ai/ai_scanner.cpp4
-rw-r--r--src/script/script_info_dummy.cpp (renamed from src/ai/ai_info_dummy.cpp)55
-rw-r--r--src/script/script_instance.cpp4
-rw-r--r--src/script/script_instance.hpp5
-rw-r--r--src/script/squirrel.hpp15
7 files changed, 48 insertions, 42 deletions
diff --git a/src/ai/ai_instance.cpp b/src/ai/ai_instance.cpp
index 11459f649..2df8c2e44 100644
--- a/src/ai/ai_instance.cpp
+++ b/src/ai/ai_instance.cpp
@@ -229,6 +229,12 @@ void AIInstance::Died()
}
}
+void AIInstance::LoadDummyScript()
+{
+ extern void Script_CreateDummy(HSQUIRRELVM vm, StringID string, const char *type);
+ Script_CreateDummy(this->engine->GetVM(), STR_ERROR_AI_NO_AI_FOUND, "AI");
+}
+
/**
* DoCommand callback function for all commands executed by AIs.
* @param result The result of the command.
diff --git a/src/ai/ai_instance.hpp b/src/ai/ai_instance.hpp
index f0b66997e..886b716ae 100644
--- a/src/ai/ai_instance.hpp
+++ b/src/ai/ai_instance.hpp
@@ -32,6 +32,7 @@ private:
/* virtual */ void RegisterAPI();
/* virtual */ void Died();
/* virtual */ CommandCallback *GetDoCommandCallback();
+ /* virtual */ void LoadDummyScript();
/**
* Load squirrel scripts to emulate an older API.
diff --git a/src/ai/ai_scanner.cpp b/src/ai/ai_scanner.cpp
index 3a296f00e..25d38ccdb 100644
--- a/src/ai/ai_scanner.cpp
+++ b/src/ai/ai_scanner.cpp
@@ -34,8 +34,8 @@ void AIScannerInfo::Initialize(const char *name)
/* Create the dummy AI */
free(this->main_script);
this->main_script = strdup("%_dummy");
- extern void AI_CreateAIInfoDummy(HSQUIRRELVM vm);
- AI_CreateAIInfoDummy(this->engine->GetVM());
+ extern void Script_CreateDummyInfo(HSQUIRRELVM vm, const char *type, const char *dir);
+ Script_CreateDummyInfo(this->engine->GetVM(), "AI", "ai");
}
void AIScannerInfo::SetDummyAI(class AIInfo *info)
diff --git a/src/ai/ai_info_dummy.cpp b/src/script/script_info_dummy.cpp
index f706110f7..4620ce8f7 100644
--- a/src/ai/ai_info_dummy.cpp
+++ b/src/script/script_info_dummy.cpp
@@ -7,7 +7,7 @@
* See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
*/
-/** @file ai_info_dummy.cpp Implementation of a dummy AI. */
+/** @file script_info_dummy.cpp Implementation of a dummy Script. */
#include <squirrel.h>
#include "../stdafx.h"
@@ -16,37 +16,36 @@
#include "../strings_func.h"
#include "table/strings.h"
-/* The reason this exists in C++, is that a user can trash his ai/ dir,
- * leaving no AIs available. The complexity to solve this is insane, and
- * therefor the alternative is used, and make sure there is always an AI
+/* The reason this exists in C++, is that a user can trash his ai/ or game/ dir,
+ * leaving no Scripts available. The complexity to solve this is insane, and
+ * therefor the alternative is used, and make sure there is always a Script
* available, no matter what the situation is. By defining it in C++, there
- * is simply now way a user can delete it, and therefor safe to use. It has
- * to be noted that this AI is complete invisible for the user, and impossible
- * to select manual. It is a fail-over in case no AIs are available.
+ * is simply no way a user can delete it, and therefor safe to use. It has
+ * to be noted that this Script is complete invisible for the user, and impossible
+ * to select manual. It is a fail-over in case no Scripts are available.
*/
-/** info.nut for the dummy AI. */
-const SQChar _dummy_script_info[] = _SC(" \n\
-class DummyAI extends AIInfo { \n\
- function GetAuthor() { return \"OpenTTD NoAI Developers Team\"; } \n\
- function GetName() { return \"DummyAI\"; } \n\
- function GetShortName() { return \"DUMM\"; } \n\
- function GetDescription() { return \"A Dummy AI that is loaded when your ai/ dir is empty\"; }\n\
- function GetVersion() { return 1; } \n\
- function GetDate() { return \"2008-07-26\"; } \n\
- function CreateInstance() { return \"DummyAI\"; } \n\
-} \n\
- \n\
-RegisterDummyAI(DummyAI()); \n\
-");
-
/** Run the dummy info.nut. */
-void AI_CreateAIInfoDummy(HSQUIRRELVM vm)
+void Script_CreateDummyInfo(HSQUIRRELVM vm, const char *type, const char *dir)
{
+ char dummy_script[4096];
+ char *dp = dummy_script;
+ dp += seprintf(dp, lastof(dummy_script), "class Dummy%s extends %sInfo {\n", type, type);
+ dp += seprintf(dp, lastof(dummy_script), "function GetAuthor() { return \"OpenTTD Developers Team\"; }\n");
+ dp += seprintf(dp, lastof(dummy_script), "function GetName() { return \"Dummy%s\"; }\n", type);
+ dp += seprintf(dp, lastof(dummy_script), "function GetShortName() { return \"DUMM\"; }\n");
+ dp += seprintf(dp, lastof(dummy_script), "function GetDescription() { return \"A Dummy %s that is loaded when your %s/ dir is empty\"; }\n", type, dir);
+ dp += seprintf(dp, lastof(dummy_script), "function GetVersion() { return 1; }\n");
+ dp += seprintf(dp, lastof(dummy_script), "function GetDate() { return \"2008-07-26\"; }\n");
+ dp += seprintf(dp, lastof(dummy_script), "function CreateInstance() { return \"Dummy%s\"; }\n", type);
+ dp += seprintf(dp, lastof(dummy_script), "} RegisterDummy%s(Dummy%s());\n", type, type);
+
+ const SQChar *sq_dummy_script = OTTD2SQ(dummy_script);
+
sq_pushroottable(vm);
/* Load and run the script */
- if (SQ_SUCCEEDED(sq_compilebuffer(vm, _dummy_script_info, scstrlen(_dummy_script_info), _SC("dummy"), SQTrue))) {
+ if (SQ_SUCCEEDED(sq_compilebuffer(vm, sq_dummy_script, scstrlen(sq_dummy_script), _SC("dummy"), SQTrue))) {
sq_push(vm, -2);
if (SQ_SUCCEEDED(sq_call(vm, 1, SQFalse, SQTrue))) {
sq_pop(vm, 1);
@@ -57,14 +56,14 @@ void AI_CreateAIInfoDummy(HSQUIRRELVM vm)
}
/** Run the dummy AI and let it generate an error message. */
-void AI_CreateAIDummy(HSQUIRRELVM vm)
+void Script_CreateDummy(HSQUIRRELVM vm, StringID string, const char *type)
{
/* We want to translate the error message.
* We do this in three steps:
* 1) We get the error message
*/
char error_message[1024];
- GetString(error_message, STR_ERROR_AI_NO_AI_FOUND, lastof(error_message));
+ GetString(error_message, string, lastof(error_message));
/* Make escapes for all quotes and slashes. */
char safe_error_message[1024];
@@ -78,7 +77,7 @@ void AI_CreateAIDummy(HSQUIRRELVM vm)
/* 2) We construct the AI's code. This is done by merging a header, body and footer */
char dummy_script[4096];
char *dp = dummy_script;
- dp = strecpy(dp, "class DummyAI extends AIController {\n function Start()\n {\n", lastof(dummy_script));
+ dp += seprintf(dp, lastof(dummy_script), "class Dummy%s extends %sController {\n function Start()\n {\n", type, type);
/* As special trick we need to split the error message on newlines and
* emit each newline as a separate error printing string. */
@@ -88,7 +87,7 @@ void AI_CreateAIDummy(HSQUIRRELVM vm)
newline = strchr(p, '\n');
if (newline != NULL) *newline = '\0';
- dp += seprintf(dp, lastof(dummy_script), " AILog.Error(\"%s\");\n", p);
+ dp += seprintf(dp, lastof(dummy_script), " %sLog.Error(\"%s\");\n", type, p);
p = newline + 1;
} while (newline != NULL);
diff --git a/src/script/script_instance.cpp b/src/script/script_instance.cpp
index beebe2fd7..97fdfd68f 100644
--- a/src/script/script_instance.cpp
+++ b/src/script/script_instance.cpp
@@ -78,8 +78,7 @@ void ScriptInstance::Initialize(const char *main_script, const char *instance_na
ScriptObject::SetAllowDoCommand(false);
/* Load and execute the script for this script */
if (strcmp(main_script, "%_dummy") == 0) {
- extern void AI_CreateAIDummy(HSQUIRRELVM vm);
- AI_CreateAIDummy(this->engine->GetVM());
+ this->LoadDummyScript();
} else if (!this->engine->LoadScript(main_script) || this->engine->IsSuspended()) {
if (this->engine->IsSuspended()) ScriptLog::Error("This script took too long to load script. AI is not started.");
this->Died();
@@ -103,6 +102,7 @@ void ScriptInstance::Initialize(const char *main_script, const char *instance_na
void ScriptInstance::RegisterAPI()
{
+ extern void squirrel_register_std(Squirrel *engine);
squirrel_register_std(this->engine);
}
diff --git a/src/script/script_instance.hpp b/src/script/script_instance.hpp
index c5ff730c7..b84a36496 100644
--- a/src/script/script_instance.hpp
+++ b/src/script/script_instance.hpp
@@ -162,6 +162,11 @@ protected:
*/
virtual CommandCallback *GetDoCommandCallback() = 0;
+ /**
+ * Load the dummy script.
+ */
+ virtual void LoadDummyScript() = 0;
+
private:
class ScriptController *controller; ///< The script main class.
class ScriptStorage *storage; ///< Some global information for each running script.
diff --git a/src/script/squirrel.hpp b/src/script/squirrel.hpp
index 6b9c3ab70..dbccd3c08 100644
--- a/src/script/squirrel.hpp
+++ b/src/script/squirrel.hpp
@@ -36,11 +36,6 @@ private:
static SQInteger _RunError(HSQUIRRELVM vm);
/**
- * Get the squirrel VM. Try to avoid using this.
- */
- HSQUIRRELVM GetVM() { return this->vm; }
-
- /**
* Get the API name.
*/
const char *GetAPIName() { return this->APIName; }
@@ -67,15 +62,15 @@ protected:
static void ErrorPrintFunc(HSQUIRRELVM vm, const SQChar *s, ...);
public:
- friend class AIScannerInfo;
- friend class ScriptInstance;
- friend class ScriptController;
- friend void squirrel_register_std(Squirrel *engine);
-
Squirrel(const char *APIName);
~Squirrel();
/**
+ * Get the squirrel VM. Try to avoid using this.
+ */
+ HSQUIRRELVM GetVM() { return this->vm; }
+
+ /**
* Load a script.
* @param script The full script-name to load.
* @return False if loading failed.