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