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

[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: log "Point 2" print [now/time "Looping..."] log "Point 3" do read-page log "Point 4" ] loop 100 [activate-search] halt