Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/Basis/Implementation/IO/bin-io-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/IO/bin-io-fn.sml

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

revision 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 20  Line 20 
20    
21      structure PIO = OSPrimIO.PrimIO      structure PIO = OSPrimIO.PrimIO
22      structure A = Word8Array      structure A = Word8Array
23        structure AS = Word8ArraySlice
24      structure V = Word8Vector      structure V = Word8Vector
25        structure VS = Word8VectorSlice
26      structure Pos = Position      structure Pos = Position
27    
28    (* an element for initializing buffers *)    (* an element for initializing buffers *)
# Line 52  Line 54 
54              (* end case *)              (* end case *)
55            end            end
56  **)  **)
57      val vecExtract = V.extract      val vecExtract = VS.vector o VS.slice
58      val vecSub = V.sub      val vecSub = V.sub
59      val arrUpdate = A.update      val arrUpdate = A.update
60      val empty = V.fromList[]      val empty = V.fromList[]
# Line 426  Line 428 
428                  case !bufferMode                  case !bufferMode
429                   of IO.NO_BUF => writeDirect ()                   of IO.NO_BUF => writeDirect ()
430                    | _ => let                    | _ => let
431                        fun copyVec (src, srcI, srcLen, dst, dstI) = A.copyVec {                        fun copyVec (src, srcI, srcLen, dst, dstI) =
432                                src = src, si = srcI, len = SOME srcLen,                            AS.copyVec { src = VS.slice (src, srcI, SOME srcLen),
433                                dst = dst, di = dstI                                         dst = dst, di = dstI }
                             }  
434                        in                        in
435                          insert copyVec                          insert copyVec
436                        end                        end

Legend:
Removed from v.1349  
changed lines
  Added in v.1350

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