http://snippets.dzone.com/posts Thu, 24 Jul 2008 13:59:00 GMT DZone Snippets: add-escapes code http://snippets.dzone.com/posts/show/2622 <code> <br /> add-escapes: func [ <br /> "Insert the esc-with value before each instance of val, unless it's part of a list of things to ignore." <br /> series [string!] <br /> val [char!] "the char to escape" <br /> esc-with [char!] "the char to escape it with" <br /> /ignore special [block!] "block of strings to ignore" <br /> /local rule= <br /> ][ <br /> rule=: copy/deep [ <br /> any [ <br /> ; ignore rule will be added here if needed <br /> mark: val (insert mark esc-with) skip <br /> | skip <br /> ] <br /> ] <br /> ; If they have things they want us to ignore, add a rule at the <br /> ; beginning of the ANY rule, and a pipe symbol after it. <br /> if special [ <br /> ; rule=/2 is the ANY block <br /> ; pipe 1 is DELIMIT param <br /> ; pipe 2 is new rule 'OR separator <br /> insert rule=/2 reduce [delimit copy special '| '|] <br /> ] <br /> parse/all series rule= <br /> series <br /> ] <br /></code> Tue, 19 Sep 2006 02:24:38 GMT http://snippets.dzone.com/posts/show/2622 gregg.irwin (Gregg Irwin)