4 Copyright (C) 1994-2024
5 Free Software Foundation, Inc.
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
15 This file is part of the Midnight Commander.
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.
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.
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/>.
32 * \brief Source: various utilities
38 #include <stddef.h> /* ptrdiff_t */
44 #include <sys/types.h>
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"
55 /*** global variables ****************************************************************************/
57 /*** file scope macro definitions ****************************************************************/
59 #define ismode(n,m) ((n & m) == m)
61 /* Number of attempts to create a temporary file */
66 #define TMP_SUFFIX ".tmp"
68 #define ASCII_A (0x40 + 1)
69 #define ASCII_Z (0x40 + 26)
70 #define ASCII_a (0x60 + 1)
71 #define ASCII_z (0x60 + 26)
73 /*** file scope type declarations ****************************************************************/
75 /*** forward declarations (file scope functions) *************************************************/
77 /*** file scope variables ************************************************************************/
79 /* --------------------------------------------------------------------------------------------- */
80 /*** file scope functions ************************************************************************/
81 /* --------------------------------------------------------------------------------------------- */
85 is_7bit_printable (unsigned char c
)
87 return (c
> 31 && c
< 127);
91 /* --------------------------------------------------------------------------------------------- */
94 is_iso_printable (unsigned char c
)
96 return ((c
> 31 && c
< 127) || c
>= 160);
99 /* --------------------------------------------------------------------------------------------- */
102 is_8bit_printable (unsigned char c
)
104 /* "Full 8 bits output" doesn't work on xterm */
105 if (mc_global
.tty
.xterm_flag
)
106 return is_iso_printable (c
);
108 return (c
> 31 && c
!= 127 && c
!= 155);
111 /* --------------------------------------------------------------------------------------------- */
114 resolve_symlinks (const vfs_path_t
* vpath
)
117 char *buf
, *buf2
, *q
, *r
, c
;
123 p
= p2
= g_strdup (vfs_path_as_str (vpath
));
124 r
= buf
= g_malloc (MC_MAXPATHLEN
);
125 buf2
= g_malloc (MC_MAXPATHLEN
);
131 q
= strchr (p
+ 1, PATH_SEP
);
134 q
= strchr (p
+ 1, '\0');
140 if (mc_lstat (vpath
, &mybuf
) < 0)
145 if (!S_ISLNK (mybuf
.st_mode
))
151 len
= mc_readlink (vpath
, buf2
, MC_MAXPATHLEN
- 1);
158 if (IS_PATH_SEP (*buf2
))
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 */
177 strcpy (buf
, PATH_SEP_STR
);
178 else if (IS_PATH_SEP (r
[-1]) && r
!= buf
+ 1)
187 /* --------------------------------------------------------------------------------------------- */
190 mc_util_write_backup_content (const char *from_file_name
, const char *to_file_name
)
195 gboolean ret1
= TRUE
;
197 if (!g_file_get_contents (from_file_name
, &contents
, &length
, NULL
))
200 backup_fd
= fopen (to_file_name
, "w");
201 if (backup_fd
== NULL
)
207 if (fwrite ((const void *) contents
, 1, length
, backup_fd
) != length
)
213 /* cppcheck-suppress redundantAssignment */
214 ret2
= fflush (backup_fd
);
215 /* cppcheck-suppress redundantAssignment */
216 ret2
= fclose (backup_fd
);
224 /* --------------------------------------------------------------------------------------------- */
225 /*** public functions ****************************************************************************/
226 /* --------------------------------------------------------------------------------------------- */
234 /* "Display bits" is ignored, since the user controls the output
235 by setting the output codepage */
236 return is_8bit_printable (c
);
238 if (!mc_global
.eight_bit_clean
)
239 return is_7bit_printable (c
);
241 if (mc_global
.full_eight_bits
)
242 return is_8bit_printable (c
);
244 return is_iso_printable (c
);
245 #endif /* !HAVE_CHARSET */
248 /* --------------------------------------------------------------------------------------------- */
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.
255 name_quote (const char *s
, gboolean quote_percent
)
259 if (s
== NULL
|| *s
== '\0')
262 ret
= g_string_sized_new (64);
265 g_string_append (ret
, "." PATH_SEP_STR
);
267 for (; *s
!= '\0'; s
++)
273 g_string_append_c (ret
, '%');
298 g_string_append_c (ret
, '\\');
303 g_string_append_c (ret
, '\\');
308 g_string_append_c (ret
, *s
);
311 return g_string_free (ret
, ret
->len
== 0);
314 /* --------------------------------------------------------------------------------------------- */
317 fake_name_quote (const char *s
, gboolean quote_percent
)
319 (void) quote_percent
;
321 return (s
== NULL
|| *s
== '\0' ? NULL
: g_strdup (s
));
324 /* --------------------------------------------------------------------------------------------- */
326 * path_trunc() is the same as str_trunc() but
327 * it deletes possible password from path for security
332 path_trunc (const char *path
, size_t trunc_len
)
338 vpath
= vfs_path_from_str (path
);
339 secure_path
= vfs_path_to_str_flags (vpath
, 0, VPF_STRIP_PASSWORD
);
340 vfs_path_free (vpath
, TRUE
);
342 ret
= str_trunc (secure_path
, trunc_len
);
343 g_free (secure_path
);
348 /* --------------------------------------------------------------------------------------------- */
351 size_trunc (uintmax_t size
, gboolean use_si
)
353 static char x
[BUF_TINY
];
354 uintmax_t divisor
= 1;
355 const char *xtra
= _("B");
357 if (size
> 999999999UL)
359 divisor
= use_si
? 1000 : 1024;
360 xtra
= use_si
? _("kB") : _("KiB");
362 if (size
/ divisor
> 999999999UL)
364 divisor
= use_si
? (1000 * 1000) : (1024 * 1024);
365 xtra
= use_si
? _("MB") : _("MiB");
367 if (size
/ divisor
> 999999999UL)
369 divisor
= use_si
? (1000 * 1000 * 1000) : (1024 * 1024 * 1024);
370 xtra
= use_si
? _("GB") : _("GiB");
374 g_snprintf (x
, sizeof (x
), "%.0f %s", 1.0 * size
/ divisor
, xtra
);
378 /* --------------------------------------------------------------------------------------------- */
381 size_trunc_sep (uintmax_t size
, gboolean use_si
)
388 p
= y
= size_trunc (size
, use_si
);
390 d
= x
+ sizeof (x
) - 1;
392 /* @size format is "size unit", i.e. "[digits][space][letters]".
393 Copy all characters after digits. */
394 while (p
>= y
&& !g_ascii_isdigit (*p
))
396 for (count
= 0; p
>= y
; count
++)
411 /* --------------------------------------------------------------------------------------------- */
413 * Print file SIZE to BUFFER, but don't exceed LEN characters,
414 * not including trailing 0. BUFFER should be at least LEN+1 long.
415 * This function is called for every file on panels, so avoid
416 * floating point by any means.
418 * Units: size units (filesystem sizes are 1K blocks)
419 * 0=bytes, 1=Kbytes, 2=Mbytes, etc.
423 size_trunc_len (char *buffer
, unsigned int len
, uintmax_t size
, int units
, gboolean use_si
)
425 /* Avoid taking power for every file. */
427 static const uintmax_t power10
[] = {
428 /* we hope that size of uintmax_t is 4 bytes at least */
439 /* maximum value of uintmax_t (in case of 4 bytes) is
442 #if SIZEOF_UINTMAX_T == 8
450 10000000000000000ULL,
451 100000000000000000ULL,
452 1000000000000000000ULL,
453 10000000000000000000ULL
454 /* maximum value of uintmax_t (in case of 8 bytes) is
460 static const char *const suffix
[] =
461 { "", "K", "M", "G", "T", "P", "E", "Z", "Y", "R", "Q", NULL
};
462 static const char *const suffix_lc
[] =
463 { "", "k", "m", "g", "t", "p", "e", "z", "y", "r", "q", NULL
};
465 const char *const *sfx
= use_si
? suffix_lc
: suffix
;
470 #if SIZEOF_UINTMAX_T == 8
471 /* 20 decimal digits are required to represent 8 bytes */
475 /* 10 decimal digits are required to represent 4 bytes */
481 * recalculate from 1024 base to 1000 base if units>0
482 * We can't just multiply by 1024 - that might cause overflow
483 * if uintmax_t type is too small
486 for (j
= 0; j
< units
; j
++)
488 uintmax_t size_remain
;
490 size_remain
= ((size
% 125) * 1024) / 1000; /* size mod 125, recalculated */
491 size
/= 125; /* 128/125 = 1024/1000 */
492 size
*= 128; /* This will convert size from multiple of 1024 to multiple of 1000 */
493 size
+= size_remain
; /* Re-add remainder lost by division/multiplication */
496 for (j
= units
; sfx
[j
] != NULL
; j
++)
502 /* Empty files will print "0" even with minimal width. */
503 g_snprintf (buffer
, len
+ 1, "%s", "0");
507 /* Use "~K" or just "K" if len is 1. Use "B" for bytes. */
508 g_snprintf (buffer
, len
+ 1, (len
> 1) ? "~%s" : "%s", (j
> 1) ? sfx
[j
- 1] : "B");
513 if (size
< power10
[len
- (j
> 0 ? 1 : 0)])
515 g_snprintf (buffer
, len
+ 1, "%" PRIuMAX
"%s", size
, sfx
[j
]);
519 /* Powers of 1000 or 1024, with rounding. */
521 size
= (size
+ 500) / 1000;
523 size
= (size
+ 512) >> 10;
527 /* --------------------------------------------------------------------------------------------- */
530 string_perm (mode_t mode_bits
)
532 static char mode
[11];
534 strcpy (mode
, "----------");
535 if (S_ISDIR (mode_bits
))
537 if (S_ISCHR (mode_bits
))
539 if (S_ISBLK (mode_bits
))
541 if (S_ISLNK (mode_bits
))
543 if (S_ISFIFO (mode_bits
))
545 if (S_ISNAM (mode_bits
))
547 if (S_ISSOCK (mode_bits
))
549 if (S_ISDOOR (mode_bits
))
551 if (ismode (mode_bits
, S_IXOTH
))
553 if (ismode (mode_bits
, S_IWOTH
))
555 if (ismode (mode_bits
, S_IROTH
))
557 if (ismode (mode_bits
, S_IXGRP
))
559 if (ismode (mode_bits
, S_IWGRP
))
561 if (ismode (mode_bits
, S_IRGRP
))
563 if (ismode (mode_bits
, S_IXUSR
))
565 if (ismode (mode_bits
, S_IWUSR
))
567 if (ismode (mode_bits
, S_IRUSR
))
570 if (ismode (mode_bits
, S_ISUID
))
571 mode
[3] = (mode
[3] == 'x') ? 's' : 'S';
574 if (ismode (mode_bits
, S_ISGID
))
575 mode
[6] = (mode
[6] == 'x') ? 's' : 'S';
578 if (ismode (mode_bits
, S_ISVTX
))
579 mode
[9] = (mode
[9] == 'x') ? 't' : 'T';
584 /* --------------------------------------------------------------------------------------------- */
587 extension (const char *filename
)
591 d
= strrchr (filename
, '.');
593 return d
!= NULL
? d
+ 1 : "";
596 /* --------------------------------------------------------------------------------------------- */
599 load_mc_home_file (const char *from
, const char *filename
, char **allocated_filename
,
602 char *hintfile_base
, *hintfile
;
606 hintfile_base
= g_build_filename (from
, filename
, (char *) NULL
);
607 lang
= guess_message_value ();
609 hintfile
= g_strconcat (hintfile_base
, ".", lang
, (char *) NULL
);
610 if (!g_file_get_contents (hintfile
, &data
, length
, NULL
))
612 /* Fall back to the two-letter language code */
613 if (lang
[0] != '\0' && lang
[1] != '\0')
616 hintfile
= g_strconcat (hintfile_base
, ".", lang
, (char *) NULL
);
617 if (!g_file_get_contents (hintfile
, &data
, length
, NULL
))
620 hintfile
= hintfile_base
;
621 g_file_get_contents (hintfile_base
, &data
, length
, NULL
);
627 if (hintfile
!= hintfile_base
)
628 g_free (hintfile_base
);
630 if (allocated_filename
!= NULL
)
631 *allocated_filename
= hintfile
;
638 /* --------------------------------------------------------------------------------------------- */
641 extract_line (const char *s
, const char *top
)
643 static char tmp_line
[BUF_MEDIUM
];
646 while (*s
!= '\0' && *s
!= '\n' && (size_t) (t
- tmp_line
) < sizeof (tmp_line
) - 1 && s
< top
)
652 /* --------------------------------------------------------------------------------------------- */
654 * The basename routine
658 x_basename (const char *s
)
660 const char *url_delim
, *path_sep
;
662 url_delim
= g_strrstr (s
, VFS_PATH_URL_DELIMITER
);
663 path_sep
= strrchr (s
, PATH_SEP
);
665 if (path_sep
== NULL
)
668 if (url_delim
== NULL
669 || url_delim
< path_sep
- strlen (VFS_PATH_URL_DELIMITER
)
670 || url_delim
- s
+ strlen (VFS_PATH_URL_DELIMITER
) < strlen (s
))
672 /* avoid trailing PATH_SEP, if present */
673 if (!IS_PATH_SEP (s
[strlen (s
) - 1]))
676 while (--path_sep
> s
&& !IS_PATH_SEP (*path_sep
))
678 return (path_sep
!= s
) ? path_sep
+ 1 : s
;
681 while (--url_delim
> s
&& !IS_PATH_SEP (*url_delim
))
683 while (--url_delim
> s
&& !IS_PATH_SEP (*url_delim
))
686 return url_delim
== s
? s
: url_delim
+ 1;
689 /* --------------------------------------------------------------------------------------------- */
692 unix_error_string (int error_num
)
694 static char buffer
[BUF_LARGE
];
695 gchar
*strerror_currentlocale
;
697 strerror_currentlocale
= g_locale_from_utf8 (g_strerror (error_num
), -1, NULL
, NULL
, NULL
);
698 g_snprintf (buffer
, sizeof (buffer
), "%s (%d)", strerror_currentlocale
, error_num
);
699 g_free (strerror_currentlocale
);
704 /* --------------------------------------------------------------------------------------------- */
707 skip_separators (const char *s
)
711 for (; *su
!= '\0'; str_cnext_char (&su
))
712 if (!whitespace (*su
) && *su
!= ',')
718 /* --------------------------------------------------------------------------------------------- */
721 skip_numbers (const char *s
)
725 for (; *su
!= '\0'; str_cnext_char (&su
))
726 if (!str_isdigit (su
))
732 /* --------------------------------------------------------------------------------------------- */
734 * Remove all control sequences from the argument string. We define
735 * "control sequence", in a sort of pidgin BNF, as follows:
737 * control-seq = Esc non-'['
738 * | Esc '[' (0 or more digits or ';' or ':' or '?') (any other char)
740 * The 256-color and true-color escape sequences should allow either ';' or ':' inside as separator,
741 * actually, ':' is the more correct according to ECMA-48.
742 * Some terminal emulators (e.g. xterm, gnome-terminal) support this.
744 * Non-printable characters are also removed.
748 strip_ctrl_codes (char *s
)
750 char *w
; /* Current position where the stripped data is written */
751 char *r
; /* Current position where the original data is read */
756 for (w
= s
, r
= s
; *r
!= '\0';)
760 /* Skip the control sequence's arguments */ ;
761 /* '(' need to avoid strange 'B' letter in *Suse (if mc runs under root user) */
762 if (*(++r
) == '[' || *r
== '(')
764 /* strchr() matches trailing binary 0 */
765 while (*(++r
) != '\0' && strchr ("0123456789;:?", *r
) != NULL
)
771 * Skip xterm's OSC (Operating System Command)
772 * http://www.xfree86.org/current/ctlseqs.html
778 for (new_r
= r
; *new_r
!= '\0'; new_r
++)
788 if (new_r
[1] == '\\')
803 * Now we are at the last character of the sequence.
804 * Skip it unless it's binary 0.
813 n
= str_get_next_char (r
);
816 memmove (w
, r
, n
- r
);
827 /* --------------------------------------------------------------------------------------------- */
829 enum compression_type
830 get_compression_type (int fd
, const char *name
)
832 unsigned char magic
[16];
835 /* Read the magic signature */
836 if (mc_read (fd
, (char *) magic
, 4) != 4)
837 return COMPRESSION_NONE
;
839 /* GZIP_MAGIC and OLD_GZIP_MAGIC */
840 if (magic
[0] == 0x1F && (magic
[1] == 0x8B || magic
[1] == 0x9E))
841 return COMPRESSION_GZIP
;
844 if (magic
[0] == 'P' && magic
[1] == 'K' && magic
[2] == 0x03 && magic
[3] == 0x04)
846 /* Read compression type */
847 mc_lseek (fd
, 8, SEEK_SET
);
848 if (mc_read (fd
, (char *) magic
, 2) != 2)
849 return COMPRESSION_NONE
;
851 if ((magic
[0] != 8 && magic
[0] != 0) || magic
[1] != 0)
852 return COMPRESSION_NONE
;
854 return COMPRESSION_ZIP
;
857 /* PACK_MAGIC and LZH_MAGIC and compress magic */
858 if (magic
[0] == 0x1F && (magic
[1] == 0x1E || magic
[1] == 0xA0 || magic
[1] == 0x9D))
859 /* Compatible with gzip */
860 return COMPRESSION_GZIP
;
862 /* BZIP and BZIP2 files */
863 if ((magic
[0] == 'B') && (magic
[1] == 'Z') && (magic
[3] >= '1') && (magic
[3] <= '9'))
867 return COMPRESSION_BZIP
;
869 return COMPRESSION_BZIP2
;
874 /* LZ4 format - v1.5.0 - 0x184D2204 (little endian) */
875 if (magic
[0] == 0x04 && magic
[1] == 0x22 && magic
[2] == 0x4d && magic
[3] == 0x18)
876 return COMPRESSION_LZ4
;
878 if (mc_read (fd
, (char *) magic
+ 4, 2) != 2)
879 return COMPRESSION_NONE
;
884 && magic
[2] == 'I' && magic
[3] == 'P' && (magic
[4] == 0x00 || magic
[4] == 0x01))
885 return COMPRESSION_LZIP
;
887 /* Support for LZMA (only utils format with magic in header).
888 * This is the default format of LZMA utils 4.32.1 and later. */
891 && magic
[2] == 'Z' && magic
[3] == 'M' && magic
[4] == 'A' && magic
[5] == 0x00)
892 return COMPRESSION_LZMA
;
894 /* LZO format - \x89\x4c\x5a\x4f\x00\x0d\x0a\x1a\x0a lzop compressed data */
895 if (magic
[0] == 0x89 && magic
[1] == 0x4c &&
896 magic
[2] == 0x5a && magic
[3] == 0x4f && magic
[4] == 0x00 && magic
[5] == 0x0d)
897 return COMPRESSION_LZO
;
899 /* XZ compression magic */
902 && magic
[2] == 0x7A && magic
[3] == 0x58 && magic
[4] == 0x5A && magic
[5] == 0x00)
903 return COMPRESSION_XZ
;
905 if (magic
[0] == 0x28 && magic
[1] == 0xB5 && magic
[2] == 0x2F && magic
[3] == 0xFD)
906 return COMPRESSION_ZSTD
;
908 str_len
= strlen (name
);
909 /* HACK: we must believe to extension of LZMA file :) ... */
910 if ((str_len
> 5 && strcmp (&name
[str_len
- 5], ".lzma") == 0) ||
911 (str_len
> 4 && strcmp (&name
[str_len
- 4], ".tlz") == 0))
912 return COMPRESSION_LZMA
;
914 return COMPRESSION_NONE
;
917 /* --------------------------------------------------------------------------------------------- */
920 decompress_extension (int type
)
924 case COMPRESSION_ZIP
:
925 return "/uz" VFS_PATH_URL_DELIMITER
;
926 case COMPRESSION_GZIP
:
927 return "/ugz" VFS_PATH_URL_DELIMITER
;
928 case COMPRESSION_BZIP
:
929 return "/ubz" VFS_PATH_URL_DELIMITER
;
930 case COMPRESSION_BZIP2
:
931 return "/ubz2" VFS_PATH_URL_DELIMITER
;
932 case COMPRESSION_LZIP
:
933 return "/ulz" VFS_PATH_URL_DELIMITER
;
934 case COMPRESSION_LZ4
:
935 return "/ulz4" VFS_PATH_URL_DELIMITER
;
936 case COMPRESSION_LZMA
:
937 return "/ulzma" VFS_PATH_URL_DELIMITER
;
938 case COMPRESSION_LZO
:
939 return "/ulzo" VFS_PATH_URL_DELIMITER
;
941 return "/uxz" VFS_PATH_URL_DELIMITER
;
942 case COMPRESSION_ZSTD
:
943 return "/uzst" VFS_PATH_URL_DELIMITER
;
947 /* Should never reach this place */
948 fprintf (stderr
, "Fatal: decompress_extension called with an unknown argument\n");
952 /* --------------------------------------------------------------------------------------------- */
955 wipe_password (char *passwd
)
961 for (p
= passwd
; *p
!= '\0'; p
++)
967 /* --------------------------------------------------------------------------------------------- */
969 * Convert "\E" -> esc character and ^x to control-x key and ^^ to ^ key
971 * @param p pointer to string
973 * @return newly allocated string
977 convert_controls (const char *p
)
982 valcopy
= g_strdup (p
);
984 /* Parse the escape special character */
985 for (q
= valcopy
; *p
!= '\0';)
991 if (*p
== 'e' || *p
== 'E')
1007 if (c
>= 'a' && c
<= 'z')
1012 else if (*p
!= '\0')
1025 /* --------------------------------------------------------------------------------------------- */
1027 * Finds out a relative path from first to second, i.e. goes as many ..
1028 * as needed up in first and then goes down using second
1032 diff_two_paths (const vfs_path_t
* vpath1
, const vfs_path_t
* vpath2
)
1034 int j
, prevlen
= -1, currlen
;
1035 char *my_first
= NULL
, *my_second
= NULL
;
1038 my_first
= resolve_symlinks (vpath1
);
1039 if (my_first
== NULL
)
1042 my_second
= resolve_symlinks (vpath2
);
1043 if (my_second
== NULL
)
1046 for (j
= 0; j
< 2; j
++)
1059 r
= strchr (p
, PATH_SEP
);
1062 s
= strchr (q
, PATH_SEP
);
1067 if (len
!= (s
- q
) || strncmp (p
, q
, (size_t) len
) != 0)
1074 for (i
= 0; (p
= strchr (p
+ 1, PATH_SEP
)) != NULL
; i
++)
1076 currlen
= (i
+ 1) * 3 + strlen (q
) + 1;
1079 if (currlen
< prevlen
)
1084 p
= buf
= g_malloc (currlen
);
1086 for (; i
>= 0; i
--, p
+= 3)
1097 /* --------------------------------------------------------------------------------------------- */
1099 * Append text to GList, remove all entries with the same text
1103 list_append_unique (GList
* list
, char *text
)
1108 * Go to the last position and traverse the list backwards
1109 * starting from the second last entry to make sure that we
1110 * are not removing the current link.
1112 list
= g_list_append (list
, text
);
1113 list
= g_list_last (list
);
1114 lc_link
= g_list_previous (list
);
1116 while (lc_link
!= NULL
)
1120 newlink
= g_list_previous (lc_link
);
1121 if (strcmp ((char *) lc_link
->data
, text
) == 0)
1125 g_free (lc_link
->data
);
1126 tmp
= g_list_remove_link (list
, lc_link
);
1128 g_list_free_1 (lc_link
);
1136 /* --------------------------------------------------------------------------------------------- */
1138 * Read and restore position for the given filename.
1139 * If there is no stored data, return line 1 and col 0.
1143 load_file_position (const vfs_path_t
* filename_vpath
, long *line
, long *column
, off_t
* offset
,
1144 GArray
** bookmarks
)
1148 char buf
[MC_MAXPATHLEN
+ 100];
1149 const size_t len
= vfs_path_len (filename_vpath
);
1156 /* open file with positions */
1157 fn
= mc_config_get_full_path (MC_FILEPOS_FILE
);
1158 f
= fopen (fn
, "r");
1163 /* prepare array for serialized bookmarks */
1164 if (bookmarks
!= NULL
)
1165 *bookmarks
= g_array_sized_new (FALSE
, FALSE
, sizeof (size_t), MAX_SAVED_BOOKMARKS
);
1167 while (fgets (buf
, sizeof (buf
), f
) != NULL
)
1172 /* check if the filename matches the beginning of string */
1173 if (strncmp (buf
, vfs_path_as_str (filename_vpath
), len
) != 0)
1176 /* followed by single space */
1177 if (buf
[len
] != ' ')
1180 /* and string without spaces */
1182 if (strchr (p
, ' ') != NULL
)
1185 pos_tokens
= g_strsplit (p
, ";", 3 + MAX_SAVED_BOOKMARKS
);
1186 if (pos_tokens
[0] == NULL
)
1194 *line
= strtol (pos_tokens
[0], NULL
, 10);
1195 if (pos_tokens
[1] == NULL
)
1202 *column
= strtol (pos_tokens
[1], NULL
, 10);
1203 if (pos_tokens
[2] == NULL
)
1205 else if (bookmarks
!= NULL
)
1209 *offset
= (off_t
) g_ascii_strtoll (pos_tokens
[2], NULL
, 10);
1211 for (i
= 0; i
< MAX_SAVED_BOOKMARKS
&& pos_tokens
[3 + i
] != NULL
; i
++)
1215 val
= strtoul (pos_tokens
[3 + i
], NULL
, 10);
1216 g_array_append_val (*bookmarks
, val
);
1222 g_strfreev (pos_tokens
);
1228 /* --------------------------------------------------------------------------------------------- */
1230 * Save position for the given file
1234 save_file_position (const vfs_path_t
* filename_vpath
, long line
, long column
, off_t offset
,
1237 static size_t filepos_max_saved_entries
= 0;
1240 char buf
[MC_MAXPATHLEN
+ 100];
1242 const size_t len
= vfs_path_len (filename_vpath
);
1243 gboolean src_error
= FALSE
;
1245 if (filepos_max_saved_entries
== 0)
1246 filepos_max_saved_entries
= mc_config_get_int (mc_global
.main_config
, CONFIG_APP_SECTION
,
1247 "filepos_max_saved_entries", 1024);
1249 fn
= mc_config_get_full_path (MC_FILEPOS_FILE
);
1253 mc_util_make_backup_if_possible (fn
, TMP_SUFFIX
);
1256 f
= fopen (fn
, "w");
1258 goto open_target_error
;
1260 tmp_fn
= g_strdup_printf ("%s" TMP_SUFFIX
, fn
);
1261 tmp_f
= fopen (tmp_fn
, "r");
1265 goto open_source_error
;
1268 /* put the new record */
1269 if (line
!= 1 || column
!= 0 || bookmarks
!= NULL
)
1272 (f
, "%s %ld;%ld;%" PRIuMAX
, vfs_path_as_str (filename_vpath
), line
, column
,
1273 (uintmax_t) offset
) < 0)
1274 goto write_position_error
;
1275 if (bookmarks
!= NULL
)
1276 for (i
= 0; i
< bookmarks
->len
&& i
< MAX_SAVED_BOOKMARKS
; i
++)
1277 if (fprintf (f
, ";%zu", g_array_index (bookmarks
, size_t, i
)) < 0)
1278 goto write_position_error
;
1280 if (fprintf (f
, "\n") < 0)
1281 goto write_position_error
;
1285 while (fgets (buf
, sizeof (buf
), tmp_f
) != NULL
)
1287 if (buf
[len
] == ' ' && strncmp (buf
, vfs_path_as_str (filename_vpath
), len
) == 0
1288 && strchr (&buf
[len
+ 1], ' ') == NULL
)
1291 fprintf (f
, "%s", buf
);
1292 if (++i
> filepos_max_saved_entries
)
1296 write_position_error
:
1302 mc_util_restore_from_backup_if_possible (fn
, TMP_SUFFIX
);
1304 mc_util_unlink_backup_if_possible (fn
, TMP_SUFFIX
);
1308 if (bookmarks
!= NULL
)
1309 g_array_free (bookmarks
, TRUE
);
1312 /* --------------------------------------------------------------------------------------------- */
1315 ascii_alpha_to_cntrl (int ch
)
1317 if ((ch
>= ASCII_A
&& ch
<= ASCII_Z
) || (ch
>= ASCII_a
&& ch
<= ASCII_z
))
1323 /* --------------------------------------------------------------------------------------------- */
1328 const char *result
, *sep
;
1331 sep
= strchr (result
, '|');
1333 return sep
!= NULL
? sep
+ 1 : result
;
1336 /* --------------------------------------------------------------------------------------------- */
1339 mc_util_make_backup_if_possible (const char *file_name
, const char *backup_suffix
)
1341 struct stat stat_buf
;
1345 if (!exist_file (file_name
))
1348 backup_path
= g_strdup_printf ("%s%s", file_name
, backup_suffix
);
1349 if (backup_path
== NULL
)
1352 ret
= mc_util_write_backup_content (file_name
, backup_path
);
1355 /* Backup file will have same ownership with main file. */
1356 if (stat (file_name
, &stat_buf
) == 0)
1357 chmod (backup_path
, stat_buf
.st_mode
);
1359 chmod (backup_path
, S_IRUSR
| S_IWUSR
);
1362 g_free (backup_path
);
1367 /* --------------------------------------------------------------------------------------------- */
1370 mc_util_restore_from_backup_if_possible (const char *file_name
, const char *backup_suffix
)
1375 backup_path
= g_strdup_printf ("%s%s", file_name
, backup_suffix
);
1376 if (backup_path
== NULL
)
1379 ret
= mc_util_write_backup_content (backup_path
, file_name
);
1380 g_free (backup_path
);
1385 /* --------------------------------------------------------------------------------------------- */
1388 mc_util_unlink_backup_if_possible (const char *file_name
, const char *backup_suffix
)
1392 backup_path
= g_strdup_printf ("%s%s", file_name
, backup_suffix
);
1393 if (backup_path
== NULL
)
1396 if (exist_file (backup_path
))
1400 vpath
= vfs_path_from_str (backup_path
);
1402 vfs_path_free (vpath
, TRUE
);
1405 g_free (backup_path
);
1409 /* --------------------------------------------------------------------------------------------- */
1411 * partly taken from dcigettext.c, returns "" for default locale
1412 * value should be freed by calling function g_free()
1416 guess_message_value (void)
1418 static const char *const var
[] = {
1419 /* Setting of LC_ALL overwrites all other. */
1420 /* Do not use LANGUAGE for check user locale and drowing hints */
1422 /* Next comes the name of the desired category. */
1424 /* Last possibility is the LANG environment variable. */
1426 /* NULL exit loops */
1431 const char *locale
= NULL
;
1433 for (i
= 0; var
[i
] != NULL
; i
++)
1435 locale
= getenv (var
[i
]);
1436 if (locale
!= NULL
&& locale
[0] != '\0')
1443 return g_strdup (locale
);
1446 /* --------------------------------------------------------------------------------------------- */
1449 * The "profile root" is the tree under which all of MC's user data &
1450 * settings are stored.
1452 * It defaults to the user's home dir. The user may override this default
1453 * with the environment variable $MC_PROFILE_ROOT.
1456 mc_get_profile_root (void)
1458 static const char *profile_root
= NULL
;
1460 if (profile_root
== NULL
)
1462 profile_root
= g_getenv ("MC_PROFILE_ROOT");
1463 if (profile_root
== NULL
|| *profile_root
== '\0')
1464 profile_root
= mc_config_get_home_dir ();
1467 return profile_root
;
1470 /* --------------------------------------------------------------------------------------------- */
1472 * Propagate error in simple way.
1474 * @param dest error return location
1475 * @param code error code
1476 * @param format printf()-style format for error message
1477 * @param ... parameters for message format
1481 mc_propagate_error (GError
** dest
, int code
, const char *format
, ...)
1483 if (dest
!= NULL
&& *dest
== NULL
)
1488 va_start (args
, format
);
1489 tmp_error
= g_error_new_valist (MC_ERROR
, code
, format
, args
);
1492 g_propagate_error (dest
, tmp_error
);
1496 /* --------------------------------------------------------------------------------------------- */
1498 * Replace existing error in simple way.
1500 * @param dest error return location
1501 * @param code error code
1502 * @param format printf()-style format for error message
1503 * @param ... parameters for message format
1507 mc_replace_error (GError
** dest
, int code
, const char *format
, ...)
1514 va_start (args
, format
);
1515 tmp_error
= g_error_new_valist (MC_ERROR
, code
, format
, args
);
1518 g_error_free (*dest
);
1520 g_propagate_error (dest
, tmp_error
);
1524 /* --------------------------------------------------------------------------------------------- */
1527 * Returns if the given duration has elapsed since the given timestamp,
1528 * and if it has then updates the timestamp.
1530 * @param timestamp the last timestamp in microseconds, updated if the given time elapsed
1531 * @param delay amount of time in microseconds
1533 * @return TRUE if clock skew detected, FALSE otherwise
1536 mc_time_elapsed (gint64
* timestamp
, gint64 delay
)
1540 now
= g_get_monotonic_time ();
1542 if (now
>= *timestamp
&& now
< *timestamp
+ delay
)
1549 /* --------------------------------------------------------------------------------------------- */