crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Atua-WWW: Now HTML 4.01 Strict compliant

Browse source 
FossilOrigin-Name: b5c10a70f34222702a6f9b11a55195833ffe74b03379102f3ec505374ab55f95
This commit is contained in:
crc 2018-03-24 13:54:43 +00:00
parent 12ec404b61
commit d786dd0704
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
example/Atua-WWW.forth
View file

@ -304,11 +304,12 @@ The `gopher:icon` displays an indicator for menu items.
:gopher:generate-index (f-)
'Content-type:_text/html puts eol eol
'<!DOCTYPE_HTML_PUBLIC_"-//W3C//DTD_HTML_4.01_Transitional//EN"_"http://www.w3.org/TR/html4/loose.dtd"> puts eol
'<!DOCTYPE_HTML_PUBLIC_"-//W3C//DTD_HTML_4.01//EN" puts sp
'"http://www.w3.org/TR/html4/strict.dtd"> puts eol
'<html><head><meta_http-equiv="Content-Type"_content="text/html;_charset=utf-8"> puts
'<style_type="text/css">tt_{_white-space:_pre;_} puts
'_*_{_color:_#bbb;_background:_#090909;_font-size:_large;_}_a_{_color:_#FF6600;_} puts
'</style><title>forthworks.com</title></head><body> puts eol eol
'</style><title>forthworks.com</title></head><body><p> puts eol eol
file:R file:open !FID
@FID file:size !Size
[ buffer gopher:gets
@ -317,7 +318,7 @@ The `gopher:icon` displays an indicator for menu items.
@FID file:close
[ #70 [ $_ putc ] times ] html:tt html:br eol
'forthworks.com:80_/_atua-www_/_running_on_retro gopher:i
'</body></html> puts
'</p></body></html> puts
;
````