[REBOL] Re: debugging an object
From: tim:johnsons-web at: 13-Sep-2003 8:16
* Ingo Hohmann <[ingo--2b1--de]> [030913 03:12]:
Hey Ingo:
You nailed it right on the head!
thanks, that did it.
tim
> Hi Tim,
>
> does this come near?
>
> dbg: func [ 'name /local 'int][
> either system/options/cgi/server-name[print <pre>][prin ""]
> int: any[all[word? name get name] none]
> either all[object? int (in int '_blk_)][
> print [ "data of" head insert tail form name
> reduce [": " mold get In int '_blk_] ]
> ][
> Print either word? :name [
> head insert tail form name reduce [": " mold name: get :name]
> ][
> mold :name
> ]
> ]
> ]
>
> >>
> >> obj: context[
> [ _blk_: ["one" 1 "one" 2 "two" "" 1 "here"]
> [ ]
> >> num: 1
> == 1
> >>
> >> dbg obj
> data of obj: ["one" 1 "one" 2 "two" "" 1 "here"]
> >> dbg num
> num: 1
> >> dbg 3
> 3
>
> I added the intermediate 'int, because
> in :name '_blk_
> didn't work.
>
> I hope that helps,
>
> Ingo
>
> Tim Johnson wrote:
> > Hello Rebols:
> > I'm attempting to write a debug function
> > which will print out both a data member of an object
> > and the object name (but not the rest of the objects,
> > methods etc).
>
> --
> To unsubscribe from this list, just send an email to
> [rebol-request--rebol--com] with unsubscribe as the subject.
--
Tim Johnson <[tim--johnsons-web--com]>
http://www.alaska-internet-solutions.com
http://www.johnsons-web.com
