[REBOL] Re: parsing rebsites
From: anton:lexicon at: 29-Jul-2002 23:42
I should have defined file in my example:
file: http://www.rebol.com/index.r
> Here is a chunk of code that parses an index file,
> then prints out all the folders.
>
> page: load/all file
>
> if block? ctx-viewtop [ctx-viewtop: context ctx-viewtop]
> obj: ctx-viewtop/parse-index page
>
> if obj [ ; index file parsed ok?
> foreach icon obj/icons [
> if icon/type = 'folder [print icon/item]
> ]
> ]
which gives output like this:
http://www.reboltech.com/index.r
view/demos/index.r
view/tools/index.r
view/docs/index.r
http://www.reboltech.com/library/index.r
