http://snippets.dzone.com/posts Fri, 25 Jul 2008 08:53:58 GMT DZone Snippets: cast code 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/2751 // Stampa la versione binaria di un numero <br /> <br /><code> <br />int numero = 15; <br />System.out.println(Integer.toBinaryString(numero)); <br /></code> Sun, 01 Oct 2006 22:05:56 GMT http://snippets.dzone.com/posts/show/2751 whitetiger () 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)