http://snippets.dzone.com/posts Sat, 17 May 2008 18:20:45 GMT DZone Snippets: make-blank-value code http://snippets.dzone.com/posts/show/1120 <code> <br /> ; used in SHIFT below <br /> dup: func [value len [integer!] /local type] [ <br /> type: either series? value [value] [either char? value [""] [[]]] <br /> head insert/only/dup make type len value len <br /> ] <br /> <br /> ; used in SHIFT below <br /> make-blank-value: func [type] [ <br /> any [ <br /> attempt [make type 0] <br /> attempt [make type ""] <br /> attempt [make type []] <br /> attempt [make type none] <br /> ] <br /> ] <br /> <br /> shift: func [ <br /> "Shift values in a series; length doesn't change." <br /> series [series!] <br /> /left "Shift left (the default)" <br /> /right "Shift right" <br /> /part range [number!] "Shift this many positions" ; TBD series! support? <br /> /with fill "Fill vacated slots with this value" <br /> /local pad <br /> ][ <br /> range: any [range 1] <br /> if any [empty? series 0 = range] [return series] <br /> pad: dup any [fill make-blank-value last series] range <br /> either right [ <br /> head insert head clear skip tail series negate range pad <br /> ][ <br /> append remove/part series range pad <br /> ] <br /> ] <br /></code> Tue, 10 Jan 2006 06:11:44 GMT http://snippets.dzone.com/posts/show/1120 gregg.irwin (Gregg Irwin)