basis-library/text/string0.sml

   1 (* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  * Copyright (C) 1997-2000 NEC Research Institute.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  *)
   8
   9 structure String =
  10    struct
  11       open CharVector
  12       type string = vector
  13
  14       val size = length
  15       val op ^ = append
  16       val implode = fromList
  17       val new = vector
  18    end
  19
  20 (*
  21 structure WideString =
  22    struct
  23       open WideCharVector
  24       type string = vector
  25
  26       val size = length
  27       val op ^ = append
  28       val implode = fromList
  29       val new = vector
  30    end
  31 *)