basis-library/libs/basis-1997/text/text-convert.fun

   1 (* Copyright (C) 2002-2005 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 TextConvert (structure Text: TEXT):
   9    sig
  10       structure Char: CHAR
  11       structure String: STRING_1997
  12       structure Substring: SUBSTRING_1997
  13       sharing type Char.char = String.Char.char = Substring.String.Char.char
  14       sharing type String.string = Substring.String.string
  15    end =
  16    struct
  17       structure Char = Text.Char
  18       structure String =
  19          struct
  20             structure Char = Char
  21             open Text.String
  22          end
  23       structure Substring =
  24          struct
  25             structure String = String
  26             open Text.Substring
  27             val all = full
  28          end
  29    end