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

[REBOL] Re: print-error or form-error in system ?

From: tim:johnsons-web at: 13-Nov-2002 7:27

Hi Anton: Let me know if this works for you.... -tim- * Anton <[anton--lexicon--net]> [021112 23:27]:
> Hi I am looking for a function just as Volker wrote > about last year. > Has anyone noticed if there is such a function > lying around in the system somewhere? > I think it must exist somewhere, I just haven't found it. > > Anton. > > Volker wrote last year on 21 December 2001: > ------------------------- > > RE: [REBOL] Coerting Errors to a string? > (original by Bo somewhere, called print-error. forgot if i changed > something.) > > form-error: func [ > error [object!] > /local arg1 arg2 arg3 message out > ] [ > out: make string! 100 > set [arg1 arg2 arg3] [error/arg1 error/arg2 error/arg3] > message: get in get in system/error error/type error/id > if block? message [bind message 'arg1] > append out reform reduce message > append out reform ["^/Near:" mold error/near] > append out reform ["^/Where:" mold get in error 'where] > ] > > use with [print form-error disarm error] > > -Volker > ------------------------- > > -- > To unsubscribe from this list, please send an email to > [rebol-request--rebol--com] with "unsubscribe" in the > subject, without the quotes.
-- Tim Johnson <[tim--johnsons-web--com]> http://www.alaska-internet-solutions.com http://www.johnsons-web.com -- Attached file included as plaintext by Listar -- rebol[] cat: :rejoin print-error: func[ error [object!] /at location /local arg1 arg2 arg3 message out user-raised][ print "<pre>" either at[ print cat ["==>ERROR in " location ":"] ][ print "==>ERROR:" ] ;;; print mold error out: make string! 100 set [arg1 arg2 arg3][error/arg1 error/arg2 error/arg3] if string? arg1[ if (find arg1 "[RAISED]") = arg1[ arg1: chomp/left arg1 "[RAISED]" user-raised: true ] ] message: get in get in system/error error/type error/id if block? message [bind message 'arg1] append out " " append out reform reduce message if all[error/near not user-raised][append out cat[newline " near:^/ " mold error/near ] ] if all[error/where not user-raised][append out cat[newline " where:^/ " mold error/where] ] print out ] chomp: func[str[string!] sub-str[string!] /right /left /first /last /all /local found sub-len the-chomp][ sub-len: length? sub-str the-chomp: [remove/part found sub-len] if left[if (found: find str sub-str) = str[do the-chomp] return str] if right[ if found: find/tail/last str sub-str[ if empty? found[ found: find/last str sub-str do the-chomp ] ] return str ] if first[ if found: find str sub-str[do the-chomp] return str ] if last[ if found: find/last str sub-str[do the-chomp] return str ] if all[ while[found: find str sub-str][ do the-chomp ] return str ] raise["function 'chomp must have one refinement of /right /left /first /last /all"] ] ; raise an error, adds a tag to identify it as a error string only raise: func[message[block!]][ make error! join "[RAISED]" cat message ];end func ; example "try/catch" construct application: [; execution block Print "THIS IS THE EXECUTION BLOCK" ] ;######################################################################### except: [print-error disarm err ] if error? set/any 'err try application except