console as one way interface, and custom command along other things

datxchng.dpr

@@ -0,0 +1,220 @@
+library datxchng;
+
+uses
+  SysUtils, StrUtils, IniFiles,
+  Classes;
+
+{$R *.res}
+
+type TRecord = record
+        Key: shortstring;
+        Value:  shortstring;
+     end;
+
+type TPRecord = record
+        Key: PChar;
+        Value:  PChar;
+     end;
+
+type TDB = record
+        Count: integer;
+        Records: array [0..255] of TRecord;
+      end;
+     PTDB = ^TDB;
+
+const
+    EBU: array [128..254] of Char =
+    ('á','a','é','e','í','i','ó','o','ú','u','N','Ç','ª','ß','I', #0,
+     'â','ä','e','ë','î','i','ô','ö','u','ü','n','ç','º', #0,'i', #0,
+      #0, #0,'©','‰', #0,'ì','ò','õ', #0, #0, #0,'$', #0, #0, #0, #0,
+      #0, #0, #0, #0,'±','I','ñ','û','µ','?','÷','°', #0, #0, #0,'§',
+     'Á','A','É','E','Í','I','Ó','O','Ú','U','Ø','È','Š','Ž','Ð','L',
+     'Â','Ä','E','Ë','Î','I','Ô','Ö','U','Ü','ø','è','š','ž','ð','l',
+      #0, #0, #0, #0, #0,'Ý', #0, #0, #0, #0,'À','Æ','Œ','<27>', #0, #0,
+      #0, #0, #0, #0, #0,'ý', #0, #0, #0, #0,'à','æ','œ','Ÿ', #0);
+
+var
+    Param1: array [0..1023] of char;
+    Param2: array [0..1023] of char;
+    WorkDir: string;
+
+function ReadValue(Key: PChar; DBPointer: PTDB): PChar; stdcall;
+var a,i: integer;
+    SKey: shortstring;
+begin
+Result:='';
+SKey:=shortstring(Key);
+a:=DBPointer^.Count;
+if (a>length(DBPointer^.Records)) then a:=length(DBPointer^.Records);  //ochrana
+for i:=1 to a do
+  begin
+  if (DBPointer^.Records[i-1].Key=SKey) then
+    begin Result:=StrPCopy(Param1,DBPointer^.Records[i-1].Value); exit; end;
+  end;
+end;
+
+function ReadRecord(Index: integer; DBPointer: PTDB): TPRecord; stdcall;
+begin
+if (Index>=DBPointer^.Count) or (Index>=length(DBPointer^.Records)) then
+  begin
+  Result.Key:='';
+  Result.Value:='';
+  end else begin
+  Result.Key:=StrPCopy(Param1,DBPointer^.Records[Index].Key);
+  Result.Value:=StrPCopy(Param2,DBPointer^.Records[Index].Value);
+  end;
+end;
+
+procedure AddValue(Key, Value: PChar; DBPointer: PTDB); stdcall;
+var a,i: integer;
+    SKey, SValue: shortstring;
+    ASValue: string;
+begin
+SKey:=shortstring(Key);
+ASValue:=Value;
+if (length(ASValue)>255) then ASValue:=LeftStr(ASValue,252)+'...';
+SValue:=shortstring(ASValue);
+a:=DBPointer^.Count;
+if (a>length(DBPointer^.Records)) then a:=length(DBPointer^.Records);  //ochrana
+for i:=1 to a do
+  begin
+  if (DBPointer^.Records[i-1].Key=SKey) then
+    begin DBPointer^.Records[i-1].Value:=SValue; exit; end;
+  end;
+if (a<length(DBPointer^.Records)-1) then
+  begin
+  DBPointer^.Count:=a+1;
+  DBPointer^.Records[a].Value:=SValue;
+  DBPointer^.Records[a].Key:=SKey;
+  exit;
+  end;
+if (SKey='COMMAND') then
+  begin
+  a:=length(DBPointer^.Records)-1;
+  DBPointer^.Records[a].Key:=SKey;
+  DBPointer^.Records[a].Value:=SValue;
+  end;
+end;
+
+procedure ResetValues(DBPointer: PTDB); stdcall;
+begin
+DBPointer^.Count:=0;
+end;
+
+function CountRecords(DBPointer: PTDB): integer; stdcall;
+var a: integer;
+begin
+a:=DBPointer^.Count;
+if (a>length(DBPointer^.Records)) then a:=length(DBPointer^.Records);
+Result:=a;
+end;
+
+procedure SavePChar(Filename, Section, Key, Value: PChar); stdcall;
+var Reg: TIniFile;
+begin
+Chdir(WorkDir);
+try
+  Reg:=TIniFile.Create(string(Filename));
+  try
+    Reg.WriteString(string(Section), string(Key), string(Value));
+    finally
+    Reg.Free;
+    end;
+  except
+  end;
+end;
+
+procedure SaveInteger(Filename, Section, Key: Pchar; Value: integer); stdcall;
+var Reg: TIniFile;
+begin
+Chdir(WorkDir);
+try
+  Reg:=TIniFile.Create(string(Filename));
+  try
+    Reg.WriteInteger(string(Section), string(Key), Value);
+    finally
+    Reg.Free;
+    end;
+  except
+  end;
+end;
+
+procedure SaveBoolean(Filename, Section, Key: Pchar; Value: boolean); stdcall;
+var Reg: TIniFile;
+begin
+Chdir(WorkDir);
+try
+  Reg:=TIniFile.Create(string(Filename));
+  try
+    Reg.WriteBool(string(Section), string(Key), Value);
+    finally
+    Reg.Free;
+    end;
+  except
+  end;
+end;
+
+function LoadPChar(Filename, Section, Key, DefaultValue: PChar): PChar; stdcall;
+var Reg: TIniFile;
+begin
+Chdir(WorkDir);
+Result:=DefaultValue;
+try
+  Reg:=TIniFile.Create(string(Filename));
+  try
+    Result:=StrPCopy(Param1,Reg.ReadString(string(Section), string(Key), string(DefaultValue)));
+    finally
+    Reg.Free;
+    end;
+  except
+  end;
+end;
+
+function LoadInteger(Filename, Section, Key: Pchar; DefaultValue: integer): integer; stdcall;
+var Reg: TIniFile;
+begin
+Chdir(WorkDir);
+Result:=DefaultValue;
+try
+  Reg:=TIniFile.Create(string(Filename));
+  try
+    Result:=Reg.ReadInteger(string(Section), string(Key), DefaultValue);
+    finally
+    Reg.Free;
+    end;
+  except
+  end;
+end;
+
+function LoadBoolean(Filename, Section, Key: Pchar; DefaultValue: boolean): boolean; stdcall;
+var Reg: TIniFile;
+begin
+Chdir(WorkDir);
+Result:=DefaultValue;
+try
+  Reg:=TIniFile.Create(string(Filename));
+  try
+    Result:=Reg.ReadBool(string(Section), string(Key), DefaultValue);
+    finally
+    Reg.Free;
+    end;
+  except
+  end;
+end;
+
+function CharConv(Ch, CT: Byte): Byte; stdcall;
+begin
+Result:=Ch;
+if (Ch>=128) and (Ch<255) then
+  if (EBU[Ch]<>#0) then Result:=Ord(EBU[Ch]);
+end;
+
+Exports
+  ReadValue, ReadRecord, AddValue, ResetValues, CountRecords,
+  SavePChar, SaveInteger, SaveBoolean, LoadPChar, LoadInteger, LoadBoolean,
+  CharConv;
+
+begin
+WorkDir:=ExtractFilePath(ParamStr(0));
+end.
+

docs/Commands.md

@@ -0,0 +1,3 @@
+# Commands
+
+Just wanted to tell you that they also have a "SUPERPI" command, the param is just the hex encoded pi text ("AAAA")

examples/ert.lua

@@ -1,18 +1,23 @@
-ert_group = -1
+local ert_group = -1
-ert_string = string.rep(" ", 128)
+local ert_string = string.rep("_", 128)
+local ert_last_carriage = -1
+local ert_console_log = false
 
 function command(cmd, param)
-    if cmd:lower() == "request" then
+    if cmd:lower() == "request" and param:lower() == "decoderdata" then
         local cr_pos = ert_string:find("\r", 1, true) -- true means "plain search" (faster)
         local display_text
 
-        if cr_pos then
+        if cr_pos then display_text = ert_string:sub(1, cr_pos - 1)
-            display_text = ert_string:sub(1, cr_pos - 1)
+        else display_text = ert_string:gsub("%s+$", "")
-        else
-            -- No CR found yet, show the whole 128 bytes (trimmed of trailing spaces)
-            display_text = ert_string:gsub("%s+$", "") 
         end
         db.add_value("ERT", display_text)
+    elseif cmd:lower() == "resetdata" then
+        ert_group = -1
+        ert_string = string.rep("_", 128)
+        ert_last_carriage = -1
+        if ert_console_log then log("ERT data reset.")
+        else set_console_mode(true) end
     end
 end
 
@@ -20,7 +25,7 @@ function group(stream, b_corr, a, b, c, d)
     if stream ~= 0 and a ~= 0 then return
     elseif stream ~= 0 and not db.load_boolean("rdsspy.ini", "General", "Tunnelling", false) then return end
 
-    if b_corr then return end
+    if b_corr or b < 0 or c < 0 or d < 0 then return end
 
     local group = (b & 0xf000) >> 12
     local group_version = (b & 0x800) >> 11
@@ -41,5 +46,18 @@ function group(stream, b_corr, a, b, c, d)
         local new_chars = char1..char2..char3..char4
         local start_pos = (ert_state * 4) + 1
         ert_string = ert_string:sub(1, start_pos - 1) .. new_chars .. ert_string:sub(start_pos + 4)
+
+        local ert_carriage = ert_string:find("\r", 1, true)
+        if ert_carriage ~= ert_last_carriage and ert_carriage ~= nil and ert_console_log then
+            log("New ERT string received.")
+            ert_last_carriage = ert_carriage
+        elseif not ert_console_log then
+            local display_text
+
+            if ert_carriage then display_text = ert_string:sub(1, ert_carriage - 1)
+            else display_text = ert_string:gsub("%s+$", "") end
+
+            set_console(string.format("ERT: %s", display_text))
+        end
     end
 end

plugin.c

@@ -47,6 +47,7 @@ static lua_State* L = NULL;
 static HWND hEditControl = NULL;
 static TDB* g_DBPointer = 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,
@@ -58,6 +59,13 @@ static const unsigned char EBU[127] = {
     0x00, 0x00, 0x00, 0xFD, 0x00, 0x00, 0x00, 0x00, 0xE0, 0xE6, 0x9C, 0x9F, 0x00
 };
 
+static unsigned int console_mode = 0;
+
+const char* int_to_string(int value) {
+    static char buffer[16];
+    snprintf(buffer, sizeof(buffer), "%d", value);
+    return buffer;
+}
 
 unsigned char CharConv(unsigned char Ch) {
     if (Ch >= 128 && Ch < 255) {
@@ -67,6 +75,105 @@ unsigned char CharConv(unsigned char Ch) {
     return Ch;
 }
 
+LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
+{
+    switch (msg)
+    {
+        case WM_CLOSE:
+            ShowWindow(hwnd, SW_HIDE);
+            return 0;
+        case WM_DESTROY:
+            hWnd = NULL;
+            return 0;
+    }
+    return DefWindowProc(hwnd, msg, wParam, lParam);
+}
+
+void CreatePluginWindow(HWND hOwner) {
+    WNDCLASS wc = {0};
+    wc.lpfnWndProc   = WndProc;
+    wc.hInstance     = hInst;
+    wc.lpszClassName = "LuaHostPlugin";
+    wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
+    wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
+    RegisterClass(&wc);
+
+    hWnd = CreateWindowEx(
+        0,
+        "LuaHostPlugin",
+        "Lua Host Console",
+        WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU,
+        CW_USEDEFAULT, CW_USEDEFAULT,
+        480, 320,
+        hOwner,
+        NULL,
+        hInst,
+        NULL
+    );
+
+    hEditControl = CreateWindowEx(
+        WS_EX_CLIENTEDGE, "EDIT", "",
+        WS_CHILD | WS_VISIBLE | WS_VSCROLL |
+        ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY,
+        10, 10, 480-30, 320-50,
+        hWnd, NULL, hInst, NULL
+    );
+
+    HFONT hFont = CreateFont(18, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, "Segoe UI");
+    SendMessage(hEditControl, WM_SETFONT, (WPARAM)hFont, TRUE);
+
+    HICON hIconBig = (HICON)SendMessage(hOwner, WM_GETICON, ICON_BIG, 0);
+    HICON hIconSmall = (HICON)SendMessage(hOwner, WM_GETICON, ICON_SMALL, 0);
+    if (!hIconBig) hIconBig = (HICON)GetClassLongPtr(hOwner, GCLP_HICON);
+    if (!hIconSmall) hIconSmall = (HICON)GetClassLongPtr(hOwner, GCLP_HICONSM);
+    SendMessage(hWnd, WM_SETICON, ICON_BIG, (LPARAM)hIconBig);
+    SendMessage(hWnd, WM_SETICON, ICON_SMALL, (LPARAM)hIconSmall);
+
+    UpdateWindow(hWnd);
+}
+
+void AppendText(const char* text) {
+    if (hEditControl != NULL) {
+        int len = GetWindowTextLength(hEditControl);
+        SendMessage(hEditControl, EM_SETSEL, len, len);
+        SendMessageA(hEditControl, EM_REPLACESEL, FALSE, (LPARAM)text);
+    }
+}
+
+void SetText(const char* text) {
+    if (hEditControl != NULL) SetWindowTextA(hEditControl, text);
+}
+
+int lua_log(lua_State* localL) {
+    if(console_mode != 0) return luaL_error(localL, "Invalid log");
+    const char* data = luaL_checkstring(localL, 1);
+    AppendText(data);
+    AppendText("\r\n");
+    return 0;
+}
+
+int lua_set_console(lua_State* localL) {
+    if(console_mode != 1) return luaL_error(localL, "Invalid log");
+    const char* data = luaL_checkstring(localL, 1);
+    SetText(data);
+    return 0;
+}
+
+int lua_set_console_mode(lua_State* localL) {
+    if (!lua_isboolean(localL, 1)) return luaL_error(localL, "boolean expected, got %s", luaL_typename(localL, 1)); 
+    int mode = lua_toboolean(localL, 1);
+    SetText("");
+    console_mode = mode;
+    return 0;
+}
+
+int lua_MessageBox(lua_State* localL) {
+    const char* data = luaL_checkstring(localL, 1);
+    const char* title = luaL_checkstring(localL, 2);
+    MessageBoxA(NULL, data, title, MB_OK | MB_TOPMOST);
+    return 0;
+}
+
 int lua_ReadValue(lua_State* localL) {
     if (g_DBPointer == NULL) {
         lua_pushnil(localL);
@@ -280,82 +387,6 @@ int lua_LoadBoolean(lua_State* localL) {
     return 1;
 }
 
-LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
-{
-    switch (msg)
-    {
-        case WM_CLOSE:
-            ShowWindow(hwnd, SW_HIDE);
-            return 0;
-        case WM_DESTROY:
-            hWnd = NULL;
-            return 0;
-    }
-    return DefWindowProc(hwnd, msg, wParam, lParam);
-}
-
-void CreatePluginWindow(HWND hOwner)
-{
-    WNDCLASS wc = {0};
-    wc.lpfnWndProc   = WndProc;
-    wc.hInstance     = hInst;
-    wc.lpszClassName = "RDSPluginWindow";
-    wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
-    wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
-    RegisterClass(&wc);
-
-    hWnd = CreateWindowEx(
-        0,
-        "RDSPluginWindow",
-        "RDS Plugin",
-        WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU,
-        CW_USEDEFAULT, CW_USEDEFAULT,
-        400, 300,
-        hOwner,
-        NULL,
-        hInst,
-        NULL
-    );
-
-    hEditControl = CreateWindowEx(
-        WS_EX_CLIENTEDGE, "EDIT", "",
-        WS_CHILD | WS_VISIBLE | WS_VSCROLL |
-        ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY,
-        10, 10, 370, 250,
-        hWnd, NULL, hInst, NULL
-    );
-
-    HFONT hFont = CreateFont(16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, "Segoe UI");
-    SendMessage(hEditControl, WM_SETFONT, (WPARAM)hFont, TRUE);
-    UpdateWindow(hWnd);
-}
-
-void AppendText(const char* text) {
-    if (hEditControl != NULL) {
-        int len = GetWindowTextLength(hEditControl);
-        SendMessage(hEditControl, EM_SETSEL, len, len);
-        SendMessageA(hEditControl, EM_REPLACESEL, FALSE, (LPARAM)text);
-    }
-}
-
-void SetText(const char* text) {
-    if (hEditControl != NULL) SetWindowTextA(hEditControl, text);
-}
-
-int lua_log(lua_State* localL) {
-    const char* data = luaL_checkstring(localL, 1);
-    AppendText(data);
-    AppendText("\r\n");
-    return 0;
-}
-
-int lua_MessageBox(lua_State* localL) {
-    const char* data = luaL_checkstring(localL, 1);
-    const char* title = luaL_checkstring(localL, 2);
-    MessageBoxA(NULL, data, title, MB_OK | MB_TOPMOST);
-    return 0;
-}
-
 void lua_call_command(const char* Cmd, const char* Param) {
     lua_getglobal(L, "command");
 
@@ -412,7 +443,40 @@ __declspec(dllexport) void __stdcall Command(const char* Cmd, const char* Param)
     else if (_stricmp(Cmd, "SHOW") == 0) ShowWindow(hWnd, SW_SHOW);
     else if (_stricmp(Cmd, "MINIMIZE") == 0) ShowWindow(hWnd, SW_MINIMIZE);
     else if (_stricmp(Cmd, "RESTORE") == 0) ShowWindow(hWnd, SW_RESTORE);
-    else lua_call_command(Cmd, Param);
+    else if (_stricmp(Cmd, "OPENWORKSPACE") == 0) {
+        if(hWnd != NULL) {
+            int value = GetPrivateProfileIntA("luahost", "Visible", 0, Param);
+            if(value == 1) ShowWindow(hWnd, SW_SHOW);
+            else if(value == 0) ShowWindow(hWnd, SW_HIDE);
+            int x = GetPrivateProfileIntA("luahost", "Left", 320, Param);
+            int y = GetPrivateProfileIntA("luahost", "Top", 240, Param);
+            SetWindowPos(hWnd, NULL, x, y, 0, 0, SWP_NOSIZE);
+        }
+        lua_call_command(Cmd, Param); // still call
+    } else if (_stricmp(Cmd, "SAVEWORKSPACE") == 0) {
+        if(hWnd != NULL) {
+            RECT rect; // get rect
+            if (GetWindowRect(hWnd, &rect)) {
+                WritePrivateProfileStringA("luahost", "Left", int_to_string(rect.left), Param);
+                WritePrivateProfileStringA("luahost", "Top", int_to_string(rect.top), Param);
+            }
+            WritePrivateProfileStringA("luahost", "Visible", IsWindowVisible(hWnd) ? "1" : "0", Param);
+        }
+        lua_call_command(Cmd, Param); // still call
+    } else if (_stricmp(Cmd, "LUASCRIPT") == 0) { // custom
+        char msg_buffer[255];
+        if (luaL_loadfile(L, Param) != LUA_OK) {
+            sprintf(msg_buffer, "Lua error loading file: %s\r\n", lua_tostring(L, -1));
+            AppendText(msg_buffer);
+            lua_pop(L, 1);
+        } else {
+            if (lua_pcall(L, 0, 0, 0) != LUA_OK) {
+                sprintf(msg_buffer, "Init error: %s\r\n", lua_tostring(L, -1));
+                AppendText(msg_buffer);
+                lua_pop(L, 1);
+            }
+        }
+    } else lua_call_command(Cmd, Param);
 }
 
 __declspec(dllexport) const char* __stdcall PluginName(void) { return "Lua Host"; }
@@ -467,6 +531,8 @@ __declspec(dllexport) int __stdcall Initialize(HANDLE hHandle, TDB* DBPointer) {
     luaL_openlibs(L);
     lua_register(L, "message_box", lua_MessageBox);
     lua_register(L, "log", lua_log);
+    lua_register(L, "set_console", lua_set_console);
+    lua_register(L, "set_console_mode", lua_set_console_mode);
     g_DBPointer = DBPointer;
     RegisterDBFunctions(L);
 

plugin.lua

@@ -20,10 +20,17 @@ function group(stream, block_b_correction, a, b, c, d) end
 ---@param title string
 function message_box(body, title) end
 
----Logs a string inside the host console
+---Logs a string inside the host console. Requires console mode to be false.
 ---@param data string
 function log(data) end
 
+---Sets the whole text of the console for display. Requires console mode to be true.
+---@param data string
+function set_console(data) end
+
+---@param mode boolean
+function set_console_mode(mode) end
+
 db = {}
 
 ---@param key string