Commit 65987ecd authored Jul 27, 2014 by bernd

Try debugging when transfer is stuck

parent 1caf1a53

client-tests.fs

+1 −7

Original line number	Diff line number	Diff line
		@@ -179,13 +179,7 @@ previous
		net2o-code
		expect-reply
		log .time s" Download test 4a" $, type cr endwith
		-1. 0 limit!
		-1. 1 limit!
		-1. 2 limit!
		-1. 3 limit!
		-1. 4 limit!
		-1. 5 limit!
		-1. 6 limit!
		7 0 DO -1. I limit! LOOP
		n2o:done
		end-code\| n2o:close-all ['] .time $err ;

net2o-cmd.fs

+5 −4

Original line number	Diff line number	Diff line
		@@ -1061,11 +1061,12 @@ cell 8 = [IF] 6 [ELSE] 5 [THEN] Constant cell>>
		\ keepalive

		also net2o-base
		: transfer-keepalive? ( -- ) o to connection
		timeout( ." transfer keepalive " expected@ hex. hex.
		: .keepalive ( -- ) ." transfer keepalive " expected@ hex. hex.
		data-rmap @ >o dest-tail @ hex. dest-back @ hex. o>
		F cr )
		rewind-transfer 0= ?EXIT
		F cr ;
		: transfer-keepalive? ( -- ) o to connection
		timeout( .keepalive )
		rewind-transfer 0= IF .keepalive EXIT THEN
		expected@ tuck u>= and IF net2o-code
		ack <req +expected req> endwith IF slurp THEN end-code EXIT THEN
		net2o-code expect-reply