Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] append

From: fantam::mailandnews::com at: 14-Aug-2000 17:01

Hello all, In the following script, 'list-dirs is a function that returns the directory tree under the directory specified as an argument. On WinNT, using REBOL/Core, that script will throw an error when it encounters a directory that has a dot in its name (for example, "temp.old"). Furthermore, the error is thrown only if that directory is a second level sub-directory of the argument (for example %/c/temp/temp1/temp.old and not "%/c/temp/temp.old"). The most confusing thing is that if I remove the local definition of 'dirtree in the func spec, no error is thrown at all. I do not understand what is happening. REBOL [] dir: %/c/temp/ count: 0 list-dirs: func [ "returns dir tree as block" dir [file!] "root dir" /local dirtree [block!] ] [ if count = 0 [dirtree: make block! 100] count: count + 1 foreach name read dir [ if dir? dir/:name [ append dirtree dir/:name list-dirs dir/:name ] ] dirtree ] print list-dirs dir halt -- Fantam