basis-library/config/default/default-widechar32.sml

   1 (* Copyright (C) 1999-2007 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 structure WideChar = Char32
   9 structure WideString = String32
  10
  11 functor WideChar_ChooseChar (A: CHOOSE_CHARN_ARG) :
  12    sig val f : WideChar.char A.t end =
  13    ChooseCharN_Char32 (A)
  14
  15 functor WideString_ChooseString (A: CHOOSE_STRINGN_ARG) :
  16    sig val f : WideString.string A.t end =
  17    ChooseStringN_String32 (A)