CVS: sml-dist/src/system/Basis/Implementation/Unix os-path.sml,1.3,1.4 unix.sml,1.4,1.5

Update of /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/Unix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28271/src/system/Basis/Implementation/Unix

Modified Files:
	os-path.sml unix.sml 
Log Message:
  Remove Substring.all.


Index: os-path.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/Unix/os-path.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** os-path.sml	10 Sep 2003 00:27:29 -0000	1.3
--- os-path.sml	7 Nov 2005 18:17:09 -0000	1.4
***************
*** 25,34 ****
      fun validVolume (_, vol)= Substring.isEmpty vol
  
!     val volSS = Substring.all ""
  
    (* Note: we are guaranteed that this is never called with "" *)
      fun splitVolPath s = if (InlineT.CharVector.sub(s, 0) = #"/")
! 	  then (true, volSS, Substring.triml 1 (Substring.all s))
! 	  else (false, volSS, Substring.all s)
  
      fun joinVolPath (true, "", "") = "/"
--- 25,34 ----
      fun validVolume (_, vol)= Substring.isEmpty vol
  
!     val volSS = Substring.full ""
  
    (* Note: we are guaranteed that this is never called with "" *)
      fun splitVolPath s = if (InlineT.CharVector.sub(s, 0) = #"/")
! 	  then (true, volSS, Substring.triml 1 (Substring.full s))
! 	  else (false, volSS, Substring.full s)
  
      fun joinVolPath (true, "", "") = "/"

Index: unix.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/Unix/unix.sml,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** unix.sml	18 Jun 2004 19:29:02 -0000	1.4
--- unix.sml	7 Nov 2005 18:17:09 -0000	1.5
***************
*** 123,127 ****
                   PIO.close (#outfd p2); 
                   PIO.close (#infd p2))
!             val base = SS.string(SS.taker (fn c => c <> #"/") (SS.all cmd))
              fun startChild () =
  		case protect P.fork () of
--- 123,127 ----
                   PIO.close (#outfd p2); 
                   PIO.close (#infd p2))
!             val base = SS.string(SS.taker (fn c => c <> #"/") (SS.full cmd))
              fun startChild () =
  		case protect P.fork () of



-------------------------------------------------------
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