http://snippets.dzone.com/posts Sat, 17 May 2008 18:35:45 GMT DZone Snippets: bounds code http://snippets.dzone.com/posts/show/3111 <code> <br /> limit: func [ <br /> "Make sure val falls between lower and upper bounds, inclusive; uses length for series values." <br /> val <br /> lower [integer!] <br /> upper [integer!] <br /> /show "For series values, show extension/truncation (dot/none for extension, 3 dots for truncation)." <br /> /local fill <br /> ][ <br /> either not series? val [max min val upper lower] [ <br /> either all [ <br /> upper >= length? val <br /> lower <= length? val <br /> ] [val] [ <br /> ; If extending the series, use NONE as the fill value, so the <br /> ; block can still be processed easily. <br /> fill: either any-string? val ["."] [none] <br /> head either lower >= length? val [ <br /> insert/only/dup tail val fill subtract lower length? val <br /> ][ <br /> clear skip val upper <br /> either show [change/dup skip tail val -3 '. 3] [val] <br /> ] <br /> ] <br /> ] <br /> ] <br /></code> Fri, 08 Dec 2006 22:46:02 GMT http://snippets.dzone.com/posts/show/3111 gregg.irwin (Gregg Irwin)