CVS: sml-dist/src/eXene/lib/protocol xrequest.sml,1.4,1.5 xserver-addr.sml,1.2,1.3

Update of /cvsroot/smlnj/sml-dist/src/eXene/lib/protocol
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4095/src/eXene/lib/protocol

Modified Files:
	xrequest.sml xserver-addr.sml 
Log Message:
fixed bug in xxxArraySlice.update; pushed Basis changes through

Index: xrequest.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/lib/protocol/xrequest.sml,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** xrequest.sml	2 Nov 2005 22:24:38 -0000	1.4
--- xrequest.sml	7 Nov 2005 23:03:17 -0000	1.5
***************
*** 47,51 ****
        fun putSigned32 (buf, i, x) = put32(buf, i, LargeWord.fromInt x)
  
!       fun putString (buf, i, s) = Byte.packString(v2a buf, i, Substring.all s)
        fun putData (buf, i, bv) = W8A.copyVec{
  	      dst=v2a buf, di=i, src=bv
--- 47,51 ----
        fun putSigned32 (buf, i, x) = put32(buf, i, LargeWord.fromInt x)
  
!       fun putString (buf, i, s) = Byte.packString(v2a buf, i, Substring.full s)
        fun putData (buf, i, bv) = W8A.copyVec{
  	      dst=v2a buf, di=i, src=bv

Index: xserver-addr.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/lib/protocol/xserver-addr.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** xserver-addr.sml	1 Jun 2000 18:33:40 -0000	1.2
--- xserver-addr.sml	7 Nov 2005 23:03:17 -0000	1.3
***************
*** 64,68 ****
  		(* end case *))
  	  val (hostname, rest) = let
! 		val (a, b) = SS.splitl (fn #":" => false | _ => true) (SS.all s)
  		in
  		  (SS.string a, SS.triml 1 b)
--- 64,68 ----
  		(* end case *))
  	  val (hostname, rest) = let
! 		val (a, b) = SS.splitl (fn #":" => false | _ => true) (SS.full s)
  		in
  		  (SS.string a, SS.triml 1 b)



-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php