Author: quozl Date: Wed Feb 15 01:27:00 2012 New Revision: 2864 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2864
Log: Terminal Emulator - reset colour on <ESC>[m, adopt ECMA-48 SGR semantics, as used by VT100, Linux console, xterm, and other emulators.
Modified: ofw/termemu/fwritstr.fth
Modified: ofw/termemu/fwritstr.fth ============================================================================== --- ofw/termemu/fwritstr.fth Wed Feb 15 01:23:33 2012 (r2863) +++ ofw/termemu/fwritstr.fth Wed Feb 15 01:27:00 2012 (r2864) @@ -255,29 +255,6 @@
headerless
-\ Boldness applies retroactively only to the foreground color; the -\ current background color is unaffected. However, setting the -\ background color applies the current boldness state of the foreground -\ color to the background color. This gives a client program complete -\ and independent control over the boldness of both the foreground and -\ background colors (by judiciously sequencing the setting of colors -\ and boldness), and preserves as much as practical the semi-IBM-PC -\ semantics that ARC clients assume. The semantics are not exactly the -\ same as the PC, because the PC (actually ANSI.SYS) zaps the colors -\ to dim white on black in response to CSI 0 m, and to black on dim -\ white in response to CSI 7 m, while some ARC clients (in particular -\ ARCINST.EXE) assume that CSI 0 m preserves the fundamental color scheme -\ that is currently in effect. Convoluted? You bet! -\ -\ The fact that this implementation of CSI 7 m and CSI 0 m do not force -\ the colors back to black and white is also advantageous for programs -\ that use these sequences for "standout-start ... standout-end", for -\ which it is nice not to wantonly change the current color scheme. It -\ is also important that CSI 0 m does not immediately alter the boldness -\ of the background color, because in the common case of a bright white -\ background, that prevents CSI 7 m ... CSI 0 m from changing the background -\ to dim white. - : bold ( -- mask ) foreground-color 8 and ; : bold-on ( -- ) foreground-color 8 or to foreground-color @@ -285,7 +262,7 @@ : bold-off ( -- ) foreground-color 8 invert and to foreground-color ; -: default-attributes ( -- ) false to inverse? bold-off ; +: default-attributes ( -- ) false to inverse? 0 to foreground-color ; : >color# ( ansi-color-code -- palette# ) 10 mod " "(00 04 02 06 01 05 03 07)" drop + c@ ;