Commit 908066b5 authored by Bernd Paysan's avatar Bernd Paysan

List-based spitting started

parent 08e2c483
......@@ -17,6 +17,8 @@
\ everything that follows here can assume to have a connection context
forward slurp,
scope{ net2o-base
connect-table $@ inherit-table context-table
......@@ -45,15 +47,18 @@ connect-table $@ inherit-table context-table
over dest-top <> and false dest-end ?!@ drop \ atomic, replaces or!
dest-top!
endwith ;
$2E net2o: slurped ( $slurped -- ) \g respond to slurped stuff
$> spit#$ $+! ;
$2C net2o: slurp ( -- ) \g slurp in tracked files
+net2o: slurp ( -- ) \g slurp in tracked files
\ !!FIXME!! this should probably be asynchronous
net2o:slurp swap ulit, flag, set-top
slurp#$ $@ $, slurped slurp#$ $free
slurp,
['] do-track-seek net2o:track-all-seeks net2o:send-chunks ;
+net2o: ack-reset ( -- ) \g reset ack state
0 ack-state c! ;
+net2o: slurped ( $slurped -- ) \g respond to slurped stuff
$> spit#$ $+! ;
in forth : slurp, ( -- )
slurp#$ $@ $, slurped slurp#$ $free ;
\ object handles
\g
......
......@@ -165,12 +165,12 @@ Commands are context-sensitive in an OOP method hierarchy sense.
close all files
* $2B set-top ( utop flag -- )
set top, flag is true when all data is sent
* $2E slurped ( $slurped -- )
respond to slurped stuff
* $2C slurp ( -- )
slurp in tracked files
* $2F ack-reset ( -- )
* $2D ack-reset ( -- )
reset ack state
* $2E slurped ( $slurped -- )
respond to slurped stuff
### file commands ###
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment