http://snippets.dzone.com/posts Thu, 24 Jul 2008 22:02:42 GMT DZone Snippets: datatype code http://snippets.dzone.com/posts/show/3007 <code> <br />datatype-name?: func [val [string!]] [datatype? get/any load val] <br /></code> Thu, 16 Nov 2006 05:08:31 GMT http://snippets.dzone.com/posts/show/3007 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/3006 <code> <br />cast: func [value type] [to type value] <br /></code> Thu, 16 Nov 2006 05:07:50 GMT http://snippets.dzone.com/posts/show/3006 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/3005 <code> <br />can-cast?: func [value type] [not error? try [to type value]]] <br /></code> Thu, 16 Nov 2006 05:07:28 GMT http://snippets.dzone.com/posts/show/3005 gregg.irwin (Gregg Irwin) 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) http://snippets.dzone.com/posts/show/1190 <code> <br />datatypes: has [types attrs value word] [ <br /> word: 'datatype! <br /> types: copy [] <br /> attrs: second system/words <br /> foreach item first system/words [ <br /> if all [ <br /> not unset? first attrs <br /> any [ <br /> all [string? :word find value word] <br /> all [ <br /> not string? :word <br /> datatype? get :word <br /> (get :word) = type? first attrs <br /> ] <br /> ] <br /> ] [ <br /> append types item <br /> ] <br /> attrs: next attrs <br /> ] <br /> sort types <br />] <br />print mold datatypes <br /></code> Thu, 19 Jan 2006 03:00:56 GMT http://snippets.dzone.com/posts/show/1190 gregg.irwin (Gregg Irwin)