Lua locals.

2 files changed, 13 insertions, 0 deletions

diff --git a/LuaSL/src/LuaSL_LSL_tree.h b/LuaSL/src/LuaSL_LSL_tree.h
index 6273d60..3e80f50 100644
--- a/LuaSL/src/LuaSL_LSL_tree.h
+++ b/LuaSL/src/LuaSL_LSL_tree.h
@@ -146,6 +146,12 @@ typedef enum
     ST_MODULO           = 8192  // % %=
 } opSubType;
 
+typedef enum
+{
+    MF_NONE             = 0,
+    MF_LOCAL            = 1
+} miscFlags;
+
 struct _allowedTypes
 {
     opType      result;
@@ -181,6 +187,7 @@ struct _LSL_Leaf
 #endif
     int                         line, column, len;
     opType                      basicType;
+    miscFlags                   flags;
     union
     {
         float                   floatValue;
diff --git a/LuaSL/src/LuaSL_compile.c b/LuaSL/src/LuaSL_compile.c
index 7457f0c..2ae8dca 100644
--- a/LuaSL/src/LuaSL_compile.c
+++ b/LuaSL/src/LuaSL_compile.c
@@ -1094,6 +1094,8 @@ LSL_Leaf *addVariable(LuaSL_compiler *compiler, LSL_Leaf *type, LSL_Leaf *identi
             assignment->right = expr;
         if (type)
         {
+            if (compiler->currentBlock)
+                type->flags |= MF_LOCAL;
             identifier->basicType = type->basicType;
             result->value.basicType = type->basicType;
             result->value.toKen = type->toKen;  // This is the LSL_TYPE_* toKen instead of the LSL_* toKen.  Not sure if that's a problem.
@@ -1523,7 +1525,11 @@ static void outputLeaf(FILE *file, outputMode mode, LSL_Leaf *leaf)
             if (OM_LUA == mode)
             {
                 if (LSL_TYPE & leaf->toKen->flags)
+                {
+                    if (MF_LOCAL & leaf->flags)
+                        fprintf(file, "  local ");
                     fprintf(file, " --[[%s]] ", leaf->toKen->toKen);
+                }
                 else if (LSL_CONCATENATE == leaf->toKen->type)
                     fprintf(file, " .. ");
                 else