Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cml/src/Win32/win32-text-prim-io.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/src/Win32/win32-text-prim-io.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1381, Wed Sep 17 21:28:41 2003 UTC revision 1382, Wed Sep 17 22:24:52 2003 UTC
# Line 101  Line 101 
101  (** NOTE: could use unchecked operations here **)  (** NOTE: could use unchecked operations here **)
102                    String.substring (src, p, m)                    String.substring (src, p, m)
103                  end                  end
104            fun readA {buf, i, sz} = let            fun readA asl = let
105                  val (buf, i, n) = CharArraySlice.base asl
106                  val p = !pos                  val p = !pos
107                  val m = (case sz                  val m = Int.min(n, len-p)
                        of NONE => Int.min(CharArray.length buf-i, len-p)  
                         | (SOME n) => Int.min(n, len-p)  
                       (* end case *))  
108                  in                  in
109                    checkClosed ();                    checkClosed ();
110                    pos := p+m;                    pos := p+m;

Legend:
Removed from v.1381  
changed lines
  Added in v.1382

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0