diff net.rhope @ 147:f3686f60985d

Sort of working port of framework. Transaction bug seems to be getting in the way. Going to work around, but want the old version in the repo so I can test later.
author Mike Pavone <pavone@retrodev.com>
date Mon, 22 Nov 2010 01:15:02 -0500
parents 357f4ce3ca6d
children e9a8269384bb
line wrap: on
line diff
--- a/net.rhope	Sun Nov 21 22:47:14 2010 -0500
+++ b/net.rhope	Mon Nov 22 01:15:02 2010 -0500
@@ -433,7 +433,7 @@
 		{
 			data,out con,err <- [con]_Read Delim[delim,poffset,buflist]
 		}{
-			err <- [Fold[_Add Len[?], 0, buflist]]+[Length[[con]Buffer >>]]
+			err <- [Fold[_Add Len[?], 0, buflist]]+[Length[[con]Read Buffer >>]]
 		}
 	}{
 		,checknew <- If[[poffset]>=[0]]
@@ -441,18 +441,18 @@
 			If[[[delim]Length]>[[outbuf]Length]]
 			{
 				//Avoid possibility of having to check across more than 2 buffers
-				data,out con,err <-[[con]Buffer <<[
-						_Merge Buffers[[[buflist]Append[[con]Buffer >>]]Append[outbuf]]
+				data,out con,err <-[[con]Read Buffer <<[
+						_Merge Buffers[[[buflist]Append[[con]Read Buffer >>]]Append[outbuf]]
 					]
 				]Read Delim[delim]
 			}{
-				,checknew <- _Check Split[[con]Buffer >>, outbuf, delim ,poffset]
+				,checknew <- _Check Split[[con]Read Buffer >>, outbuf, delim ,poffset]
 				{
 					before <- [_internal_array_copychunk[[con]Read Buffer >>, 0, _internal_array_allocnaked[~, UInt8()], 0, ~]
 					]Length <<[~]
 					
 					data <- _Merge Buffers[[buflist]Append[before]]
-					after off <- [[delim]Length]- [[[[con]Buffer >>]Length]-[~]]
+					after off <- [[delim]Length]- [[[[con]Read Buffer >>]Length]-[~]]
 					rbufferlen <- [[outbuf]Length]-[after off]
 					out con <- [con]Read Buffer <<[
 						[_internal_array_copychunk[outbuf, after off,