[REBOL] Re: ANNOUNCE: I have catched the source of the read/lines bug !
From: antonr:lexicon at: 31-Mar-2004 13:15
I see the crash here. I used a cleaned up version of
the script, which you can find at bottom.
Anton.
> If you use read/lines inside a "does" routine and read/lines
> fails a couple
> of times Rebol will probably crash at the returning from the
> routine block.
>
> To reproduce the BUG used the following script + ZONE ALARM
> (needed to STOP
> internet activity by hand).
>
> Do this:
>
> Run the script
>
> Stop the internet activity with the aid of the "lock" of Zone
> Alarm. Mantain
> the lock closed until the script prints an error message.
>
> Restart the internet activity and wait for the script to cointinue its
> looping. Then stop internet activity again.
>
> Do this until Rebol will crash (this happen before 5 or 6 locks/unlocks)
> I have reported everything to the Rebol people and waiting for an answer.
>
> Could you confirm the BUG too ?
> Giuseppe Chillemi
REBOL [
Author: "Giuseppe Chillemi"
Description: "read/lines BUG Catcher"
Notes: {modified by Anton Rolls}
]
logfile: %Activity.log
log: func [string][
write/append/lines logfile reform [now/time string]
]
write logfile "" ; create new logfile
log "start"
read-page: [
bug?: no
until [
if error? set/any 'err try [
my-page: read/lines my-url
][
print [now/time "! Read Error on page" my-url mold disarm err]
bug?: yes
]
log "Point 0"
bug?
]
log "Point 1"
]
activate-search: does [
my-url: http://www.google.com
log "Point 2"
print [now/time "Looping..."]
log "Point 3"
do read-page
log "Point 4"
]
loop 100 [activate-search]
halt
