basis-library/libs/basis-1997/posix/tty-convert.fun

   1 (* Copyright (C) 2002-2006 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 functor PosixTTYConvert
   9         (structure TTY: POSIX_TTY) :
  10         POSIX_TTY_1997 =
  11   struct
  12      open TTY
  13      structure I =
  14         struct
  15            open I
  16            structure Flags = FlagsConvert(structure Flags = I)
  17            open Flags
  18         end
  19      structure O =
  20         struct
  21            open O
  22            structure Flags = FlagsConvert(structure Flags = O)
  23            open Flags
  24         end
  25      structure C =
  26         struct
  27            open C
  28            structure Flags = FlagsConvert(structure Flags = C)
  29            open Flags
  30         end
  31      structure L =
  32         struct
  33            open L
  34            structure Flags = FlagsConvert(structure Flags = L)
  35            open Flags
  36         end
  37      open TC
  38   end