create types.h and also move everything to src

Makefile

@@ -4,7 +4,7 @@ liblua:
 	rm *.o
 
 build: liblua
-	gcc -O2 -shared -static -o luahost.dll plugin.c liblua -lgdi32 -luser32 -lshell32 \
+	gcc -O2 -shared -static -o luahost.dll src/*.c liblua -lgdi32 -luser32 -lshell32 -Ilua \
 	    -Wl,--add-stdcall-alias \
 	    -ffunction-sections -fdata-sections
 

examples/basic.lua

@@ -180,6 +180,24 @@ local pi_ecc_to_country = {
         "Unknown", -- 14 E
         "Unknown", -- 15 F
     },
+    e6 =  {
+        "Encoder fault", -- 0
+        "Unknown", -- 1
+        "Unknown", -- 2
+        "Republic of West Poland", -- 3 coming soon
+        "Unknown", -- 4
+        "Unknown", -- 5
+        "Unknown", -- 6
+        "Unknown", -- 7
+        "Unknown", -- 8
+        "Unknown", -- 9
+        "Unknown", -- 10 A
+        "Unknown", -- 11 B
+        "Unknown", -- 12 C
+        "Unknown", -- 13 D
+        "Unknown", -- 14 E
+        "Unknown", -- 15 F
+    },
     a0 = {
         "Encoder fault", -- 0
         "United States of America", -- 1
@@ -215,7 +233,7 @@ local pi_ecc_to_country = {
         "Canada", -- 12 C
         "Canada", -- 13 D
         "Cananda", -- 14 E
-        "Greenland", -- 15 F
+        "Kingdom of Denmark (Greenland)", -- 15 F
     },
     a2 = {
         "Encoder fault", -- 0
@@ -289,6 +307,24 @@ local pi_ecc_to_country = {
         "United Mexican States", -- 14 E
         "United Mexican States", -- 15 F
     },
+    a6 = {
+        "Encoder fault", -- 0
+        "Unknown", -- 1
+        "Unknown", -- 2
+        "Unknown", -- 3
+        "Unknown", -- 4
+        "Unknown", -- 5
+        "Unknown", -- 6
+        "Unknown", -- 7
+        "Unknown", -- 8
+        "Unknown", -- 9
+        "Unknown", -- 10 A
+        "Unknown", -- 11 B
+        "Unknown", -- 12 C
+        "Unknown", -- 13 D
+        "Unknown", -- 14 E
+        "Republic of France (Saint Pierre and Miquelon)", -- 15 F
+    },
     d0 = {
         "Encoder fault", -- 0
         "Republic of Cameroon", -- 1
@@ -596,6 +632,7 @@ function event(event)
         current_menu = event
     end
     render_menu()
+    last_render_hash = 0
 end
 
 local function ternary(cond, a, b)

src/api.c

@@ -0,0 +1,227 @@
+#include "api.h"
+
+static const unsigned char EBU[127] = {
+    0xE1, 'a', 0xE9, 'e', 0xED, 'i', 0xF3, 'o', 0xFA, 'u', 'N', 0xC7, 0xAA, 0xDF, 'I', 0x00,
+    0xE2, 0xE4, 'e', 0xEB, 0xEE, 'i', 0xF4, 0xF6, 'u', 0xFC, 'n', 0xE7, 0xBA, 0x00, 'i', 0x00,
+    0x00, 0x00, 0xA9, 0x89, 0x00, 0xEC, 0xF2, 0xF5, 0x00, 0x00, 0x00, 0x24, 0x00, 0x00, 0x00, 0x00,
+    0x00, 0x00, 0xB1, 'I', 0xF1, 0xFB, 0xB5, '?', 0xF7, 0xB0, 0x00, 0x00, 0x00, 0xA7, 0x00,
+    0xC1, 'A', 0xC9, 'E', 0xCD, 'I', 0xD3, 'O', 0xDA, 'U', 0xD8, 0xC8, 0x8A, 0x8E, 0xD0, 'L',
+    0xC2, 0xC4, 'E', 0xCB, 0xCE, 'I', 0xD4, 0xD6, 'U', 0xDC, 0xF8, 0xE8, 0x9A, 0x9E, 0xF0, 'l',
+    0x00, 0x00, 0x00, 0x00, 0x00, 0xDD, 0x00, 0x00, 0x00, 0x00, 0xC0, 0xC6, 0x8C, 0x8F, 0x00, 0x00,
+    0x00, 0x00, 0x00, 0xFD, 0x00, 0x00, 0x00, 0x00, 0xE0, 0xE6, 0x9C, 0x9F, 0x00
+};
+
+unsigned char CharConv(unsigned char Ch) {
+    if (Ch >= 128 && Ch < 255) {
+        unsigned char conv = EBU[Ch - 128];
+        if (conv != 0) return conv;
+    }
+    return Ch;
+}
+
+int lua_log(lua_State* localL) {
+    if(console_mode != 0) return luaL_error(localL, "Invalid log");
+    AppendText(luaL_checkstring(localL, 1));
+    AppendText("\r\n");
+    return 0;
+}
+
+int lua_set_console(lua_State* localL) {
+    if(console_mode != 1) return luaL_error(localL, "Invalid log");
+    if (hEditControl != NULL) SetWindowTextA(hEditControl, luaL_checkstring(localL, 1));
+    return 0;
+}
+
+int lua_set_console_mode(lua_State* localL) {
+    if (!lua_isboolean(localL, 1)) return luaL_typeerror(localL, 1, lua_typename(localL, LUA_TBOOLEAN));
+    int mode = lua_toboolean(localL, 1);
+    if (hEditControl != NULL) SetWindowTextA(hEditControl, "");
+    console_mode = mode;
+    return 0;
+}
+
+int lua_set_window_stick(lua_State* localL) {
+    if (!lua_isboolean(localL, 1)) return luaL_typeerror(localL, 1, lua_typename(localL, LUA_TBOOLEAN));
+    sticky = lua_toboolean(localL, 1);
+    return 0;
+}
+
+int lua_get_window_stick(lua_State* localL) {
+    lua_pushboolean(localL, sticky);
+    return 1;
+}
+
+int lua_set_font_size(lua_State* localL) {
+    int size = luaL_checkinteger(localL, 1);
+
+    HFONT hNewFont = CreateFont(size, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, FONT_NAME);
+
+    if (hNewFont && hEditControl) {
+        SendMessage(hEditControl, WM_SETFONT, (WPARAM)hNewFont, TRUE);
+
+        if (g_hCurrentFont != NULL) DeleteObject(g_hCurrentFont);
+
+        g_hCurrentFont = hNewFont;
+    }
+
+    return 0;
+}
+
+int lua_MessageBox(lua_State* localL) {
+    MessageBoxA(NULL, luaL_checkstring(localL, 1), luaL_checkstring(localL, 2), MB_OK | MB_TOPMOST);
+    return 0;
+}
+
+int lua_ReadValue(lua_State* localL) {
+    if (g_DBPointer == NULL) {
+        lua_pushnil(localL);
+        return 1;
+    }
+
+    const char* key = luaL_checkstring(localL, 1);
+    ShortString skey;
+    skey.len = strlen(key);
+    if (skey.len > 255) skey.len = 255;
+    memcpy(skey.data, key, skey.len);
+
+    int count = g_DBPointer->Count;
+    if (count > 255) count = 255;
+
+    for (int i = 0; i < count; i++) {
+        if (g_DBPointer->Records[i].Key.len == skey.len &&
+            memcmp(g_DBPointer->Records[i].Key.data, skey.data, skey.len) == 0) {
+            lua_pushlstring(localL, g_DBPointer->Records[i].Value.data, g_DBPointer->Records[i].Value.len);
+            return 1;
+        }
+    }
+
+    lua_pushnil(localL);
+    return 1;
+}
+
+int lua_ReadRecord(lua_State* localL) {
+    if (g_DBPointer == NULL) {
+        lua_pushnil(localL);
+        lua_pushnil(localL);
+        return 2;
+    }
+
+    int index = luaL_checkinteger(localL, 1);
+
+    if (index < 0 || index >= g_DBPointer->Count || index >= 255) {
+        lua_pushnil(localL);
+        lua_pushnil(localL);
+        return 2;
+    }
+
+    lua_pushlstring(localL, g_DBPointer->Records[index].Key.data, g_DBPointer->Records[index].Key.len);
+    lua_pushlstring(localL, g_DBPointer->Records[index].Value.data, g_DBPointer->Records[index].Value.len);
+    return 2;
+}
+
+int lua_AddValue(lua_State* localL) {
+    if (g_DBPointer == NULL) return 0;
+
+    const char* key = luaL_checkstring(localL, 1);
+    const char* value = luaL_checkstring(localL, 2);
+
+    ShortString skey, svalue;
+    skey.len = strlen(key);
+    if (skey.len > 255) skey.len = 255;
+    memcpy(skey.data, key, skey.len);
+
+    svalue.len = strlen(value);
+    if (svalue.len > 252) {
+        svalue.len = 252;
+        memcpy(svalue.data, value, 252);
+        memcpy(svalue.data + 252, "...", 3);
+        svalue.len = 255;
+    } else memcpy(svalue.data, value, svalue.len);
+
+    int count = g_DBPointer->Count;
+    if (count > 255) count = 255;
+
+    for (int i = 0; i < count; i++) {
+        if (g_DBPointer->Records[i].Key.len == skey.len &&
+            memcmp(g_DBPointer->Records[i].Key.data, skey.data, skey.len) == 0) {
+            g_DBPointer->Records[i].Value = svalue;
+            return 0;
+        }
+    }
+
+    if (count < 254) {
+        g_DBPointer->Records[count].Key = skey;
+        g_DBPointer->Records[count].Value = svalue;
+        g_DBPointer->Count = count + 1;
+    } else if (_stricmp(key, "COMMAND") == 0) {
+        g_DBPointer->Records[254].Key = skey;
+        g_DBPointer->Records[254].Value = svalue;
+    }
+
+    return 0;
+}
+
+int lua_ResetValues(lua_State* localL) {
+    if (g_DBPointer == NULL) return 0;
+    g_DBPointer->Count = 0;
+    return 0;
+}
+
+int lua_CountRecords(lua_State* localL) {
+    if (g_DBPointer == NULL) {
+        lua_pushinteger(localL, 0);
+        return 1;
+    }
+
+    int count = g_DBPointer->Count;
+    if (count > 255) count = 255;
+    lua_pushinteger(localL, count);
+    return 1;
+}
+
+int lua_CharConv(lua_State* localL) {
+    int ch = luaL_checkinteger(localL, 1);
+    lua_pushinteger(localL, CharConv((unsigned char)ch));
+    return 1;
+}
+
+int lua_SaveString(lua_State* localL) {
+    const char* section = luaL_checkstring(localL, 2);
+    const char* key = luaL_checkstring(localL, 3);
+    const char* value = luaL_checkstring(localL, 4);
+    if (lua_isstring(localL, 1)) {
+        const char* filename = luaL_checkstring(localL, 1);
+
+        char path[MAX_PATH];
+        if (SUCCEEDED(SHGetFolderPathA(NULL, CSIDL_LOCAL_APPDATA, NULL, 0, path))) {
+            char fullPath[MAX_PATH];
+            snprintf(fullPath, MAX_PATH, "%s\\RDS Spy\\%s", path, filename);
+            WritePrivateProfileStringA(section, key, value, fullPath);
+        }
+    } else if(lua_isnil(localL, 1)) WritePrivateProfileStringA(section, key, value, workspaceFile);
+    else return luaL_typeerror(localL, 1, lua_typename(localL, LUA_TSTRING));
+}
+
+int lua_LoadString(lua_State* localL) {
+    const char* section = luaL_checkstring(localL, 2);
+    const char* key = luaL_checkstring(localL, 3);
+    const char* defaultValue = luaL_optstring(localL, 4, "");
+
+    char buffer[1024];
+    if (lua_isstring(localL, 1)) {
+        const char* filename = luaL_checkstring(localL, 1);
+        char path[MAX_PATH];
+
+        if (SUCCEEDED(SHGetFolderPathA(NULL, CSIDL_LOCAL_APPDATA, NULL, 0, path))) {
+            char fullPath[MAX_PATH];
+            snprintf(fullPath, MAX_PATH, "%s\\RDS Spy\\%s", path, filename);
+            GetPrivateProfileStringA(section, key, defaultValue, buffer, 1024, fullPath);
+            lua_pushstring(localL, buffer);
+        } else lua_pushstring(localL, defaultValue);
+        return 1;
+    } else if(lua_isnil(localL, 1)) {
+        GetPrivateProfileStringA(section, key, defaultValue, buffer, 1024, workspaceFile);
+        lua_pushstring(localL, buffer);
+        return 1;
+    } else return luaL_typeerror(localL, 1, lua_typename(localL, LUA_TSTRING));
+}

src/api.h

@@ -0,0 +1,35 @@
+#pragma once
+
+#include <windows.h>
+#include <shlobj.h>
+#include "lua.h"
+#include "lualib.h"
+#include "lauxlib.h"
+#include "types.h"
+
+extern HFONT g_hCurrentFont;
+#define FONT_NAME "Segoe UI"
+
+extern HWND hEditControl;
+extern uint8_t console_mode;
+extern uint8_t sticky;
+extern TDB* g_DBPointer;
+extern unsigned char workspaceFile[MAX_PATH];
+
+int lua_log(lua_State* localL);
+int lua_set_console(lua_State* localL);
+int lua_set_console_mode(lua_State* localL);
+int lua_set_window_stick(lua_State* localL);
+int lua_get_window_stick(lua_State* localL);
+int lua_set_font_size(lua_State* localL);
+int lua_MessageBox(lua_State* localL);
+int lua_ReadValue(lua_State* localL);
+int lua_ReadRecord(lua_State* localL);
+int lua_AddValue(lua_State* localL);
+int lua_ResetValues(lua_State* localL);
+int lua_CountRecords(lua_State* localL);
+int lua_CharConv(lua_State* localL);
+int lua_SaveString(lua_State* localL);
+int lua_LoadString(lua_State* localL);
+
+extern void AppendText(const char* text);

src/plugin.c

@@ -1,41 +1,6 @@
-#include <windows.h>
+#include "api.h"
 #include <stdio.h>
 #include <string.h>
-#include <shlobj.h>
-#include <stdint.h>
-#include "lua/lua.h"
-#include "lua/lualib.h"
-#include "lua/lauxlib.h"
-
-typedef struct {
-    uint16_t Year;
-    uint8_t Month;
-    uint8_t Day;
-    uint8_t Hour;
-    uint8_t Minute;
-    uint8_t Second;
-    uint8_t Centisecond;
-    uint16_t RFU;
-    int32_t Blk1;
-    int32_t Blk2;
-    int32_t Blk3;
-    int32_t Blk4;
-} TRDSGroup;
-
-typedef struct {
-    uint8_t len;
-    uint8_t data[255];
-} ShortString;
-
-typedef struct {
-    ShortString Key;
-    ShortString Value;
-} TRecord;
-
-typedef struct {
-    int32_t Count;
-    TRecord Records[255];
-} TDB;
 
 static TRDSGroup Group;
 
@@ -44,11 +9,10 @@ static HINSTANCE hInst = NULL;
 
 static lua_State* L = NULL;
 
-static HWND hEditControl = NULL;
-static TDB* g_DBPointer = NULL;
+HWND hEditControl = NULL;
+TDB* g_DBPointer = NULL;
 
-static HFONT g_hCurrentFont = NULL;
-#define FONT_NAME "Segoe UI"
+HFONT g_hCurrentFont = NULL;
 
 #define IDC_MAIN_BUTTON 101
 
@@ -68,21 +32,10 @@ HWND hButton_event##I = CreateWindowEx( \
     (HMENU)(IDC_MAIN_BUTTON + I), hInst, NULL \
 );
 
-static const unsigned char EBU[127] = {
-    0xE1, 'a', 0xE9, 'e', 0xED, 'i', 0xF3, 'o', 0xFA, 'u', 'N', 0xC7, 0xAA, 0xDF, 'I', 0x00,
-    0xE2, 0xE4, 'e', 0xEB, 0xEE, 'i', 0xF4, 0xF6, 'u', 0xFC, 'n', 0xE7, 0xBA, 0x00, 'i', 0x00,
-    0x00, 0x00, 0xA9, 0x89, 0x00, 0xEC, 0xF2, 0xF5, 0x00, 0x00, 0x00, 0x24, 0x00, 0x00, 0x00, 0x00,
-    0x00, 0x00, 0xB1, 'I', 0xF1, 0xFB, 0xB5, '?', 0xF7, 0xB0, 0x00, 0x00, 0x00, 0xA7, 0x00,
-    0xC1, 'A', 0xC9, 'E', 0xCD, 'I', 0xD3, 'O', 0xDA, 'U', 0xD8, 0xC8, 0x8A, 0x8E, 0xD0, 'L',
-    0xC2, 0xC4, 'E', 0xCB, 0xCE, 'I', 0xD4, 0xD6, 'U', 0xDC, 0xF8, 0xE8, 0x9A, 0x9E, 0xF0, 'l',
-    0x00, 0x00, 0x00, 0x00, 0x00, 0xDD, 0x00, 0x00, 0x00, 0x00, 0xC0, 0xC6, 0x8C, 0x8F, 0x00, 0x00,
-    0x00, 0x00, 0x00, 0xFD, 0x00, 0x00, 0x00, 0x00, 0xE0, 0xE6, 0x9C, 0x9F, 0x00
-};
-
-static uint8_t console_mode = 0;
-static uint8_t stop_execution = 0;
-static uint8_t sticky = 0;
-static unsigned char workspaceFile[MAX_PATH] = "";
+uint8_t console_mode = 0;
+uint8_t stop_execution = 0;
+uint8_t sticky = 0;
+unsigned char workspaceFile[MAX_PATH] = "";
 
 const char* int_to_string(int value) {
     static char buffer[16];
@@ -90,14 +43,6 @@ const char* int_to_string(int value) {
     return buffer;
 }
 
-unsigned char CharConv(unsigned char Ch) {
-    if (Ch >= 128 && Ch < 255) {
-        unsigned char conv = EBU[Ch - 128];
-        if (conv != 0) return conv;
-    }
-    return Ch;
-}
-
 void InitLua();
 void lua_event(int event);
 LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
@@ -201,213 +146,6 @@ void AppendText(const char* text) {
     }
 }
 
-int lua_log(lua_State* localL) {
-    if(console_mode != 0) return luaL_error(localL, "Invalid log");
-    AppendText(luaL_checkstring(localL, 1));
-    AppendText("\r\n");
-    return 0;
-}
-
-int lua_set_console(lua_State* localL) {
-    if(console_mode != 1) return luaL_error(localL, "Invalid log");
-    if (hEditControl != NULL) SetWindowTextA(hEditControl, luaL_checkstring(localL, 1));
-    return 0;
-}
-
-int lua_set_console_mode(lua_State* localL) {
-    if (!lua_isboolean(localL, 1)) return luaL_typeerror(L, 1, lua_typename(L, LUA_TBOOLEAN));
-    int mode = lua_toboolean(localL, 1);
-    if (hEditControl != NULL) SetWindowTextA(hEditControl, "");
-    console_mode = mode;
-    return 0;
-}
-
-int lua_set_window_stick(lua_State* localL) {
-    if (!lua_isboolean(localL, 1)) return luaL_typeerror(L, 1, lua_typename(L, LUA_TBOOLEAN));
-    sticky = lua_toboolean(localL, 1);
-    return 0;
-}
-
-int lua_get_window_stick(lua_State* localL) {
-    lua_pushboolean(localL, sticky);
-    return 1;
-}
-
-int lua_set_font_size(lua_State* localL) {
-    int size = luaL_checkinteger(localL, 1);
-
-    HFONT hNewFont = CreateFont(size, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, FONT_NAME);
-
-    if (hNewFont && hEditControl) {
-        SendMessage(hEditControl, WM_SETFONT, (WPARAM)hNewFont, TRUE);
-
-        if (g_hCurrentFont != NULL) DeleteObject(g_hCurrentFont);
-
-        g_hCurrentFont = hNewFont;
-    }
-
-    return 0;
-}
-
-int lua_MessageBox(lua_State* localL) {
-    MessageBoxA(NULL, luaL_checkstring(localL, 1), luaL_checkstring(localL, 2), MB_OK | MB_TOPMOST);
-    return 0;
-}
-
-int lua_ReadValue(lua_State* localL) {
-    if (g_DBPointer == NULL) {
-        lua_pushnil(localL);
-        return 1;
-    }
-
-    const char* key = luaL_checkstring(localL, 1);
-    ShortString skey;
-    skey.len = strlen(key);
-    if (skey.len > 255) skey.len = 255;
-    memcpy(skey.data, key, skey.len);
-
-    int count = g_DBPointer->Count;
-    if (count > 255) count = 255;
-
-    for (int i = 0; i < count; i++) {
-        if (g_DBPointer->Records[i].Key.len == skey.len &&
-            memcmp(g_DBPointer->Records[i].Key.data, skey.data, skey.len) == 0) {
-            lua_pushlstring(localL, g_DBPointer->Records[i].Value.data, g_DBPointer->Records[i].Value.len);
-            return 1;
-        }
-    }
-
-    lua_pushnil(localL);
-    return 1;
-}
-
-int lua_ReadRecord(lua_State* localL) {
-    if (g_DBPointer == NULL) {
-        lua_pushnil(localL);
-        lua_pushnil(localL);
-        return 2;
-    }
-
-    int index = luaL_checkinteger(localL, 1);
-
-    if (index < 0 || index >= g_DBPointer->Count || index >= 255) {
-        lua_pushnil(localL);
-        lua_pushnil(localL);
-        return 2;
-    }
-
-    lua_pushlstring(localL, g_DBPointer->Records[index].Key.data, g_DBPointer->Records[index].Key.len);
-    lua_pushlstring(localL, g_DBPointer->Records[index].Value.data, g_DBPointer->Records[index].Value.len);
-    return 2;
-}
-
-int lua_AddValue(lua_State* localL) {
-    if (g_DBPointer == NULL) return 0;
-
-    const char* key = luaL_checkstring(localL, 1);
-    const char* value = luaL_checkstring(localL, 2);
-
-    ShortString skey, svalue;
-    skey.len = strlen(key);
-    if (skey.len > 255) skey.len = 255;
-    memcpy(skey.data, key, skey.len);
-
-    svalue.len = strlen(value);
-    if (svalue.len > 252) {
-        svalue.len = 252;
-        memcpy(svalue.data, value, 252);
-        memcpy(svalue.data + 252, "...", 3);
-        svalue.len = 255;
-    } else memcpy(svalue.data, value, svalue.len);
-
-    int count = g_DBPointer->Count;
-    if (count > 255) count = 255;
-
-    for (int i = 0; i < count; i++) {
-        if (g_DBPointer->Records[i].Key.len == skey.len &&
-            memcmp(g_DBPointer->Records[i].Key.data, skey.data, skey.len) == 0) {
-            g_DBPointer->Records[i].Value = svalue;
-            return 0;
-        }
-    }
-
-    if (count < 254) {
-        g_DBPointer->Records[count].Key = skey;
-        g_DBPointer->Records[count].Value = svalue;
-        g_DBPointer->Count = count + 1;
-    } else if (_stricmp(key, "COMMAND") == 0) {
-        g_DBPointer->Records[254].Key = skey;
-        g_DBPointer->Records[254].Value = svalue;
-    }
-
-    return 0;
-}
-
-int lua_ResetValues(lua_State* localL) {
-    if (g_DBPointer == NULL) return 0;
-    g_DBPointer->Count = 0;
-    return 0;
-}
-
-int lua_CountRecords(lua_State* localL) {
-    if (g_DBPointer == NULL) {
-        lua_pushinteger(localL, 0);
-        return 1;
-    }
-
-    int count = g_DBPointer->Count;
-    if (count > 255) count = 255;
-    lua_pushinteger(localL, count);
-    return 1;
-}
-
-int lua_CharConv(lua_State* localL) {
-    int ch = luaL_checkinteger(localL, 1);
-    lua_pushinteger(localL, CharConv((unsigned char)ch));
-    return 1;
-}
-
-int lua_SaveString(lua_State* localL) {
-    const char* section = luaL_checkstring(localL, 2);
-    const char* key = luaL_checkstring(localL, 3);
-    const char* value = luaL_checkstring(localL, 4);
-    if (lua_isstring(localL, 1)) {
-        const char* filename = luaL_checkstring(localL, 1);
-
-        char path[MAX_PATH];
-        if (SUCCEEDED(SHGetFolderPathA(NULL, CSIDL_LOCAL_APPDATA, NULL, 0, path))) {
-            char fullPath[MAX_PATH];
-            snprintf(fullPath, MAX_PATH, "%s\\RDS Spy\\%s", path, filename);
-            WritePrivateProfileStringA(section, key, value, fullPath);
-        }
-    } else if(lua_isnil(localL, 1)) WritePrivateProfileStringA(section, key, value, workspaceFile);
-    else return luaL_typeerror(L, 1, lua_typename(L, LUA_TSTRING));
-}
-
-int lua_LoadString(lua_State* localL) {
-    const char* section = luaL_checkstring(localL, 2);
-    const char* key = luaL_checkstring(localL, 3);
-    const char* defaultValue = luaL_optstring(localL, 4, "");
-
-    char buffer[1024];
-    if (lua_isstring(localL, 1)) {
-        const char* filename = luaL_checkstring(localL, 1);
-        char path[MAX_PATH];
-
-        if (SUCCEEDED(SHGetFolderPathA(NULL, CSIDL_LOCAL_APPDATA, NULL, 0, path))) {
-            char fullPath[MAX_PATH];
-            snprintf(fullPath, MAX_PATH, "%s\\RDS Spy\\%s", path, filename);
-            GetPrivateProfileStringA(section, key, defaultValue, buffer, 1024, fullPath);
-            lua_pushstring(localL, buffer);
-        } else lua_pushstring(localL, defaultValue);
-        return 1;
-    } else if(lua_isnil(localL, 1)) {
-        GetPrivateProfileStringA(section, key, defaultValue, buffer, 1024, workspaceFile);
-        lua_pushstring(localL, buffer);
-        return 1;
-    } else return luaL_typeerror(L, 1, lua_typename(L, LUA_TSTRING));
-}
-
 void lua_call_command(const char* Cmd, const char* Param) {
     if(stop_execution != 0) return;
     lua_getglobal(L, "command");
@@ -640,8 +378,7 @@ __declspec(dllexport) int WINAPI Initialize(HANDLE hHandle, TDB* DBPointer) {
     return (int)hWnd;
 }
 
-BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
-{
+BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved) {
     if (fdwReason == DLL_PROCESS_ATTACH) hInst = hinstDLL;
     return TRUE;
 }

src/types.h

@@ -0,0 +1,33 @@
+#pragma once
+
+#include <stdint.h>
+
+typedef struct {
+    uint8_t len;
+    uint8_t data[255];
+} ShortString;
+
+typedef struct {
+    ShortString Key;
+    ShortString Value;
+} TRecord;
+
+typedef struct {
+    int32_t Count;
+    TRecord Records[255];
+} TDB;
+
+typedef struct {
+    uint16_t Year;
+    uint8_t Month;
+    uint8_t Day;
+    uint8_t Hour;
+    uint8_t Minute;
+    uint8_t Second;
+    uint8_t Centisecond;
+    uint16_t RFU;
+    int32_t Blk1;
+    int32_t Blk2;
+    int32_t Blk3;
+    int32_t Blk4;
+} TRDSGroup;