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

examples: atua-www now ignores ?... in the GET request

Browse source 
FossilOrigin-Name: 2fab147726db8d4c78385466b81dda70c57dd3e1de73727a52de00f4468ed99d
This commit is contained in:
crc 2020-11-09 21:11:24 +00:00
parent fd6eaa1184
commit fb759a7d9b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
example/Atua-WWW.retro
View file

@ -64,7 +64,7 @@ it checks for. This suffices for a Gopher server though.
~~~ ~~~
:eol? (c-f) :eol? (c-f)
[ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:SPACE eq? ] tri or or ; [ [ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:SPACE eq? ] tri or or ] [ $? eq? ] bi or ;
:s:get (a-) :s:get (a-)
buffer:set buffer:set
[ c:get dup buffer:add eol? not ] while ; [ c:get dup buffer:add eol? not ] while ;
@ -270,6 +270,7 @@ The `gopher:icon` displays an indicator for menu items.
~~~ ~~~
:gopher:get-selector (-) :gopher:get-selector (-)
&Selector s:get &Selector s:get ; &Selector s:get &Selector s:get ;
(Rewrite_This:_It's_too_big) (Rewrite_This:_It's_too_big)
:gopher:file-for-request (-s) :gopher:file-for-request (-s)
&Mode v:off &Mode v:off