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

Diff of /sml/trunk/src/system/Basis/Implementation/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 82  Line 82 
82  (** NOTE: could use unchecked operations here **)  (** NOTE: could use unchecked operations here **)
83                    String.substring (src, p, m)                    String.substring (src, p, m)
84                  end                  end
85            fun readA {buf, i, sz} = let            fun readA asl = let
86                  val p = !pos                  val p = !pos
87                  val m = (case sz                  val (buf, i, n) = CharArraySlice.base asl
88                         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 *))  
89                  in                  in
90                    checkClosed ();                    checkClosed ();
91                    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