http://snippets.dzone.com/posts Tue, 07 Oct 2008 10:51:06 GMT DZone Snippets: find-file code http://snippets.dzone.com/posts/show/1280 <code> <br /> find-file: func [ <br /> {Based on an idea by Sunanda. Find a file in one of the specified <br /> dirs and return it, fully qualified.} <br /> dirs [block!] <br /> file [file!] <br /> /local normalize-dir normalize-file path <br /> ][ <br /> normalize-dir: func [ <br /> "Remove any leading slashes, ensure a trailing slash" <br /> dir <br /> ][ <br /> while [#"/" = first dir] [remove dir] <br /> to-file dirize dir <br /> ] <br /> <br /> normalize-file: func [ <br /> "Remove any leading slashes" <br /> file <br /> ][ <br /> while [#"/" = first file] [remove file] <br /> to-file file <br /> ] <br /> <br /> foreach dir dirs [ <br /> path: join what-dir normalize-dir form dir <br /> if exists? result: join path normalize-file file [return result] <br /> ] <br /> ] <br /></code> Mon, 23 Jan 2006 02:04:36 GMT http://snippets.dzone.com/posts/show/1280 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/1278 <code> <br /> find-file: func [ <br /> {Based on an idea by Sunanda. Find a file in one of the specified <br /> dirs and return it, fully qualified.} <br /> dirs [block!] <br /> file [file!] <br /> /local normalize-dir normalize-file path <br /> ][ <br /> normalize-dir: func [ <br /> "Remove any leading slashes, ensure a trailing slash" <br /> dir <br /> ][ <br /> while [#"/" = first dir] [remove dir] <br /> to-file dirize dir <br /> ] <br /> <br /> normalize-file: func [ <br /> "Remove any leading slashes" <br /> file <br /> ][ <br /> while [#"/" = first file] [remove file] <br /> to-file file <br /> ] <br /> <br /> foreach dir dirs [ <br /> path: join what-dir normalize-dir form dir <br /> if exists? result: join path normalize-file file [return result] <br /> ] <br /> ] <br /></code> Mon, 23 Jan 2006 02:04:00 GMT http://snippets.dzone.com/posts/show/1278 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/1277 <code> <br /> find-file: func [ <br /> {Based on an idea by Sunanda. Find a file in one of the specified <br /> dirs and return it, fully qualified.} <br /> dirs [block!] <br /> file [file!] <br /> /local normalize-dir normalize-file path <br /> ][ <br /> normalize-dir: func [ <br /> "Remove any leading slashes, ensure a trailing slash" <br /> dir <br /> ][ <br /> while [#"/" = first dir] [remove dir] <br /> to-file dirize dir <br /> ] <br /> <br /> normalize-file: func [ <br /> "Remove any leading slashes" <br /> file <br /> ][ <br /> while [#"/" = first file] [remove file] <br /> to-file file <br /> ] <br /> <br /> foreach dir dirs [ <br /> path: join what-dir normalize-dir form dir <br /> if exists? result: join path normalize-file file [return result] <br /> ] <br /> ] <br /></code> Mon, 23 Jan 2006 02:03:38 GMT http://snippets.dzone.com/posts/show/1277 gregg.irwin (Gregg Irwin)