diff view
color-dirk2.f color-ed2.f
end of diff view
1. 0 [IF]
2.    Forth to HTML converter
3.  
4.    Written by Brad Eckert
1. 0 [IF]
2.    Forth to HTML converter
3.  
4.    Written by Brad Eckert
5.    Modifications by Dirk Busch
5.    Modifications by Dirk Busch and Ed Beroset
6.  
6.  
7.    Revision 3. See bottom for revision history.
7.    Revision 4. See bottom for revision history.
8.  
9.    This ANS Forth program is public domain. It translates ANS Forth to colorized 
10.    HTML. Hyperlinks to the ANS Forth draft standard are inserted for all ANS 
11.    standard words. Hyperlinks to user definitions are included. 
12.  
13.    Usage: HTML FileName       Generates HTML file from Forth source 
14.                               output file is Filename with .HTM extension 
15.           Q [forth code]      Outputs HTML for 1 line to screen 
16.  
17.    Q is used for debugging. You can use "linenum ?" to show the line number if an 
18.    ABORT occurs. The HTML is about 10 times as big as the Forth source because of 
19.    all the links, color changes and whitespace. 
20.  
21.    INCLUDEd files produce corresponding HTML pages. Most browsers get severely 
22.    bogged down with large files. If you're converting a large Forth program to 
23.    HTML, try to keep the source files under 500 lines each by splitting long
24.    source into multiple INCLUDE files. HTML pages are best viewed with Internet 
25.    Explorer or Netscape 4.7. Netscape 6 is more sluggish with large files.
26.  
27.    When you INCLUDE this file some redefinition complaints will occur. That's
28.    okay since you won't be loading an application on top of this.
29. [THEN]
30.  
31. ONLY FORTH ALSO DEFINITIONS
32.  
33. \ ------------------------------------------------------------------------------
34. \ Configuration:
35.  
36. \ Hyperlink to the original file, or not.
37. \ Output at the TOP of the HTML-File
38.  
39. 1 VALUE LINK-TO-ORG-FILE
40.  
8.  
9.    This ANS Forth program is public domain. It translates ANS Forth to colorized 
10.    HTML. Hyperlinks to the ANS Forth draft standard are inserted for all ANS 
11.    standard words. Hyperlinks to user definitions are included. 
12.  
13.    Usage: HTML FileName       Generates HTML file from Forth source 
14.                               output file is Filename with .HTM extension 
15.           Q [forth code]      Outputs HTML for 1 line to screen 
16.  
17.    Q is used for debugging. You can use "linenum ?" to show the line number if an 
18.    ABORT occurs. The HTML is about 10 times as big as the Forth source because of 
19.    all the links, color changes and whitespace. 
20.  
21.    INCLUDEd files produce corresponding HTML pages. Most browsers get severely 
22.    bogged down with large files. If you're converting a large Forth program to 
23.    HTML, try to keep the source files under 500 lines each by splitting long
24.    source into multiple INCLUDE files. HTML pages are best viewed with Internet 
25.    Explorer or Netscape 4.7. Netscape 6 is more sluggish with large files.
26.  
27.    When you INCLUDE this file some redefinition complaints will occur. That's
28.    okay since you won't be loading an application on top of this.
29. [THEN]
30.  
31. ONLY FORTH ALSO DEFINITIONS
32.  
33. \ ------------------------------------------------------------------------------
34. \ Configuration:
35.  
36. \ Hyperlink to the original file, or not.
37. \ Output at the TOP of the HTML-File
38.  
39. 1 VALUE LINK-TO-ORG-FILE
40.  
41.  
42. \ Copyright string.
43. \ Output at the BOTTOM of the HTML-File
44.  
45. \ create COPYRIGHT ," "
46. create COPYRIGHT ," Copyright  2003-2004 by Dirk Busch"
47.  
48.  
 
49. \ path to the ANS-Files
41. \ path to the ANS-Files
50.  
51. \ create DPANS-PATH ," ./"
52. create DPANS-PATH ," .\win32forth-defs\"
42. CREATE DPANS-PATH ," http://www.tinyboot.com/ANS/"
53.  
54. \ ------------------------------------------------------------------------------
55.  
56.  
57. : [undef] ( <name> -- f ) BL WORD FIND NIP 0= ;
43.  
44. \ ------------------------------------------------------------------------------
45.  
46.  
47. : [undef] ( <name> -- f ) BL WORD FIND NIP 0= ;
 
48. [undef] C+!    [IF] : C+! SWAP OVER C@ + SWAP C! ;                      [THEN]
49. [undef] BOUNDS [IF] : BOUNDS OVER + SWAP ;                              [THEN]
50. [undef] SCAN   [IF] : SCAN
51.    >R
52.    BEGIN DUP WHILE OVER C@ R@ <> WHILE 1 /STRING REPEAT THEN
53.    R> DROP ;                                                              [THEN]
54. [undef] SKIP   [IF] : SKIP  
55.    >R
56.    BEGIN DUP WHILE OVER C@ R@ = WHILE 1 /STRING REPEAT THEN
57.    R> DROP ;                                                              [THEN]
58. [undef] NOOP   [IF] : NOOP ;                                            [THEN]
58.   [undef] +PLACE [IF] : +PLACE 2DUP 2>R COUNT CHARS + SWAP MOVE 2R> C+! ; [THEN]
59.   [undef] PLACE  [IF] : PLACE  0 OVER C! +PLACE ;                         [THEN]
60.   [undef] FDROP  [IF] : FDROP ;                                           [THEN]
61.   [undef] >FLOAT [IF] : >FLOAT DROP C@ [CHAR] 0 [CHAR] 9 1+ WITHIN ;      [THEN]
62.  
63. 0 VALUE outf                                    \ output to file
64. 1 VALUE screen-only                             \ screen is for testing
65. : werr  ABORT" Error writing file" ;
66. : out   screen-only IF type    ELSE outf WRITE-FILE werr THEN ;
67. : outln screen-only IF type cr ELSE outf WRITE-LINE werr THEN ;
68.  
59.   [undef] +PLACE [IF] : +PLACE 2DUP 2>R COUNT CHARS + SWAP MOVE 2R> C+! ; [THEN]
60.   [undef] PLACE  [IF] : PLACE  0 OVER C! +PLACE ;                         [THEN]
61.   [undef] FDROP  [IF] : FDROP ;                                           [THEN]
62.   [undef] >FLOAT [IF] : >FLOAT DROP C@ [CHAR] 0 [CHAR] 9 1+ WITHIN ;      [THEN]
63.  
64. 0 VALUE outf                                    \ output to file
65. 1 VALUE screen-only                             \ screen is for testing
66. : werr  ABORT" Error writing file" ;
67. : out   screen-only IF type    ELSE outf WRITE-FILE werr THEN ;
68. : outln screen-only IF type cr ELSE outf WRITE-LINE werr THEN ;
69.  
 
70. : bang PAD C@ 84 > IF 0 0 C! THEN ;
71. 
69. WORDLIST CONSTANT hyperlinks
70. VARIABLE attrib
71. : /a      ( -- )         attrib @ IF S" </a>" out THEN 0 attrib ! ;
72. : (,$)    ( a len -- )   DUP C, BOUNDS ?DO I C@ C, LOOP ; \ text to dictionary
73. : text    ( <text> -- )  -1 WORD COUNT -TRAILING (,$) ;
74. : line    ( a line# -- ) 0 ?DO COUNT + LOOP COUNT out ;   \ output one string
75. : boiler  ( addr -- )    BEGIN COUNT DUP WHILE 2DUP + >R outln R> REPEAT 2DROP ;
76.  
77. CREATE misctext                                 \ various attribute strings
72. WORDLIST CONSTANT hyperlinks
73. VARIABLE attrib
74. : /a      ( -- )         attrib @ IF S" </a>" out THEN 0 attrib ! ;
75. : (,$)    ( a len -- )   DUP C, BOUNDS ?DO I C@ C, LOOP ; \ text to dictionary
76. : text    ( <text> -- )  -1 WORD COUNT -TRAILING (,$) ;
77. : line    ( a line# -- ) 0 ?DO COUNT + LOOP COUNT out ;   \ output one string
78. : boiler  ( addr -- )    BEGIN COUNT DUP WHILE 2DUP + >R outln R> REPEAT 2DROP ;
79.  
80. CREATE misctext                                 \ various attribute strings
78.    text <a style="text-decoration:none" href=
79.    text <a name="
81.    text <a href="
82.    text <a name="x
83.    text ">
84.    text <a href="#x
80.    text ">
85.    text ">
81.    text <a href="#
82.    text " style="text-decoration:none">
83.    text <font color="#
84.    text <font color="#000000"><center><hr><h1>
85.    text </h1><hr></center>
86.    text <span style="color:#
87.    text <hr /><h1>
88.    text </h1><hr /><pre>
89.    text </span>
86.    text "
90.    text "
87.    text <a href="
 
88.    text </a>
89.    0 c,
90.  
91. VARIABLE color                                  \ current color
92. VARIABLE active-color                           \ active color
91.    text </a>
92.    0 c,
93.  
94. VARIABLE color                                  \ current color
95. VARIABLE active-color                           \ active color
 
96. VARIABLE infont                                 \ within <font> tag
93.  
97.  
94. : fontcolor ( color -- ) \ change font color (only if needed)
95.    dup active-color @ <>
96.    if   dup active-color !
98. : fontcolor ( color -- )                        \ change font color
99.    DUP active-color @ <> IF
100.       DUP active-color !
101.       1 infont !
97.         BASE @ >R
98.         misctext 5 line 0 HEX <# # # # # # # #> out
99.         misctext 2 line
100.         R> BASE !
101.    else drop
102.    then ;
103.  
104. : fcol ( color <name> -- )                       \ define a font color
105.    CREATE , DOES> @ color ! ;
106.  
107. HEX
108. 808080 fcol unknown
109. 008000 fcol commentary
110. CC0000 fcol numeric
111. 990080 fcol values
112. 000000 fcol userwords
113. 009999 fcol userdefiner
114. CC00CC fcol variables
115. 0000FF fcol core_ws
116. 0000FF fcol core_ext_ws
117. 0000FF fcol block_ws
118. 0000FF fcol double_ws
119. 0000FF fcol exception_ws
120. 0000FF fcol facilities_ws
121. 0000FF fcol file_ws
122. 0000FF fcol fp_ws
123. 0000FF fcol local_ws
124. 0000FF fcol malloc_ws
125. 0000FF fcol progtools_ws
126. 0000FF fcol searchord_ws
127. 0000FF fcol string_ws
128. DECIMAL
129.  
130. CREATE begin_header                             \ begin of HTML file part 1
102.         BASE @ >R
103.         misctext 5 line 0 HEX <# # # # # # # #> out
104.         misctext 2 line
105.         R> BASE !
106.    else drop
107.    then ;
108.  
109. : fcol ( color <name> -- )                       \ define a font color
110.    CREATE , DOES> @ color ! ;
111.  
112. HEX
113. 808080 fcol unknown
114. 008000 fcol commentary
115. CC0000 fcol numeric
116. 990080 fcol values
117. 000000 fcol userwords
118. 009999 fcol userdefiner
119. CC00CC fcol variables
120. 0000FF fcol core_ws
121. 0000FF fcol core_ext_ws
122. 0000FF fcol block_ws
123. 0000FF fcol double_ws
124. 0000FF fcol exception_ws
125. 0000FF fcol facilities_ws
126. 0000FF fcol file_ws
127. 0000FF fcol fp_ws
128. 0000FF fcol local_ws
129. 0000FF fcol malloc_ws
130. 0000FF fcol progtools_ws
131. 0000FF fcol searchord_ws
132. 0000FF fcol string_ws
133. DECIMAL
134.  
135. CREATE begin_header                             \ begin of HTML file part 1
131.    text <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
132.    text <html><head>
133.    text <meta http-equiv="Content-Type" content="text/html;">
134.    text <meta name="GENERATOR" content="Forth2HTML 0.3">
136.    text <?xml version="1.0"?>
137.    text <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
138.    text     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
139.    text <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> 
140.    text <head>
141.    text <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" />
142.    text <meta name="GENERATOR" content="Forth2HTML 0.4" />
143.    text <style type="text/css">
144.    text body {background: #FFFFEE; }
145.    text h1 {color: #000000;}
146.    text p {font-family: monospace;}
147.    text a {text-decoration:none;}
148.    text </style>
135.    text <title>
136.    0 C,
137.  
138. \ body defaults: the most common link color (blue) is made the default color
139. \ the most common plain text color (green) is made default.
140.  
141. CREATE mid_header                               \ begin of HTML file part 2
142.    text </title></head>
149.    text <title>
150.    0 C,
151.  
152. \ body defaults: the most common link color (blue) is made the default color
153. \ the most common plain text color (green) is made default.
154.  
155. CREATE mid_header                               \ begin of HTML file part 2
156.    text </title></head>
143.    text <body bgcolor="#FFFFEE" link="0000FF" vlink="0000FF" alink="0000FF">
144.    text <pre><p>
157.    text <body>
158.    0 C,
159. 
160. CREATE end_header                               \ end of HTML file
161.    text </pre></body>
162.    text </html>
145.    0 C,
146.  
147. HEX
148. : setcolor ( -- )                               \ select next color
149.    attrib @ 1 = color @ 0000FF = AND 0=         \ blue link: don't color
150.    IF color @ fontcolor THEN ;
151. DECIMAL
152.  
163.    0 C,
164.  
165. HEX
166. : setcolor ( -- )                               \ select next color
167.    attrib @ 1 = color @ 0000FF = AND 0=         \ blue link: don't color
168.    IF color @ fontcolor THEN ;
169. DECIMAL
170.  
 
171. : closefont ( -- )
172.    /a 
173.    infont @ IF 
174.    misctext 8 line 0 infont ! THEN ;
175.     
176. 
153. : outh    ( a n -- )                            \ HTMLized text output
154.    BOUNDS ?DO I C@ CASE
155.       [CHAR] & OF S" &amp;"  out ENDOF
156.       [CHAR] < OF S" &lt;"   out ENDOF
157.       [CHAR] > OF S" &gt;"   out ENDOF
158.       [CHAR] " OF S" &quot;" out ENDOF
177. : outh    ( a n -- )                            \ HTMLized text output
178.    BOUNDS ?DO I C@ CASE
179.       [CHAR] & OF S" &amp;"  out ENDOF
180.       [CHAR] < OF S" &lt;"   out ENDOF
181.       [CHAR] > OF S" &gt;"   out ENDOF
182.       [CHAR] " OF S" &quot;" out ENDOF
159.       [CHAR]  OF S" &copy;" out ENDOF
 
160.       I 1 out
161.    ENDCASE LOOP ;
162.  
183.       I 1 out
184.    ENDCASE LOOP ;
185.  
163. CREATE end_header_part1                         \ end of HTML file part 1
164.    text </p></pre>
165.    text <center><hr>
166.    text <font color="#000000">
167.    0 C,
168.  
169. CREATE end_header_part2                         \ end of HTML file part 2
170.    text </center>
171.    text </body></html>
172.    0 C,
173.  
174. : end_header ( -- )                             \ output end of HTML file
175.   end_header_part1 boiler
176.   COPYRIGHT count ?dup if outh else drop then
177.   end_header_part2 boiler ;
186. : outhattr  ( a n -- )                            \ HTMLized text output
187.    BOUNDS ?DO I C@ CASE
188.       [CHAR] & OF S" amp"  out ENDOF
189.       [CHAR] < OF S" lt"   out ENDOF
190.       [CHAR] > OF S" gt"   out ENDOF
191.       [CHAR] " OF S" quot" out ENDOF
192.       [CHAR] + OF S" plus" out ENDOF
193.       [CHAR] ! OF S" bang" out ENDOF
194.       [CHAR] / OF S" slash" out ENDOF
195.       [CHAR] \ OF S" backslash" out ENDOF
196.       [CHAR] ' OF S" apos" out ENDOF
197.       [CHAR] = OF S" equal" out ENDOF
198.       [CHAR] - OF S" dash" out ENDOF
199.       [CHAR] @ OF S" at" out ENDOF
200.       [CHAR] ; OF S" semi" out ENDOF
201.       [CHAR] * OF S" star" out ENDOF
202.       [CHAR] ? OF S" question" out ENDOF
203.       [CHAR] ~ OF S" tilde" out ENDOF
204.       [CHAR] # OF S" pound" out ENDOF
205.       [CHAR] , OF S" comma" out ENDOF
206.       [CHAR] $ OF S" dollar" out ENDOF
207.       [CHAR] | OF S" bar" out ENDOF
208.       [CHAR] [ OF S" leftbracket" out ENDOF
209.       [CHAR] ( OF S" leftparen" out ENDOF
210.       [CHAR] { OF S" leftbrace" out ENDOF
211.       [CHAR] ] OF S" rightbracket" out ENDOF
212.       [CHAR] ) OF S" rightparen" out ENDOF
213.       [CHAR] } OF S" rightbrace" out ENDOF
214.       BL       OF S" _"    out ENDOF
215.       I 1 out   
216.    ENDCASE LOOP ;
178.  
179. : label  ( addr len -- ) /a                     \ associate a label with a word
217.  
218. : label  ( addr len -- ) /a                     \ associate a label with a word
180.    misctext 1 line outh
219.    misctext 1 line outhattr
181.    misctext 2 line 1 attrib ! ;
182.  
183. : "out   ( -- )                                 \ output a "
220.    misctext 2 line 1 attrib ! ;
221.  
222. : "out   ( -- )                                 \ output a "
184.    misctext 8 line
185. ;
223.    misctext 9 line ;
186.  
224.  
187. : new-line ( -- )                               \ start a new line (December 30th, 2003 - dbu)
188.     S" " outln
189. \    13 here dup>r C! 10 r@ char+ C! r> 2 out
190. ;
225. : new-line ( -- )                               \ start a new line 
226.     S" " outln ;
191.  
192. : std    ( word color <string> -- )
193.    CREATE ' , ' , BL WORD COUNT (,$)
194.    DOES> /a DUP >R  2 CELLS +
195.    misctext 0 line                              \ begin hyperlink
196.    BASE @ >R DECIMAL
197.    COUNT 0 0 2OVER >NUMBER 2DROP D>S
198.    R> BASE !
227.  
228. : std    ( word color <string> -- )
229.    CREATE ' , ' , BL WORD COUNT (,$)
230.    DOES> /a DUP >R  2 CELLS +
231.    misctext 0 line                              \ begin hyperlink
232.    BASE @ >R DECIMAL
233.    COUNT 0 0 2OVER >NUMBER 2DROP D>S
234.    R> BASE !
199.    "out DPANS-PATH count out \ write path to ANS-Files (December 30th, 2003 - dbu)
235.    DPANS-PATH COUNT out                         \ write path to ANS files
200.    CASE                               \ choose file name
201.        6 OF S" dpans6.htm#"  out ENDOF
202.        7 OF S" dpans7.htm#"  out ENDOF
203.        8 OF S" dpans8.htm#"  out ENDOF
204.        9 OF S" dpans9.htm#"  out ENDOF
205.       10 OF S" dpans10.htm#" out ENDOF
206.       11 OF S" dpans11.htm#" out ENDOF
207.       12 OF S" dpans12.htm#" out ENDOF
208.       13 OF S" dpans13.htm#" out ENDOF
209.       14 OF S" dpans14.htm#" out ENDOF
210.       15 OF S" dpans15.htm#" out ENDOF
211.       16 OF S" dpans16.htm#" out ENDOF
212.       17 OF S" dpans17.htm#" out ENDOF
213.       ABORT" Undefined source file"
236.    CASE                               \ choose file name
237.        6 OF S" dpans6.htm#"  out ENDOF
238.        7 OF S" dpans7.htm#"  out ENDOF
239.        8 OF S" dpans8.htm#"  out ENDOF
240.        9 OF S" dpans9.htm#"  out ENDOF
241.       10 OF S" dpans10.htm#" out ENDOF
242.       11 OF S" dpans11.htm#" out ENDOF
243.       12 OF S" dpans12.htm#" out ENDOF
244.       13 OF S" dpans13.htm#" out ENDOF
245.       14 OF S" dpans14.htm#" out ENDOF
246.       15 OF S" dpans15.htm#" out ENDOF
247.       16 OF S" dpans16.htm#" out ENDOF
248.       17 OF S" dpans17.htm#" out ENDOF
249.       ABORT" Undefined source file"
214.    ENDCASE  out "out s" >" out
250.    ENDCASE  out misctext 2 line
215.    1 attrib !
216.    R> 2@ SWAP EXECUTE EXECUTE ;                 \ extra attributes
217.  
218. : genHTML ( -- )                                \ generate pending HTML
251.    1 attrib !
252.    R> 2@ SWAP EXECUTE EXECUTE ;                 \ extra attributes
253.  
254. : genHTML ( -- )                                \ generate pending HTML
219.    PAD COUNT DUP IF setcolor THEN outh /a  0 PAD ! ;
255.    PAD COUNT DUP IF setcolor THEN outh closefont 0 PAD ! ;
256. 
257. : genHTML2 ( -- )                                \ generate pending HTML
258.    PAD COUNT DUP IF setcolor THEN outh closefont 0 PAD ! ;
220.  
221. : isnumber? ( addr len -- f )                   \ string converts to number?
222.    0 0 2SWAP >NUMBER NIP NIP NIP 0= ;
223.  
224. : hparse ( a len char -- a' len' )
225.    >R 2DUP R@ SKIP R> SCAN BL SCAN
226.    2SWAP 2 PICK - PAD +PLACE ;
227.  
259.  
260. : isnumber? ( addr len -- f )                   \ string converts to number?
261.    0 0 2SWAP >NUMBER NIP NIP NIP 0= ;
262.  
263. : hparse ( a len char -- a' len' )
264.    >R 2DUP R@ SKIP R> SCAN BL SCAN
265.    2SWAP 2 PICK - PAD +PLACE ;
266.  
228. \ size for XPAD and EPAD increased to avoid crashes in
229. \ files with long lines December 30th, 2003 - dbu
 
230. CREATE XPAD 1024 CHARS ALLOT                     \ temporary pad for word storage
231. CREATE EPAD 1024 CHARS ALLOT                     \ temporary pad for evaluation
232.  
233. : >XPAD ( -- ) PAD COUNT BL SKIP XPAD PLACE ;   \ move to temporary pad
234.  
235. : hint  ( addr len -- )                         \ interpret one line...
236.    BEGIN
237.       0 PAD !  BL hparse PAD C@
238.    WHILE unknown                                \ default color
239.       >XPAD XPAD COUNT hyperlinks SEARCH-WORDLIST \ got a hyperlink for this?
240.       IF DEPTH >R EXECUTE
241.          R> DEPTH <> ABORT" stack depth change in HTML generator"
242.       ELSE
243.          XPAD COUNT BASE @ 10 = IF
244.             >FLOAT IF FDROP numeric THEN        \ valid float or integer
245.          ELSE
246.             isnumber? IF numeric THEN
247.          THEN
248.       THEN genHTML
249.    REPEAT 2DROP
267. CREATE XPAD 1024 CHARS ALLOT                     \ temporary pad for word storage
268. CREATE EPAD 1024 CHARS ALLOT                     \ temporary pad for evaluation
269.  
270. : >XPAD ( -- ) PAD COUNT BL SKIP XPAD PLACE ;   \ move to temporary pad
271.  
272. : hint  ( addr len -- )                         \ interpret one line...
273.    BEGIN
274.       0 PAD !  BL hparse PAD C@
275.    WHILE unknown                                \ default color
276.       >XPAD XPAD COUNT hyperlinks SEARCH-WORDLIST \ got a hyperlink for this?
277.       IF DEPTH >R EXECUTE
278.          R> DEPTH <> ABORT" stack depth change in HTML generator"
279.       ELSE
280.          XPAD COUNT BASE @ 10 = IF
281.             >FLOAT IF FDROP numeric THEN        \ valid float or integer
282.          ELSE
283.             isnumber? IF numeric THEN
284.          THEN
285.       THEN genHTML
286.    REPEAT 2DROP
250.    new-line ;                             \ new line
287.    new-line ;
251.  
252. CREATE inbuf 260 CHARS ALLOT
253. CREATE fn    128 CHARS ALLOT                    \ file name
254. CREATE fn1   128 CHARS ALLOT                    \ file name backup
255. CREATE pstr  128 CHARS ALLOT                    \ parsed string storage
256. CREATE uname  64 CHARS ALLOT                    \ : definition name
257. 0 VALUE inf
258. VARIABLE nufile                                 \ T if nesting a file
259. VARIABLE utype                                  \ type of defined word
260. VARIABLE hstate
261. VARIABLE linenum
262. VARIABLE special                                \ special action, 0=none
263.  
264. : ofn   ( -- addr len )                         \ output file name
265.    fn COUNT 2DUP [CHAR] . SCAN NIP - EPAD PLACE
266.    S" .htm" EPAD +PLACE   EPAD COUNT ;
267.  
288.  
289. CREATE inbuf 260 CHARS ALLOT
290. CREATE fn    128 CHARS ALLOT                    \ file name
291. CREATE fn1   128 CHARS ALLOT                    \ file name backup
292. CREATE pstr  128 CHARS ALLOT                    \ parsed string storage
293. CREATE uname  64 CHARS ALLOT                    \ : definition name
294. 0 VALUE inf
295. VARIABLE nufile                                 \ T if nesting a file
296. VARIABLE utype                                  \ type of defined word
297. VARIABLE hstate
298. VARIABLE linenum
299. VARIABLE special                                \ special action, 0=none
300.  
301. : ofn   ( -- addr len )                         \ output file name
302.    fn COUNT 2DUP [CHAR] . SCAN NIP - EPAD PLACE
303.    S" .htm" EPAD +PLACE   EPAD COUNT ;
304.  
 
305. ( TODO: fix the pad overrun in defx! )
268. : hcreate ( addr len -- )
269.    S" CREATE " EPAD PLACE  EPAD +PLACE
270.    GET-CURRENT >R hyperlinks SET-CURRENT
271.    EPAD COUNT EVALUATE    R> SET-CURRENT ;      \ create a hyperlink generator
272.  
273. \ The user defined words use the following data structure:
274. \ CELL   xt of coloring word
275. \ STRING name of reference word
276. \ STRING name of file
277.  
278. : deflink ( addr -- )                           \ make hyperlink from data structure
279.    DUP @ EXECUTE CELL+                          \ set color
280.    DUP COUNT + COUNT ofn COMPARE                \ in an external file?
281.    IF   misctext 0 line DUP COUNT + COUNT out   \ yes, put file name
282.         S" #" out COUNT outh S" >" out
306. : hcreate ( addr len -- )
307.    S" CREATE " EPAD PLACE  EPAD +PLACE
308.    GET-CURRENT >R hyperlinks SET-CURRENT
309.    EPAD COUNT EVALUATE    R> SET-CURRENT ;      \ create a hyperlink generator
310.  
311. \ The user defined words use the following data structure:
312. \ CELL   xt of coloring word
313. \ STRING name of reference word
314. \ STRING name of file
315.  
316. : deflink ( addr -- )                           \ make hyperlink from data structure
317.    DUP @ EXECUTE CELL+                          \ set color
318.    DUP COUNT + COUNT ofn COMPARE                \ in an external file?
319.    IF   misctext 0 line DUP COUNT + COUNT out   \ yes, put file name
320.         S" #" out COUNT outh S" >" out
283.    ELSE misctext 3 line COUNT outh              \ no, just use the name
321.    ELSE misctext 3 line COUNT outhattr          \ no, just use the name
284.         misctext 4 line
285.    THEN 1 attrib ! ;
286.  
287. : defx  ( a len xt -- a' len' )
288.    >R genHTML BL hparse >XPAD                   \ output defining word
289.    XPAD COUNT 2DUP hcreate R> , (,$) ofn (,$)
290.    DOES> deflink ;
291.  
322.         misctext 4 line
323.    THEN 1 attrib ! ;
324.  
325. : defx  ( a len xt -- a' len' )
326.    >R genHTML BL hparse >XPAD                   \ output defining word
327.    XPAD COUNT 2DUP hcreate R> , (,$) ofn (,$)
328.    DOES> deflink ;
329.  
292. : labelnow   genHTML XPAD COUNT label ;
330. : labelnow   genHTML2 XPAD COUNT 2DUP label S"  " outh outh ;
293. : defdat ['] numeric   defx numeric   labelnow ;
294. : defvar ['] variables defx variables labelnow ;
295. : defusr ['] userwords defx userwords labelnow ;
296. : defval ['] values    defx values    labelnow ;
297. : defdef ['] userdefiner defx userdefiner labelnow ;
298.  
299. : hstate=0 ( -- )             0 hstate ! ;
300. : hstate=1 ( -- )             1 hstate ! ;
301. : spec=zero ( -- )            1 special ! ;
302. : skip)  ( a len -- a' len' ) [CHAR] ) hparse ;
303. : skip}  ( a len -- a' len' ) [CHAR] } hparse ;
304. : skipw  ( a len -- a' len' ) BL hparse ;
305. : skipc  ( a len -- a len )   hstate @ 0= IF numeric skipw THEN ;
306. : skip"  ( a len -- a' len' )                   \ copy string to pstr
307.    genHTML [CHAR] " hparse PAD COUNT 1- pstr PLACE ;
308.  
309. \ ------------------------------------------------------------------------------
310. \ ":" definitions might be defining words, so they can't be assumed to be defusr
311. \ types. ":" makes a label and saves the name for later use by ";" which makes
312. \ a hyperlink or a hyperlink defining word.
313.  
314. :NONAME                                         \ normal : definition
315.    uname COUNT ['] userwords defx 2DROP  0 PAD !
316. ; CONSTANT normal_def
317.  
318. :NONAME
319.    uname COUNT 2DUP hcreate ['] userwords , (,$) ofn (,$)
320.    DOES> deflink defdef
321. ; CONSTANT defining_def
322.  
323. : defunk ( a len -- a' len' )                   \ starting unknown definition
324.    hstate=1  normal_def utype !                 \ save name of : definition
325.    genHTML skipw userwords PAD COUNT BL SKIP 2DUP uname PLACE label ;
326.  
327. : resunk ( -- )                                 \ resolve unknown defined word
331. : defdat ['] numeric   defx numeric   labelnow ;
332. : defvar ['] variables defx variables labelnow ;
333. : defusr ['] userwords defx userwords labelnow ;
334. : defval ['] values    defx values    labelnow ;
335. : defdef ['] userdefiner defx userdefiner labelnow ;
336.  
337. : hstate=0 ( -- )             0 hstate ! ;
338. : hstate=1 ( -- )             1 hstate ! ;
339. : spec=zero ( -- )            1 special ! ;
340. : skip)  ( a len -- a' len' ) [CHAR] ) hparse ;
341. : skip}  ( a len -- a' len' ) [CHAR] } hparse ;
342. : skipw  ( a len -- a' len' ) BL hparse ;
343. : skipc  ( a len -- a len )   hstate @ 0= IF numeric skipw THEN ;
344. : skip"  ( a len -- a' len' )                   \ copy string to pstr
345.    genHTML [CHAR] " hparse PAD COUNT 1- pstr PLACE ;
346.  
347. \ ------------------------------------------------------------------------------
348. \ ":" definitions might be defining words, so they can't be assumed to be defusr
349. \ types. ":" makes a label and saves the name for later use by ";" which makes
350. \ a hyperlink or a hyperlink defining word.
351.  
352. :NONAME                                         \ normal : definition
353.    uname COUNT ['] userwords defx 2DROP  0 PAD !
354. ; CONSTANT normal_def
355.  
356. :NONAME
357.    uname COUNT 2DUP hcreate ['] userwords , (,$) ofn (,$)
358.    DOES> deflink defdef
359. ; CONSTANT defining_def
360.  
361. : defunk ( a len -- a' len' )                   \ starting unknown definition
362.    hstate=1  normal_def utype !                 \ save name of : definition
363.    genHTML skipw userwords PAD COUNT BL SKIP 2DUP uname PLACE label ;
364.  
365. : resunk ( -- )                                 \ resolve unknown defined word
328.    genHTML utype @ EXECUTE
329.    hstate=0                                     \ ; cleanup
330.    GET-ORDER hyperlinks 1 SET-ORDER
331.    S" L#O#C#A#L" EVALUATE                       \ forget locals
332.    SET-ORDER ;
366.    genHTML utype @ EXECUTE hstate=0 ;
333.  
334. : created ( -- ) hstate @
335.    IF   defining_def utype !                    \ make ; create a defining word
336.    ELSE defdat                                  \ not compiling
337.    THEN ;
338.  
339. \ ------------------------------------------------------------------------------
340.  
367.  
368. : created ( -- ) hstate @
369.    IF   defining_def utype !                    \ make ; create a defining word
370.    ELSE defdat                                  \ not compiling
371.    THEN ;
372.  
373. \ ------------------------------------------------------------------------------
374.  
341. : header_out  ( addr len -- )                   \ output big header text
375. : header  ( addr len -- )                       \ output big header text
342.    misctext 6 line
376.    misctext 6 line
343.  
344.    LINK-TO-ORG-FILE
345.    IF   misctext 9 line 2dup outln misctext 2 line
377.    LINK-TO-ORG-FILE IF
378.       misctext 0 line 2dup out misctext 2 line
346.         outln  misctext 10 line
347.    ELSE out
379.         outln  misctext 10 line
380.    ELSE out
348.  
 
349.    THEN misctext 7 line ;
350.  
351. : _incfil ( addr -- )                           \ trigger file nesting
352.    fn COUNT fn1 PLACE COUNT BL SKIP fn place 1 nufile ! ;
353.  
354. : incfile ( a len -- a' len' )                  \ include a file
355.    genHTML skipw PAD _incfil ;
356.  
357. : "incfil ( a len -- a' len' )                  \ include file from S" filename"
358.    skipw pstr _incfil ;
359.  
360. : hfill  ( -- len )                             \ read next line of file
361.    inbuf 256 inf READ-LINE ABORT" Error reading file"
362.    1 linenum +! ;
363.  
364. : open  ( -- ) cr ." Reading " fn COUNT type ."  at line " linenum @ .
365.    1 linenum !
366.    fn COUNT R/O OPEN-FILE ABORT" Error opening source file" to inf ;
367.  
368. : close  ( -- ) cr ." closing " fn COUNT type
369.    inf CLOSE-FILE ABORT" Error closing file" ;
370.  
371. : oopen  ( -- )
372.    ofn W/O CREATE-FILE ABORT" Error creating file" to outf
373.    begin_header boiler                          \ begin boilerplate
374.    fn COUNT outln  mid_header boiler            \ title and end boilerplate
381.    THEN misctext 7 line ;
382.  
383. : _incfil ( addr -- )                           \ trigger file nesting
384.    fn COUNT fn1 PLACE COUNT BL SKIP fn place 1 nufile ! ;
385.  
386. : incfile ( a len -- a' len' )                  \ include a file
387.    genHTML skipw PAD _incfil ;
388.  
389. : "incfil ( a len -- a' len' )                  \ include file from S" filename"
390.    skipw pstr _incfil ;
391.  
392. : hfill  ( -- len )                             \ read next line of file
393.    inbuf 256 inf READ-LINE ABORT" Error reading file"
394.    1 linenum +! ;
395.  
396. : open  ( -- ) cr ." Reading " fn COUNT type ."  at line " linenum @ .
397.    1 linenum !
398.    fn COUNT R/O OPEN-FILE ABORT" Error opening source file" to inf ;
399.  
400. : close  ( -- ) cr ." closing " fn COUNT type
401.    inf CLOSE-FILE ABORT" Error closing file" ;
402.  
403. : oopen  ( -- )
404.    ofn W/O CREATE-FILE ABORT" Error creating file" to outf
405.    begin_header boiler                          \ begin boilerplate
406.    fn COUNT outln  mid_header boiler            \ title and end boilerplate
375.    fn COUNT header_out ;
407.    fn COUNT header ;
376.  
377. : HTML  ( <infile> -- )
408.  
409. : HTML  ( <infile> -- )
378.    0 TO screen-only  0 nufile ! 1 linenum !     \ force usage of file
379.    -1 active-color !                            \ there's no active color yet
380. \ 1 TO screen-only
410.    0 TO screen-only  0 nufile !                 \ force usage of file
411.    1 linenum ! -1 active-color !
381.    BL WORD COUNT fn PLACE open oopen            \ open input and output files
382.    -1 DUP >R outf >R                            \ file nest uses stacks
383.    hstate=0
384.    BEGIN
385.       BEGIN 0 special !                         \ process line
386.          nufile @                               \ nest a file?
387.          IF   inf outf
388.               open oopen  outf >R               \ open new files
389.               0 nufile !
390.          THEN hfill
391.       WHILE inbuf SWAP hint
392.       REPEAT DROP
393.       close fn1 COUNT fn PLACE                  \ restore file name
394.       DUP -1 <>
395.       IF   TO outf TO inf FALSE                 \ unnest files
396.       ELSE TRUE
397.       THEN
398.    UNTIL DROP
399.    BEGIN R> DUP -1 <>                           \ close all output files
412.    BL WORD COUNT fn PLACE open oopen            \ open input and output files
413.    -1 DUP >R outf >R                            \ file nest uses stacks
414.    hstate=0
415.    BEGIN
416.       BEGIN 0 special !                         \ process line
417.          nufile @                               \ nest a file?
418.          IF   inf outf
419.               open oopen  outf >R               \ open new files
420.               0 nufile !
421.          THEN hfill
422.       WHILE inbuf SWAP hint
423.       REPEAT DROP
424.       close fn1 COUNT fn PLACE                  \ restore file name
425.       DUP -1 <>
426.       IF   TO outf TO inf FALSE                 \ unnest files
427.       ELSE TRUE
428.       THEN
429.    UNTIL DROP
430.    BEGIN R> DUP -1 <>                           \ close all output files
400.    WHILE end_header                             \ finish up HTML
431.    WHILE end_header boiler                      \ finish up HTML
401.       close-file ABORT" Error closing file"
402.    REPEAT DROP ;
403.  
404. : q  ( -- ) 1 TO screen-only                    \ single line test
405.    -1 word count inbuf place inbuf count hint ;
406.  
407. \ 0 [IF] is often used as a comment. If it is used as a comment, scan the file
408. \ for a [THEN]. [THEN] must be on the next line or beyond.
409.  
410. : upp ( an--) BOUNDS ?DO I C@ [CHAR] a > IF I C@ 32 - I C! THEN LOOP \ uppercase
411. ;
412.  
413. : bigif  ( a len -- a len )  special @ 1 =
432.       close-file ABORT" Error closing file"
433.    REPEAT DROP ;
434.  
435. : q  ( -- ) 1 TO screen-only                    \ single line test
436.    -1 word count inbuf place inbuf count hint ;
437.  
438. \ 0 [IF] is often used as a comment. If it is used as a comment, scan the file
439. \ for a [THEN]. [THEN] must be on the next line or beyond.
440.  
441. : upp ( an--) BOUNDS ?DO I C@ [CHAR] a > IF I C@ 32 - I C! THEN LOOP \ uppercase
442. ;
443.  
444. : bigif  ( a len -- a len )  special @ 1 =
414.    IF    genHTML commentary setcolor outh       \ finish up this line
445.    IF    genHTML commentary setcolor outh \ closefont  \ finish up this line
415.       BEGIN hfill      new-line
416.       WHILE >R inbuf EPAD R@ MOVE
417.          EPAD R@ upp                            \ uppercase for search
418.          EPAD R@ S" [THEN]" SEARCH
419.          IF   DROP EPAD - inbuf OVER PAD PLACE  \ before [THEN] is comment
420.               genHTML
421.               inbuf R> ROT /STRING EXIT
422.          ELSE 2DROP inbuf R> outh               \ whole line is comment
423.          THEN
424.       REPEAT DROP -1 ABORT" Missing [THEN]"
425.    THEN ;
426.  
427. : _local  ( a len -- a len )                    \ define locals to |
428.    genHTML
429.    S" MARKER L#O#C#A#L" EVALUATE                \ start a list of locals
430.    BEGIN
431.       BEGIN 2DUP BL hparse 2DROP
432.             PAD COUNT BL SKIP  DUP              \ inputstring wordstring .
433.       WHILE S" |" COMPARE  0 PAD !
434.          IF   defval
435.          ELSE local_ws EXIT
436.          THEN
437.       REPEAT 2DROP 2DROP
438.       hfill 0= ABORT" Missing | in locals list"
439.       inbuf SWAP  S"  " outln
440.    AGAIN ;
441.  
442. \ handle multi-line comments
443. \ (( )) and comment: comment; are often used as multi-line comments in win32forth.
444. \ )) or comment; must be on the next line or beyond.
445. variable mlc-stop
446.  
447. : (mlc) ( a -- )
448.       mlc-stop !
449.       commentary setcolor genHTML outh       \ finish up this line
450.       BEGIN hfill    new-line
451.       WHILE >R inbuf EPAD R@ MOVE
452.          EPAD R@ upp                            \ uppercase for search
453.          EPAD R@ mlc-stop @ count SEARCH
454.          IF   DROP mlc-stop @ count nip + EPAD - inbuf OVER PAD PLACE  \ before )) and )) is comment
455.               genHTML
456.               inbuf R> ROT /STRING EXIT
457.          ELSE 2DROP inbuf R> outh               \ whole line is comment
458.          THEN
459.       REPEAT DROP ." Missing " mlc-stop @ count type ABORT
460. ;
461.  
462. : mlc ( <string> -- ) \ handle a multi line comment
463.    CREATE BL WORD COUNT (,$)
464.    DOES>  (mlc) ;
465.  
466. \ =============================================================================
467.  
468. : _DEFINITIONS DEFINITIONS ;
469.  
470. hyperlinks SET-CURRENT
471. \ The following words are not in the ANS standard but are very common.
446.       BEGIN hfill      new-line
447.       WHILE >R inbuf EPAD R@ MOVE
448.          EPAD R@ upp                            \ uppercase for search
449.          EPAD R@ S" [THEN]" SEARCH
450.          IF   DROP EPAD - inbuf OVER PAD PLACE  \ before [THEN] is comment
451.               genHTML
452.               inbuf R> ROT /STRING EXIT
453.          ELSE 2DROP inbuf R> outh               \ whole line is comment
454.          THEN
455.       REPEAT DROP -1 ABORT" Missing [THEN]"
456.    THEN ;
457.  
458. : _local  ( a len -- a len )                    \ define locals to |
459.    genHTML
460.    S" MARKER L#O#C#A#L" EVALUATE                \ start a list of locals
461.    BEGIN
462.       BEGIN 2DUP BL hparse 2DROP
463.             PAD COUNT BL SKIP  DUP              \ inputstring wordstring .
464.       WHILE S" |" COMPARE  0 PAD !
465.          IF   defval
466.          ELSE local_ws EXIT
467.          THEN
468.       REPEAT 2DROP 2DROP
469.       hfill 0= ABORT" Missing | in locals list"
470.       inbuf SWAP  S"  " outln
471.    AGAIN ;
472.  
473. \ handle multi-line comments
474. \ (( )) and comment: comment; are often used as multi-line comments in win32forth.
475. \ )) or comment; must be on the next line or beyond.
476. variable mlc-stop
477.  
478. : (mlc) ( a -- )
479.       mlc-stop !
480.       commentary setcolor genHTML outh       \ finish up this line
481.       BEGIN hfill    new-line
482.       WHILE >R inbuf EPAD R@ MOVE
483.          EPAD R@ upp                            \ uppercase for search
484.          EPAD R@ mlc-stop @ count SEARCH
485.          IF   DROP mlc-stop @ count nip + EPAD - inbuf OVER PAD PLACE  \ before )) and )) is comment
486.               genHTML
487.               inbuf R> ROT /STRING EXIT
488.          ELSE 2DROP inbuf R> outh               \ whole line is comment
489.          THEN
490.       REPEAT DROP ." Missing " mlc-stop @ count type ABORT
491. ;
492.  
493. : mlc ( <string> -- ) \ handle a multi line comment
494.    CREATE BL WORD COUNT (,$)
495.    DOES>  (mlc) ;
496.  
497. \ =============================================================================
498.  
499. : _DEFINITIONS DEFINITIONS ;
500.  
501. hyperlinks SET-CURRENT
502. \ The following words are not in the ANS standard but are very common.
472. : L#O#C#A#L ;
 
473. : VOCABULARY    defusr ;
474. : DEFER         defusr ;
475. : INCLUDE       hstate @ 0= IF incfile THEN ;
476. : FLOAD         hstate @ 0= IF incfile THEN ;
477. : BINARY        2 BASE ! ;
478. : OCTAL         8 BASE ! ;
479. : 0             numeric spec=zero ;
480. : 1             numeric  ;
481. : -1            numeric  ;
482.  
483. \ The following words are not in the ANS standard but are used in Win32Forth
503. : VOCABULARY    defusr ;
504. : DEFER         defusr ;
505. : INCLUDE       hstate @ 0= IF incfile THEN ;
506. : FLOAD         hstate @ 0= IF incfile THEN ;
507. : BINARY        2 BASE ! ;
508. : OCTAL         8 BASE ! ;
509. : 0             numeric spec=zero ;
510. : 1             numeric  ;
511. : -1            numeric  ;
512.  
513. \ The following words are not in the ANS standard but are used in Win32Forth
484. \ December 31st, 2003 - dbu
 
485. : ANEW          skipw ;
486. : {             commentary genHTML skip} ;
487. : CallBack:     defunk ;
488. : :M            defunk ;
489. : ;M            resunk ;
490. mlc ((          ))
491. mlc COMMENT:    COMMENT;
514. : ANEW          skipw ;
515. : {             commentary genHTML skip} ;
516. : CallBack:     defunk ;
517. : :M            defunk ;
518. : ;M            resunk ;
519. mlc ((          ))
520. mlc COMMENT:    COMMENT;
492.  
521. : L#O#C#A#L ;
493.  
494. \ The rest is ANS Forth standard
495.  
496. : \             commentary genHTML PAD PLACE  PAD 0 ;
497.  
498. (   NAME                ACTION  COLOR           REFERENCE   )
499. (   ------------------  ------  --------------  ----------- )
500. std !                   NOOP    core_ws         6.1.0010
501. std #                   NOOP    core_ws         6.1.0030
502. std #>                  NOOP    core_ws         6.1.0040
503. std #S                  NOOP    core_ws         6.1.0050
504. std '                   NOOP    core_ws         6.1.0070
505. std (                   skip)   commentary      6.1.0080
506. std *                   NOOP    core_ws         6.1.0090
507. std */                  NOOP    core_ws         6.1.0100
508. std */MOD               NOOP    core_ws         6.1.0110
509. std +                   NOOP    core_ws         6.1.0120
510. std +!                  NOOP    core_ws         6.1.0130
511. std +LOOP               NOOP    core_ws         6.1.0140
512. std ,                   NOOP    core_ws         6.1.0150
513. std -                   NOOP    core_ws         6.1.0160
514. std .                   NOOP    core_ws         6.1.0180
515. std ."                  skip"   numeric         6.1.0190
516. std /                   NOOP    core_ws         6.1.0230
517. std /MOD                NOOP    core_ws         6.1.0240
518. std 0<                  NOOP    core_ws         6.1.0250
519. std 0=                  NOOP    core_ws         6.1.0270
520. std 1+                  NOOP    core_ws         6.1.0290
521. std 1-                  NOOP    core_ws         6.1.0300
522. std 2!                  NOOP    core_ws         6.1.0310
523. std 2*                  NOOP    core_ws         6.1.0320
524. std 2/                  NOOP    core_ws         6.1.0330
525. std 2@                  NOOP    core_ws         6.1.0350
526. std 2DROP               NOOP    core_ws         6.1.0370
527. std 2DUP                NOOP    core_ws         6.1.0380
528. std 2OVER               NOOP    core_ws         6.1.0400
529. std 2SWAP               NOOP    core_ws         6.1.0430
530. std :                   defunk  core_ws         6.1.0450
531. std ;                   resunk  core_ws         6.1.0460
532. std <                   NOOP    core_ws         6.1.0480
533. std <#                  NOOP    core_ws         6.1.0490
534. std =                   NOOP    core_ws         6.1.0530
535. std >                   NOOP    core_ws         6.1.0540
536. std >BODY               NOOP    core_ws         6.1.0550
537. std >IN                 NOOP    core_ws         6.1.0560
538. std >NUMBER             NOOP    core_ws         6.1.0570
539. std >R                  NOOP    core_ws         6.1.0580
540. std ?DUP                NOOP    core_ws         6.1.0630
541. std @                   NOOP    core_ws         6.1.0650
542. std ABORT               NOOP    core_ws         6.1.0670
543. std ABORT"              skip"   numeric         6.1.0680
544. std ABS                 NOOP    core_ws         6.1.0690
545. std ACCEPT              NOOP    core_ws         6.1.0695
546. std ALIGN               NOOP    core_ws         6.1.0705
547. std ALIGNED             NOOP    core_ws         6.1.0706
548. std ALLOT               NOOP    core_ws         6.1.0710
549. std AND                 NOOP    core_ws         6.1.0720
550. std BASE                NOOP    core_ws         6.1.0750
551. std BEGIN               NOOP    core_ws         6.1.0760
552. std BL                  NOOP    numeric         6.1.0770
553. std C!                  NOOP    core_ws         6.1.0850
554. std C,                  NOOP    core_ws         6.1.0860
555. std C@                  NOOP    core_ws         6.1.0870
556. std CELL+               NOOP    core_ws         6.1.0880
557. std CELLS               NOOP    core_ws         6.1.0890
558. std CHAR                skipc   core_ws         6.1.0895
559. std CHAR+               NOOP    core_ws         6.1.0897
560. std CHARS               NOOP    core_ws         6.1.0898
561. std CONSTANT            defdat  core_ws         6.1.0950
562. std COUNT               NOOP    core_ws         6.1.0980
563. std CR                  NOOP    core_ws         6.1.0990
564. std CREATE              created core_ws         6.1.1000
565. std DECIMAL             DECIMAL core_ws         6.1.1170
566. std DEPTH               NOOP    core_ws         6.1.1200
567. std DO                  NOOP    core_ws         6.1.1240
568. std DOES>               NOOP    core_ws         6.1.1250
569. std DROP                NOOP    core_ws         6.1.1260
570. std DUP                 NOOP    core_ws         6.1.1290
571. std ELSE                NOOP    core_ws         6.1.1310
572. std EMIT                NOOP    core_ws         6.1.1320
573. std ENVIRONMENT?        NOOP    core_ws         6.1.1345
574. std EVALUATE            NOOP    core_ws         6.1.1360
575. std EXECUTE             NOOP    core_ws         6.1.1370
576. std EXIT                NOOP    core_ws         6.1.1380
577. std FILL                NOOP    core_ws         6.1.1540
578. std FIND                NOOP    core_ws         6.1.1550
579. std FM/MOD              NOOP    core_ws         6.1.1561
580. std HERE                NOOP    core_ws         6.1.1650
581. std HOLD                NOOP    core_ws         6.1.1670
582. std I                   NOOP    core_ws         6.1.1680
583. std IF                  NOOP    core_ws         6.1.1700
584. std IMMEDIATE           NOOP    core_ws         6.1.1710
585. std INVERT              NOOP    core_ws         6.1.1720
586. std J                   NOOP    core_ws         6.1.1730
587. std KEY                 NOOP    core_ws         6.1.1750
588. std LEAVE               NOOP    core_ws         6.1.1760
589. std LITERAL             NOOP    core_ws         6.1.1780
590. std LOOP                NOOP    core_ws         6.1.1800
591. std LSHIFT              NOOP    core_ws         6.1.1805
592. std M*                  NOOP    core_ws         6.1.1810
593. std MAX                 NOOP    core_ws         6.1.1870
594. std MIN                 NOOP    core_ws         6.1.1880
595. std MOD                 NOOP    core_ws         6.1.1890
596. std MOVE                NOOP    core_ws         6.1.1900
597. std NEGATE              NOOP    core_ws         6.1.1910
598. std OR                  NOOP    core_ws         6.1.1980
599. std OVER                NOOP    core_ws         6.1.1990
600. std POSTPONE            NOOP    core_ws         6.1.2033
601. std QUIT                NOOP    core_ws         6.1.2050
602. std R>                  NOOP    core_ws         6.1.2060
603. std R@                  NOOP    core_ws         6.1.2070
604. std RECURSE             NOOP    core_ws         6.1.2120
605. std REPEAT              NOOP    core_ws         6.1.2140
606. std ROT                 NOOP    core_ws         6.1.2160
607. std RSHIFT              NOOP    core_ws         6.1.2162
608. std S"                  skip"   numeric         6.1.2165
609. std S>D                 NOOP    core_ws         6.1.2170
610. std SIGN                NOOP    core_ws         6.1.2210
611. std SM/REM              NOOP    core_ws         6.1.2214
612. std SOURCE              NOOP    core_ws         6.1.2216
613. std SPACE               NOOP    core_ws         6.1.2220
614. std SPACES              NOOP    core_ws         6.1.2230
615. std STATE               NOOP    core_ws         6.1.2250
616. std SWAP                NOOP    core_ws         6.1.2260
617. std THEN                NOOP    core_ws         6.1.2270
618. std TYPE                NOOP    core_ws         6.1.2310
619. std U.                  NOOP    core_ws         6.1.2320
620. std U<                  NOOP    core_ws         6.1.2340
621. std UM*                 NOOP    core_ws         6.1.2360
622. std UM/MOD              NOOP    core_ws         6.1.2370
623. std UNLOOP              NOOP    core_ws         6.1.2380
624. std UNTIL               NOOP    core_ws         6.1.2390
625. std VARIABLE            defvar  core_ws         6.1.2410
626. std WHILE               NOOP    core_ws         6.1.2430
627. std WORD                NOOP    core_ws         6.1.2450
628. std XOR                 NOOP    core_ws         6.1.2490
629. std [                  hstate=0 core_ws         6.1.2500
630. std [']                 skipw   numeric         6.1.2510
631. std [CHAR]              skipw   numeric         6.1.2520
632. std ]                  hstate=1 core_ws         6.1.2540
633. std #TIB                NOOP    core_ext_ws     6.2.0060
634. std .(                  skip)   commentary      6.2.0200
635. std .R                  NOOP    core_ext_ws     6.2.0210
636. std 0<>                 NOOP    core_ext_ws     6.2.0260
637. std 0>                  NOOP    core_ext_ws     6.2.0280
638. std 2>R                 NOOP    core_ext_ws     6.2.0340
639. std 2R>                 NOOP    core_ext_ws     6.2.0410
640. std 2R@                 NOOP    core_ext_ws     6.2.0415
641. std :NONAME             NOOP    core_ext_ws     6.2.0455
642. std <>                  NOOP    core_ext_ws     6.2.0500
643. std ?DO                 NOOP    core_ext_ws     6.2.0620
644. std AGAIN               NOOP    core_ext_ws     6.2.0700
645. std C"                  skip"   numeric         6.2.0855
646. std CASE                NOOP    core_ext_ws     6.2.0873
647. std COMPILE,            NOOP    core_ext_ws     6.2.0945
648. std CONVERT             NOOP    core_ext_ws     6.2.0970
649. std ENDCASE             NOOP    core_ext_ws     6.2.1342
650. std ENDOF               NOOP    core_ext_ws     6.2.1343
651. std ERASE               NOOP    core_ext_ws     6.2.1350
652. std EXPECT              NOOP    core_ext_ws     6.2.1390
653. std FALSE             spec=zero numeric         6.2.1485
654. std HEX                 HEX     core_ext_ws     6.2.1660
655. std MARKER              defusr  core_ext_ws     6.2.1850
656. std NIP                 NOOP    core_ext_ws     6.2.1930
657. std OF                  NOOP    core_ext_ws     6.2.1950
658. std PAD                 NOOP    core_ext_ws     6.2.2000
659. std PARSE               NOOP    core_ext_ws     6.2.2008
660. std PICK                NOOP    core_ext_ws     6.2.2030
661. std QUERY               NOOP    core_ext_ws     6.2.2040
662. std REFILL              NOOP    core_ext_ws     6.2.2125
663. std RESTORE-INPUT       NOOP    core_ext_ws     6.2.2148
664. std ROLL                NOOP    core_ext_ws     6.2.2150
665. std SAVE-INPUT          NOOP    core_ext_ws     6.2.2182
666. std SOURCE-ID           NOOP    core_ext_ws     6.2.2218
667. std SPAN                NOOP    core_ext_ws     6.2.2240
668. std TIB                 NOOP    core_ext_ws     6.2.2290
669. std TO                  NOOP    core_ext_ws     6.2.2295
670. std TRUE                NOOP    numeric         6.2.2298
671. std TUCK                NOOP    core_ext_ws     6.2.2300
672. std U.R                 NOOP    core_ext_ws     6.2.2330
673. std U>                  NOOP    core_ext_ws     6.2.2350
674. std UNUSED              NOOP    core_ext_ws     6.2.2395
675. std VALUE               defval  core_ext_ws     6.2.2405
676. std WITHIN              NOOP    core_ext_ws     6.2.2440
677. std [COMPILE]           NOOP    core_ext_ws     6.2.2530
678. std BLK                 NOOP    block_ws        7.6.1.0790
679. std BLOCK               NOOP    block_ws        7.6.1.0800
680. std BUFFER              NOOP    block_ws        7.6.1.0820
681. std FLUSH               NOOP    block_ws        7.6.1.1559
682. std LOAD                NOOP    block_ws        7.6.1.1790
683. std SAVE-BUFFERS        NOOP    block_ws        7.6.1.2180
684. std UPDATE              NOOP    block_ws        7.6.1.2400
685. std EMPTY-BUFFERS       NOOP    block_ws        7.6.2.1330
686. std LIST                NOOP    block_ws        7.6.2.1770
687. std SCR                 NOOP    block_ws        7.6.2.2190
688. std THRU                NOOP    block_ws        7.6.2.2280
689. std 2CONSTANT           defdat  double_ws       8.6.1.0360
690. std 2LITERAL            NOOP    double_ws       8.6.1.0390
691. std 2VARIABLE           defvar  double_ws       8.6.1.0440
692. std D+                  NOOP    double_ws       8.6.1.1040
693. std D-                  NOOP    double_ws       8.6.1.1050
694. std D.                  NOOP    double_ws       8.6.1.1060
695. std D.R                 NOOP    double_ws       8.6.1.1070
696. std D0<                 NOOP    double_ws       8.6.1.1075
697. std D0=                 NOOP    double_ws       8.6.1.1080
698. std D2*                 NOOP    double_ws       8.6.1.1090
699. std D2/                 NOOP    double_ws       8.6.1.1100
700. std D<                  NOOP    double_ws       8.6.1.1110
701. std D=                  NOOP    double_ws       8.6.1.1120
702. std D>S                 NOOP    double_ws       8.6.1.1140
703. std DABS                NOOP    double_ws       8.6.1.1160
704. std DMAX                NOOP    double_ws       8.6.1.1210
705. std DMIN                NOOP    double_ws       8.6.1.1220
706. std DNEGATE             NOOP    double_ws       8.6.1.1230
707. std M*/                 NOOP    double_ws       8.6.1.1820
708. std M+                  NOOP    double_ws       8.6.1.1830
709. std 2ROT                NOOP    double_ws       8.6.2.0420
710. std DU<                 NOOP    double_ws       8.6.2.1270
711. std CATCH               NOOP    exception_ws    9.6.1.0875
712. std THROW               NOOP    exception_ws    9.6.1.2275
713. std AT-XY               NOOP    facilities_ws   10.6.1.0742
714. std KEY?                NOOP    facilities_ws   10.6.1.1755
715. std PAGE                NOOP    facilities_ws   10.6.1.2005
716. std EKEY                NOOP    facilities_ws   10.6.2.1305
717. std EKEY<CHAR           NOOP    facilities_ws   10.6.2.1306
718. std EKEY?               NOOP    facilities_ws   10.6.2.1307
719. std EMIT?               NOOP    facilities_ws   10.6.2.1325
720. std MS                  NOOP    facilities_ws   10.6.2.1905
721. std TIME&DATE           NOOP    facilities_ws   10.6.2.2292
722. std BIN                 NOOP    file_ws         11.6.1.0765
723. std CLOSE-FILE          NOOP    file_ws         11.6.1.0900
724. std CREATE-FILE         NOOP    file_ws         11.6.1.1010
725. std DELETE-FILE         NOOP    file_ws         11.6.1.1190
726. std FILE-POSITION       NOOP    file_ws         11.6.1.1520
727. std FILE-SIZE           NOOP    file_ws         11.6.1.1522
728. std INCLUDE-FILE        NOOP    file_ws         11.6.1.1717
729. std INCLUDED            "incfil file_ws         11.6.1.1718
730. std OPEN-FILE           NOOP    file_ws         11.6.1.1970
731. std R/O                 NOOP    file_ws         11.6.1.2054
732. std R/W                 NOOP    file_ws         11.6.1.2056
733. std READ-FILE           NOOP    file_ws         11.6.1.2080
734. std READ-LINE           NOOP    file_ws         11.6.1.2090
735. std REPOSITION-FILE     NOOP    file_ws         11.6.1.2142
736. std RESIZE-FILE         NOOP    file_ws         11.6.1.2147
737. std W/O                 NOOP    file_ws         11.6.1.2425
738. std WRITE-FILE          NOOP    file_ws         11.6.1.2480
739. std WRITE-LINE          NOOP    file_ws         11.6.1.2485
740. std FILE-STATUS         NOOP    file_ws         11.6.2.1524
741. std FLUSH-FILE          NOOP    file_ws         11.6.2.1560
742. std RENAME-FILE         NOOP    file_ws         11.6.2.2130
743. std >FLOAT              NOOP    fp_ws           12.6.1.0558
744. std D>F                 NOOP    fp_ws           12.6.1.1130
745. std F!                  NOOP    fp_ws           12.6.1.1400
746. std F*                  NOOP    fp_ws           12.6.1.1410
747. std F+                  NOOP    fp_ws           12.6.1.1420
748. std F-                  NOOP    fp_ws           12.6.1.1425
749. std F/                  NOOP    fp_ws           12.6.1.1430
750. std F0<                 NOOP    fp_ws           12.6.1.1440
751. std F0=                 NOOP    fp_ws           12.6.1.1450
752. std F<                  NOOP    fp_ws           12.6.1.1460
753. std F>D                 NOOP    fp_ws           12.6.1.1460
754. std F@                  NOOP    fp_ws           12.6.1.1472
755. std FALIGN              NOOP    fp_ws           12.6.1.1479
756. std FALIGNED            NOOP    fp_ws           12.6.1.1483
757. std FCONSTANT           defdat  fp_ws           12.6.1.1492
758. std FDEPTH              NOOP    fp_ws           12.6.1.1497
759. std FDROP               NOOP    fp_ws           12.6.1.1500
760. std FDUP                NOOP    fp_ws           12.6.1.1510
761. std FLITERAL            NOOP    fp_ws           12.6.1.1552
762. std FLOAT+              NOOP    fp_ws           12.6.1.1555
763. std FLOATS              NOOP    fp_ws           12.6.1.1556
764. std FLOOR               NOOP    fp_ws           12.6.1.1558
765. std FMAX                NOOP    fp_ws           12.6.1.1562
766. std FMIN                NOOP    fp_ws           12.6.1.1565
767. std FNEGATE             NOOP    fp_ws           12.6.1.1567
768. std FOVER               NOOP    fp_ws           12.6.1.1600
769. std FROT                NOOP    fp_ws           12.6.1.1610
770. std FROUND              NOOP    fp_ws           12.6.1.1612
771. std FSWAP               NOOP    fp_ws           12.6.1.1620
772. std FVARIABLE           defvar  fp_ws           12.6.1.1630
773. std REPRESENT           NOOP    fp_ws           12.6.1.2143
774. std DF!                 NOOP    fp_ws           12.6.2.1203
775. std DF@                 NOOP    fp_ws           12.6.2.1204
776. std DFALIGN             NOOP    fp_ws           12.6.2.1205
777. std DFALIGNED           NOOP    fp_ws           12.6.2.1207
778. std DFLOAT+             NOOP    fp_ws           12.6.2.1208
779. std DFLOATS             NOOP    fp_ws           12.6.2.1209
780. std F**                 NOOP    fp_ws           12.6.2.1415
781. std F.                  NOOP    fp_ws           12.6.2.1427
782. std FABS                NOOP    fp_ws           12.6.2.1474
783. std FACOS               NOOP    fp_ws           12.6.2.1476
784. std FACOSH              NOOP    fp_ws           12.6.2.1477
785. std FALOG               NOOP    fp_ws           12.6.2.1484
786. std FASIN               NOOP    fp_ws           12.6.2.1486
787. std FASINH              NOOP    fp_ws           12.6.2.1487
788. std FATAN               NOOP    fp_ws           12.6.2.1488
789. std FATAN2              NOOP    fp_ws           12.6.2.1489
790. std FATANH              NOOP    fp_ws           12.6.2.1491
791. std FCOS                NOOP    fp_ws           12.6.2.1493
792. std FCOSH               NOOP    fp_ws           12.6.2.1494
793. std FE.                 NOOP    fp_ws           12.6.2.1513
794. std FEXP                NOOP    fp_ws           12.6.2.1515
795. std FEXPM1              NOOP    fp_ws           12.6.2.1516
796. std FLN                 NOOP    fp_ws           12.6.2.1553
797. std FLNP1               NOOP    fp_ws           12.6.2.1554
798. std FLOG                NOOP    fp_ws           12.6.2.1557
799. std FS.                 NOOP    fp_ws           12.6.2.1613
800. std FSIN                NOOP    fp_ws           12.6.2.1614
801. std FSINCOS             NOOP    fp_ws           12.6.2.1616
802. std FSINH               NOOP    fp_ws           12.6.2.1617
803. std FSQRT               NOOP    fp_ws           12.6.2.1618
804. std FTAN                NOOP    fp_ws           12.6.2.1625
805. std FTANH               NOOP    fp_ws           12.6.2.1626
806. std F~                  NOOP    fp_ws           12.6.2.1640
807. std PRECISION           NOOP    fp_ws           12.6.2.2035
808. std SET-PRECISION       NOOP    fp_ws           12.6.2.2200
809. std SF!                 NOOP    fp_ws           12.6.2.2202
810. std SF@                 NOOP    fp_ws           12.6.2.2203
811. std SFALIGN             NOOP    fp_ws           12.6.2.2204
812. std SFALIGNED           NOOP    fp_ws           12.6.2.2206
813. std SFLOAT+             NOOP    fp_ws           12.6.2.2207
814. std SFLOATS             NOOP    fp_ws           12.6.2.2208
815. std (LOCAL)             NOOP    local_ws        13.6.1.0086
816. std LOCALS|             _local  local_ws        13.6.2.1795
817. std ALLOCATE            NOOP    malloc_ws       14.6.1.0707
818. std FREE                NOOP    malloc_ws       14.6.1.1605
819. std RESIZE              NOOP    malloc_ws       14.6.1.2145
820. std .S                  NOOP    progtools_ws    15.6.1.0220
821. std ?                   NOOP    progtools_ws    15.6.1.0600
822. std DUMP                NOOP    progtools_ws    15.6.1.1280
823. std SEE                 NOOP    progtools_ws    15.6.1.2194
824. std WORDS               NOOP    progtools_ws    15.6.1.2465
825. std ;CODE               resunk  progtools_ws    15.6.2.0470
826. std AHEAD               NOOP    progtools_ws    15.6.2.0702
827. std ASSEMBLER           NOOP    progtools_ws    15.6.2.0740
828. std BYE                 NOOP    progtools_ws    15.6.2.0830
829. std CODE                defusr  progtools_ws    15.6.2.0930
830. std CS-PICK             NOOP    progtools_ws    15.6.2.1015
831. std CS-ROLL             NOOP    progtools_ws    15.6.2.1020
832. std EDITOR              NOOP    progtools_ws    15.6.2.1300
833. std FORGET              NOOP    progtools_ws    15.6.2.1580
834. std [ELSE]              NOOP    progtools_ws    15.6.2.2531
835. std [IF]                bigif   progtools_ws    15.6.2.2532
836. std [THEN]              NOOP    progtools_ws    15.6.2.2533
837. std DEFINITIONS         NOOP    searchord_ws    16.6.1.1180
838. std FORTH-WORDLIST      NOOP    searchord_ws    16.6.1.1595
839. std GET-CURRENT         NOOP    searchord_ws    16.6.1.1643
840. std GET-ORDER           NOOP    searchord_ws    16.6.1.1647
841. std SEARCH-WORDLIST     NOOP    searchord_ws    16.6.1.2192
842. std SET-CURRENT         NOOP    searchord_ws    16.6.1.2195
843. std SET-ORDER           NOOP    searchord_ws    16.6.1.2197
844. std WORDLIST            NOOP    searchord_ws    16.6.1.2460
845. std ALSO                NOOP    searchord_ws    16.6.2.0715
846. std FORTH               NOOP    searchord_ws    16.6.2.1590
847. std ONLY                NOOP    searchord_ws    16.6.2.1965
848. std ORDER               NOOP    searchord_ws    16.6.2.1985
849. std PREVIOUS            NOOP    searchord_ws    16.6.2.2037
850. std -TRAILING           NOOP    string_ws       17.6.1.0170
851. std /STRING             NOOP    string_ws       17.6.1.0245
852. std BLANK               NOOP    string_ws       17.6.1.0780
853. std CMOVE               NOOP    string_ws       17.6.1.0910
854. std CMOVE>              NOOP    string_ws       17.6.1.0920
855. std COMPARE             NOOP    string_ws       17.6.1.0935
856. std SEARCH              NOOP    string_ws       17.6.1.2191
857. std SLITERAL            NOOP    string_ws       17.6.1.2212
858.  
859. _DEFINITIONS
860.  
522.  
523. \ The rest is ANS Forth standard
524.  
525. : \             commentary genHTML PAD PLACE  PAD 0 ;
526.  
527. (   NAME                ACTION  COLOR           REFERENCE   )
528. (   ------------------  ------  --------------  ----------- )
529. std !                   NOOP    core_ws         6.1.0010
530. std #                   NOOP    core_ws         6.1.0030
531. std #>                  NOOP    core_ws         6.1.0040
532. std #S                  NOOP    core_ws         6.1.0050
533. std '                   NOOP    core_ws         6.1.0070
534. std (                   skip)   commentary      6.1.0080
535. std *                   NOOP    core_ws         6.1.0090
536. std */                  NOOP    core_ws         6.1.0100
537. std */MOD               NOOP    core_ws         6.1.0110
538. std +                   NOOP    core_ws         6.1.0120
539. std +!                  NOOP    core_ws         6.1.0130
540. std +LOOP               NOOP    core_ws         6.1.0140
541. std ,                   NOOP    core_ws         6.1.0150
542. std -                   NOOP    core_ws         6.1.0160
543. std .                   NOOP    core_ws         6.1.0180
544. std ."                  skip"   numeric         6.1.0190
545. std /                   NOOP    core_ws         6.1.0230
546. std /MOD                NOOP    core_ws         6.1.0240
547. std 0<                  NOOP    core_ws         6.1.0250
548. std 0=                  NOOP    core_ws         6.1.0270
549. std 1+                  NOOP    core_ws         6.1.0290
550. std 1-                  NOOP    core_ws         6.1.0300
551. std 2!                  NOOP    core_ws         6.1.0310
552. std 2*                  NOOP    core_ws         6.1.0320
553. std 2/                  NOOP    core_ws         6.1.0330
554. std 2@                  NOOP    core_ws         6.1.0350
555. std 2DROP               NOOP    core_ws         6.1.0370
556. std 2DUP                NOOP    core_ws         6.1.0380
557. std 2OVER               NOOP    core_ws         6.1.0400
558. std 2SWAP               NOOP    core_ws         6.1.0430
559. std :                   defunk  core_ws         6.1.0450
560. std ;                   resunk  core_ws         6.1.0460
561. std <                   NOOP    core_ws         6.1.0480
562. std <#                  NOOP    core_ws         6.1.0490
563. std =                   NOOP    core_ws         6.1.0530
564. std >                   NOOP    core_ws         6.1.0540
565. std >BODY               NOOP    core_ws         6.1.0550
566. std >IN                 NOOP    core_ws         6.1.0560
567. std >NUMBER             NOOP    core_ws         6.1.0570
568. std >R                  NOOP    core_ws         6.1.0580
569. std ?DUP                NOOP    core_ws         6.1.0630
570. std @                   NOOP    core_ws         6.1.0650
571. std ABORT               NOOP    core_ws         6.1.0670
572. std ABORT"              skip"   numeric         6.1.0680
573. std ABS                 NOOP    core_ws         6.1.0690
574. std ACCEPT              NOOP    core_ws         6.1.0695
575. std ALIGN               NOOP    core_ws         6.1.0705
576. std ALIGNED             NOOP    core_ws         6.1.0706
577. std ALLOT               NOOP    core_ws         6.1.0710
578. std AND                 NOOP    core_ws         6.1.0720
579. std BASE                NOOP    core_ws         6.1.0750
580. std BEGIN               NOOP    core_ws         6.1.0760
581. std BL                  NOOP    numeric         6.1.0770
582. std C!                  NOOP    core_ws         6.1.0850
583. std C,                  NOOP    core_ws         6.1.0860
584. std C@                  NOOP    core_ws         6.1.0870
585. std CELL+               NOOP    core_ws         6.1.0880
586. std CELLS               NOOP    core_ws         6.1.0890
587. std CHAR                skipc   core_ws         6.1.0895
588. std CHAR+               NOOP    core_ws         6.1.0897
589. std CHARS               NOOP    core_ws         6.1.0898
590. std CONSTANT            defdat  core_ws         6.1.0950
591. std COUNT               NOOP    core_ws         6.1.0980
592. std CR                  NOOP    core_ws         6.1.0990
593. std CREATE              created core_ws         6.1.1000
594. std DECIMAL             DECIMAL core_ws         6.1.1170
595. std DEPTH               NOOP    core_ws         6.1.1200
596. std DO                  NOOP    core_ws         6.1.1240
597. std DOES>               NOOP    core_ws         6.1.1250
598. std DROP                NOOP    core_ws         6.1.1260
599. std DUP                 NOOP    core_ws         6.1.1290
600. std ELSE                NOOP    core_ws         6.1.1310
601. std EMIT                NOOP    core_ws         6.1.1320
602. std ENVIRONMENT?        NOOP    core_ws         6.1.1345
603. std EVALUATE            NOOP    core_ws         6.1.1360
604. std EXECUTE             NOOP    core_ws         6.1.1370
605. std EXIT                NOOP    core_ws         6.1.1380
606. std FILL                NOOP    core_ws         6.1.1540
607. std FIND                NOOP    core_ws         6.1.1550
608. std FM/MOD              NOOP    core_ws         6.1.1561
609. std HERE                NOOP    core_ws         6.1.1650
610. std HOLD                NOOP    core_ws         6.1.1670
611. std I                   NOOP    core_ws         6.1.1680
612. std IF                  NOOP    core_ws         6.1.1700
613. std IMMEDIATE           NOOP    core_ws         6.1.1710
614. std INVERT              NOOP    core_ws         6.1.1720
615. std J                   NOOP    core_ws         6.1.1730
616. std KEY                 NOOP    core_ws         6.1.1750
617. std LEAVE               NOOP    core_ws         6.1.1760
618. std LITERAL             NOOP    core_ws         6.1.1780
619. std LOOP                NOOP    core_ws         6.1.1800
620. std LSHIFT              NOOP    core_ws         6.1.1805
621. std M*                  NOOP    core_ws         6.1.1810
622. std MAX                 NOOP    core_ws         6.1.1870
623. std MIN                 NOOP    core_ws         6.1.1880
624. std MOD                 NOOP    core_ws         6.1.1890
625. std MOVE                NOOP    core_ws         6.1.1900
626. std NEGATE              NOOP    core_ws         6.1.1910
627. std OR                  NOOP    core_ws         6.1.1980
628. std OVER                NOOP    core_ws         6.1.1990
629. std POSTPONE            NOOP    core_ws         6.1.2033
630. std QUIT                NOOP    core_ws         6.1.2050
631. std R>                  NOOP    core_ws         6.1.2060
632. std R@                  NOOP    core_ws         6.1.2070
633. std RECURSE             NOOP    core_ws         6.1.2120
634. std REPEAT              NOOP    core_ws         6.1.2140
635. std ROT                 NOOP    core_ws         6.1.2160
636. std RSHIFT              NOOP    core_ws         6.1.2162
637. std S"                  skip"   numeric         6.1.2165
638. std S>D                 NOOP    core_ws         6.1.2170
639. std SIGN                NOOP    core_ws         6.1.2210
640. std SM/REM              NOOP    core_ws         6.1.2214
641. std SOURCE              NOOP    core_ws         6.1.2216
642. std SPACE               NOOP    core_ws         6.1.2220
643. std SPACES              NOOP    core_ws         6.1.2230
644. std STATE               NOOP    core_ws         6.1.2250
645. std SWAP                NOOP    core_ws         6.1.2260
646. std THEN                NOOP    core_ws         6.1.2270
647. std TYPE                NOOP    core_ws         6.1.2310
648. std U.                  NOOP    core_ws         6.1.2320
649. std U<                  NOOP    core_ws         6.1.2340
650. std UM*                 NOOP    core_ws         6.1.2360
651. std UM/MOD              NOOP    core_ws         6.1.2370
652. std UNLOOP              NOOP    core_ws         6.1.2380
653. std UNTIL               NOOP    core_ws         6.1.2390
654. std VARIABLE            defvar  core_ws         6.1.2410
655. std WHILE               NOOP    core_ws         6.1.2430
656. std WORD                NOOP    core_ws         6.1.2450
657. std XOR                 NOOP    core_ws         6.1.2490
658. std [                  hstate=0 core_ws         6.1.2500
659. std [']                 skipw   numeric         6.1.2510
660. std [CHAR]              skipw   numeric         6.1.2520
661. std ]                  hstate=1 core_ws         6.1.2540
662. std #TIB                NOOP    core_ext_ws     6.2.0060
663. std .(                  skip)   commentary      6.2.0200
664. std .R                  NOOP    core_ext_ws     6.2.0210
665. std 0<>                 NOOP    core_ext_ws     6.2.0260
666. std 0>                  NOOP    core_ext_ws     6.2.0280
667. std 2>R                 NOOP    core_ext_ws     6.2.0340
668. std 2R>                 NOOP    core_ext_ws     6.2.0410
669. std 2R@                 NOOP    core_ext_ws     6.2.0415
670. std :NONAME             NOOP    core_ext_ws     6.2.0455
671. std <>                  NOOP    core_ext_ws     6.2.0500
672. std ?DO                 NOOP    core_ext_ws     6.2.0620
673. std AGAIN               NOOP    core_ext_ws     6.2.0700
674. std C"                  skip"   numeric         6.2.0855
675. std CASE                NOOP    core_ext_ws     6.2.0873
676. std COMPILE,            NOOP    core_ext_ws     6.2.0945
677. std CONVERT             NOOP    core_ext_ws     6.2.0970
678. std ENDCASE             NOOP    core_ext_ws     6.2.1342
679. std ENDOF               NOOP    core_ext_ws     6.2.1343
680. std ERASE               NOOP    core_ext_ws     6.2.1350
681. std EXPECT              NOOP    core_ext_ws     6.2.1390
682. std FALSE             spec=zero numeric         6.2.1485
683. std HEX                 HEX     core_ext_ws     6.2.1660
684. std MARKER              defusr  core_ext_ws     6.2.1850
685. std NIP                 NOOP    core_ext_ws     6.2.1930
686. std OF                  NOOP    core_ext_ws     6.2.1950
687. std PAD                 NOOP    core_ext_ws     6.2.2000
688. std PARSE               NOOP    core_ext_ws     6.2.2008
689. std PICK                NOOP    core_ext_ws     6.2.2030
690. std QUERY               NOOP    core_ext_ws     6.2.2040
691. std REFILL              NOOP    core_ext_ws     6.2.2125
692. std RESTORE-INPUT       NOOP    core_ext_ws     6.2.2148
693. std ROLL                NOOP    core_ext_ws     6.2.2150
694. std SAVE-INPUT          NOOP    core_ext_ws     6.2.2182
695. std SOURCE-ID           NOOP    core_ext_ws     6.2.2218
696. std SPAN                NOOP    core_ext_ws     6.2.2240
697. std TIB                 NOOP    core_ext_ws     6.2.2290
698. std TO                  NOOP    core_ext_ws     6.2.2295
699. std TRUE                NOOP    numeric         6.2.2298
700. std TUCK                NOOP    core_ext_ws     6.2.2300
701. std U.R                 NOOP    core_ext_ws     6.2.2330
702. std U>                  NOOP    core_ext_ws     6.2.2350
703. std UNUSED              NOOP    core_ext_ws     6.2.2395
704. std VALUE               defval  core_ext_ws     6.2.2405
705. std WITHIN              NOOP    core_ext_ws     6.2.2440
706. std [COMPILE]           NOOP    core_ext_ws     6.2.2530
707. std BLK                 NOOP    block_ws        7.6.1.0790
708. std BLOCK               NOOP    block_ws        7.6.1.0800
709. std BUFFER              NOOP    block_ws        7.6.1.0820
710. std FLUSH               NOOP    block_ws        7.6.1.1559
711. std LOAD                NOOP    block_ws        7.6.1.1790
712. std SAVE-BUFFERS        NOOP    block_ws        7.6.1.2180
713. std UPDATE              NOOP    block_ws        7.6.1.2400
714. std EMPTY-BUFFERS       NOOP    block_ws        7.6.2.1330
715. std LIST                NOOP    block_ws        7.6.2.1770
716. std SCR                 NOOP    block_ws        7.6.2.2190
717. std THRU                NOOP    block_ws        7.6.2.2280
718. std 2CONSTANT           defdat  double_ws       8.6.1.0360
719. std 2LITERAL            NOOP    double_ws       8.6.1.0390
720. std 2VARIABLE           defvar  double_ws       8.6.1.0440
721. std D+                  NOOP    double_ws       8.6.1.1040
722. std D-                  NOOP    double_ws       8.6.1.1050
723. std D.                  NOOP    double_ws       8.6.1.1060
724. std D.R                 NOOP    double_ws       8.6.1.1070
725. std D0<                 NOOP    double_ws       8.6.1.1075
726. std D0=                 NOOP    double_ws       8.6.1.1080
727. std D2*                 NOOP    double_ws       8.6.1.1090
728. std D2/                 NOOP    double_ws       8.6.1.1100
729. std D<                  NOOP    double_ws       8.6.1.1110
730. std D=                  NOOP    double_ws       8.6.1.1120
731. std D>S                 NOOP    double_ws       8.6.1.1140
732. std DABS                NOOP    double_ws       8.6.1.1160
733. std DMAX                NOOP    double_ws       8.6.1.1210
734. std DMIN                NOOP    double_ws       8.6.1.1220
735. std DNEGATE             NOOP    double_ws       8.6.1.1230
736. std M*/                 NOOP    double_ws       8.6.1.1820
737. std M+                  NOOP    double_ws       8.6.1.1830
738. std 2ROT                NOOP    double_ws       8.6.2.0420
739. std DU<                 NOOP    double_ws       8.6.2.1270
740. std CATCH               NOOP    exception_ws    9.6.1.0875
741. std THROW               NOOP    exception_ws    9.6.1.2275
742. std AT-XY               NOOP    facilities_ws   10.6.1.0742
743. std KEY?                NOOP    facilities_ws   10.6.1.1755
744. std PAGE                NOOP    facilities_ws   10.6.1.2005
745. std EKEY                NOOP    facilities_ws   10.6.2.1305
746. std EKEY<CHAR           NOOP    facilities_ws   10.6.2.1306
747. std EKEY?               NOOP    facilities_ws   10.6.2.1307
748. std EMIT?               NOOP    facilities_ws   10.6.2.1325
749. std MS                  NOOP    facilities_ws   10.6.2.1905
750. std TIME&DATE           NOOP    facilities_ws   10.6.2.2292
751. std BIN                 NOOP    file_ws         11.6.1.0765
752. std CLOSE-FILE          NOOP    file_ws         11.6.1.0900
753. std CREATE-FILE         NOOP    file_ws         11.6.1.1010
754. std DELETE-FILE         NOOP    file_ws         11.6.1.1190
755. std FILE-POSITION       NOOP    file_ws         11.6.1.1520
756. std FILE-SIZE           NOOP    file_ws         11.6.1.1522
757. std INCLUDE-FILE        NOOP    file_ws         11.6.1.1717
758. std INCLUDED            "incfil file_ws         11.6.1.1718
759. std OPEN-FILE           NOOP    file_ws         11.6.1.1970
760. std R/O                 NOOP    file_ws         11.6.1.2054
761. std R/W                 NOOP    file_ws         11.6.1.2056
762. std READ-FILE           NOOP    file_ws         11.6.1.2080
763. std READ-LINE           NOOP    file_ws         11.6.1.2090
764. std REPOSITION-FILE     NOOP    file_ws         11.6.1.2142
765. std RESIZE-FILE         NOOP    file_ws         11.6.1.2147
766. std W/O                 NOOP    file_ws         11.6.1.2425
767. std WRITE-FILE          NOOP    file_ws         11.6.1.2480
768. std WRITE-LINE          NOOP    file_ws         11.6.1.2485
769. std FILE-STATUS         NOOP    file_ws         11.6.2.1524
770. std FLUSH-FILE          NOOP    file_ws         11.6.2.1560
771. std RENAME-FILE         NOOP    file_ws         11.6.2.2130
772. std >FLOAT              NOOP    fp_ws           12.6.1.0558
773. std D>F                 NOOP    fp_ws           12.6.1.1130
774. std F!                  NOOP    fp_ws           12.6.1.1400
775. std F*                  NOOP    fp_ws           12.6.1.1410
776. std F+                  NOOP    fp_ws           12.6.1.1420
777. std F-                  NOOP    fp_ws           12.6.1.1425
778. std F/                  NOOP    fp_ws           12.6.1.1430
779. std F0<                 NOOP    fp_ws           12.6.1.1440
780. std F0=                 NOOP    fp_ws           12.6.1.1450
781. std F<                  NOOP    fp_ws           12.6.1.1460
782. std F>D                 NOOP    fp_ws           12.6.1.1460
783. std F@                  NOOP    fp_ws           12.6.1.1472
784. std FALIGN              NOOP    fp_ws           12.6.1.1479
785. std FALIGNED            NOOP    fp_ws           12.6.1.1483
786. std FCONSTANT           defdat  fp_ws           12.6.1.1492
787. std FDEPTH              NOOP    fp_ws           12.6.1.1497
788. std FDROP               NOOP    fp_ws           12.6.1.1500
789. std FDUP                NOOP    fp_ws           12.6.1.1510
790. std FLITERAL            NOOP    fp_ws           12.6.1.1552
791. std FLOAT+              NOOP    fp_ws           12.6.1.1555
792. std FLOATS              NOOP    fp_ws           12.6.1.1556
793. std FLOOR               NOOP    fp_ws           12.6.1.1558
794. std FMAX                NOOP    fp_ws           12.6.1.1562
795. std FMIN                NOOP    fp_ws           12.6.1.1565
796. std FNEGATE             NOOP    fp_ws           12.6.1.1567
797. std FOVER               NOOP    fp_ws           12.6.1.1600
798. std FROT                NOOP    fp_ws           12.6.1.1610
799. std FROUND              NOOP    fp_ws           12.6.1.1612
800. std FSWAP               NOOP    fp_ws           12.6.1.1620
801. std FVARIABLE           defvar  fp_ws           12.6.1.1630
802. std REPRESENT           NOOP    fp_ws           12.6.1.2143
803. std DF!                 NOOP    fp_ws           12.6.2.1203
804. std DF@                 NOOP    fp_ws           12.6.2.1204
805. std DFALIGN             NOOP    fp_ws           12.6.2.1205
806. std DFALIGNED           NOOP    fp_ws           12.6.2.1207
807. std DFLOAT+             NOOP    fp_ws           12.6.2.1208
808. std DFLOATS             NOOP    fp_ws           12.6.2.1209
809. std F**                 NOOP    fp_ws           12.6.2.1415
810. std F.                  NOOP    fp_ws           12.6.2.1427
811. std FABS                NOOP    fp_ws           12.6.2.1474
812. std FACOS               NOOP    fp_ws           12.6.2.1476
813. std FACOSH              NOOP    fp_ws           12.6.2.1477
814. std FALOG               NOOP    fp_ws           12.6.2.1484
815. std FASIN               NOOP    fp_ws           12.6.2.1486
816. std FASINH              NOOP    fp_ws           12.6.2.1487
817. std FATAN               NOOP    fp_ws           12.6.2.1488
818. std FATAN2              NOOP    fp_ws           12.6.2.1489
819. std FATANH              NOOP    fp_ws           12.6.2.1491
820. std FCOS                NOOP    fp_ws           12.6.2.1493
821. std FCOSH               NOOP    fp_ws           12.6.2.1494
822. std FE.                 NOOP    fp_ws           12.6.2.1513
823. std FEXP                NOOP    fp_ws           12.6.2.1515
824. std FEXPM1              NOOP    fp_ws           12.6.2.1516
825. std FLN                 NOOP    fp_ws           12.6.2.1553
826. std FLNP1               NOOP    fp_ws           12.6.2.1554
827. std FLOG                NOOP    fp_ws           12.6.2.1557
828. std FS.                 NOOP    fp_ws           12.6.2.1613
829. std FSIN                NOOP    fp_ws           12.6.2.1614
830. std FSINCOS             NOOP    fp_ws           12.6.2.1616
831. std FSINH               NOOP    fp_ws           12.6.2.1617
832. std FSQRT               NOOP    fp_ws           12.6.2.1618
833. std FTAN                NOOP    fp_ws           12.6.2.1625
834. std FTANH               NOOP    fp_ws           12.6.2.1626
835. std F~                  NOOP    fp_ws           12.6.2.1640
836. std PRECISION           NOOP    fp_ws           12.6.2.2035
837. std SET-PRECISION       NOOP    fp_ws           12.6.2.2200
838. std SF!                 NOOP    fp_ws           12.6.2.2202
839. std SF@                 NOOP    fp_ws           12.6.2.2203
840. std SFALIGN             NOOP    fp_ws           12.6.2.2204
841. std SFALIGNED           NOOP    fp_ws           12.6.2.2206
842. std SFLOAT+             NOOP    fp_ws           12.6.2.2207
843. std SFLOATS             NOOP    fp_ws           12.6.2.2208
844. std (LOCAL)             NOOP    local_ws        13.6.1.0086
845. std LOCALS|             _local  local_ws        13.6.2.1795
846. std ALLOCATE            NOOP    malloc_ws       14.6.1.0707
847. std FREE                NOOP    malloc_ws       14.6.1.1605
848. std RESIZE              NOOP    malloc_ws       14.6.1.2145
849. std .S                  NOOP    progtools_ws    15.6.1.0220
850. std ?                   NOOP    progtools_ws    15.6.1.0600
851. std DUMP                NOOP    progtools_ws    15.6.1.1280
852. std SEE                 NOOP    progtools_ws    15.6.1.2194
853. std WORDS               NOOP    progtools_ws    15.6.1.2465
854. std ;CODE               resunk  progtools_ws    15.6.2.0470
855. std AHEAD               NOOP    progtools_ws    15.6.2.0702
856. std ASSEMBLER           NOOP    progtools_ws    15.6.2.0740
857. std BYE                 NOOP    progtools_ws    15.6.2.0830
858. std CODE                defusr  progtools_ws    15.6.2.0930
859. std CS-PICK             NOOP    progtools_ws    15.6.2.1015
860. std CS-ROLL             NOOP    progtools_ws    15.6.2.1020
861. std EDITOR              NOOP    progtools_ws    15.6.2.1300
862. std FORGET              NOOP    progtools_ws    15.6.2.1580
863. std [ELSE]              NOOP    progtools_ws    15.6.2.2531
864. std [IF]                bigif   progtools_ws    15.6.2.2532
865. std [THEN]              NOOP    progtools_ws    15.6.2.2533
866. std DEFINITIONS         NOOP    searchord_ws    16.6.1.1180
867. std FORTH-WORDLIST      NOOP    searchord_ws    16.6.1.1595
868. std GET-CURRENT         NOOP    searchord_ws    16.6.1.1643
869. std GET-ORDER           NOOP    searchord_ws    16.6.1.1647
870. std SEARCH-WORDLIST     NOOP    searchord_ws    16.6.1.2192
871. std SET-CURRENT         NOOP    searchord_ws    16.6.1.2195
872. std SET-ORDER           NOOP    searchord_ws    16.6.1.2197
873. std WORDLIST            NOOP    searchord_ws    16.6.1.2460
874. std ALSO                NOOP    searchord_ws    16.6.2.0715
875. std FORTH               NOOP    searchord_ws    16.6.2.1590
876. std ONLY                NOOP    searchord_ws    16.6.2.1965
877. std ORDER               NOOP    searchord_ws    16.6.2.1985
878. std PREVIOUS            NOOP    searchord_ws    16.6.2.2037
879. std -TRAILING           NOOP    string_ws       17.6.1.0170
880. std /STRING             NOOP    string_ws       17.6.1.0245
881. std BLANK               NOOP    string_ws       17.6.1.0780
882. std CMOVE               NOOP    string_ws       17.6.1.0910
883. std CMOVE>              NOOP    string_ws       17.6.1.0920
884. std COMPARE             NOOP    string_ws       17.6.1.0935
885. std SEARCH              NOOP    string_ws       17.6.1.2191
886. std SLITERAL            NOOP    string_ws       17.6.1.2212
887.  
888. _DEFINITIONS
889.  
861.  
862. \ Revision history:
890. \ Revision history
863. \ 0. 1st release to guinea pigs via comp.lang.forth
891. \ 0. 1st release to guinea pigs via comp.lang.forth
864. \ 1. Added multi-line comment 0 [IF]. Colored CHAR outside of definitions.
865. \ 2. Added support for LOCALS|. Changed to use blanks for whitespace.
866. \ 3. December 30th to January 1st, 2004 - Dirk Busch (dbu)
892. \ 1. Added multi-line comment 0 [IF]. Colored CHAR outside definitions.
893. \ 2. (EJB) Added missing definitions for common but nonstandard words
894. \    and cleaned up to account for case sensitivity.
895. \ 3. (EJB) Fixed up to create conforming XHTML 1.0 Strict
896. \ 2a. Added support for LOCALS|. Changed to use blanks for whitespace.
897. \ 3b. December 30th to January 1st, 2004 - Dirk Busch (dbu)
867. \    - Added DPANS-PATH to configure the path to the dpans-files
868. \    - Added multi-line comments (( )) and comment: comment; as used in Win32Forth
869. \    - HTML crashed on files with long lines (more than 80 char's) - fixed
898. \    - Added DPANS-PATH to configure the path to the dpans-files
899. \    - Added multi-line comments (( )) and comment: comment; as used in Win32Forth
900. \    - HTML crashed on files with long lines (more than 80 char's) - fixed
870. \    - replaced <CODE> tag with <PRE> (work's better with Netscape 6)
 
871. \    - Added some more words for better Win32Forth support
872. \    - renamed COL to FCOL since COL is used in Win32Forth
873. \    - renamed ,$ to (,$)  since ,$ is used in Win32Forth
874. \    - renamed HEADER to HEADER_OUT since HEADER is used in Win32Forth
875. \    - changed FONTCOLOR to set the new color only if it's not the actual color
901. \    - Added some more words for better Win32Forth support
902. \    - renamed COL to FCOL since COL is used in Win32Forth
903. \    - renamed ,$ to (,$)  since ,$ is used in Win32Forth
904. \    - renamed HEADER to HEADER_OUT since HEADER is used in Win32Forth
905. \    - changed FONTCOLOR to set the new color only if it's not the actual color
876. \    - Added COPYRIGHT to configure the copyright text witch is placed at the bottom of the HTML-File
 
877. \    - Added LINK-TO-ORG-FILE to configure the output of a hyperlink to the original File
906. \    - Added LINK-TO-ORG-FILE to configure the output of a hyperlink to the original File
878. \    - Added <!DOCTYPE> tag
907. 
908.