http://snippets.dzone.com/posts Thu, 21 Aug 2008 09:20:39 GMT DZone Snippets: sparse-rec code http://snippets.dzone.com/posts/show/3018 <code> <br /> sparse-rec-to-fixed-block: func [ <br /> rec [block!] <br /> col-names [block!] "All column names in full schema" <br /> ][ <br /> if not all-words? col-names [alert join "sparse-rec-to-fixed-block: col-names has non-word values: " mold col-names] <br /> collect/only val [ <br /> foreach name col-names [ <br /> val: attempt [first select/skip rec name 2] <br /> ] <br /> ] <br /> ] <br /> <br /></code> Sun, 19 Nov 2006 02:22:05 GMT http://snippets.dzone.com/posts/show/3018 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/3017 <code> <br /> ; Like named-fields?, this func can't guarantee that a record is really <br /> ; a sparse rec; it can only tell us if it's not. <br /> sparse-rec?: func [ <br /> rec [block!] <br /> col-names [block!] "All column names in full schema" <br /> ][ <br /> if not all-words? col-names [alert join "sparse-rec?: col-names has non-word values: " mold col-names] <br /> all [ <br /> named-fields? rec <br /> (length? rec) <> (2 * length? col-names) <br /> ] <br /> ] <br /></code> Sun, 19 Nov 2006 02:17:56 GMT http://snippets.dzone.com/posts/show/3017 gregg.irwin (Gregg Irwin)