payloads/libpayload/curses/pdcurses-backend/pdcdisp.c

   1 /* Public Domain Curses */
   2 /* This file is BSD licensed, Copyright 2011 secunet AG */
   3
   4 #include "lppdc.h"
   5 #include <libpayload.h>
   6
   7 /* ACS definitions originally by jshumate@wrdis01.robins.af.mil -- these
   8    match code page 437 and compatible pages (CP850, CP852, etc.) */
   9
  10 #ifdef CHTYPE_LONG
  11
  12 # define A(x) ((chtype)x | A_ALTCHARSET)
  13
  14 chtype acs_map[128] =
  15 {
  16     A(0), A(1), A(2), A(3), A(4), A(5), A(6), A(7), A(8), A(9), A(10),
  17     A(11), A(12), A(13), A(14), A(15), A(16), A(17), A(18), A(19),
  18     A(20), A(21), A(22), A(23), A(24), A(25), A(26), A(27), A(28),
  19     A(29), A(30), A(31), ' ', '!', '"', '#', '$', '%', '&', '\'', '(',
  20     ')', '*',
  21
  22     A(0x1a), A(0x1b), A(0x18), A(0x19),
  23
  24     '/',
  25
  26     0xdb,
  27
  28     '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';', '<', '=',
  29     '>', '?', '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
  30     'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
  31     'X', 'Y', 'Z', '[', '\\', ']', '^', '_',
  32
  33     A(0x04), 0xb1,
  34
  35     'b', 'c', 'd', 'e',
  36
  37     0xf8, 0xf1, 0xb0, A(0x0f), 0xd9, 0xbf, 0xda, 0xc0, 0xc5, 0x2d, 0x2d,
  38     0xc4, 0x2d, 0x5f, 0xc3, 0xb4, 0xc1, 0xc2, 0xb3, 0xf3, 0xf2, 0xe3,
  39     0xd8, 0x9c, 0xf9,
  40
  41     A(127)
  42 };
  43
  44 # undef A
  45
  46 #endif
  47
  48 /* See terminfo(5). */
  49 chtype fallback_acs_map[128] =
  50         {
  51         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  52         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  53         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  54         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  55         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  56         ' ',    ' ',    ' ',    '>',    '<',    '^',    'v',    ' ',
  57         '#',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  58         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  59         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  60         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  61         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  62         ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',    ' ',
  63         '+',    ':',    ' ',    ' ',    ' ',    ' ',    '\\',   '#',
  64         '#',    '#',    '+',    '+',    '+',    '+',    '+',    '~',
  65         '-',    '-',    '-',    '_',    '+',    '+',    '+',    '+',
  66         '|',    '<',    '>',    '*',    '!',    'f',    'o',    ' ',
  67         };
  68
  69 #ifdef CONFIG_SERIAL_CONSOLE
  70 #ifdef CONFIG_SERIAL_ACS_FALLBACK
  71 chtype serial_acs_map[128];
  72 #else
  73 /* See acsc of vt100. */
  74 chtype serial_acs_map[128] =
  75         {
  76         0,      0,      0,      0,      0,      0,      0,      0,
  77         0,      0,      0,      0,      0,      0,      0,      0,
  78         0,      0,      0,      0,      0,      0,      0,      0,
  79         0,      0,      0,      0,      0,      0,      0,      0,
  80         0,      0,      0,      0,      0,      0,      0,      0,
  81         0,      0,      0,      0,      0,      0,      0,      0,
  82         0,      0,      0,      0,      0,      0,      0,      0,
  83         0,      0,      0,      0,      0,      0,      0,      0,
  84         0,      0,      0,      0,      0,      0,      0,      0,
  85         0,      0,      0,      0,      0,      0,      0,      0,
  86         0,      0,      0,      0,      0,      0,      0,      0,
  87         0,      0,      0,      0,      0,      0,      0,      0,
  88         '`',    'a',    0,      0,      0,      0,      'f',    'g',
  89         0,      0,      'j',    'k',    'l',    'm',    'n',    'o',
  90         'p',    'q',    'r',    's',    't',    'u',    'v',    'w',
  91         'x',    'y',    'z',    '{',    '|',    '}',    '~',    0,
  92         };
  93 #endif
  94 #endif
  95
  96 #ifdef CONFIG_VIDEO_CONSOLE
  97 /* See acsc of linux. */
  98 chtype console_acs_map[128] =
  99         {
 100         0,      0,      0,      0,      0,      0,      0,      0,
 101         0,      0,      0,      0,      0,      0,      0,      0,
 102         0,      0,      0,      0,      0,      0,      0,      0,
 103         0,      0,      0,      0,      0,      0,      0,      0,
 104         0,      0,      0,      0,      0,      0,      0,      0,
 105         0,      0,      0,      '\020', '\021', '\030', '\031', 0,
 106         '\333', 0,      0,      0,      0,      0,      0,      0,
 107         0,      0,      0,      0,      0,      0,      0,      0,
 108         0,      0,      0,      0,      0,      0,      0,      0,
 109         0,      0,      0,      0,      0,      0,      0,      0,
 110         0,      0,      0,      0,      0,      0,      0,      0,
 111         0,      0,      0,      0,      0,      0,      0,      0,
 112         '\004', '\261', 0,      0,      0,      0,      '\370', '\361',
 113         '\260', '\316', '\331', '\277', '\332', '\300', '\305', '~',
 114         '\304', '\304', '\304', '_',    '\303', '\264', '\301', '\302',
 115         '\263', '\363', '\362', '\343', '\330', '\234', '\376', 0,
 116         };
 117 #endif
 118
 119 /* position hardware cursor at (y, x) */
 120
 121 void PDC_gotoyx(int row, int col)
 122 {
 123     PDC_LOG(("PDC_gotoyx() - called: row %d col %d\n", row, col));
 124
 125 #ifdef CONFIG_SERIAL_CONSOLE
 126     serial_set_cursor(col, row);
 127 #endif
 128 #ifdef CONFIG_VIDEO_CONSOLE
 129     video_console_set_cursor(col, row);
 130 #endif
 131 }
 132
 133 /* update the given physical line to look like the corresponding line in
 134    curscr */
 135
 136 void PDC_transform_line(int lineno, int x, int len, const chtype *srcp)
 137 {
 138     int j, ch, attr;
 139
 140     PDC_LOG(("PDC_transform_line() - called: line %d, len %d, curses_flags %d\n", lineno, len, curses_flags));
 141
 142 #ifdef CONFIG_SERIAL_CONSOLE
 143     int serial_is_bold = 0;
 144     int serial_is_reverse = 0;
 145     int serial_is_altcharset = 0;
 146     int serial_cur_pair = 0;
 147     int need_altcharset;
 148
 149     if (curses_flags & F_ENABLE_SERIAL) {
 150         serial_end_bold();
 151         serial_end_altcharset();
 152         serial_set_cursor(lineno, x);
 153     }
 154 #endif
 155
 156     for (j = 0; j < len; j++)
 157     {
 158         ch = srcp[j];
 159         attr = ch;
 160 #ifdef CONFIG_SERIAL_CONSOLE
 161         if (curses_flags & F_ENABLE_SERIAL) {
 162                 if (attr & A_BOLD) {
 163                         if (!serial_is_bold) {
 164                                 serial_start_bold();
 165                                 serial_is_bold = 1;
 166                         }
 167                 } else {
 168                         if (serial_is_bold) {
 169                                 serial_end_bold();
 170                                 serial_is_bold = 0;
 171                                 /* work around serial.c
 172                                  * shortcoming:
 173                                  */
 174                                 serial_is_reverse = 0;
 175                                 serial_cur_pair = 0;
 176                         }
 177                 }
 178
 179                 if (attr & A_REVERSE) {
 180                         if (!serial_is_reverse) {
 181                                 serial_start_reverse();
 182                                 serial_is_reverse = 1;
 183                         }
 184                 } else {
 185                         if (serial_is_reverse) {
 186                                 serial_end_reverse();
 187                                 serial_is_reverse = 0;
 188                                 /* work around serial.c
 189                                  * shortcoming:
 190                                  */
 191                                 serial_is_bold = 0;
 192                                 serial_cur_pair = 0;
 193                         }
 194                 }
 195
 196                 need_altcharset = 0;
 197                 if (attr & A_ALTCHARSET) {
 198                         if (serial_acs_map[ch & 0x7f]) {
 199                                 ch = serial_acs_map[ch & 0x7f];
 200                                 need_altcharset = 1;
 201                         } else
 202                                 ch = fallback_acs_map[ch & 0x7f];
 203                 }
 204                 if (need_altcharset && !serial_is_altcharset) {
 205                         serial_start_altcharset();
 206                         serial_is_altcharset = 1;
 207                 }
 208                 if (!need_altcharset && serial_is_altcharset) {
 209                         serial_end_altcharset();
 210                         serial_is_altcharset = 0;
 211                 }
 212
 213                 if (serial_cur_pair != PAIR_NUMBER(attr)) {
 214                         short int fg, bg;
 215                         pair_content(PAIR_NUMBER(attr),
 216                                      &fg, &bg);
 217                         serial_set_color(fg, bg);
 218                         serial_cur_pair = PAIR_NUMBER(attr);
 219                 }
 220
 221                 serial_putchar(ch & 0xff);
 222
 223         }
 224 #endif
 225 #ifdef CONFIG_VIDEO_CONSOLE
 226         unsigned char c = pdc_atrtab[srcp[j] >> PDC_ATTR_SHIFT];
 227
 228         if (curses_flags & F_ENABLE_CONSOLE) {
 229                 if (attr & A_ALTCHARSET) {
 230                         if (console_acs_map[ch & 0x7f])
 231                                 ch = console_acs_map[ch & 0x7f];
 232                         else
 233                                 ch = fallback_acs_map[ch & 0x7f];
 234                 }
 235
 236                 /*
 237                  * FIXME: Somewhere along the line, the
 238                  * character value is getting sign-extented.
 239                  * For now grab just the 8 bit character,
 240                  * but this will break wide characters!
 241                  */
 242                 video_console_putc(lineno, x + j, (c << 8) | ( ch & 0xff));
 243         }
 244 #endif
 245     }
 246 }
 247