DZone Snippets: newer code http://snippets.dzone.com/posts Mon, 18 Aug 2008 03:54:56 GMT DZone Snippets: newer code Which file is the newest? http://snippets.dzone.com/posts/show/1270 <code> <br /> newest: func [ <br /> {Returns the target with the most recent modification. Targets must be <br /> file! or URL! values. If multiple targets have the same timestamp, the <br /> last one found will be considered the newest.} <br /> targets [any-block!] <br />; /local newest-date tgt-date result <br /> /local result <br /> ][ <br /> ; Take 1 <br />; newest-date: 1-Jan-0000 <br />; foreach target targets [ <br />; if greater-or-equal? tgt-date: modified? target newest-date [ <br />; newest-date: tgt-date <br />; result: target <br />; ] <br />; ] <br />; result <br /> ; Take 2 - No optimization for checking timestamps multiple times <br /> ; but much clearer. <br /> result: first targets <br /> foreach target next targets [ <br /> result: newer target result <br /> ] <br /> result <br /> ] <br /></code> Mon, 23 Jan 2006 01:58:15 GMT http://snippets.dzone.com/posts/show/1270 gregg.irwin (Gregg Irwin) Which file is newer? (returns target, not logic) http://snippets.dzone.com/posts/show/1269 <code> <br /> newer: func [ <br /> {Returns the newer of the two targets. Returns target-2 if their <br /> timestamps are the same.} <br /> target-1 [file! url!] <br /> target-2 [file! url!] <br /> /local exists-1? exists-2? <br /> ][ <br /> set [exists-1? exists-2?] reduce [exists? target-1 exists? target-2] <br /> if all [(not exists-1?) (exists-2?)] [return target-2] <br /> if all [(not exists-2?) (exists-1?)] [return target-1] <br /> if all [(not exists-1?) (not exists-2?)] [return none] <br /> either newer? target-1 target-2 [target-1] [target-2] <br /> ] <br /></code> Mon, 23 Jan 2006 01:57:29 GMT http://snippets.dzone.com/posts/show/1269 gregg.irwin (Gregg Irwin) Which file is newer? http://snippets.dzone.com/posts/show/1268 <code> <br /> newer?: func [ <br /> {Returns true if target-1 was modified more recently than target-2; <br /> false otherwise.} <br /> target-1 [file! url!] <br /> target-2 [file! url!] <br /> ][ <br /> if not exists? target-1 [return false] <br /> either any [ <br /> all [ <br /> (not none? modified? target-1) <br /> (none? modified? target-2) <br /> ] <br /> (greater? modified? target-1 modified? target-2) <br /> ] [true] [false] <br /> ] <br /></code> Mon, 23 Jan 2006 01:56:55 GMT http://snippets.dzone.com/posts/show/1268 gregg.irwin (Gregg Irwin)