lib/util.c

   1 /*
   2    Various utilities
   3
   4    Copyright (C) 1994-2024
   5    Free Software Foundation, Inc.
   6
   7    Written by:
   8    Miguel de Icaza, 1994, 1995, 1996
   9    Janne Kukonlehto, 1994, 1995, 1996
  10    Dugan Porter, 1994, 1995, 1996
  11    Jakub Jelinek, 1994, 1995, 1996
  12    Mauricio Plaza, 1994, 1995, 1996
  13    Slava Zanko <slavazanko@gmail.com>, 2013
  14
  15    This file is part of the Midnight Commander.
  16
  17    The Midnight Commander is free software: you can redistribute it
  18    and/or modify it under the terms of the GNU General Public License as
  19    published by the Free Software Foundation, either version 3 of the License,
  20    or (at your option) any later version.
  21
  22    The Midnight Commander is distributed in the hope that it will be useful,
  23    but WITHOUT ANY WARRANTY; without even the implied warranty of
  24    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25    GNU General Public License for more details.
  26
  27    You should have received a copy of the GNU General Public License
  28    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  29  */
  30
  31 /** \file lib/util.c
  32  *  \brief Source: various utilities
  33  */
  34
  35 #include <config.h>
  36
  37 #include <ctype.h>
  38 #include <stddef.h>             /* ptrdiff_t */
  39 #include <limits.h>
  40 #include <stdarg.h>
  41 #include <stdio.h>
  42 #include <stdlib.h>
  43 #include <string.h>
  44 #include <sys/types.h>
  45 #include <sys/stat.h>
  46 #include <unistd.h>
  47
  48 #include "lib/global.h"
  49 #include "lib/mcconfig.h"
  50 #include "lib/fileloc.h"
  51 #include "lib/vfs/vfs.h"
  52 #include "lib/strutil.h"
  53 #include "lib/util.h"
  54
  55 /*** global variables ****************************************************************************/
  56
  57 /*** file scope macro definitions ****************************************************************/
  58
  59 #define ismode(n,m) ((n & m) == m)
  60
  61 /* Number of attempts to create a temporary file */
  62 #ifndef TMP_MAX
  63 #define TMP_MAX 16384
  64 #endif /* !TMP_MAX */
  65
  66 #define TMP_SUFFIX ".tmp"
  67
  68 #define ASCII_A (0x40 + 1)
  69 #define ASCII_Z (0x40 + 26)
  70 #define ASCII_a (0x60 + 1)
  71 #define ASCII_z (0x60 + 26)
  72
  73 /*** file scope type declarations ****************************************************************/
  74
  75 /*** forward declarations (file scope functions) *************************************************/
  76
  77 /*** file scope variables ************************************************************************/
  78
  79 /* --------------------------------------------------------------------------------------------- */
  80 /*** file scope functions ************************************************************************/
  81 /* --------------------------------------------------------------------------------------------- */
  82
  83 #ifndef HAVE_CHARSET
  84 static inline int
  85 is_7bit_printable (unsigned char c)
  86 {
  87     return (c > 31 && c < 127);
  88 }
  89 #endif
  90
  91 /* --------------------------------------------------------------------------------------------- */
  92
  93 static inline int
  94 is_iso_printable (unsigned char c)
  95 {
  96     return ((c > 31 && c < 127) || c >= 160);
  97 }
  98
  99 /* --------------------------------------------------------------------------------------------- */
 100
 101 static inline int
 102 is_8bit_printable (unsigned char c)
 103 {
 104     /* "Full 8 bits output" doesn't work on xterm */
 105     if (mc_global.tty.xterm_flag)
 106         return is_iso_printable (c);
 107
 108     return (c > 31 && c != 127 && c != 155);
 109 }
 110
 111 /* --------------------------------------------------------------------------------------------- */
 112
 113 static char *
 114 resolve_symlinks (const vfs_path_t *vpath)
 115 {
 116     char *p, *p2;
 117     char *buf, *buf2, *q, *r, c;
 118     struct stat mybuf;
 119
 120     if (vpath->relative)
 121         return NULL;
 122
 123     p = p2 = g_strdup (vfs_path_as_str (vpath));
 124     r = buf = g_malloc (MC_MAXPATHLEN);
 125     buf2 = g_malloc (MC_MAXPATHLEN);
 126     *r++ = PATH_SEP;
 127     *r = '\0';
 128
 129     do
 130     {
 131         q = strchr (p + 1, PATH_SEP);
 132         if (q == NULL)
 133         {
 134             q = strchr (p + 1, '\0');
 135             if (q == p + 1)
 136                 break;
 137         }
 138         c = *q;
 139         *q = '\0';
 140         if (mc_lstat (vpath, &mybuf) < 0)
 141         {
 142             MC_PTR_FREE (buf);
 143             goto ret;
 144         }
 145         if (!S_ISLNK (mybuf.st_mode))
 146             strcpy (r, p + 1);
 147         else
 148         {
 149             int len;
 150
 151             len = mc_readlink (vpath, buf2, MC_MAXPATHLEN - 1);
 152             if (len < 0)
 153             {
 154                 MC_PTR_FREE (buf);
 155                 goto ret;
 156             }
 157             buf2[len] = '\0';
 158             if (IS_PATH_SEP (*buf2))
 159                 strcpy (buf, buf2);
 160             else
 161                 strcpy (r, buf2);
 162         }
 163         canonicalize_pathname (buf);
 164         r = strchr (buf, '\0');
 165         if (*r == '\0' || !IS_PATH_SEP (r[-1]))
 166             /* FIXME: this condition is always true because r points to the EOL */
 167         {
 168             *r++ = PATH_SEP;
 169             *r = '\0';
 170         }
 171         *q = c;
 172         p = q;
 173     }
 174     while (c != '\0');
 175
 176     if (*buf == '\0')
 177         strcpy (buf, PATH_SEP_STR);
 178     else if (IS_PATH_SEP (r[-1]) && r != buf + 1)
 179         r[-1] = '\0';
 180
 181   ret:
 182     g_free (buf2);
 183     g_free (p2);
 184     return buf;
 185 }
 186
 187 /* --------------------------------------------------------------------------------------------- */
 188
 189 static gboolean
 190 mc_util_write_backup_content (const char *from_file_name, const char *to_file_name)
 191 {
 192     FILE *backup_fd;
 193     char *contents;
 194     gsize length;
 195     gboolean ret1 = TRUE;
 196
 197     if (!g_file_get_contents (from_file_name, &contents, &length, NULL))
 198         return FALSE;
 199
 200     backup_fd = fopen (to_file_name, "w");
 201     if (backup_fd == NULL)
 202     {
 203         g_free (contents);
 204         return FALSE;
 205     }
 206
 207     if (fwrite ((const void *) contents, 1, length, backup_fd) != length)
 208         ret1 = FALSE;
 209
 210     {
 211         int ret2;
 212
 213         /* cppcheck-suppress redundantAssignment */
 214         ret2 = fflush (backup_fd);
 215         /* cppcheck-suppress redundantAssignment */
 216         ret2 = fclose (backup_fd);
 217         (void) ret2;
 218     }
 219
 220     g_free (contents);
 221     return ret1;
 222 }
 223
 224 /* --------------------------------------------------------------------------------------------- */
 225 /*** public functions ****************************************************************************/
 226 /* --------------------------------------------------------------------------------------------- */
 227
 228 int
 229 is_printable (int c)
 230 {
 231     c &= 0xff;
 232
 233 #ifdef HAVE_CHARSET
 234     /* "Display bits" is ignored, since the user controls the output
 235        by setting the output codepage */
 236     return is_8bit_printable (c);
 237 #else
 238     if (!mc_global.eight_bit_clean)
 239         return is_7bit_printable (c);
 240
 241     if (mc_global.full_eight_bits)
 242         return is_8bit_printable (c);
 243
 244     return is_iso_printable (c);
 245 #endif /* !HAVE_CHARSET */
 246 }
 247
 248 /* --------------------------------------------------------------------------------------------- */
 249 /**
 250  * Quote the filename for the purpose of inserting it into the command
 251  * line.  If quote_percent is TRUE, replace "%" with "%%" - the percent is
 252  * processed by the mc command line.
 253  */
 254 char *
 255 name_quote (const char *s, gboolean quote_percent)
 256 {
 257     GString *ret;
 258
 259     if (s == NULL || *s == '\0')
 260         return NULL;
 261
 262     ret = g_string_sized_new (64);
 263
 264     if (*s == '-')
 265         g_string_append (ret, "." PATH_SEP_STR);
 266
 267     for (; *s != '\0'; s++)
 268     {
 269         switch (*s)
 270         {
 271         case '%':
 272             if (quote_percent)
 273                 g_string_append_c (ret, '%');
 274             break;
 275         case '\'':
 276         case '\\':
 277         case '\r':
 278         case '\n':
 279         case '\t':
 280         case '"':
 281         case ';':
 282         case ' ':
 283         case '?':
 284         case '|':
 285         case '[':
 286         case ']':
 287         case '{':
 288         case '}':
 289         case '<':
 290         case '>':
 291         case '`':
 292         case '!':
 293         case '$':
 294         case '&':
 295         case '*':
 296         case '(':
 297         case ')':
 298             g_string_append_c (ret, '\\');
 299             break;
 300         case '~':
 301         case '#':
 302             if (ret->len == 0)
 303                 g_string_append_c (ret, '\\');
 304             break;
 305         default:
 306             break;
 307         }
 308         g_string_append_c (ret, *s);
 309     }
 310
 311     return g_string_free (ret, ret->len == 0);
 312 }
 313
 314 /* --------------------------------------------------------------------------------------------- */
 315
 316 char *
 317 fake_name_quote (const char *s, gboolean quote_percent)
 318 {
 319     (void) quote_percent;
 320
 321     return (s == NULL || *s == '\0' ? NULL : g_strdup (s));
 322 }
 323
 324 /* --------------------------------------------------------------------------------------------- */
 325 /**
 326  * path_trunc() is the same as str_trunc() but
 327  * it deletes possible password from path for security
 328  * reasons.
 329  */
 330
 331 const char *
 332 path_trunc (const char *path, size_t trunc_len)
 333 {
 334     vfs_path_t *vpath;
 335     const char *ret;
 336
 337     vpath = vfs_path_from_str_flags (path, VPF_STRIP_PASSWORD);
 338     ret = str_trunc (vfs_path_as_str (vpath), trunc_len);
 339     vfs_path_free (vpath, TRUE);
 340
 341     return ret;
 342 }
 343
 344 /* --------------------------------------------------------------------------------------------- */
 345
 346 const char *
 347 size_trunc (uintmax_t size, gboolean use_si)
 348 {
 349     static char x[BUF_TINY];
 350     uintmax_t divisor = 1;
 351     const char *xtra = _("B");
 352
 353     if (size > 999999999UL)
 354     {
 355         divisor = use_si ? 1000 : 1024;
 356         xtra = use_si ? _("kB") : _("KiB");
 357
 358         if (size / divisor > 999999999UL)
 359         {
 360             divisor = use_si ? (1000 * 1000) : (1024 * 1024);
 361             xtra = use_si ? _("MB") : _("MiB");
 362
 363             if (size / divisor > 999999999UL)
 364             {
 365                 divisor = use_si ? (1000 * 1000 * 1000) : (1024 * 1024 * 1024);
 366                 xtra = use_si ? _("GB") : _("GiB");
 367             }
 368         }
 369     }
 370     g_snprintf (x, sizeof (x), "%.0f %s", 1.0 * size / divisor, xtra);
 371     return x;
 372 }
 373
 374 /* --------------------------------------------------------------------------------------------- */
 375
 376 const char *
 377 size_trunc_sep (uintmax_t size, gboolean use_si)
 378 {
 379     static char x[60];
 380     int count;
 381     const char *p, *y;
 382     char *d;
 383
 384     p = y = size_trunc (size, use_si);
 385     p += strlen (p) - 1;
 386     d = x + sizeof (x) - 1;
 387     *d-- = '\0';
 388     /* @size format is "size unit", i.e. "[digits][space][letters]".
 389        Copy all characters after digits. */
 390     while (p >= y && !g_ascii_isdigit (*p))
 391         *d-- = *p--;
 392     for (count = 0; p >= y; count++)
 393     {
 394         if (count == 3)
 395         {
 396             *d-- = ',';
 397             count = 0;
 398         }
 399         *d-- = *p--;
 400     }
 401     d++;
 402     if (*d == ',')
 403         d++;
 404     return d;
 405 }
 406
 407 /* --------------------------------------------------------------------------------------------- */
 408 /**
 409  * Print file SIZE to BUFFER, but don't exceed LEN characters,
 410  * not including trailing 0. BUFFER should be at least LEN+1 long.
 411  * This function is called for every file on panels, so avoid
 412  * floating point by any means.
 413  *
 414  * Units: size units (filesystem sizes are 1K blocks)
 415  *    0=bytes, 1=Kbytes, 2=Mbytes, etc.
 416  */
 417
 418 void
 419 size_trunc_len (char *buffer, unsigned int len, uintmax_t size, int units, gboolean use_si)
 420 {
 421     /* Avoid taking power for every file.  */
 422     /* *INDENT-OFF* */
 423     static const uintmax_t power10[] = {
 424     /* we hope that size of uintmax_t is 4 bytes at least */
 425         1ULL,
 426         10ULL,
 427         100ULL,
 428         1000ULL,
 429         10000ULL,
 430         100000ULL,
 431         1000000ULL,
 432         10000000ULL,
 433         100000000ULL,
 434         1000000000ULL
 435     /* maximum value of uintmax_t (in case of 4 bytes) is
 436         4294967295
 437      */
 438 #if SIZEOF_UINTMAX_T == 8
 439                      ,
 440         10000000000ULL,
 441         100000000000ULL,
 442         1000000000000ULL,
 443         10000000000000ULL,
 444         100000000000000ULL,
 445         1000000000000000ULL,
 446         10000000000000000ULL,
 447         100000000000000000ULL,
 448         1000000000000000000ULL,
 449         10000000000000000000ULL
 450     /* maximum value of uintmax_t (in case of 8 bytes) is
 451         18447644073710439615
 452      */
 453 #endif
 454     };
 455
 456     static const char *const suffix[] =
 457         { "", "K", "M", "G", "T", "P", "E", "Z", "Y", "R", "Q", NULL };
 458     static const char *const suffix_lc[] =
 459         { "", "k", "m", "g", "t", "p", "e", "z", "y", "r", "q", NULL };
 460     /* *INDENT-ON* */
 461
 462     const char *const *sfx = use_si ? suffix_lc : suffix;
 463     int j = 0;
 464
 465     if (len == 0)
 466         len = 9;
 467 #if SIZEOF_UINTMAX_T == 8
 468     /* 20 decimal digits are required to represent 8 bytes */
 469     else if (len > 19)
 470         len = 19;
 471 #else
 472     /* 10 decimal digits are required to represent 4 bytes */
 473     else if (len > 9)
 474         len = 9;
 475 #endif
 476
 477     /*
 478      * recalculate from 1024 base to 1000 base if units>0
 479      * We can't just multiply by 1024 - that might cause overflow
 480      * if uintmax_t type is too small
 481      */
 482     if (use_si)
 483         for (j = 0; j < units; j++)
 484         {
 485             uintmax_t size_remain;
 486
 487             size_remain = ((size % 125) * 1024) / 1000; /* size mod 125, recalculated */
 488             size /= 125;        /* 128/125 = 1024/1000 */
 489             size *= 128;        /* This will convert size from multiple of 1024 to multiple of 1000 */
 490             size += size_remain;        /* Re-add remainder lost by division/multiplication */
 491         }
 492
 493     for (j = units; sfx[j] != NULL; j++)
 494     {
 495         if (size == 0)
 496         {
 497             if (j == units)
 498             {
 499                 /* Empty files will print "0" even with minimal width.  */
 500                 g_snprintf (buffer, len + 1, "%s", "0");
 501             }
 502             else
 503             {
 504                 /* Use "~K" or just "K" if len is 1.  Use "B" for bytes.  */
 505                 g_snprintf (buffer, len + 1, (len > 1) ? "~%s" : "%s", (j > 1) ? sfx[j - 1] : "B");
 506             }
 507             break;
 508         }
 509
 510         if (size < power10[len - (j > 0 ? 1 : 0)])
 511         {
 512             g_snprintf (buffer, len + 1, "%" PRIuMAX "%s", size, sfx[j]);
 513             break;
 514         }
 515
 516         /* Powers of 1000 or 1024, with rounding.  */
 517         if (use_si)
 518             size = (size + 500) / 1000;
 519         else
 520             size = (size + 512) >> 10;
 521     }
 522 }
 523
 524 /* --------------------------------------------------------------------------------------------- */
 525
 526 const char *
 527 string_perm (mode_t mode_bits)
 528 {
 529     static char mode[11];
 530
 531     strcpy (mode, "----------");
 532     if (S_ISDIR (mode_bits))
 533         mode[0] = 'd';
 534     if (S_ISCHR (mode_bits))
 535         mode[0] = 'c';
 536     if (S_ISBLK (mode_bits))
 537         mode[0] = 'b';
 538     if (S_ISLNK (mode_bits))
 539         mode[0] = 'l';
 540     if (S_ISFIFO (mode_bits))
 541         mode[0] = 'p';
 542     if (S_ISNAM (mode_bits))
 543         mode[0] = 'n';
 544     if (S_ISSOCK (mode_bits))
 545         mode[0] = 's';
 546     if (S_ISDOOR (mode_bits))
 547         mode[0] = 'D';
 548     if (ismode (mode_bits, S_IXOTH))
 549         mode[9] = 'x';
 550     if (ismode (mode_bits, S_IWOTH))
 551         mode[8] = 'w';
 552     if (ismode (mode_bits, S_IROTH))
 553         mode[7] = 'r';
 554     if (ismode (mode_bits, S_IXGRP))
 555         mode[6] = 'x';
 556     if (ismode (mode_bits, S_IWGRP))
 557         mode[5] = 'w';
 558     if (ismode (mode_bits, S_IRGRP))
 559         mode[4] = 'r';
 560     if (ismode (mode_bits, S_IXUSR))
 561         mode[3] = 'x';
 562     if (ismode (mode_bits, S_IWUSR))
 563         mode[2] = 'w';
 564     if (ismode (mode_bits, S_IRUSR))
 565         mode[1] = 'r';
 566 #ifdef S_ISUID
 567     if (ismode (mode_bits, S_ISUID))
 568         mode[3] = (mode[3] == 'x') ? 's' : 'S';
 569 #endif /* S_ISUID */
 570 #ifdef S_ISGID
 571     if (ismode (mode_bits, S_ISGID))
 572         mode[6] = (mode[6] == 'x') ? 's' : 'S';
 573 #endif /* S_ISGID */
 574 #ifdef S_ISVTX
 575     if (ismode (mode_bits, S_ISVTX))
 576         mode[9] = (mode[9] == 'x') ? 't' : 'T';
 577 #endif /* S_ISVTX */
 578     return mode;
 579 }
 580
 581 /* --------------------------------------------------------------------------------------------- */
 582
 583 const char *
 584 extension (const char *filename)
 585 {
 586     const char *d;
 587
 588     d = strrchr (filename, '.');
 589
 590     return d != NULL ? d + 1 : "";
 591 }
 592
 593 /* --------------------------------------------------------------------------------------------- */
 594
 595 char *
 596 load_mc_home_file (const char *from, const char *filename, char **allocated_filename,
 597                    size_t *length)
 598 {
 599     char *hintfile_base, *hintfile;
 600     char *lang;
 601     char *data;
 602
 603     hintfile_base = g_build_filename (from, filename, (char *) NULL);
 604     lang = guess_message_value ();
 605
 606     hintfile = g_strconcat (hintfile_base, ".", lang, (char *) NULL);
 607     if (!g_file_get_contents (hintfile, &data, length, NULL))
 608     {
 609         /* Fall back to the two-letter language code */
 610         if (lang[0] != '\0' && lang[1] != '\0')
 611             lang[2] = '\0';
 612         g_free (hintfile);
 613         hintfile = g_strconcat (hintfile_base, ".", lang, (char *) NULL);
 614         if (!g_file_get_contents (hintfile, &data, length, NULL))
 615         {
 616             g_free (hintfile);
 617             hintfile = hintfile_base;
 618             g_file_get_contents (hintfile_base, &data, length, NULL);
 619         }
 620     }
 621
 622     g_free (lang);
 623
 624     if (hintfile != hintfile_base)
 625         g_free (hintfile_base);
 626
 627     if (allocated_filename != NULL)
 628         *allocated_filename = hintfile;
 629     else
 630         g_free (hintfile);
 631
 632     return data;
 633 }
 634
 635 /* --------------------------------------------------------------------------------------------- */
 636
 637 const char *
 638 extract_line (const char *s, const char *top, size_t *len)
 639 {
 640     static char tmp_line[BUF_MEDIUM];
 641     char *t = tmp_line;
 642
 643     while (*s != '\0' && *s != '\n' && (size_t) (t - tmp_line) < sizeof (tmp_line) - 1 && s < top)
 644         *t++ = *s++;
 645     *t = '\0';
 646
 647     if (len != NULL)
 648         *len = (size_t) (t - tmp_line);
 649
 650     return tmp_line;
 651 }
 652
 653 /* --------------------------------------------------------------------------------------------- */
 654 /**
 655  * The basename routine
 656  */
 657
 658 const char *
 659 x_basename (const char *s)
 660 {
 661     const char *url_delim, *path_sep;
 662
 663     url_delim = g_strrstr (s, VFS_PATH_URL_DELIMITER);
 664     path_sep = strrchr (s, PATH_SEP);
 665
 666     if (path_sep == NULL)
 667         return s;
 668
 669     if (url_delim == NULL
 670         || url_delim < path_sep - strlen (VFS_PATH_URL_DELIMITER)
 671         || url_delim - s + strlen (VFS_PATH_URL_DELIMITER) < strlen (s))
 672     {
 673         /* avoid trailing PATH_SEP, if present */
 674         if (!IS_PATH_SEP (s[strlen (s) - 1]))
 675             return path_sep + 1;
 676
 677         while (--path_sep > s && !IS_PATH_SEP (*path_sep))
 678             ;
 679         return (path_sep != s) ? path_sep + 1 : s;
 680     }
 681
 682     while (--url_delim > s && !IS_PATH_SEP (*url_delim))
 683         ;
 684     while (--url_delim > s && !IS_PATH_SEP (*url_delim))
 685         ;
 686
 687     return url_delim == s ? s : url_delim + 1;
 688 }
 689
 690 /* --------------------------------------------------------------------------------------------- */
 691
 692 const char *
 693 unix_error_string (int error_num)
 694 {
 695     static char buffer[BUF_LARGE];
 696     gchar *strerror_currentlocale;
 697
 698     strerror_currentlocale = g_locale_from_utf8 (g_strerror (error_num), -1, NULL, NULL, NULL);
 699     g_snprintf (buffer, sizeof (buffer), "%s (%d)", strerror_currentlocale, error_num);
 700     g_free (strerror_currentlocale);
 701
 702     return buffer;
 703 }
 704
 705 /* --------------------------------------------------------------------------------------------- */
 706
 707 const char *
 708 skip_separators (const char *s)
 709 {
 710     const char *su = s;
 711
 712     for (; *su != '\0'; str_cnext_char (&su))
 713         if (!whitespace (*su) && *su != ',')
 714             break;
 715
 716     return su;
 717 }
 718
 719 /* --------------------------------------------------------------------------------------------- */
 720
 721 const char *
 722 skip_numbers (const char *s)
 723 {
 724     const char *su = s;
 725
 726     for (; *su != '\0'; str_cnext_char (&su))
 727         if (!str_isdigit (su))
 728             break;
 729
 730     return su;
 731 }
 732
 733 /* --------------------------------------------------------------------------------------------- */
 734 /**
 735  * Remove all control sequences from the argument string.  We define
 736  * "control sequence", in a sort of pidgin BNF, as follows:
 737  *
 738  * control-seq = Esc non-'['
 739  *             | Esc '[' (0 or more digits or ';' or ':' or '?') (any other char)
 740  *
 741  * The 256-color and true-color escape sequences should allow either ';' or ':' inside as separator,
 742  * actually, ':' is the more correct according to ECMA-48.
 743  * Some terminal emulators (e.g. xterm, gnome-terminal) support this.
 744  *
 745  * Non-printable characters are also removed.
 746  */
 747
 748 char *
 749 strip_ctrl_codes (char *s)
 750 {
 751     char *w;                    /* Current position where the stripped data is written */
 752     char *r;                    /* Current position where the original data is read */
 753
 754     if (s == NULL)
 755         return NULL;
 756
 757     for (w = s, r = s; *r != '\0';)
 758     {
 759         if (*r == ESC_CHAR)
 760         {
 761             /* Skip the control sequence's arguments */ ;
 762             /* '(' need to avoid strange 'B' letter in *Suse (if mc runs under root user) */
 763             if (*(++r) == '[' || *r == '(')
 764             {
 765                 /* strchr() matches trailing binary 0 */
 766                 while (*(++r) != '\0' && strchr ("0123456789;:?", *r) != NULL)
 767                     ;
 768             }
 769             else if (*r == ']')
 770             {
 771                 /*
 772                  * Skip xterm's OSC (Operating System Command)
 773                  * http://www.xfree86.org/current/ctlseqs.html
 774                  * OSC P s ; P t ST
 775                  * OSC P s ; P t BEL
 776                  */
 777                 char *new_r;
 778
 779                 for (new_r = r; *new_r != '\0'; new_r++)
 780                 {
 781                     switch (*new_r)
 782                     {
 783                         /* BEL */
 784                     case '\a':
 785                         r = new_r;
 786                         goto osc_out;
 787                     case ESC_CHAR:
 788                         /* ST */
 789                         if (new_r[1] == '\\')
 790                         {
 791                             r = new_r + 1;
 792                             goto osc_out;
 793                         }
 794                         break;
 795                     default:
 796                         break;
 797                     }
 798                 }
 799               osc_out:
 800                 ;
 801             }
 802
 803             /*
 804              * Now we are at the last character of the sequence.
 805              * Skip it unless it's binary 0.
 806              */
 807             if (*r != '\0')
 808                 r++;
 809         }
 810         else
 811         {
 812             char *n;
 813
 814             n = str_get_next_char (r);
 815             if (str_isprint (r))
 816             {
 817                 memmove (w, r, n - r);
 818                 w += n - r;
 819             }
 820             r = n;
 821         }
 822     }
 823
 824     *w = '\0';
 825     return s;
 826 }
 827
 828 /* --------------------------------------------------------------------------------------------- */
 829
 830 enum compression_type
 831 get_compression_type (int fd, const char *name)
 832 {
 833     unsigned char magic[16];
 834     size_t str_len;
 835
 836     /* Read the magic signature */
 837     if (mc_read (fd, (char *) magic, 4) != 4)
 838         return COMPRESSION_NONE;
 839
 840     /* GZIP_MAGIC and OLD_GZIP_MAGIC */
 841     if (magic[0] == 0x1F && (magic[1] == 0x8B || magic[1] == 0x9E))
 842         return COMPRESSION_GZIP;
 843
 844     /* PKZIP_MAGIC */
 845     if (magic[0] == 'P' && magic[1] == 'K' && magic[2] == 0x03 && magic[3] == 0x04)
 846     {
 847         /* Read compression type */
 848         mc_lseek (fd, 8, SEEK_SET);
 849         if (mc_read (fd, (char *) magic, 2) != 2)
 850             return COMPRESSION_NONE;
 851
 852         if ((magic[0] != 8 && magic[0] != 0) || magic[1] != 0)
 853             return COMPRESSION_NONE;
 854
 855         return COMPRESSION_ZIP;
 856     }
 857
 858     /* PACK_MAGIC and LZH_MAGIC and compress magic */
 859     if (magic[0] == 0x1F && (magic[1] == 0x1E || magic[1] == 0xA0 || magic[1] == 0x9D))
 860         /* Compatible with gzip */
 861         return COMPRESSION_GZIP;
 862
 863     /* BZIP and BZIP2 files */
 864     if ((magic[0] == 'B') && (magic[1] == 'Z') && (magic[3] >= '1') && (magic[3] <= '9'))
 865         switch (magic[2])
 866         {
 867         case '0':
 868             return COMPRESSION_BZIP;
 869         case 'h':
 870             return COMPRESSION_BZIP2;
 871         default:
 872             break;
 873         }
 874
 875     /* LZ4 format - v1.5.0 - 0x184D2204 (little endian) */
 876     if (magic[0] == 0x04 && magic[1] == 0x22 && magic[2] == 0x4d && magic[3] == 0x18)
 877         return COMPRESSION_LZ4;
 878
 879     if (mc_read (fd, (char *) magic + 4, 2) != 2)
 880         return COMPRESSION_NONE;
 881
 882     /* LZIP files */
 883     if (magic[0] == 'L'
 884         && magic[1] == 'Z'
 885         && magic[2] == 'I' && magic[3] == 'P' && (magic[4] == 0x00 || magic[4] == 0x01))
 886         return COMPRESSION_LZIP;
 887
 888     /* Support for LZMA (only utils format with magic in header).
 889      * This is the default format of LZMA utils 4.32.1 and later. */
 890     if (magic[0] == 0xFF
 891         && magic[1] == 'L'
 892         && magic[2] == 'Z' && magic[3] == 'M' && magic[4] == 'A' && magic[5] == 0x00)
 893         return COMPRESSION_LZMA;
 894
 895     /* LZO format - \x89\x4c\x5a\x4f\x00\x0d\x0a\x1a\x0a    lzop compressed data */
 896     if (magic[0] == 0x89 && magic[1] == 0x4c &&
 897         magic[2] == 0x5a && magic[3] == 0x4f && magic[4] == 0x00 && magic[5] == 0x0d)
 898         return COMPRESSION_LZO;
 899
 900     /* XZ compression magic */
 901     if (magic[0] == 0xFD
 902         && magic[1] == 0x37
 903         && magic[2] == 0x7A && magic[3] == 0x58 && magic[4] == 0x5A && magic[5] == 0x00)
 904         return COMPRESSION_XZ;
 905
 906     if (magic[0] == 0x28 && magic[1] == 0xB5 && magic[2] == 0x2F && magic[3] == 0xFD)
 907         return COMPRESSION_ZSTD;
 908
 909     str_len = strlen (name);
 910     /* HACK: we must believe to extension of LZMA file :) ... */
 911     if ((str_len > 5 && strcmp (&name[str_len - 5], ".lzma") == 0) ||
 912         (str_len > 4 && strcmp (&name[str_len - 4], ".tlz") == 0))
 913         return COMPRESSION_LZMA;
 914
 915     return COMPRESSION_NONE;
 916 }
 917
 918 /* --------------------------------------------------------------------------------------------- */
 919
 920 const char *
 921 decompress_extension (int type)
 922 {
 923     switch (type)
 924     {
 925     case COMPRESSION_ZIP:
 926         return "/uz" VFS_PATH_URL_DELIMITER;
 927     case COMPRESSION_GZIP:
 928         return "/ugz" VFS_PATH_URL_DELIMITER;
 929     case COMPRESSION_BZIP:
 930         return "/ubz" VFS_PATH_URL_DELIMITER;
 931     case COMPRESSION_BZIP2:
 932         return "/ubz2" VFS_PATH_URL_DELIMITER;
 933     case COMPRESSION_LZIP:
 934         return "/ulz" VFS_PATH_URL_DELIMITER;
 935     case COMPRESSION_LZ4:
 936         return "/ulz4" VFS_PATH_URL_DELIMITER;
 937     case COMPRESSION_LZMA:
 938         return "/ulzma" VFS_PATH_URL_DELIMITER;
 939     case COMPRESSION_LZO:
 940         return "/ulzo" VFS_PATH_URL_DELIMITER;
 941     case COMPRESSION_XZ:
 942         return "/uxz" VFS_PATH_URL_DELIMITER;
 943     case COMPRESSION_ZSTD:
 944         return "/uzst" VFS_PATH_URL_DELIMITER;
 945     default:
 946         break;
 947     }
 948     /* Should never reach this place */
 949     fprintf (stderr, "Fatal: decompress_extension called with an unknown argument\n");
 950     return 0;
 951 }
 952
 953 /* --------------------------------------------------------------------------------------------- */
 954
 955 void
 956 wipe_password (char *passwd)
 957 {
 958     if (passwd != NULL)
 959     {
 960         char *p;
 961
 962         for (p = passwd; *p != '\0'; p++)
 963             *p = '\0';
 964         g_free (passwd);
 965     }
 966 }
 967
 968 /* --------------------------------------------------------------------------------------------- */
 969 /**
 970  * Convert "\E" -> esc character and ^x to control-x key and ^^ to ^ key
 971  *
 972  * @param p pointer to string
 973  *
 974  * @return newly allocated string
 975  */
 976
 977 char *
 978 convert_controls (const char *p)
 979 {
 980     char *valcopy;
 981     char *q;
 982
 983     valcopy = g_strdup (p);
 984
 985     /* Parse the escape special character */
 986     for (q = valcopy; *p != '\0';)
 987         switch (*p)
 988         {
 989         case '\\':
 990             p++;
 991
 992             if (*p == 'e' || *p == 'E')
 993             {
 994                 p++;
 995                 *q++ = ESC_CHAR;
 996             }
 997             break;
 998
 999         case '^':
1000             p++;
1001             if (*p == '^')
1002                 *q++ = *p++;
1003             else
1004             {
1005                 char c;
1006
1007                 c = *p | 0x20;
1008                 if (c >= 'a' && c <= 'z')
1009                 {
1010                     *q++ = c - 'a' + 1;
1011                     p++;
1012                 }
1013                 else if (*p != '\0')
1014                     p++;
1015             }
1016             break;
1017
1018         default:
1019             *q++ = *p++;
1020         }
1021
1022     *q = '\0';
1023     return valcopy;
1024 }
1025
1026 /* --------------------------------------------------------------------------------------------- */
1027 /**
1028  * Finds out a relative path from first to second, i.e. goes as many ..
1029  * as needed up in first and then goes down using second
1030  */
1031
1032 char *
1033 diff_two_paths (const vfs_path_t *vpath1, const vfs_path_t *vpath2)
1034 {
1035     int j, prevlen = -1, currlen;
1036     char *my_first = NULL, *my_second = NULL;
1037     char *buf = NULL;
1038
1039     my_first = resolve_symlinks (vpath1);
1040     if (my_first == NULL)
1041         goto ret;
1042
1043     my_second = resolve_symlinks (vpath2);
1044     if (my_second == NULL)
1045         goto ret;
1046
1047     for (j = 0; j < 2; j++)
1048     {
1049         char *p, *q;
1050         int i;
1051
1052         p = my_first;
1053         q = my_second;
1054
1055         while (TRUE)
1056         {
1057             char *r, *s;
1058             ptrdiff_t len;
1059
1060             r = strchr (p, PATH_SEP);
1061             if (r == NULL)
1062                 break;
1063             s = strchr (q, PATH_SEP);
1064             if (s == NULL)
1065                 break;
1066
1067             len = r - p;
1068             if (len != (s - q) || strncmp (p, q, (size_t) len) != 0)
1069                 break;
1070
1071             p = r + 1;
1072             q = s + 1;
1073         }
1074         p--;
1075         for (i = 0; (p = strchr (p + 1, PATH_SEP)) != NULL; i++)
1076             ;
1077         currlen = (i + 1) * 3 + strlen (q) + 1;
1078         if (j != 0)
1079         {
1080             if (currlen < prevlen)
1081                 g_free (buf);
1082             else
1083                 goto ret;
1084         }
1085         p = buf = g_malloc (currlen);
1086         prevlen = currlen;
1087         for (; i >= 0; i--, p += 3)
1088             strcpy (p, "../");
1089         strcpy (p, q);
1090     }
1091
1092   ret:
1093     g_free (my_first);
1094     g_free (my_second);
1095     return buf;
1096 }
1097
1098 /* --------------------------------------------------------------------------------------------- */
1099 /**
1100  * Append text to GList, remove all entries with the same text
1101  */
1102
1103 GList *
1104 list_append_unique (GList *list, char *text)
1105 {
1106     GList *lc_link;
1107
1108     /*
1109      * Go to the last position and traverse the list backwards
1110      * starting from the second last entry to make sure that we
1111      * are not removing the current link.
1112      */
1113     list = g_list_append (list, text);
1114     list = g_list_last (list);
1115     lc_link = g_list_previous (list);
1116
1117     while (lc_link != NULL)
1118     {
1119         GList *newlink;
1120
1121         newlink = g_list_previous (lc_link);
1122         if (strcmp ((char *) lc_link->data, text) == 0)
1123         {
1124             GList *tmp;
1125
1126             g_free (lc_link->data);
1127             tmp = g_list_remove_link (list, lc_link);
1128             (void) tmp;
1129             g_list_free_1 (lc_link);
1130         }
1131         lc_link = newlink;
1132     }
1133
1134     return list;
1135 }
1136
1137 /* --------------------------------------------------------------------------------------------- */
1138 /**
1139  * Read and restore position for the given filename.
1140  * If there is no stored data, return line 1 and col 0.
1141  */
1142
1143 void
1144 load_file_position (const vfs_path_t *filename_vpath, long *line, long *column, off_t *offset,
1145                     GArray **bookmarks)
1146 {
1147     char *fn;
1148     FILE *f;
1149     char buf[MC_MAXPATHLEN + 100];
1150     const size_t len = vfs_path_len (filename_vpath);
1151
1152     /* defaults */
1153     *line = 1;
1154     *column = 0;
1155     *offset = 0;
1156
1157     /* open file with positions */
1158     fn = mc_config_get_full_path (MC_FILEPOS_FILE);
1159     f = fopen (fn, "r");
1160     g_free (fn);
1161     if (f == NULL)
1162         return;
1163
1164     /* prepare array for serialized bookmarks */
1165     if (bookmarks != NULL)
1166         *bookmarks = g_array_sized_new (FALSE, FALSE, sizeof (size_t), MAX_SAVED_BOOKMARKS);
1167
1168     while (fgets (buf, sizeof (buf), f) != NULL)
1169     {
1170         const char *p;
1171         gchar **pos_tokens;
1172
1173         /* check if the filename matches the beginning of string */
1174         if (strncmp (buf, vfs_path_as_str (filename_vpath), len) != 0)
1175             continue;
1176
1177         /* followed by single space */
1178         if (buf[len] != ' ')
1179             continue;
1180
1181         /* and string without spaces */
1182         p = &buf[len + 1];
1183         if (strchr (p, ' ') != NULL)
1184             continue;
1185
1186         pos_tokens = g_strsplit (p, ";", 3 + MAX_SAVED_BOOKMARKS);
1187         if (pos_tokens[0] == NULL)
1188         {
1189             *line = 1;
1190             *column = 0;
1191             *offset = 0;
1192         }
1193         else
1194         {
1195             *line = strtol (pos_tokens[0], NULL, 10);
1196             if (pos_tokens[1] == NULL)
1197             {
1198                 *column = 0;
1199                 *offset = 0;
1200             }
1201             else
1202             {
1203                 *column = strtol (pos_tokens[1], NULL, 10);
1204                 if (pos_tokens[2] == NULL)
1205                     *offset = 0;
1206                 else if (bookmarks != NULL)
1207                 {
1208                     size_t i;
1209
1210                     *offset = (off_t) g_ascii_strtoll (pos_tokens[2], NULL, 10);
1211
1212                     for (i = 0; i < MAX_SAVED_BOOKMARKS && pos_tokens[3 + i] != NULL; i++)
1213                     {
1214                         size_t val;
1215
1216                         val = strtoul (pos_tokens[3 + i], NULL, 10);
1217                         g_array_append_val (*bookmarks, val);
1218                     }
1219                 }
1220             }
1221         }
1222
1223         g_strfreev (pos_tokens);
1224     }
1225
1226     fclose (f);
1227 }
1228
1229 /* --------------------------------------------------------------------------------------------- */
1230 /**
1231  * Save position for the given file
1232  */
1233
1234 void
1235 save_file_position (const vfs_path_t *filename_vpath, long line, long column, off_t offset,
1236                     GArray *bookmarks)
1237 {
1238     static size_t filepos_max_saved_entries = 0;
1239     char *fn, *tmp_fn;
1240     FILE *f, *tmp_f;
1241     char buf[MC_MAXPATHLEN + 100];
1242     size_t i;
1243     const size_t len = vfs_path_len (filename_vpath);
1244     gboolean src_error = FALSE;
1245
1246     if (filepos_max_saved_entries == 0)
1247         filepos_max_saved_entries = mc_config_get_int (mc_global.main_config, CONFIG_APP_SECTION,
1248                                                        "filepos_max_saved_entries", 1024);
1249
1250     fn = mc_config_get_full_path (MC_FILEPOS_FILE);
1251     if (fn == NULL)
1252         goto early_error;
1253
1254     mc_util_make_backup_if_possible (fn, TMP_SUFFIX);
1255
1256     /* open file */
1257     f = fopen (fn, "w");
1258     if (f == NULL)
1259         goto open_target_error;
1260
1261     tmp_fn = g_strdup_printf ("%s" TMP_SUFFIX, fn);
1262     tmp_f = fopen (tmp_fn, "r");
1263     if (tmp_f == NULL)
1264     {
1265         src_error = TRUE;
1266         goto open_source_error;
1267     }
1268
1269     /* put the new record */
1270     if (line != 1 || column != 0 || bookmarks != NULL)
1271     {
1272         if (fprintf
1273             (f, "%s %ld;%ld;%" PRIuMAX, vfs_path_as_str (filename_vpath), line, column,
1274              (uintmax_t) offset) < 0)
1275             goto write_position_error;
1276         if (bookmarks != NULL)
1277             for (i = 0; i < bookmarks->len && i < MAX_SAVED_BOOKMARKS; i++)
1278                 if (fprintf (f, ";%zu", g_array_index (bookmarks, size_t, i)) < 0)
1279                       goto write_position_error;
1280
1281         if (fprintf (f, "\n") < 0)
1282             goto write_position_error;
1283     }
1284
1285     i = 1;
1286     while (fgets (buf, sizeof (buf), tmp_f) != NULL)
1287     {
1288         if (buf[len] == ' ' && strncmp (buf, vfs_path_as_str (filename_vpath), len) == 0
1289             && strchr (&buf[len + 1], ' ') == NULL)
1290             continue;
1291
1292         fprintf (f, "%s", buf);
1293         if (++i > filepos_max_saved_entries)
1294             break;
1295     }
1296
1297   write_position_error:
1298     fclose (tmp_f);
1299   open_source_error:
1300     g_free (tmp_fn);
1301     fclose (f);
1302     if (src_error)
1303         mc_util_restore_from_backup_if_possible (fn, TMP_SUFFIX);
1304     else
1305         mc_util_unlink_backup_if_possible (fn, TMP_SUFFIX);
1306   open_target_error:
1307     g_free (fn);
1308   early_error:
1309     if (bookmarks != NULL)
1310         g_array_free (bookmarks, TRUE);
1311 }
1312
1313 /* --------------------------------------------------------------------------------------------- */
1314
1315 extern int
1316 ascii_alpha_to_cntrl (int ch)
1317 {
1318     if ((ch >= ASCII_A && ch <= ASCII_Z) || (ch >= ASCII_a && ch <= ASCII_z))
1319         ch &= 0x1f;
1320
1321     return ch;
1322 }
1323
1324 /* --------------------------------------------------------------------------------------------- */
1325
1326 const char *
1327 Q_ (const char *s)
1328 {
1329     const char *result, *sep;
1330
1331     result = _(s);
1332     sep = strchr (result, '|');
1333
1334     return sep != NULL ? sep + 1 : result;
1335 }
1336
1337 /* --------------------------------------------------------------------------------------------- */
1338
1339 gboolean
1340 mc_util_make_backup_if_possible (const char *file_name, const char *backup_suffix)
1341 {
1342     struct stat stat_buf;
1343     char *backup_path;
1344     gboolean ret;
1345
1346     if (!exist_file (file_name))
1347         return FALSE;
1348
1349     backup_path = g_strdup_printf ("%s%s", file_name, backup_suffix);
1350     if (backup_path == NULL)
1351         return FALSE;
1352
1353     ret = mc_util_write_backup_content (file_name, backup_path);
1354     if (ret)
1355     {
1356         /* Backup file will have same ownership with main file. */
1357         if (stat (file_name, &stat_buf) == 0)
1358             chmod (backup_path, stat_buf.st_mode);
1359         else
1360             chmod (backup_path, S_IRUSR | S_IWUSR);
1361     }
1362
1363     g_free (backup_path);
1364
1365     return ret;
1366 }
1367
1368 /* --------------------------------------------------------------------------------------------- */
1369
1370 gboolean
1371 mc_util_restore_from_backup_if_possible (const char *file_name, const char *backup_suffix)
1372 {
1373     gboolean ret;
1374     char *backup_path;
1375
1376     backup_path = g_strdup_printf ("%s%s", file_name, backup_suffix);
1377     if (backup_path == NULL)
1378         return FALSE;
1379
1380     ret = mc_util_write_backup_content (backup_path, file_name);
1381     g_free (backup_path);
1382
1383     return ret;
1384 }
1385
1386 /* --------------------------------------------------------------------------------------------- */
1387
1388 gboolean
1389 mc_util_unlink_backup_if_possible (const char *file_name, const char *backup_suffix)
1390 {
1391     char *backup_path;
1392
1393     backup_path = g_strdup_printf ("%s%s", file_name, backup_suffix);
1394     if (backup_path == NULL)
1395         return FALSE;
1396
1397     if (exist_file (backup_path))
1398     {
1399         vfs_path_t *vpath;
1400
1401         vpath = vfs_path_from_str (backup_path);
1402         mc_unlink (vpath);
1403         vfs_path_free (vpath, TRUE);
1404     }
1405
1406     g_free (backup_path);
1407     return TRUE;
1408 }
1409
1410 /* --------------------------------------------------------------------------------------------- */
1411 /**
1412  * partly taken from dcigettext.c, returns "" for default locale
1413  * value should be freed by calling function g_free()
1414  */
1415
1416 char *
1417 guess_message_value (void)
1418 {
1419     static const char *const var[] = {
1420         /* Setting of LC_ALL overwrites all other.  */
1421         /* Do not use LANGUAGE for check user locale and drowing hints */
1422         "LC_ALL",
1423         /* Next comes the name of the desired category.  */
1424         "LC_MESSAGES",
1425         /* Last possibility is the LANG environment variable.  */
1426         "LANG",
1427         /* NULL exit loops */
1428         NULL
1429     };
1430
1431     size_t i;
1432     const char *locale = NULL;
1433
1434     for (i = 0; var[i] != NULL; i++)
1435     {
1436         locale = getenv (var[i]);
1437         if (locale != NULL && locale[0] != '\0')
1438             break;
1439     }
1440
1441     if (locale == NULL)
1442         locale = "";
1443
1444     return g_strdup (locale);
1445 }
1446
1447 /* --------------------------------------------------------------------------------------------- */
1448
1449 /**
1450  * The "profile root" is the tree under which all of MC's user data &
1451  * settings are stored.
1452  *
1453  * It defaults to the user's home dir. The user may override this default
1454  * with the environment variable $MC_PROFILE_ROOT.
1455  */
1456 const char *
1457 mc_get_profile_root (void)
1458 {
1459     static const char *profile_root = NULL;
1460
1461     if (profile_root == NULL)
1462     {
1463         profile_root = g_getenv ("MC_PROFILE_ROOT");
1464         if (profile_root == NULL || *profile_root == '\0')
1465             profile_root = mc_config_get_home_dir ();
1466     }
1467
1468     return profile_root;
1469 }
1470
1471 /* --------------------------------------------------------------------------------------------- */
1472 /**
1473  * Propagate error in simple way.
1474  *
1475  * @param dest error return location
1476  * @param code error code
1477  * @param format printf()-style format for error message
1478  * @param ... parameters for message format
1479  */
1480
1481 void
1482 mc_propagate_error (GError **dest, int code, const char *format, ...)
1483 {
1484     if (dest != NULL && *dest == NULL)
1485     {
1486         GError *tmp_error;
1487         va_list args;
1488
1489         va_start (args, format);
1490         tmp_error = g_error_new_valist (MC_ERROR, code, format, args);
1491         va_end (args);
1492
1493         g_propagate_error (dest, tmp_error);
1494     }
1495 }
1496
1497 /* --------------------------------------------------------------------------------------------- */
1498 /**
1499  * Replace existing error in simple way.
1500  *
1501  * @param dest error return location
1502  * @param code error code
1503  * @param format printf()-style format for error message
1504  * @param ... parameters for message format
1505  */
1506
1507 void
1508 mc_replace_error (GError **dest, int code, const char *format, ...)
1509 {
1510     if (dest != NULL)
1511     {
1512         GError *tmp_error;
1513         va_list args;
1514
1515         va_start (args, format);
1516         tmp_error = g_error_new_valist (MC_ERROR, code, format, args);
1517         va_end (args);
1518
1519         g_error_free (*dest);
1520         *dest = NULL;
1521         g_propagate_error (dest, tmp_error);
1522     }
1523 }
1524
1525 /* --------------------------------------------------------------------------------------------- */
1526
1527 /**
1528  * Returns if the given duration has elapsed since the given timestamp,
1529  * and if it has then updates the timestamp.
1530  *
1531  * @param timestamp the last timestamp in microseconds, updated if the given time elapsed
1532  * @param delay amount of time in microseconds
1533
1534  * @return TRUE if clock skew detected, FALSE otherwise
1535  */
1536 gboolean
1537 mc_time_elapsed (gint64 *timestamp, gint64 delay)
1538 {
1539     gint64 now;
1540
1541     now = g_get_monotonic_time ();
1542
1543     if (now >= *timestamp && now < *timestamp + delay)
1544         return FALSE;
1545
1546     *timestamp = now;
1547     return TRUE;
1548 }
1549
1550 /* --------------------------------------------------------------------------------------------- */