Hi Ladislav
Your version of catch' leads to the same crash
"Invalid data type during recycle"
too after processing the messages of less than six days.
AR
Ladislav Mecir wrote:
>Anton Reisacher napsal(a):
>
>
>
>>How safe is catch?
>>
>>I have some rebol applications serving message communication (around 1000 to
>>2000 messages per day mostly) running for more than half a year on
>>Windows2000 Server without interruption since the last update of the OS for
>>security reasons.
>>
>>Recently I had to add some message splitting:
>>one-message --> [message-part-1 message-part-2 message-part-3]
>>
>>I used a construct similar to this
>>
>>forever [
>> until [new-messages-available]
>> foreach message new-messages [
>> catch [
>> if not important [throw]
>> do-some-heavy-message-processing-and
>> data-completion-using-odbc
>> if some-tests [throw]
>> message-parts: split-messages message
>> until [
>> catch [
>> message: first message-parts
>> do-more-conversions
>> if other-tests [throw]
>> deliver message
>> emtpy? message-parts: next message-parts
>> ]
>> ]
>> ]
>> ]
>>]
>>
>>Now I saw two crashes in one day.
>>I was somehow able to reproduce the crash
>>"Invalid data type during recycle"
>>by playing again the history of one to two weeks. But the crash happened
>>always processing another message.
>>
>>
>>
>>
>>
>>
>hi Anton, I needed a slightly different Catch version than the
>"official" one. Try this to see if things go better:
>
>Rebol [
> Title: "Catch"
> File: %catch.r
> Date: 4/Mar/2005/17:12
> Author: "Ladislav Mecir"
> Purpose: {
> Catches local throw'
> Ignores non-local throws
> Works with Parse
> }
>]
>
> ; Evaluation of the following global functions is an error
> return': func [[catch]] [throw make error! [throw not-local]]
> exit': func [[catch]] [throw make error! [throw not-local]]
> throw': func [[catch]] [throw make error! [throw not-local]]
>
> ; Error definition
> system/error/throw: make system/error/throw [
> not-local: "Global return', exit' or throw' evaluated"
> ]
>
> catch': func [
> {Catches a throw' from a block and returns the value.}
> block [block!] "Block to evaluate"
> /local throw' result1 result2 result1?
> ] [
> ; "localize" 'throw' in the block
> set [throw' block] use [throw'] reduce [
> reduce ['throw' copy/deep block]
> ]
> set throw' func [value [any-type!]] [
> error? set/any 'result1 get/any 'value
> result1?: true
> make error! ""
> ]
> either error? set/any 'result2 try block [
> either result1? [return get/any 'result1] [result2]
> ] [return get/any 'result2]
> ]
>
>comment [
> ; Usage:
> catch' [parse "ssss" [(throw' "OK")]]
>]
>
>-L
>
>
--
To unsubscribe from the list, just send an email to
lists at rebol.com with unsubscribe as the subject.
