World: r3wp

Gabriele, it seems as if that REQUEST-DOWNLOAD has yet to find it's 
way into R3. Though on the other hand, it's seems very likely to 
me that you know about R3 resources I'm not aware of.

if you can do a read and get the number of bytes read into a callback 
then you have the possibility of creating your own progress bar.

R2's read-thru does this.

Ok, Henrik, are you saying that theoretically it should be possible 
to adapt REQUEST-DOWNLOAD or alike to R3 with current R3/HTTP-scheme? 
If so, I'll have a go and study the source, it's just that I am not 
able to tell wether I just dont get it or if something is missing 
for now. Is it expected to be possible yet?

I don't know if it's possible with the current R3/HTTP scheme.

Thanks, Henrik, anyway. I'll take Gabriele's answer for a "yes, it's 
possible" because he has written the scheme, so he would know for 
sure ;-) I'll study his protocol and the underlying TCP stuff deeper 
after the weekend.

ah, sorry guys, didn't notice this was a R3 group. hmm, it shoud 
in principle be even easier for R3, but i guess there are no examples 
to show...

starting from here: http://www.rebol.net/wiki/Scheme:_HTTP

what you want is the bottom of the page, "Lowest level: asynchronous 
operation"

you need basically to respond to 'connect and do a read, use 'read 
events to report progress, and use 'done to know when all the data 
is ready.

(this assumes that there have been no major changes to http since 
last time i touched it.)

As I mentioned before ... you can't still update the gui without 
the information on how to create a gui event

Graham, do you mean use 'do-style to run an actor?

No, I mean how do you update the gui while in the middle of a network 
operation ?  The only way to force the gui to change is to generate 
a GUi event, like a mouse click etc but a fake event

I'd say the useful solution in R2 at least is to use a call-back 
like read-thru does, so you solve the issue in the networking code, 
not in the GUI cide.

code.

graham, in my vid, you would just use set-face on the progress bar. 
i don't know about Carl's version. it would be very surprising if 
it required creating an event.

it's not much different in Carl's version.

set-face doesn't update until the network activity has ceased

Maybe I did something wrong ... perhaps someone else can try it

how are you doing it? the set-face has to be called from somewhere 
within the networking code. alternatively something is synced which 
shouldn't be synced.

http://rebol.wik.is/Rebol3/R3_GUI/Sendfax.r

I update the GUI in the awake handler

inside prot-fax-r?

Yes ... as I redefine net-log in the gui to do the updating, and 
net-log is used inside pro-fax.r

ok, I see it

what good does the last line do?

what last line?

set-face/field a1 tail get-face a1 'locate 
txt

sets the text cursor ?

been a while since I wrote that code .. hard to remember now!

I wonder if it's there to force the text to scroll to that point 
...

The issue in updating an area is to show the new text ... which may 
be out of sight unless you somehow force the area to scroll down 
to the new text

Gabriele, thanks for the clarification. I'll give it a try over the 
weekend.

On first examination, executing the following code seems like an 
unexpected error. Doing

port: make port! http://www.rebol.com
port/awake: funct [event] [
    port: event/port
    switch/default event/type [
        read    [prin "read:"    copy  port]
        lookup  [prin "lookup:"  query port open port]
        wrote   [prin "wrote:" ]
        connect [prin "connect:" read  port]
        ready   [prin "ready:"   close port]
        custom  [prin "custom:"]
        done    [prin "done:"  ]     
        close   [prin "close:" ]
        error   [prin "error:" ]
        custom  [prin "custom:"]
    ][
        true
    ]
]
open port
wait port

gives

connect:wrote:read:custom:** Script error: res: needs a value

** Where: either case check-data either switch check-response switch 
applier wake-up loop applier wait catch either applier do vv
** Near: either headers/content-length <= length? port/data [
    sta...

in prot-http.r, in http-awake function, there is a switch statement

res: switch state/state


try adding a switch/default instead

and use 'none for the default to see what happens

and probe state/state to see what value might be causing this error

HTTP-AWAKE is the event handler for the underlying TCP port, from 
my understanding the awake handler for the HTTP scheme should be 
way simpler.

I'm getting better results with

port: make port! http://www.rebol.com
port/awake: funct [event] [
    port: event/port
    prin join event/type ":"
    
    switch/default event/type [
        connect [read  event/port false]
        ready   [read  event/port false]
        read    [query event/port false]
        custom  [copy  event/port false]
        done    [true]
        close   [true]
    ][
        false
    ]
]
open port
wait port

That gives the following output:

connect:wrote:read:read:custom:done:

But at the 'DONE EVENT/TYPE it then hangs. By returning TRUE there 
the AWAKE handler normally should awake the port, making the WAIT 
return.

this is true for a tcp port, but this is a http port, and Gabriele 
has two handlers there, one of which is creating custom events.

Since your code is handling custom events, I presume that you're 
handling the events generated by the main awake handler ...

Ok, this is confusing, and it doesn't help that I have absolutely 
no expertise in that networking stuff. It doesn't help, I'll have 
to dive in anyway. So excuse me when occasionally I come here panting 
for some air before drowning ;-)

It seems to work fine, reading the page like it should:

port: make port! http://www.rebol.com
port/awake: funct [event] [
    prin join event/type ":"
    
    switch/default event/type [
        connect [read event/port false]
        ready   [read event/port false]

        read    [probe length? event/port probe query event/port false]
        custom  [probe to string! copy event/port false]
        done    [true]
        close   [true]
    ][
        false
    ]
]
open port
wait port