[REBOL] A FORMAL REBOL SPECIFICATION Re:(3)

[news . ted]

On 10/1/2000 at 3:24 PM [EMAIL PROTECTED] wrote:
> It should be possible using Rebol's reflection of words to be able to
automatically scan all of system/words, and write a small HTML page for
each
word, that contains basically what 'help and 'source provide. 

Attached is a script Andrew Grossman used to build the Wiki Dictionary
on REBOL.ORG. Like POST.R it seemed to break under later releases. 

-Ted.

#!/home2/husted/www/cgi-bin/rebol -cs
REBOL [
        title:  "dict manypage generator"
        author: "Andrew Grossman"
        date:   12-Sept-99
]
res: read http://www.rebol.com/dictionary.html
res: find/tail res {</CENTER>}
res: find/tail res {</CENTER>}
words: make block! []
output: make string! ""
while [true] [
        either found? res: find/tail res {<CENTER>} [
                parse res [copy wordtable to {<CENTER>} skip to end]
                parse wordtable [skip thru {<B><FONT COLOR="black">} copy word to 
{</FONT>} skip to end]
                parse word [    "**"    (word: copy "starstar") |
                                                "*"     (word: copy "star")            
 |
                                                "/"             (word: copy "slash")   
 |
                                                "+"             (word: copy "plus")    
         |
                                                "-"             (word: copy "minus")   
 |
                                                "&lt;=" (word: copy "lessthanoreq")    
 |
                                                "&lt;"  (word: copy "lessthan") |
                                                "&gt;=" (word: copy "greaterthanoreq") 
 |
                                                "&gt;"  (word: copy "greaterthan")
                                        ]
                op: make string! copy wordtable
                op2: make string! ""
                parse wordtable [copy op to {<P><I>Related} skip to {</TD>} copy op2 
to end]
                write to-file word join {<CENTER>^/} [op op2]
                append words word
;               print word
        ] [break]
]
foreach wrd words [
        append output rejoin [{<a href="wiki-qrd.r?wiki=} wrd {">} wrd {</a> <b>-</b> 
^/}]
]
;for n 1 7 1 [
;    remove at output length? output
;]

output: join {<center><font face="Arial, Helvetica" size=4><b> REBOL.org Wiki and 
Quick-Reference Dictionary</b></font></center>^/<br><br><font face="Arial, Helvetica" 
size=3>} [output {</font>}]
write %index output