lib/stubs/basis-stubs-for-smlnj/string.sml

   1 (* Copyright (C) 2009 Matthew Fluet.
   2  * Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
   3  *    Jagannathan, and Stephen Weeks.
   4  * Copyright (C) 1997-2000 NEC Research Institute.
   5  *
   6  * MLton is released under a BSD-style license.
   7  * See the file MLton-LICENSE for details.
   8  *)
   9
  10 structure String : STRING =
  11    struct
  12       open Pervasive.String
  13
  14       (* SML/NJ doesn't escape #"\000" to three octal digits. *)
  15       val toCString = translate Char.toCString
  16    end