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

   1 (* Copyright (C) 2009 Matthew Fluet.
   2  * Copyright (C) 1999-2006 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 Char : CHAR =
  11    struct
  12       open Pervasive.Char
  13
  14       (* SML/NJ doesn't escape #"\000" to three octal digits. *)
  15       val toCString =
  16          fn #"\000" => "\\000"
  17           | c => toCString c
  18    end