1 (* Copyright (C) 2009 Matthew Fluet.
2 * Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
3 * Jagannathan, and Stephen Weeks.
5 * MLton is released under a BSD-style license.
6 * See the file MLton-LICENSE for details.
14 Black | Red | Green | Brown | Blue | Magenta | Cyan | Gray
20 DarkGray | BrightRed | BrightGreen | Yellow | BrightBlue
21 | BrightMagenta | BrightCyan | White
24 structure CharRendition:
27 Default (* Normal, UnderlineOff, ReverseVideoOf,f BlinkOff *)
33 | UnderlineOnDefaultForeground
34 | UnderlineOffDefaultForeground
39 | Foreground of Foreground.t
40 | Background of Background.t
42 val set: t list -> string
45 val moveToColumn: int -> string