From 12ec404b61b7a0be57fdc16d173ce0b9b149a6bd Mon Sep 17 00:00:00 2001 From: crc Date: Sat, 24 Mar 2018 13:44:15 +0000 Subject: [PATCH] atua-www: now HTML 4.01-transitional compliant output FossilOrigin-Name: b3d98e72c62b3353b06061e684e847df2d51492110764ca1856a52bfcca3084f --- example/Atua-WWW.forth | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/example/Atua-WWW.forth b/example/Atua-WWW.forth index 2f0c814..f2b51a6 100755 --- a/example/Atua-WWW.forth +++ b/example/Atua-WWW.forth @@ -282,6 +282,7 @@ The `gopher:icon` displays an indicator for menu items. ] [ PATH DEFAULT-INDEX s:append &Server-Info v:on ] choose ; + :gopher:read-file (f-s) file:R file:open !FID buffer buffer:set @@ -303,15 +304,20 @@ The `gopher:icon` displays an indicator for menu items. :gopher:generate-index (f-) 'Content-type:_text/html puts eol eol - ' puts eol eol + ' puts eol + ' puts + 'tt_{_white-space:_pre;_} puts + '_*_{_color:_#bbb;_background:_#090909;_font-size:_large;_}_a_{_color:_#FF6600;_} puts + 'forthworks.com puts eol eol file:R file:open !FID @FID file:size !Size [ buffer gopher:gets buffer tab? [ [ link ] html:tt eol ] [ gopher:i ] choose @FID file:tell @Size lt? ] while @FID file:close + [ #70 [ $_ putc ] times ] html:tt html:br eol + 'forthworks.com:80_/_atua-www_/_running_on_retro gopher:i + ' puts ; ```` @@ -335,8 +341,6 @@ The only thing left is the top level server. gopher:file-for-request @Server-Info [ gopher:generate-index - [ #70 [ $_ putc ] times ] html:tt html:br eol - 'forthworks.com:80_/_atua-www_/_running_on_retro gopher:i ```` ' puts 'Light_on_Dark_or_ puts