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

SCM Repository

[smlnj] Diff of /sml/trunk/src/cml/src/IO/new-bin-io-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/cml/src/IO/new-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 19  Line 19 
19    
20      structure PIO = OSPrimIO.PrimIO      structure PIO = OSPrimIO.PrimIO
21      structure A = Word8Array      structure A = Word8Array
22        structure AS = Word8ArraySlice
23      structure V = Word8Vector      structure V = Word8Vector
24        structure VS = Word8VectorSlice
25      structure Pos = Position      structure Pos = Position
26    
27      structure SV = SyncVar      structure SV = SyncVar
# Line 30  Line 32 
32    (* an element for initializing buffers *)    (* an element for initializing buffers *)
33      val someElem = (0w0 : Word8.word)      val someElem = (0w0 : Word8.word)
34    
35      val vecExtract = V.extract      val vecExtract = VS.vector o VS.slice
36      val vecSub = V.sub      val vecSub = V.sub
37      val arrUpdate = A.update      val arrUpdate = A.update
38      val empty = V.fromList[]      val empty = V.fromList[]
# Line 520  Line 522 
522                  case !bufferMode                  case !bufferMode
523                   of IO.NO_BUF => writeDirect ()                   of IO.NO_BUF => writeDirect ()
524                    | _ => let                    | _ => let
525                        fun copyVec (src, srcI, srcLen, dst, dstI) = A.copyVec {                        fun copyVec (src, srcI, srcLen, dst, dstI) =
526                                src = src, si = srcI, len = SOME srcLen,                            AS.copyVec
527                                dst = dst, di = dstI                                { src = VS.slice (src, srcI, SOME srcLen),
528                              }                                  dst = dst, di = dstI }
529                        in                        in
530                          insert copyVec                          insert copyVec
531                        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