1 files changed, 0 insertions, 139 deletions

diff --git a/src/bin/rclauncher.c b/src/bin/rclauncher.c
deleted file mode 100644
index 60284638..00000000
--- a/src/bin/rclauncher.c
+++ /dev/null
@@ -1,139 +0,0 @@
-
-/*
-** Simple Lua interpreter.
-** This program is used to run a Lua file embedded as a resource.
-** It creates a Lua state, opens all its standard libraries, and run
-** the Lua file in a protected environment just to redirect the error
-** messages to stdout and stderr.
-**
-** $Id: rclauncher.c,v 1.1 2008/06/30 14:29:59 carregal Exp $
-*/
-
-#include <string.h>
-#include <stdlib.h>
-
-#include "lua.h"
-#include "lauxlib.h"
-#include "lualib.h"
-#include <windows.h>
-#include <io.h>
-#include <fcntl.h>
-
-/*
-** Report error message.
-** Assumes that the error message is on top of the stack.
-*/
-static int report (lua_State *L) {
-        fprintf (stderr, "lua: fatal error: `%s'\n", lua_tostring (L, -1));
-        fflush (stderr);
-        printf ("Content-type: text/plain\n\nConfiguration fatal error: see error log!\n");
-        printf ("%s", lua_tostring(L, -1));
-        return 1;
-}
-
-static int runlua (lua_State *L, const char *lua_string, int argc, char *argv[]) {
-        int err_func;
-        int err;
-
-        lua_getglobal(L, "debug");
-        lua_pushliteral(L, "traceback");
-        lua_gettable(L, -2);
-        err_func = lua_gettop (L);
-        err = luaL_loadstring (L, lua_string);
-        if(!err) {
-          // fill global arg table
-          lua_getglobal(L, "arg");
-          int i;
-          for(i = 1; i < argc; i++)
-          {
-            lua_pushstring(L, argv[i]);
-                lua_rawseti(L, -2, i);
-          }
-          lua_pop(L, 1);
-          // fill parameters (in vararg '...')
-          for(i = 1; i < argc; i++)
-            lua_pushstring(L, argv[i]);
-          return lua_pcall (L, argc - 1, LUA_MULTRET, err_func);
-        } else return err;
-}
-
-static DWORD GetModulePath( HINSTANCE hInst, LPTSTR pszBuffer, DWORD dwSize )
-//
-//      Return the size of the path in bytes.
-{
-        DWORD dwLength = GetModuleFileName( hInst, pszBuffer, dwSize );
-        if( dwLength )
-        {
-                while( dwLength && pszBuffer[ dwLength ] != '.' )
-                {
-                        dwLength--;
-                }
-
-                if( dwLength )
-                        pszBuffer[ dwLength ] = '\000';
-        }
-        return dwLength;
-}
-
-
-/*
-** MAIN
-*/
-int main (int argc, char *argv[]) {
-        char name[ MAX_PATH ];
-        DWORD dwLength;
-        int size;
-        luaL_Buffer b;
-        int i;
-#ifdef UNICODE
-        TCHAR lua_wstring[4098];
-#endif
-        char lua_string[4098];
-        lua_State *L = luaL_newstate();
-        (void)argc; /* avoid "unused parameter" warning */
-        luaL_openlibs(L);
-        lua_newtable(L);  // create arg table
-        lua_pushstring(L, argv[0]);  // add interpreter to arg table
-        lua_rawseti(L, -2, -1);  
-        dwLength = GetModulePath( NULL, name, MAX_PATH );
-        if(dwLength) { /* Optional bootstrap */
-          strcat(name, ".lua");  
-          lua_pushstring(L, name);  // add lua script to arg table
-          lua_rawseti(L, -2, 0);
-          lua_setglobal(L,"arg");  // set global arg table
-          if(!luaL_loadfile (L, name)) {
-            if(lua_pcall (L, 0, LUA_MULTRET, 0)) {
-              report (L);
-              lua_close (L);
-              return EXIT_FAILURE;
-            }
-          }
-        }
-        else
-        {
-          lua_pushstring(L, argv[0]);  // no lua script, so add interpreter again, now as lua script
-          lua_rawseti(L, -2, 0);
-          lua_setglobal(L,"arg");  // set global arg table
-        }
-
-        luaL_buffinit(L, &b);
-        for(i = 1; ; i++) {
-#ifdef UNICODE
-          size = LoadString(GetModuleHandle(NULL), i, lua_wstring,
-                            sizeof(lua_string)/sizeof(TCHAR));
-          if(size > 0) wcstombs(lua_string, lua_wstring, size + 1);
-#else
-          size = LoadString(GetModuleHandle(NULL), i, lua_string,
-                            sizeof(lua_string)/sizeof(char));
-#endif
-          if(size) luaL_addlstring(&b, lua_string, size); else break;
-        }
-        luaL_pushresult(&b);
-        if (runlua (L, lua_tostring(L, -1), argc, argv)) {
-          report (L);
-          lua_close (L);
-          return EXIT_FAILURE;
-        }
-        lua_close (L);
-        return EXIT_SUCCESS;
-}