[REBOL] Re: auto id's for vid objects
From: tomc:darkwing:uoregon at: 17-Feb-2004 0:38
maybe if this is not what you expect you could give examples of what
output you expect from your input.
this is the same rule as I sent yesterday with the resy of the program
wrapped around it.
rebol[]
x: {button "one" button "two" text "browser"}
y: {then try this: button "one" text "browser" button "two"}
button_count: 0
txt_count: 0
btn: to-string reduce [to-set-word 'id ": " to-set-word 'btn]
txt: to-string reduce [to-set-word 'id ": " to-set-word 'txt]
rule: [
any[
to "button" mark:
(insert :mark reduce [btn button_count: button_count + 1":"{ }]
mark: skip mark 16):mark
]
any[
to "text" mark:
(insert :mark reduce [txt txt_count: txt_count + 1":"{ }]
mark: skip mark 14) :mark
]
]
parse/all x rule
probe x
button_count: txt_count: 0
parse/all y rule
probe y
halt
On Mon, 16 Feb 2004, iNetW3 wrote: