(* Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 * Copyright (C) 1997-2000 NEC Research Institute.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

structure TextIO: TEXT_IO_EXTRA =
   struct
      structure IO =
         ImperativeIOExtra
         (structure Array = CharArray
          structure ArraySlice = CharArraySlice
          structure PrimIO = TextPrimIO
          structure Vector = CharVector
          structure VectorSlice = CharVectorSlice
          val chunkSize = Int32.toInt (Primitive.Controls.bufSize)
          val fileTypeFlags = [PrimitiveFFI.Posix.FileSys.O.TEXT]
          val line = SOME {isLine = fn c => c = #"\n",
                           lineElem = #"\n"}
          val mkReader = Posix.IO.mkTextReader
          val mkWriter = Posix.IO.mkTextWriter
          val someElem = (#"\000": Char.char)
          val xlatePos = SOME {fromInt = fn i => i,
                               toInt = fn i => i})
      open IO

      structure StreamIO =
         struct
            open StreamIO

            fun outputSubstr (s, ss) = outputSlice (s, ss)
         end

      val outputSubstr = outputSlice

      val openString = openVector

      fun print (s: string) = (output (stdOut, s); flushOut stdOut)
   end

structure TextIOGlobal: TEXT_IO_GLOBAL = TextIO
open TextIOGlobal