http://snippets.dzone.com/posts Sat, 06 Sep 2008 14:52:59 GMT DZone Snippets: step-version code http://snippets.dzone.com/posts/show/2454 <code> <br />step-version: func [ <br /> val [tuple!] <br /> segment [word!] "'major, 'minor, or 'build" <br /> /local res <br />][ <br /> switch segment [ <br /> build [res: val + 0.0.1] <br /> minor [res: val + 0.1.0 res/3: 0] <br /> major [res: val + 1.0.0 res/2: 0 res/3: 0] <br /> ] <br /> either res > val [res] [none] <br />] <br /> <br />can-step-version?: func [ <br /> val [tuple!] <br /> segment [word!] "'major, 'minor, or 'build" <br />][ <br /> either step-version val segment [true] [false] <br />] <br /> <br />; foreach val [ <br />; 0.0.0 0.0.255 <br />; 0.1.0 0.255.0 0.255.255 <br />; 1.0.0 0.255.255 <br />; 254.255.255 255.255.254 <br />; 255.254.255 254.255.255 <br />; ][ <br />; foreach seg [build minor major] [ <br />; print [val tab seg tab can-step-version? val seg tab attempt [step-version val seg]] <br />; ] <br />; ] <br />; print attempt [step-version 254.255.255 'test] <br />; halt <br /></code> Tue, 22 Aug 2006 01:34:41 GMT http://snippets.dzone.com/posts/show/2454 gregg.irwin (Gregg Irwin)