Add Inter-Process Communication

test_ipc.bas

@@ -0,0 +1,44 @@
+$console:only
+declare library "terminkey"
+    function ipc_init&()
+    function ipc_check_message%(byval buf as _offset, byval max_len as long)
+    sub ipc_send_message(buf as string)
+    sub ipc_cleanup()
+    sub get_absolute_path(rel_path as string, byval abs_path as _offset, byval max_len as long)
+end declare
+
+dim r as long
+r = ipc_init
+print "ipc_init returned:"; r
+
+if r = 1 then
+    print "We are the server! Waiting for a message..."
+    dim msg as string
+    msg = space$(100) + chr$(0)
+    dim start_time as double
+    start_time = timer
+    do while timer - start_time < 3
+        dim n as long
+        n = ipc_check_message(_offset(msg), 100)
+        if n > 0 then
+            print "Received: "; left$(msg, n)
+            exit do
+        end if
+        _limit 10
+    loop
+    ipc_cleanup
+elseif r = 0 then
+    print "We are the client! Sending a message..."
+    ipc_send_message "Hello from client!"
+else
+    print "Error initializing IPC"
+end if
+
+dim rel as string
+rel = "readme.md"
+dim abs_path as string
+abs_path = space$(512) + chr$(0)
+get_absolute_path rel, _offset(abs_path), 512
+print "Absolute path of '"; rel; "' is: '"; _trim$(abs_path); "'"
+
+system