r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[!REBOL3 Schemes] Implementors guide

Graham
7-Jan-2010
[422]
so, if we read a page, we supply a call back to the 'read so that 
our callback is passed the data when it is received....
Maxim
7-Jan-2010
[423]
I'd guess so. that is how its done,  in R2 async networking.
Graham
7-Jan-2010
[424x3]
At present you have to supply an awake handler to the port ...
Just thinking we need a higher level interface to the network protocols 
to exploit their async nature.
For instance in Jquery .. you just chain functions ....
Maxim
7-Jan-2010
[427]
well, i guess I meant that its how I implemented the handler's switch/case. 
 it just forked off to callbacks.
Graham
7-Jan-2010
[428x2]
Too low level I think and messy
Just want something like

read/cb http://www.rebol.com:call-back-function
Maxim
7-Jan-2010
[430x2]
what I mean is that, like face/feel, the handler is a low-level set 
of functions which should callback to application hooks based on 
events.
you could not... what events does the handler really manage?
Graham
7-Jan-2010
[432]
could not what?
Maxim
7-Jan-2010
[433]
maybe, if it had an event name parameter.  a bit like the event action. 
 but the scheme handler still needs to exist, its the place where 
logical events are determined.
Graham
7-Jan-2010
[434]
maybe supply a block .. where the first is the one you want used 
on success, and the other is an error handler
Maxim
7-Jan-2010
[435x3]
I'd rather it be just a function with error events instead.
but the problem with this is that with a single callback, it gets 
hard to tailor your stuff, cause everything has to happen in a single 
function.  I'd rather have named callbacks.
read/cb http://www.rebol.com'on-done :call-back-function
Graham
7-Jan-2010
[438x2]
well, in that case we can use refinements
read/on-done http://www.rebol.com:callback
Maxim
7-Jan-2010
[440]
but each scheme will have its own  callbacks.  some schemes might 
support headers, others not... for example, in my http rss reader, 
I had a callback for the file size.  if it was too large, I'd refuse 
the rest of the read and close the port...
Graham
7-Jan-2010
[441]
the other problem is that 'read doesn't support these refinements
Maxim
7-Jan-2010
[442x2]
yes, but if ports had a way to define callbacks, they would be passed 
on in some way by port using functions.


for example, a codec, would just be a callback which converts the 
stream or returns parameters to tell the port it needs more data 
before it can convert a chunk of input.
so read, would just have to pass it the codec function using /cb
Graham
7-Jan-2010
[444]
read is going to have to get smarter and read the refinements in 
the 'read defined in the action block
Maxim
7-Jan-2010
[445]
in the above... would == could == should  ;-)
Graham
7-Jan-2010
[446]
Also for things like download meters ...
BrianH
7-Jan-2010
[447]
There might be a /with option for READ, which supports additional 
options in an options block, but there won't be any other options 
outside of that block. READ is a low-level function, and won't have 
more refinements.
Gabriele
8-Jan-2010
[448x2]
Brian: ok... let's make it easy... i just copied it here: http://www.rebol.it/giesse/wetan-test.r
and http://www.rebol.it/giesse/wetan-template.html- they just need 
to be in the same dir.
bsd is fine for the license, or mit, one day i'll release it properly 
and attach a license. :P
Graham
8-Jan-2010
[450]
I've been reading some more of the docs .. and it says that the lookup 
phase in the awake handler is called when the name is resolved with 
a dns lookup .. but that phase is not used when the url uses an ip 
address.  But then I see some demo code using IP addresses ( the 
ping pong server ) where the open port is in the lookup event ...
Steeve
8-Jan-2010
[451]
Did you test it ? 

Being in the source code example doesn't mean that the lookup event 
is fired.
Graham
8-Jan-2010
[452x3]
http://www.rebol.net/wiki/TCP_Port_Open_Issue


perhaps it means that the lookup event is passed to the handler once 
it obtains the ip address
that's probably it ...
if the ip address is passed initially, then no lookup is sent to 
the tcp device
Steeve
8-Jan-2010
[455x2]
exactly
the weird thing is that you need to perform 2 OPEN when the ip need 
a translation.
A little disturbing...
Graham
8-Jan-2010
[457]
Is that done by you or automatically ?
Steeve
8-Jan-2010
[458x2]
must be done by you.
see in the example:
lookup [
	....
	open port
]
Graham
8-Jan-2010
[460x2]
client: open tcp://127.0.0.1:8080

this returns a port
structure
Steeve
8-Jan-2010
[462]
perhaps the second open should be done automaticly by the device 
after the handler processed the lookup event.
Would be less disturbing
Graham
8-Jan-2010
[463x3]
and this then opens it

lookup [open event/port]
bit confusing because of the overloading of the 'open word
I think I remain confused
Steeve
8-Jan-2010
[466]
It's clearly explain in the link you pointed.

Note B

OPEN is called twice. It is moded. The mode is determined by the 
existence of the IP address. If the IP address is not known, the 
LOOKUP happens, otherwise the CONNECT happens. This also means that 
if you do an OPEN of a port where you provide the IP address, no 
lookup is done; you skip directly to CONNECT. If it is necessary 
to determine if the IP address is known (a rare situation), use QUERY 
-- which can be called at any time and is very fast.
Graham
8-Jan-2010
[467]
the lookup event though always happens ... right?
Steeve
8-Jan-2010
[468x2]
no
only if a dns translation is requested
Graham
8-Jan-2010
[470x2]
that's what I thought initially  but I think that's wrong
this is the ping client

client: open tcp://127.0.0.1:8080

client/awake: func [event] [
    ;probe event/type
    switch event/type [
        lookup [open event/port]
        connect [write event/port to-binary "ping!"]
        wrote [
            print "Client sent ping to server"
            read event/port
        ]
        read [
            print ["Server said:" to-string event/port/data]
            if (++ ping-count) > 50 [return true]
            clear event/port/data
            write event/port to-binary "ping!"
        ]
    ]
    false
]