Verified Commit 908066b5 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

List-based spitting started

parent 08e2c483

connected.fs

+9 −4
Original line number Diff line number Diff line
@@ -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

wiki/commands.md

+3 −3
Original line number Diff line number Diff line
@@ -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 ###