Archive version of: indexer.r ... version: 1 ... crazyaxe 5-Feb-2009

Amendment note: new script || Publicly available? Yes

REBOL [ 
 Title: "Indexer"
 Author: "Massimiliano Vessi"
 Email: maxint@tiscali.it
 Date: 05-Feb-2009 
 version: 1.0.1
 file: %indexer.r
 Purpose: {"Add to index.r all the files and directory of the current directory"}
 
 ;following data are for www.rebol.org library
 ;you can find a lot of rebol script there
 library: [ 
           level: 'beginner 
           platform: 'all 
           type: [tutorial tool] 
           domain: [ file-handling files parse sdk text-processing user-interface ui visualization ] 
           tested-under: [windows linux] 
           support: none 
           license: [gpl] 
           see-also: none 
          ] 
]

var1: "REBOL [Title: ^"Local Index^" ^/ Type: 'index ] ^/ ^/ title: ^"Local Files^" ^/ ^/"



foreach file read %. [
    info: info? file
    if dir? file [ append var1 "folder "
    				append var1 "^""
    				trim/all  file ;remove all spaces frome file name, it's a problem with view
    				append var1 file
    				append var1 "^" %"
    				
    				append var1 file
    				append var1 "^/ ^/"
				]
     if not (dir? file) [ append var1 "file "
    				append var1 "^""
    				append var1 file
    				append var1 "^" %"
    				trim/all  file ;remove all spaces frome file name, it's a problem with view
    				append var1 file
    				append var1 "^/ ^/"
				]    				
]

write %index.r   var1