diff --git a/test_ipc.bas b/test_ipc.bas deleted file mode 100644 index 7402f88..0000000 --- a/test_ipc.bas +++ /dev/null @@ -1,44 +0,0 @@ -$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