38 lines
909 B
Forth
38 lines
909 B
Forth
|
gopher:get
|
||
|
|
|
||
|
|
Data: asns-n
|
||
|
|
Addr: -
|
||
|
|
Float: -
|
||
|
|
|
||
|
|
Takes an address, a server, a port, and a selector. Fetch the
|
||
|
|
resource and store it at address. Return the number of bytes
|
||
|
|
received.
|
||
|
|
|
||
|
|
Class: class:word | Namespace: gopher | Interface Layer: ios
|
||
|
|
|
||
|
|
Example #1:
|
||
|
|
|
||
|
|
here 'forthworks.com #70 '/ gopher:get
|
||
|
|
here s:put
|
||
|
|
|
||
|
|
|
||
|
|
~~~
|
||
|
|
:set (asns-sns) 'abcd 'bcda reorder buffer:set ;
|
||
|
|
:url (sns-s) 'abc 'cba reorder 'gopher://%s:%n/0%s s:format ;
|
||
|
|
:command (s-s) 'curl_-s_%s s:format ;
|
||
|
|
:connect (s-p) file:R unix:popen ;
|
||
|
|
:read (p-p) [ dup file:read dup buffer:add n:zero? ] until ;
|
||
|
|
:complete (p-n) unix:pclose buffer:end buffer:start - ;
|
||
|
|
---reveal---
|
||
|
|
:gopher:get (asns-n)
|
||
|
|
[ set url command connect read complete ] buffer:preserve ;
|
||
|
|
~~~
|
||
|
|
|
||
|
|
## Test Case
|
||
|
|
|
||
|
|
~~~
|
||
|
|
'Data d:create #256001 allot
|
||
|
|
&Data 'forthworks.com #70 '/retro gopher:get
|
||
|
|
'%n_bytes_read\n s:format s:put
|
||
|
|
~~~
|