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

[REBOL] download the rebol core and dictionary documentation

From: tom::conlin::gmail::com at: 3-Mar-2005 17:29

from Louis Turk on the altme rebol3 world Would someone on the rebol mail list please post the following script for whoever might find it useful? Here is a simple script to download the rebol core and dictionary documentation to your harddrive. Simply run the program. it will make appropriate folders and download the files. rebol [] make-dir %/c/rebol-docs/ make-dir %/c/rebol-docs/graphics/ make-dir %/c/rebol-docs/words/ change-dir %/c/rebol-docs/ page: copy read http://www.rebol.com/docs/core23/rebolcore.html write %rebolcore.html page write %graphics/doc-bar.gif read http://www.rebol.com/graphics/doc-bar.gif links: [] parse page [some [thru {<A HREF="} copy temp to {"} (append links temp)] to end] foreach link links [ if not find link "http:" [ print ["Downloading: " link] write to-file link read to-url rejoin ["http://www.rebol.com/docs/core23/" link] ] ] page: copy read http://www.rebol.com/docs/dictionary.html write %dictionary.html page links: [] parse page [some [thru {<A HREF="} copy temp to {"} (append links temp)] to end] foreach link links [ if not find link "http:" [ print ["Downloading: " link] write to-file link read to-url rejoin ["http://www.rebol.com/docs/" link] ] ] print "" ask "Finished. hit <ENTER> to quit." quit -- ... nice weather eh