src/viewer/nroff.c

   1 /*
   2    Internal file viewer for the Midnight Commander
   3    Function for nroff-like view
   4
   5    Copyright (C) 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003,
   6    2004, 2005, 2006, 2007, 2009 Free Software Foundation, Inc.
   7
   8    Written by: 1994, 1995, 1998 Miguel de Icaza
   9    1994, 1995 Janne Kukonlehto
  10    1995 Jakub Jelinek
  11    1996 Joseph M. Hinkle
  12    1997 Norbert Warmuth
  13    1998 Pavel Machek
  14    2004 Roland Illig <roland.illig@gmx.de>
  15    2005 Roland Illig <roland.illig@gmx.de>
  16    2009 Slava Zanko <slavazanko@google.com>
  17    2009 Andrew Borodin <aborodin@vmail.ru>
  18    2009 Ilia Maslakov <il.smind@gmail.com>
  19
  20    This file is part of the Midnight Commander.
  21
  22    The Midnight Commander is free software; you can redistribute it
  23    and/or modify it under the terms of the GNU General Public License as
  24    published by the Free Software Foundation; either version 2 of the
  25    License, or (at your option) any later version.
  26
  27    The Midnight Commander is distributed in the hope that it will be
  28    useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  29    of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  30    General Public License for more details.
  31
  32    You should have received a copy of the GNU General Public License
  33    along with this program; if not, write to the Free Software
  34    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  35    MA 02110-1301, USA.
  36  */
  37
  38 #include <config.h>
  39
  40 #include "lib/global.h"
  41 #include "lib/tty/tty.h"
  42 #include "lib/skin.h"
  43 #include "lib/charsets.h"
  44
  45 #include "src/main.h"           /* utf8_display */
  46 #include "src/setup.h"          /* option_tab_spacing */
  47
  48 #include "internal.h"
  49
  50 /*** global variables ****************************************************************************/
  51
  52 /*** file scope macro definitions ****************************************************************/
  53
  54 /*** file scope type declarations ****************************************************************/
  55
  56 /*** file scope variables ************************************************************************/
  57
  58 /*** file scope functions ************************************************************************/
  59 /* --------------------------------------------------------------------------------------------- */
  60
  61 /* --------------------------------------------------------------------------------------------- */
  62 /*** public functions ****************************************************************************/
  63 /* --------------------------------------------------------------------------------------------- */
  64
  65 void
  66 mcview_display_nroff (mcview_t * view)
  67 {
  68     const screen_dimen left = view->data_area.left;
  69     const screen_dimen top = view->data_area.top;
  70     const screen_dimen width = view->data_area.width;
  71     const screen_dimen height = view->data_area.height;
  72     screen_dimen row, col;
  73     off_t from;
  74     int cw = 1;
  75     int c;
  76     int c_prev = 0;
  77     int c_next = 0;
  78     struct hexedit_change_node *curr = view->change_list;
  79
  80     mcview_display_clean (view);
  81     mcview_display_ruler (view);
  82
  83     /* Find the first displayable changed byte */
  84     from = view->dpy_start;
  85     while (curr && (curr->offset < from))
  86     {
  87         curr = curr->next;
  88     }
  89
  90     tty_setcolor (NORMAL_COLOR);
  91     for (row = 0, col = 0; row < height;)
  92     {
  93 #ifdef HAVE_CHARSET
  94         if (view->utf8)
  95         {
  96             gboolean read_res = TRUE;
  97             c = mcview_get_utf (view, from, &cw, &read_res);
  98             if (!read_res)
  99                 break;
 100         }
 101         else
 102 #endif
 103         {
 104             if (!mcview_get_byte (view, from, &c))
 105                 break;
 106         }
 107         from++;
 108         if (cw > 1)
 109             from += cw - 1;
 110
 111         if (c == '\b')
 112         {
 113             if (from > 1)
 114             {
 115                 mcview_get_byte (view, from - 2, &c_prev);
 116                 mcview_get_byte (view, from, &c_next);
 117             }
 118             if (g_ascii_isprint (c_prev) && g_ascii_isprint (c_prev)
 119                 && (c_prev == c_next || c_prev == '_' || (c_prev == '+' && c_next == 'o')))
 120             {
 121                 if (col == 0)
 122                 {
 123                     if (row == 0)
 124                     {
 125                         /* We're inside an nroff character sequence at the
 126                          * beginning of the screen -- just skip the
 127                          * backspace and continue with the next character. */
 128                         continue;
 129                     }
 130                     row--;
 131                     col = width;
 132                 }
 133                 col--;
 134                 if (c_prev == '_'
 135                     && (c_next != '_' || mcview_count_backspaces (view, from + 1) == 1))
 136                     tty_setcolor (VIEW_UNDERLINED_COLOR);
 137                 else
 138                     tty_setcolor (VIEW_BOLD_COLOR);
 139                 continue;
 140             }
 141         }
 142
 143         if ((c == '\n') || (col >= width && view->text_wrap_mode))
 144         {
 145             col = 0;
 146             row++;
 147             if (c == '\n' || row >= height)
 148                 continue;
 149         }
 150
 151         if (c == '\r')
 152         {
 153             mcview_get_byte_indexed (view, from, 1, &c);
 154             if (c == '\r' || c == '\n')
 155                 continue;
 156             col = 0;
 157             row++;
 158             continue;
 159         }
 160
 161         if (c == '\t')
 162         {
 163             off_t line, column;
 164             mcview_offset_to_coord (view, &line, &column, from);
 165             col += (option_tab_spacing - col % option_tab_spacing);
 166             if (view->text_wrap_mode && col >= width && width != 0)
 167             {
 168                 row += col / width;
 169                 col %= width;
 170             }
 171             continue;
 172         }
 173
 174         if (view->search_start <= from && from < view->search_end)
 175         {
 176             tty_setcolor (SELECTED_COLOR);
 177         }
 178
 179         if ((off_t) col >= view->dpy_text_column
 180             && (off_t) col - view->dpy_text_column < (off_t) width)
 181         {
 182             widget_move (view, top + row, left + ((off_t) col - view->dpy_text_column));
 183 #ifdef HAVE_CHARSET
 184             if (utf8_display)
 185             {
 186                 if (!view->utf8)
 187                 {
 188                     c = convert_from_8bit_to_utf_c ((unsigned char) c, view->converter);
 189                 }
 190                 if (!g_unichar_isprint (c))
 191                     c = '.';
 192             }
 193             else
 194             {
 195                 if (view->utf8)
 196                 {
 197                     c = convert_from_utf_to_current_c (c, view->converter);
 198                 }
 199                 else
 200                 {
 201 #endif
 202                     c = convert_to_display_c (c);
 203 #ifdef HAVE_CHARSET
 204                 }
 205             }
 206 #endif
 207             tty_print_anychar (c);
 208         }
 209         col++;
 210 #ifdef HAVE_CHARSET
 211         if (view->utf8)
 212         {
 213             if (g_unichar_iswide (c))
 214                 col++;
 215             else if (g_unichar_iszerowidth (c))
 216                 col--;
 217         }
 218 #endif
 219         tty_setcolor (NORMAL_COLOR);
 220     }
 221     view->dpy_end = from;
 222 }
 223
 224 /* --------------------------------------------------------------------------------------------- */
 225
 226 int
 227 mcview__get_nroff_real_len (mcview_t * view, off_t start, off_t length)
 228 {
 229     mcview_nroff_t *nroff;
 230     int ret = 0;
 231     off_t i = 0;
 232
 233     nroff = mcview_nroff_seq_new_num (view, start);
 234     if (nroff == NULL)
 235         return 0;
 236
 237     while (i < length)
 238     {
 239         if (nroff->type != NROFF_TYPE_NONE)
 240         {
 241             ret += 2;
 242         }
 243         i++;
 244         mcview_nroff_seq_next (nroff);
 245     }
 246
 247     mcview_nroff_seq_free (&nroff);
 248     return ret;
 249 }
 250
 251 /* --------------------------------------------------------------------------------------------- */
 252
 253 mcview_nroff_t *
 254 mcview_nroff_seq_new_num (mcview_t * view, off_t lc_index)
 255 {
 256     mcview_nroff_t *nroff;
 257
 258     nroff = g_try_malloc0 (sizeof (mcview_nroff_t));
 259     if (nroff != NULL)
 260     {
 261         nroff->index = lc_index;
 262         nroff->view = view;
 263         mcview_nroff_seq_info (nroff);
 264     }
 265     return nroff;
 266 }
 267
 268 /* --------------------------------------------------------------------------------------------- */
 269
 270 mcview_nroff_t *
 271 mcview_nroff_seq_new (mcview_t * view)
 272 {
 273     return mcview_nroff_seq_new_num (view, (off_t) 0);
 274
 275 }
 276
 277 /* --------------------------------------------------------------------------------------------- */
 278
 279 void
 280 mcview_nroff_seq_free (mcview_nroff_t ** nroff)
 281 {
 282     if (nroff == NULL || *nroff == NULL)
 283         return;
 284     g_free (*nroff);
 285     *nroff = NULL;
 286 }
 287
 288 /* --------------------------------------------------------------------------------------------- */
 289
 290 nroff_type_t
 291 mcview_nroff_seq_info (mcview_nroff_t * nroff)
 292 {
 293     int next, next2;
 294
 295     if (nroff == NULL)
 296         return NROFF_TYPE_NONE;
 297     nroff->type = NROFF_TYPE_NONE;
 298
 299     if (!mcview_get_byte (nroff->view, nroff->index, &nroff->current_char) || !g_ascii_isprint (nroff->current_char))   /* FIXME: utf-8 and g_ascii_isprint */
 300         return nroff->type;
 301
 302     nroff->char_width = 1;
 303
 304     if (!mcview_get_byte (nroff->view, nroff->index + 1, &next) || next != '\b')
 305         return nroff->type;
 306
 307     if (!mcview_get_byte (nroff->view, nroff->index + 2, &next2) || !g_ascii_isprint (next2))   /* FIXME: utf-8 and g_ascii_isprint */
 308         return nroff->type;
 309
 310     if (nroff->current_char == '_' && next2 == '_')
 311     {
 312         nroff->type = (nroff->prev_type == NROFF_TYPE_BOLD)
 313             ? NROFF_TYPE_BOLD : NROFF_TYPE_UNDERLINE;
 314
 315     }
 316     else if (nroff->current_char == next2)
 317     {
 318         nroff->type = NROFF_TYPE_BOLD;
 319     }
 320     else if (nroff->current_char == '_')
 321     {
 322         nroff->current_char = next2;
 323         nroff->type = NROFF_TYPE_UNDERLINE;
 324     }
 325     else if (nroff->current_char == '+' && next2 == 'o')
 326     {
 327         /* ??? */
 328     }
 329
 330     return nroff->type;
 331 }
 332
 333 /* --------------------------------------------------------------------------------------------- */
 334
 335 int
 336 mcview_nroff_seq_next (mcview_nroff_t * nroff)
 337 {
 338     if (nroff == NULL)
 339         return -1;
 340
 341     nroff->prev_type = nroff->type;
 342
 343     nroff->index += nroff->char_width;
 344
 345     if (nroff->prev_type != NROFF_TYPE_NONE)
 346         nroff->index += 2;
 347     mcview_nroff_seq_info (nroff);
 348     return nroff->current_char;
 349 }
 350
 351 /* --------------------------------------------------------------------------------------------- */