http://snippets.dzone.com/posts Sat, 26 Jul 2008 19:30:14 GMT DZone Snippets: number-lines code http://snippets.dzone.com/posts/show/1113 <code> <br /> number-lines: func [ <br /> "Insert leading line numbers for each line." <br /> input [string! block!] <br /> /local lines lead-wd <br /> ][ <br /> lines: any [all [block? input input] parse/all input form newline] <br /> lead-wd: length? form length? lines <br /> repeat i length? lines [ <br /> insert lines/:i join pad-num i lead-wd ": " <br /> ] <br /> either block? input [lines] [rejoin delimit lines newline] <br /> ] <br /></code> Tue, 10 Jan 2006 06:01:23 GMT http://snippets.dzone.com/posts/show/1113 gregg.irwin (Gregg Irwin)