Implement llGetScriptName().

1 files changed, 6 insertions, 1 deletions

diff --git a/LuaSL/src/LuaSL_compile.c b/LuaSL/src/LuaSL_compile.c
index 873e6c4..de103b7 100644
--- a/LuaSL/src/LuaSL_compile.c
+++ b/LuaSL/src/LuaSL_compile.c
@@ -2275,13 +2275,18 @@ boolean compileLSL(gameGlobals *game, Ecore_Con_Client *client, char *SID, char
             {
                 lua_State *L;
                 int err;
+                char *ext;
 
                 fprintf(out, "--// Generated code goes here.\n\n");
                 fprintf(out, "local _bit = require(\"bit\")\n");
                 fprintf(out, "local _LSL = require(\"LSL\")\n\n");
                 fprintf(out, "local _SID = [=[%s]=]\n\n", compiler.SID);
+                strcpy(buffer, basename(compiler.fileName));
+                if ((ext = rindex(buffer, '.')))
+                  ext[0] = '\0';
+                fprintf(out, "local _scriptName = [=[%s]=]\n\n", buffer);
                 outputLeaf(out, OM_LUA, compiler.ast);
-                fprintf(out, "\n\n_LSL.mainLoop(_SID, _defaultState)\n");  // This actually starts the script running.
+                fprintf(out, "\n\n_LSL.mainLoop(_SID, _scriptName, _defaultState)\n");  // This actually starts the script running.
                 fprintf(out, "\n--// End of generated code.\n\n");
                 fclose(out);