Mailing List Archive: Re: remaking an error ?

[REBOL] Re: remaking an error ?

From: cyphre:seznam:cz at: 23-Oct-2001 14:40


Hi Maarten,

I think my function (used in vconsole) might help you:

----------------------------begin of code----------------------

parse-error: func [
 error [object!]
 /local type id arg1 arg2 arg3 wh
][
 type: error/type
 id: error/id
 wh: mold get/any in error 'where
 either any [
  unset? get/any in error 'arg1
  unset? get/any in error 'arg2
  unset? get/any in error 'arg3
 ][
  arg1: arg2: arg3: "(missing value)"
 ][
  arg1: error/arg1
  arg2: error/arg2
  arg3: error/arg3
 ]
 return rejoin [
  "** " system/error/:type/type ": "
  reduce either block? system/error/:type/:id [
   bind to-block system/error/:type/:id 'arg1
  ][
   form system/error/:type/:id
  ]
  newline
  "** Where: " wh  newline
  "** Near: " error/near
 ]
]

------------------end of code------------------------------

regards,

Cyphre