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/Unix/posix-text-prim-io.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/src/Unix/posix-text-prim-io.sml

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

revision 1380, Wed Sep 17 20:20:51 2003 UTC revision 1381, Wed Sep 17 21:28:41 2003 UTC
# Line 80  Line 80 
80  (** NOTE: could use unchecked operations here **)  (** NOTE: could use unchecked operations here **)
81                    String.substring (src, p, m)                    String.substring (src, p, m)
82                  end                  end
83            fun readA {buf, i, sz} = let            fun readA asl = let
84                  val p = !pos                  val p = !pos
85                  val m = (case sz                  val (buf, i, n) = CharArraySlice.base asl
86                         of NONE => Int.min(CharArray.length buf-i, len-p)                  val m = Int.min (n, len - p)
                         | (SOME n) => Int.min(n, len-p)  
                       (* end case *))  
87                  in                  in
88                    checkClosed ();                    checkClosed ();
89                    pos := p+m;                    pos := p+m;

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

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