$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