def
Folks,
Below does not work as shown in subject text.
Can someone fix or offer a better solution?
Thx, Doug
======snip=============
/browse-dict % dictionary browse-dict -
{ %def
{ %forall
exch (key: ) print ==
dup type
dup /dicttype eq { %ifelse
(subdictionary: ) print
browse-dict % recursively browse dictionary
}{
(value: ) print ==
} ifelse
} forall
} bind def
/testDict1 <<
/a 1
/b [ 1 2 3 ]
/c <<
/key1 4
/key2 5
/key3 6
def
testDict1
browse-dict
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 300 |
Nodes: | 16 (2 / 14) |
Uptime: | 112:30:45 |
Calls: | 6,731 |
Calls today: | 1 |
Files: | 12,256 |
Messages: | 5,360,695 |