From c78fcc97b45f21a15b13dd508b1200fa0819240b Mon Sep 17 00:00:00 2001
From: David Walter Seikel
Date: Fri, 3 Feb 2012 14:04:22 +1000
Subject: Half arsed Lua implementation of state and state change.

---
 LuaSL/src/LuaSL_compile.c | 31 ++++++++++++++++++++++++++-----
 1 file changed, 26 insertions(+), 5 deletions(-)

(limited to 'LuaSL/src/LuaSL_compile.c')

diff --git a/LuaSL/src/LuaSL_compile.c b/LuaSL/src/LuaSL_compile.c
index 1b3063c..ea68a2a 100644
--- a/LuaSL/src/LuaSL_compile.c
+++ b/LuaSL/src/LuaSL_compile.c
@@ -1740,9 +1740,19 @@ static void outputRawStatement(FILE *file, outputMode mode, LSL_Statement *state
 	    if ((statement->ignorable) && (statement->ignorable[1]))
 		fwrite(eina_strbuf_string_get(statement->ignorable[1]), 1, eina_strbuf_length_get(statement->ignorable[1]), file);
 #endif
-		fprintf(file, "%s", tokens[statement->type - lowestToken]->toKen);
-		if (statement->identifier.text)
-		    outputText(file, &(statement->identifier), TRUE);
+		if (OM_LSL == mode)
+		{
+		    fprintf(file, "%s", tokens[statement->type - lowestToken]->toKen);
+		    if (statement->identifier.text)
+			outputText(file, &(statement->identifier), TRUE);
+		}
+		else if (OM_LUA == mode)
+		{
+		    fprintf(file, "stateChange(");
+		    if (statement->identifier.text)
+			outputText(file, &(statement->identifier), TRUE);
+		    fprintf(file, ")");
+		}
 		break;
 	    }
 	    case LSL_STATEMENT :
@@ -2131,8 +2141,18 @@ static void outputStateToken(FILE *file, outputMode mode, LSL_Leaf *content)
 
 	if (state)
 	{
-	    outputText(file, &(state->state), !(LSL_NOIGNORE & content->toKen->flags));
-	    outputText(file, &(state->name), !(LSL_NOIGNORE & content->toKen->flags));
+	    if (OM_LSL == mode)
+	    {
+		outputText(file, &(state->state), !(LSL_NOIGNORE & content->toKen->flags));
+		outputText(file, &(state->name), !(LSL_NOIGNORE & content->toKen->flags));
+		outputRawBlock(file, mode, state->block, TRUE);
+	    }
+	    else if (OM_LUA == mode)
+	    {
+		fprintf(file, "\n\n--[[state]] ");
+		outputText(file, &(state->name), !(LSL_NOIGNORE & content->toKen->flags));
+		fprintf(file, " = nil;");
+	    }
 	    outputRawBlock(file, mode, state->block, TRUE);
 	}
     }
@@ -2201,6 +2221,7 @@ static boolean doneParsing(LuaSL_compiler *compiler)
 	    fprintf(out, "function preIncrement(x)  x = x + 1; return x; end;\n");
 	    fprintf(out, "function postDecrement(x) x = x - 1; return x; end;\n");
 	    fprintf(out, "function postIncrement(x) x = x + 1; return x; end;\n");
+	    fprintf(out, "function stateChange(x) end;\n");
 	    fprintf(out, "--// Generated code goes here.\n\n");
 	    outputLeaf(out, OM_LUA, compiler->ast);
 	    fclose(out);
-- 
cgit v1.1