Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] parse question

From: princepawn:mailandnews at: 14-Sep-2000 5:18

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.