| |
|
| : ?cr ( -- ) |
: ?cr ( -- ) |
| #tib @ 1 >= IF source 1- + c@ #cr = #tib +! THEN ; |
#tib @ 1 >= IF source 1- + c@ #cr = #tib +! THEN ; |
| : refill-loop ( -- flag ) |
: refill-loop ( -- flag ) base @ >r base off |
| BEGIN refill ?cr WHILE ['] interpret catch drop >in @ 0= UNTIL |
BEGIN refill ?cr WHILE ['] interpret catch drop >in @ 0= UNTIL |
| true ELSE maxnum off false THEN ; |
true ELSE maxnum off false THEN r> base ! ; |
| : get-input ( -- flag ior ) |
: get-input ( -- flag ior ) |
| s" /nosuchfile" url $! s" HTTP/1.0" protocol $! |
s" /nosuchfile" url $! s" HTTP/1.0" protocol $! |
| s" close" connection $! |
s" close" connection $! |
