parse question

In order to improve my skills with the REBOL parse word, I thought I would go through "Mastering Regular Expressions" by Jeffrey Freidl and do all the examples in REBOL. Here is my first attempt and it does not work. The script is supposed to take a list of files and indicate whether the word setsize occurs equally, more, or less than the number of times that the word resetsize occurs. REBOL [ Title: "Balance setsize and resetsize" ] ;; q1 in my head: how do I do word boundaries? rules: [ to "resetsize" (size-cmds: size-cmds - 1) | to "setsize" (size-cmds: size-cmds + 1) ] proc: func [ filenames [block!] ] [ foreach file filenames [ size-cmds: 0 parse read to-file file rules prin reform [ "in" file ": " ] either size-cmds = 0 [ print "resetsize cmds matched # of setsize cmds" ][ either size-cmds > 0 [ print "resetsize cmds > # of setsize cmds" ][ print "resetsize cmds < # of setsize cmds" ] ] ] ] terrence-brannon: [[princepawn--yahoo--com] perl-refugee myth-gamer] free-email: http://www.MailAndNews.com free-usenet: http://www.mailAndNews.com ; all the above is real REBOL code, believe it or not.

terrence-brannon wrote:

> rules: [ > to "resetsize" (size-cmds: size-cmds - 1) > | > to "setsize" (size-cmds: size-cmds + 1) > ]

using thru did not result in correct parsing

>===== Original Message From [Al--Bri--xtra--co--nz] >terrence-brannon wrote: >> rules: [ > -><- ; All hail discordia! > ]

Howdy, Terrence: Neat stuff. Planning on making web page out of the result?

> In order to improve my skills with the REBOL parse word, I thought I would go > through "Mastering Regular Expressions" by Jeffrey Freidl and do all the > examples in REBOL. Here is my first attempt and it does not work.

> rules: [ > to "resetsize" (size-cmds: size-cmds - 1) | to > ] ] > ]