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

glossary: http is working

Browse source 
FossilOrigin-Name: 651034c4a939e686c685c196f0ad7596ab99fd3f01feb03fd153efc66c987d9b
This commit is contained in:
crc 2017-11-19 21:27:51 +00:00
parent 8a06805fe6
commit 7d93ac1882
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
glossary.forth
View file

@ -455,11 +455,20 @@ And then the actual top level server.
'Selector d:create
#1024 allot
:http:display (-)
#0 'words.tsv [ s:keep !SourceLine dup-pair eq? [ '<pre> puts display-result '</pre> puts ] if n:inc ] file:for-each-line drop-pair ;
:handle-http
&Selector ASCII:SPACE s:tokenize #1 set:nth fetch
dup s:length #1 eq?
[ drop http:list-words ]
[ n:inc s:to-number http:display ] choose ;
:gopher:serve
&Selector gets
&Selector #0 #5 s:substr
'/desc [ &Selector ASCII:SPACE s:tokenize #1 set:nth fetch s:chop s:keep !Target gopher:display ] s:case
'GET_/ [ 'HTTP/1.0_200_OK\nContent-Type:_text/html\n\n s:with-format puts http:list-words ] s:case
'GET_/ [ 'HTTP/1.0_200_OK\nContent-Type:_text/html\n\n s:with-format puts handle-http ] s:case
drop gopher:list-words ;
~~~