src/viewer/lib.c

   1 /*
   2    Internal file viewer for the Midnight Commander
   3    Common finctions (used from some other mcviewer functions)
   4
   5    Copyright (C) 1994-2024
   6    Free Software Foundation, Inc.
   7
   8    Written by:
   9    Miguel de Icaza, 1994, 1995, 1998
  10    Janne Kukonlehto, 1994, 1995
  11    Jakub Jelinek, 1995
  12    Joseph M. Hinkle, 1996
  13    Norbert Warmuth, 1997
  14    Pavel Machek, 1998
  15    Roland Illig <roland.illig@gmx.de>, 2004, 2005
  16    Slava Zanko <slavazanko@google.com>, 2009, 2013
  17    Andrew Borodin <aborodin@vmail.ru>, 2009-2022
  18    Ilia Maslakov <il.smind@gmail.com>, 2009
  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 3 of the License,
  25    or (at your option) any later version.
  26
  27    The Midnight Commander is distributed in the hope that it will be useful,
  28    but WITHOUT ANY WARRANTY; without even the implied warranty of
  29    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30    GNU 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, see <http://www.gnu.org/licenses/>.
  34  */
  35
  36 #include <config.h>
  37
  38 #include <string.h>             /* memset() */
  39 #include <sys/types.h>
  40
  41 #include "lib/global.h"
  42 #include "lib/vfs/vfs.h"
  43 #include "lib/strutil.h"
  44 #include "lib/util.h"           /* save_file_position() */
  45 #include "lib/widget.h"
  46 #ifdef HAVE_CHARSET
  47 #include "lib/charsets.h"
  48 #endif
  49
  50 #ifdef HAVE_CHARSET
  51 #include "src/selcodepage.h"
  52 #endif
  53
  54 #include "internal.h"
  55
  56 /*** global variables ****************************************************************************/
  57
  58 /*** file scope macro definitions ****************************************************************/
  59
  60 /*** file scope type declarations ****************************************************************/
  61
  62 /*** file scope variables ************************************************************************/
  63
  64 /*** file scope functions ************************************************************************/
  65 /* --------------------------------------------------------------------------------------------- */
  66
  67 /* --------------------------------------------------------------------------------------------- */
  68 /*** public functions ****************************************************************************/
  69 /* --------------------------------------------------------------------------------------------- */
  70
  71 void
  72 mcview_toggle_magic_mode (WView *view)
  73 {
  74     char *filename, *command;
  75     dir_list *dir;
  76     int *dir_idx;
  77
  78     mcview_altered_flags.magic = TRUE;
  79     view->mode_flags.magic = !view->mode_flags.magic;
  80
  81     /* reinit view */
  82     filename = g_strdup (vfs_path_as_str (view->filename_vpath));
  83     command = g_strdup (view->command);
  84     dir = view->dir;
  85     dir_idx = view->dir_idx;
  86     view->dir = NULL;
  87     view->dir_idx = NULL;
  88     mcview_done (view);
  89     mcview_init (view);
  90     mcview_load (view, command, filename, 0, 0, 0);
  91     view->dir = dir;
  92     view->dir_idx = dir_idx;
  93     g_free (filename);
  94     g_free (command);
  95
  96     view->dpy_bbar_dirty = TRUE;
  97     view->dirty++;
  98 }
  99
 100 /* --------------------------------------------------------------------------------------------- */
 101
 102 void
 103 mcview_toggle_wrap_mode (WView *view)
 104 {
 105     view->mode_flags.wrap = !view->mode_flags.wrap;
 106     view->dpy_wrap_dirty = TRUE;
 107     view->dpy_bbar_dirty = TRUE;
 108     view->dirty++;
 109 }
 110
 111 /* --------------------------------------------------------------------------------------------- */
 112
 113 void
 114 mcview_toggle_nroff_mode (WView *view)
 115 {
 116     view->mode_flags.nroff = !view->mode_flags.nroff;
 117     mcview_altered_flags.nroff = TRUE;
 118     view->dpy_wrap_dirty = TRUE;
 119     view->dpy_bbar_dirty = TRUE;
 120     view->dirty++;
 121 }
 122
 123 /* --------------------------------------------------------------------------------------------- */
 124
 125 void
 126 mcview_toggle_hex_mode (WView *view)
 127 {
 128     view->mode_flags.hex = !view->mode_flags.hex;
 129
 130     if (view->mode_flags.hex)
 131     {
 132         view->hex_cursor = view->dpy_start;
 133         view->dpy_start = mcview_offset_rounddown (view->dpy_start, view->bytes_per_line);
 134         widget_want_cursor (WIDGET (view), TRUE);
 135     }
 136     else
 137     {
 138         view->dpy_start = mcview_bol (view, view->hex_cursor, 0);
 139         view->hex_cursor = view->dpy_start;
 140         widget_want_cursor (WIDGET (view), FALSE);
 141     }
 142     mcview_altered_flags.hex = TRUE;
 143     view->dpy_paragraph_skip_lines = 0;
 144     view->dpy_wrap_dirty = TRUE;
 145     view->dpy_bbar_dirty = TRUE;
 146     view->dirty++;
 147 }
 148
 149 /* --------------------------------------------------------------------------------------------- */
 150
 151 void
 152 mcview_init (WView *view)
 153 {
 154     size_t i;
 155
 156     view->filename_vpath = NULL;
 157     view->workdir_vpath = NULL;
 158     view->command = NULL;
 159     view->search_nroff_seq = NULL;
 160
 161     mcview_set_datasource_none (view);
 162
 163     view->growbuf_in_use = FALSE;
 164     /* leave the other growbuf fields uninitialized */
 165
 166     view->hexedit_lownibble = FALSE;
 167     view->locked = FALSE;
 168     view->coord_cache = NULL;
 169
 170     view->dpy_start = 0;
 171     view->dpy_paragraph_skip_lines = 0;
 172     mcview_state_machine_init (&view->dpy_state_top, 0);
 173     view->dpy_wrap_dirty = FALSE;
 174     view->force_max = -1;
 175     view->dpy_text_column = 0;
 176     view->dpy_end = 0;
 177     view->hex_cursor = 0;
 178     view->cursor_col = 0;
 179     view->cursor_row = 0;
 180     view->change_list = NULL;
 181
 182     /* {status,ruler,data}_area are left uninitialized */
 183
 184     view->dirty = 0;
 185     view->dpy_bbar_dirty = TRUE;
 186     view->bytes_per_line = 1;
 187
 188     view->search_start = 0;
 189     view->search_end = 0;
 190
 191     view->marker = 0;
 192     for (i = 0; i < G_N_ELEMENTS (view->marks); i++)
 193         view->marks[i] = 0;
 194
 195     view->update_steps = 0;
 196     view->update_activate = 0;
 197
 198     view->saved_bookmarks = NULL;
 199 }
 200
 201 /* --------------------------------------------------------------------------------------------- */
 202
 203 void
 204 mcview_done (WView *view)
 205 {
 206     /* Save current file position */
 207     if (mcview_remember_file_position && view->filename_vpath != NULL)
 208     {
 209         save_file_position (view->filename_vpath, -1, 0,
 210                             view->mode_flags.hex ? view->hex_cursor : view->dpy_start,
 211                             view->saved_bookmarks);
 212         view->saved_bookmarks = NULL;
 213     }
 214
 215     /* Write back the global viewer mode */
 216     mcview_global_flags = view->mode_flags;
 217
 218     /* Free memory used by the viewer */
 219     /* view->widget needs no destructor */
 220     vfs_path_free (view->filename_vpath, TRUE);
 221     view->filename_vpath = NULL;
 222     vfs_path_free (view->workdir_vpath, TRUE);
 223     view->workdir_vpath = NULL;
 224     MC_PTR_FREE (view->command);
 225
 226     mcview_close_datasource (view);
 227     /* the growing buffer is freed with the datasource */
 228
 229     if (view->coord_cache != NULL)
 230     {
 231         g_ptr_array_free (view->coord_cache, TRUE);
 232         view->coord_cache = NULL;
 233     }
 234
 235     if (view->converter == INVALID_CONV)
 236         view->converter = str_cnv_from_term;
 237
 238     if (view->converter != str_cnv_from_term)
 239     {
 240         str_close_conv (view->converter);
 241         view->converter = str_cnv_from_term;
 242     }
 243
 244     mcview_search_deinit (view);
 245     view->search = NULL;
 246     view->last_search_string = NULL;
 247     mcview_hexedit_free_change_list (view);
 248
 249     if (mc_global.mc_run_mode == MC_RUN_VIEWER && view->dir != NULL)
 250     {
 251         /* mcviewer is the owner of file list */
 252         dir_list_free_list (view->dir);
 253         g_free (view->dir);
 254         g_free (view->dir_idx);
 255     }
 256
 257     view->dir = NULL;
 258 }
 259
 260 /* --------------------------------------------------------------------------------------------- */
 261
 262 #ifdef HAVE_CHARSET
 263 void
 264 mcview_set_codeset (WView *view)
 265 {
 266     const char *cp_id = NULL;
 267
 268     view->utf8 = TRUE;
 269     cp_id =
 270         get_codepage_id (mc_global.source_codepage >=
 271                          0 ? mc_global.source_codepage : mc_global.display_codepage);
 272     if (cp_id != NULL)
 273     {
 274         GIConv conv;
 275         conv = str_crt_conv_from (cp_id);
 276         if (conv != INVALID_CONV)
 277         {
 278             if (view->converter != str_cnv_from_term)
 279                 str_close_conv (view->converter);
 280             view->converter = conv;
 281         }
 282         view->utf8 = (gboolean) str_isutf8 (cp_id);
 283         view->dpy_wrap_dirty = TRUE;
 284     }
 285 }
 286
 287 /* --------------------------------------------------------------------------------------------- */
 288
 289 void
 290 mcview_select_encoding (WView *view)
 291 {
 292     if (do_select_codepage ())
 293         mcview_set_codeset (view);
 294 }
 295 #endif /* HAVE_CHARSET */
 296
 297 /* --------------------------------------------------------------------------------------------- */
 298
 299 void
 300 mcview_show_error (WView *view, const char *msg)
 301 {
 302     if (mcview_is_in_panel (view))
 303         mcview_set_datasource_string (view, msg);
 304     else
 305         message (D_ERROR, MSG_ERROR, "%s", msg);
 306 }
 307
 308 /* --------------------------------------------------------------------------------------------- */
 309 /** returns index of the first char in the line
 310  * it is constant for all line characters
 311  */
 312
 313 off_t
 314 mcview_bol (WView *view, off_t current, off_t limit)
 315 {
 316     int c;
 317     off_t filesize;
 318     filesize = mcview_get_filesize (view);
 319     if (current <= 0)
 320         return 0;
 321     if (current > filesize)
 322         return filesize;
 323     if (!mcview_get_byte (view, current, &c))
 324         return current;
 325     if (c == '\n')
 326     {
 327         if (!mcview_get_byte (view, current - 1, &c))
 328             return current;
 329         if (c == '\r')
 330             current--;
 331     }
 332     while (current > 0 && current > limit)
 333     {
 334         if (!mcview_get_byte (view, current - 1, &c))
 335             break;
 336         if (c == '\r' || c == '\n')
 337             break;
 338         current--;
 339     }
 340     return current;
 341 }
 342
 343 /* --------------------------------------------------------------------------------------------- */
 344 /** returns index of last char on line + width EOL
 345  * mcview_eol of the current line == mcview_bol next line
 346  */
 347
 348 off_t
 349 mcview_eol (WView *view, off_t current)
 350 {
 351     int c, prev_ch = 0;
 352
 353     if (current < 0)
 354         return 0;
 355
 356     while (TRUE)
 357     {
 358         if (!mcview_get_byte (view, current, &c))
 359             break;
 360         if (c == '\n')
 361         {
 362             current++;
 363             break;
 364         }
 365         else if (prev_ch == '\r')
 366         {
 367             break;
 368         }
 369         current++;
 370         prev_ch = c;
 371     }
 372     return current;
 373 }
 374
 375 /* --------------------------------------------------------------------------------------------- */
 376
 377 char *
 378 mcview_get_title (const WDialog *h, size_t len)
 379 {
 380     const WView *view;
 381     const char *modified;
 382     const char *file_label;
 383     const char *view_filename;
 384     char *ret_str;
 385
 386     view = (const WView *) widget_find_by_type (CONST_WIDGET (h), mcview_callback);
 387     modified = view->hexedit_mode && (view->change_list != NULL) ? "(*) " : "    ";
 388     view_filename = vfs_path_as_str (view->filename_vpath);
 389
 390     len -= 4;
 391
 392     file_label = view_filename != NULL ? view_filename : view->command != NULL ? view->command : "";
 393     file_label = str_term_trim (file_label, len - str_term_width1 (_("View: ")));
 394
 395     ret_str = g_strconcat (_("View: "), modified, file_label, (char *) NULL);
 396     return ret_str;
 397 }
 398
 399 /* --------------------------------------------------------------------------------------------- */
 400
 401 int
 402 mcview_calc_percent (WView *view, off_t p)
 403 {
 404     off_t filesize;
 405     int percent;
 406
 407     if (view->status_area.cols < 1 || (view->status_area.x + view->status_area.cols) < 4)
 408         return (-1);
 409     if (mcview_may_still_grow (view))
 410         return (-1);
 411
 412     filesize = mcview_get_filesize (view);
 413     if (view->mode_flags.hex && filesize > 0)
 414     {
 415         /* p can't be beyond the last char, only over that. Compensate for this. */
 416         filesize--;
 417     }
 418
 419     if (filesize == 0 || p >= filesize)
 420         percent = 100;
 421     else if (p > (INT_MAX / 100))
 422         percent = p / (filesize / 100);
 423     else
 424         percent = p * 100 / filesize;
 425
 426     return percent;
 427 }
 428
 429 /* --------------------------------------------------------------------------------------------- */
 430
 431 void
 432 mcview_clear_mode_flags (mcview_mode_flags_t *flags)
 433 {
 434     memset (flags, 0, sizeof (*flags));
 435 }
 436
 437 /* --------------------------------------------------------------------------------------------- */