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