[REBOL] Re: debugging an object
From: ingo:2b1 at: 13-Sep-2003 12:51
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: