http://snippets.dzone.com/posts Sat, 26 Jul 2008 20:12:01 GMT DZone Snippets: coerce code http://snippets.dzone.com/posts/show/2098 <code> <br /> cast: func [ ; convert coerce <br /> "Convert a value referenced by a word to a new datatype." <br /> input [block!] "A word, and the target datatype." <br /> /local words type val <br /> ] [ <br /> parse input [ <br /> some [ <br /> copy words to 'to skip set type any-type! ( <br /> ;while [pos: find words 'and] [remove pos] <br /> remove-each word words [word = 'and] <br /> foreach word words [ <br /> val: get/any word <br /> set/any word to either word? type [get type] [type] val <br /> ] <br /> ) <br /> ] <br /> ] <br /> ] <br /> comment { <br /> a: "A-0001" <br /> b: #B002 <br /> c: 300 <br /> d: <H1> <br /> e: 'test <br /> cast [a to issue!] print mold :a <br /> cast [b to tag!] print mold :b <br /> cast [c to decimal!] print mold :c <br /> cast [a b c to string!] print remold [:a :b :c] <br /> cast [a b and c to issue!] print remold [:a :b :c] <br /> cast [ <br /> a b and c to tag! <br /> and <br /> d and e to issue! <br /> ] print remold [:a :b :c :d :e] <br /> cast [a b c to <x> d e to "x"] print remold [:a :b :c :d :e] <br /> } <br /></code> Thu, 25 May 2006 03:09:06 GMT http://snippets.dzone.com/posts/show/2098 gregg.irwin (Gregg Irwin)