Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search


From: m:koopmans2:chello:nl at: 12-Jun-2001 12:53

I typed the chat client and server in Outlook without testing, and immediately got a response that it didn't work. here are versions that are tested ;-) --Maarten -- Attached file included as plaintext by Listar -- -- File: chat_serv.r REBOL [ Title: {Rugby chat server}] do %rugby_server.r messages: make block! 600 msg-id: 0 add-message: func [ msg [string!]] [ msg-id: msg-id + 1 append messages msg-id append messages msg return true ] get-messages: func [ id [integer!] /local my-msg] [ probe r-msg: copy find messages id return r-msg ] serve [add-message get-messages] -- Attached file included as plaintext by Listar -- -- File: chat_client.r REBOL [ Title: {Rugby chat client}] do %rugby_client.r last-msg-id: 1 send-message: func [msg [string!]] [ rexec/oneway compose [add-message (msg)] ] get-messages: func [ id [integer!] /local r-msg msg] [ msg: make block! 600 r-msg: rexec compose [get-messages (id) ] probe r-msg foreach entry r-msg [ if string? entry [append msg entry] ] last-msg-id: first skip tail r-msg -1 ;Gets the last retrieved msg-id return copy msg ]