src/filemanager/cmd.c

   1 /*
   2    Routines invoked by a function key
   3    They normally operate on the current panel.
   4
   5    Copyright (C) 1994, 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   6    2005, 2006, 2007, 2009, 2011, 2013
   7    The Free Software Foundation, Inc.
   8
   9    Written by:
  10    Andrew Borodin <aborodin@vmail.ru>, 2013
  11
  12    This file is part of the Midnight Commander.
  13
  14    The Midnight Commander is free software: you can redistribute it
  15    and/or modify it under the terms of the GNU General Public License as
  16    published by the Free Software Foundation, either version 3 of the License,
  17    or (at your option) any later version.
  18
  19    The Midnight Commander is distributed in the hope that it will be useful,
  20    but WITHOUT ANY WARRANTY; without even the implied warranty of
  21    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22    GNU General Public License for more details.
  23
  24    You should have received a copy of the GNU General Public License
  25    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  26  */
  27
  28 /** \file cmd.c
  29  *  \brief Source: routines invoked by a function key
  30  *
  31  *  They normally operate on the current panel.
  32  */
  33
  34 #include <config.h>
  35
  36 #include <errno.h>
  37 #include <stdio.h>
  38 #include <string.h>
  39
  40 #include <sys/types.h>
  41 #include <sys/stat.h>
  42 #ifdef HAVE_MMAP
  43 #include <sys/mman.h>
  44 #endif
  45 #ifdef ENABLE_VFS_NET
  46 #include <netdb.h>
  47 #endif
  48 #include <unistd.h>
  49 #include <stdlib.h>
  50 #include <fcntl.h>
  51 #include <pwd.h>
  52 #include <grp.h>
  53 #include <sys/time.h>
  54
  55 #include "lib/global.h"
  56
  57 #include "lib/tty/tty.h"        /* LINES, tty_touch_screen() */
  58 #include "lib/tty/key.h"        /* ALT() macro */
  59 #include "lib/tty/win.h"        /* do_enter_ca_mode() */
  60 #include "lib/mcconfig.h"
  61 #include "lib/search.h"
  62 #include "lib/filehighlight.h"  /* MC_FHL_INI_FILE */
  63 #include "lib/vfs/vfs.h"
  64 #include "lib/fileloc.h"
  65 #include "lib/strutil.h"
  66 #include "lib/util.h"
  67 #include "lib/widget.h"
  68 #include "lib/keybind.h"        /* CK_Down, CK_History */
  69 #include "lib/event.h"          /* mc_event_raise() */
  70
  71 #include "src/viewer/mcviewer.h"
  72 #include "src/setup.h"
  73 #include "src/execute.h"        /* toggle_panels() */
  74 #include "src/history.h"
  75 #include "src/util.h"           /* check_for_default() */
  76
  77 #ifdef USE_INTERNAL_EDIT
  78 #include "src/editor/edit.h"
  79 #endif
  80
  81 #ifdef USE_DIFF_VIEW
  82 #include "src/diffviewer/ydiff.h"
  83 #endif
  84
  85 #include "fileopctx.h"
  86 #include "file.h"               /* file operation routines */
  87 #include "find.h"               /* find_file() */
  88 #include "filenot.h"
  89 #include "hotlist.h"            /* hotlist_show() */
  90 #include "panel.h"              /* WPanel */
  91 #include "tree.h"               /* tree_chdir() */
  92 #include "midnight.h"           /* change_panel() */
  93 #include "usermenu.h"           /* MC_GLOBAL_MENU */
  94 #include "command.h"            /* cmdline */
  95 #include "layout.h"             /* get_current_type() */
  96 #include "ext.h"                /* regex_command() */
  97 #include "boxes.h"              /* cd_dialog() */
  98 #include "dir.h"
  99
 100 #include "cmd.h"                /* Our definitions */
 101
 102 /*** global variables ****************************************************************************/
 103
 104 int select_flags = SELECT_MATCH_CASE | SELECT_SHELL_PATTERNS;
 105
 106 /*** file scope macro definitions ****************************************************************/
 107
 108 #ifndef MAP_FILE
 109 #define MAP_FILE 0
 110 #endif
 111
 112 /*** file scope type declarations ****************************************************************/
 113
 114 enum CompareMode
 115 {
 116     compare_quick, compare_size_only, compare_thourough
 117 };
 118
 119 /*** file scope variables ************************************************************************/
 120
 121 #ifdef ENABLE_VFS_NET
 122 static const char *machine_str = N_("Enter machine name (F1 for details):");
 123 #endif /* ENABLE_VFS_NET */
 124
 125 /*** file scope functions ************************************************************************/
 126 /* --------------------------------------------------------------------------------------------- */
 127 /**
 128  * Run viewer (internal or external) on the currently selected file.
 129  * If normal is TRUE, force internal viewer and raw mode (used for F13).
 130  */
 131 static void
 132 do_view_cmd (gboolean normal)
 133 {
 134     /* Directories are viewed by changing to them */
 135     if (S_ISDIR (selection (current_panel)->st.st_mode) || link_isdir (selection (current_panel)))
 136     {
 137         vfs_path_t *fname_vpath;
 138
 139         if (confirm_view_dir && (current_panel->marked || current_panel->dirs_marked))
 140         {
 141             if (query_dialog
 142                 (_("Confirmation"), _("Files tagged, want to cd?"), D_NORMAL, 2,
 143                  _("&Yes"), _("&No")) != 0)
 144             {
 145                 return;
 146             }
 147         }
 148         fname_vpath = vfs_path_from_str (selection (current_panel)->fname);
 149         if (!do_cd (fname_vpath, cd_exact))
 150             message (D_ERROR, MSG_ERROR, _("Cannot change directory"));
 151         vfs_path_free (fname_vpath);
 152     }
 153     else
 154     {
 155         int file_idx;
 156         vfs_path_t *filename_vpath;
 157
 158         file_idx = current_panel->selected;
 159         filename_vpath = vfs_path_from_str (current_panel->dir.list[file_idx].fname);
 160         view_file (filename_vpath, normal, use_internal_view);
 161         vfs_path_free (filename_vpath);
 162     }
 163
 164     repaint_screen ();
 165 }
 166
 167 /* --------------------------------------------------------------------------------------------- */
 168
 169 static inline void
 170 do_edit (const vfs_path_t * what_vpath)
 171 {
 172     long line = 0;
 173
 174     if (!use_internal_edit)
 175     {
 176         long column;
 177         off_t offset;
 178
 179         if (what_vpath != NULL && *(vfs_path_get_by_index (what_vpath, 0)->path) != '\0')
 180             load_file_position (what_vpath, &line, &column, &offset, NULL);
 181     }
 182     do_edit_at_line (what_vpath, use_internal_edit, line);
 183 }
 184
 185 /* --------------------------------------------------------------------------------------------- */
 186
 187 static void
 188 set_panel_filter_to (WPanel * p, char *allocated_filter_string)
 189 {
 190     g_free (p->filter);
 191     p->filter = 0;
 192
 193     if (!(allocated_filter_string[0] == '*' && allocated_filter_string[1] == 0))
 194         p->filter = allocated_filter_string;
 195     else
 196         g_free (allocated_filter_string);
 197     reread_cmd ();
 198 }
 199
 200 /* --------------------------------------------------------------------------------------------- */
 201 /** Set a given panel filter expression */
 202
 203 static void
 204 set_panel_filter (WPanel * p)
 205 {
 206     char *reg_exp;
 207     const char *x;
 208
 209     x = p->filter ? p->filter : easy_patterns ? "*" : ".";
 210
 211     reg_exp = input_dialog_help (_("Filter"),
 212                                  _("Set expression for filtering filenames"),
 213                                  "[Filter...]", MC_HISTORY_FM_PANEL_FILTER, x, FALSE,
 214                                  INPUT_COMPLETE_FILENAMES);
 215     if (!reg_exp)
 216         return;
 217     set_panel_filter_to (p, reg_exp);
 218 }
 219
 220 /* --------------------------------------------------------------------------------------------- */
 221
 222 static void
 223 select_unselect_cmd (const char *title, const char *history_name, gboolean do_select)
 224 {
 225     int files_only = (select_flags & SELECT_FILES_ONLY) != 0;
 226     int case_sens = (select_flags & SELECT_MATCH_CASE) != 0;
 227     int shell_patterns = (select_flags & SELECT_SHELL_PATTERNS) != 0;
 228
 229     char *reg_exp;
 230     mc_search_t *search;
 231     int i;
 232
 233     quick_widget_t quick_widgets[] = {
 234         /* *INDENT-OFF* */
 235         QUICK_INPUT (INPUT_LAST_TEXT, history_name, &reg_exp, NULL,
 236                      FALSE, FALSE, INPUT_COMPLETE_FILENAMES),
 237         QUICK_START_COLUMNS,
 238             QUICK_CHECKBOX (N_("&Files only"), &files_only, NULL),
 239             QUICK_CHECKBOX (N_("&Using shell patterns"), &shell_patterns, NULL),
 240         QUICK_NEXT_COLUMN,
 241             QUICK_CHECKBOX (N_("&Case sensitive"), &case_sens, NULL),
 242         QUICK_STOP_COLUMNS,
 243         QUICK_END
 244         /* *INDENT-ON* */
 245     };
 246
 247     quick_dialog_t qdlg = {
 248         -1, -1, 50,
 249         title, "[Select/Unselect Files]",
 250         quick_widgets, NULL, NULL
 251     };
 252
 253     if (quick_dialog (&qdlg) == B_CANCEL)
 254         return;
 255
 256     if (reg_exp == NULL || *reg_exp == '\0')
 257     {
 258         g_free (reg_exp);
 259         return;
 260     }
 261
 262     search = mc_search_new (reg_exp, -1, NULL);
 263     search->search_type = (shell_patterns != 0) ? MC_SEARCH_T_GLOB : MC_SEARCH_T_REGEX;
 264     search->is_entire_line = TRUE;
 265     search->is_case_sensitive = case_sens != 0;
 266
 267     for (i = 0; i < current_panel->dir.len; i++)
 268     {
 269         if (DIR_IS_DOTDOT (current_panel->dir.list[i].fname))
 270             continue;
 271         if (S_ISDIR (current_panel->dir.list[i].st.st_mode) && files_only != 0)
 272             continue;
 273
 274         if (mc_search_run (search, current_panel->dir.list[i].fname,
 275                            0, current_panel->dir.list[i].fnamelen, NULL))
 276             do_file_mark (current_panel, i, do_select);
 277     }
 278
 279     mc_search_free (search);
 280     g_free (reg_exp);
 281
 282     /* result flags */
 283     select_flags = 0;
 284     if (case_sens != 0)
 285         select_flags |= SELECT_MATCH_CASE;
 286     if (files_only != 0)
 287         select_flags |= SELECT_FILES_ONLY;
 288     if (shell_patterns != 0)
 289         select_flags |= SELECT_SHELL_PATTERNS;
 290 }
 291
 292 /* --------------------------------------------------------------------------------------------- */
 293
 294 static int
 295 compare_files (const vfs_path_t * vpath1, const vfs_path_t * vpath2, off_t size)
 296 {
 297     int file1;
 298     int result = -1;            /* Different by default */
 299
 300     if (size == 0)
 301         return 0;
 302
 303     file1 = open (vfs_path_as_str (vpath1), O_RDONLY);
 304     if (file1 >= 0)
 305     {
 306         int file2;
 307
 308         file2 = open (vfs_path_as_str (vpath2), O_RDONLY);
 309         if (file2 >= 0)
 310         {
 311 #ifdef HAVE_MMAP
 312             char *data1;
 313
 314             /* Ugly if jungle */
 315             data1 = mmap (0, size, PROT_READ, MAP_FILE | MAP_PRIVATE, file1, 0);
 316             if (data1 != (char *) -1)
 317             {
 318                 char *data2;
 319
 320                 data2 = mmap (0, size, PROT_READ, MAP_FILE | MAP_PRIVATE, file2, 0);
 321                 if (data2 != (char *) -1)
 322                 {
 323                     rotate_dash (TRUE);
 324                     result = memcmp (data1, data2, size);
 325                     munmap (data2, size);
 326                 }
 327                 munmap (data1, size);
 328             }
 329 #else
 330             /* Don't have mmap() :( Even more ugly :) */
 331             char buf1[BUFSIZ], buf2[BUFSIZ];
 332             int n1, n2;
 333             rotate_dash (TRUE);
 334             do
 335             {
 336                 while ((n1 = read (file1, buf1, BUFSIZ)) == -1 && errno == EINTR);
 337                 while ((n2 = read (file2, buf2, BUFSIZ)) == -1 && errno == EINTR);
 338             }
 339             while (n1 == n2 && n1 == BUFSIZ && !memcmp (buf1, buf2, BUFSIZ));
 340             result = (n1 != n2) || memcmp (buf1, buf2, n1);
 341 #endif /* !HAVE_MMAP */
 342             close (file2);
 343         }
 344         close (file1);
 345     }
 346     rotate_dash (FALSE);
 347
 348     return result;
 349 }
 350
 351 /* --------------------------------------------------------------------------------------------- */
 352
 353 static void
 354 compare_dir (WPanel * panel, WPanel * other, enum CompareMode mode)
 355 {
 356     int i, j;
 357
 358     /* No marks by default */
 359     panel->marked = 0;
 360     panel->total = 0;
 361     panel->dirs_marked = 0;
 362
 363     /* Handle all files in the panel */
 364     for (i = 0; i < panel->dir.len; i++)
 365     {
 366         file_entry_t *source = &panel->dir.list[i];
 367
 368         /* Default: unmarked */
 369         file_mark (panel, i, 0);
 370
 371         /* Skip directories */
 372         if (S_ISDIR (source->st.st_mode))
 373             continue;
 374
 375         /* Search the corresponding entry from the other panel */
 376         for (j = 0; j < other->dir.len; j++)
 377         {
 378             if (strcmp (source->fname, other->dir.list[j].fname) == 0)
 379                 break;
 380         }
 381         if (j >= other->dir.len)
 382             /* Not found -> mark */
 383             do_file_mark (panel, i, 1);
 384         else
 385         {
 386             /* Found */
 387             file_entry_t *target = &other->dir.list[j];
 388
 389             if (mode != compare_size_only)
 390             {
 391                 /* Older version is not marked */
 392                 if (source->st.st_mtime < target->st.st_mtime)
 393                     continue;
 394             }
 395
 396             /* Newer version with different size is marked */
 397             if (source->st.st_size != target->st.st_size)
 398             {
 399                 do_file_mark (panel, i, 1);
 400                 continue;
 401
 402             }
 403             if (mode == compare_size_only)
 404                 continue;
 405
 406             if (mode == compare_quick)
 407             {
 408                 /* Thorough compare off, compare only time stamps */
 409                 /* Mark newer version, don't mark version with the same date */
 410                 if (source->st.st_mtime > target->st.st_mtime)
 411                 {
 412                     do_file_mark (panel, i, 1);
 413                 }
 414                 continue;
 415             }
 416
 417             /* Thorough compare on, do byte-by-byte comparison */
 418             {
 419                 vfs_path_t *src_name, *dst_name;
 420
 421                 src_name = vfs_path_append_new (panel->cwd_vpath, source->fname, NULL);
 422                 dst_name = vfs_path_append_new (other->cwd_vpath, target->fname, NULL);
 423                 if (compare_files (src_name, dst_name, source->st.st_size))
 424                     do_file_mark (panel, i, 1);
 425                 vfs_path_free (src_name);
 426                 vfs_path_free (dst_name);
 427             }
 428         }
 429     }                           /* for (i ...) */
 430 }
 431
 432 /* --------------------------------------------------------------------------------------------- */
 433
 434 static void
 435 do_link (link_type_t link_type, const char *fname)
 436 {
 437     char *dest = NULL, *src = NULL;
 438     vfs_path_t *fname_vpath, *dest_vpath = NULL;
 439
 440     fname_vpath = vfs_path_from_str (fname);
 441     if (link_type == LINK_HARDLINK)
 442     {
 443         src = g_strdup_printf (_("Link %s to:"), str_trunc (fname, 46));
 444         dest =
 445             input_expand_dialog (_("Link"), src, MC_HISTORY_FM_LINK, "", INPUT_COMPLETE_FILENAMES);
 446         if (!dest || !*dest)
 447             goto cleanup;
 448         save_cwds_stat ();
 449         dest_vpath = vfs_path_from_str (dest);
 450         if (-1 == mc_link (fname_vpath, dest_vpath))
 451             message (D_ERROR, MSG_ERROR, _("link: %s"), unix_error_string (errno));
 452     }
 453     else
 454     {
 455         vfs_path_t *s, *d;
 456
 457         /* suggest the full path for symlink, and either the full or
 458            relative path to the file it points to  */
 459         s = vfs_path_append_new (current_panel->cwd_vpath, fname, NULL);
 460
 461         if (get_other_type () == view_listing)
 462             d = vfs_path_append_new (other_panel->cwd_vpath, fname, NULL);
 463         else
 464             d = vfs_path_from_str (fname);
 465
 466         if (link_type == LINK_SYMLINK_RELATIVE)
 467         {
 468             char *s_str;
 469
 470             s_str = diff_two_paths (other_panel->cwd_vpath, s);
 471             vfs_path_free (s);
 472             s = vfs_path_from_str_flags (s_str, VPF_NO_CANON);
 473             g_free (s_str);
 474         }
 475
 476         symlink_dialog (s, d, &dest, &src);
 477         vfs_path_free (d);
 478         vfs_path_free (s);
 479
 480         if (!dest || !*dest || !src || !*src)
 481             goto cleanup;
 482         save_cwds_stat ();
 483
 484         dest_vpath = vfs_path_from_str_flags (dest, VPF_NO_CANON);
 485
 486         s = vfs_path_from_str (src);
 487         if (mc_symlink (dest_vpath, s) == -1)
 488             message (D_ERROR, MSG_ERROR, _("symlink: %s"), unix_error_string (errno));
 489         vfs_path_free (s);
 490     }
 491
 492     update_panels (UP_OPTIMIZE, UP_KEEPSEL);
 493     repaint_screen ();
 494
 495   cleanup:
 496     vfs_path_free (fname_vpath);
 497     vfs_path_free (dest_vpath);
 498     g_free (src);
 499     g_free (dest);
 500 }
 501
 502 /* --------------------------------------------------------------------------------------------- */
 503
 504 #if defined(ENABLE_VFS_UNDELFS) || defined(ENABLE_VFS_NET)
 505 static void
 506 nice_cd (const char *text, const char *xtext, const char *help,
 507          const char *history_name, const char *prefix, int to_home, gboolean strip_password)
 508 {
 509     char *machine;
 510     char *cd_path;
 511
 512     if (!SELECTED_IS_PANEL)
 513         return;
 514
 515     machine =
 516         input_dialog_help (text, xtext, help, history_name, "", strip_password,
 517                            INPUT_COMPLETE_FILENAMES | INPUT_COMPLETE_CD | INPUT_COMPLETE_HOSTNAMES |
 518                            INPUT_COMPLETE_USERNAMES);
 519     if (machine == NULL)
 520         return;
 521
 522     to_home = 0;                /* FIXME: how to solve going to home nicely? /~/ is
 523                                    ugly as hell and leads to problems in vfs layer */
 524
 525     if (strncmp (prefix, machine, strlen (prefix)) == 0)
 526         cd_path = g_strconcat (machine, to_home ? "/~/" : (char *) NULL, (char *) NULL);
 527     else
 528         cd_path = g_strconcat (prefix, machine, to_home ? "/~/" : (char *) NULL, (char *) NULL);
 529
 530     g_free (machine);
 531
 532     if (*cd_path != PATH_SEP)
 533     {
 534         char *tmp = cd_path;
 535
 536         cd_path = g_strconcat (PATH_SEP_STR, tmp, (char *) NULL);
 537         g_free (tmp);
 538     }
 539
 540     {
 541         vfs_path_t *cd_vpath;
 542
 543         cd_vpath = vfs_path_from_str_flags (cd_path, VPF_NO_CANON);
 544         if (!do_panel_cd (MENU_PANEL, cd_vpath, cd_parse_command))
 545             message (D_ERROR, MSG_ERROR, _("Cannot chdir to \"%s\""), cd_path);
 546         vfs_path_free (cd_vpath);
 547     }
 548     g_free (cd_path);
 549 }
 550 #endif /* ENABLE_VFS_UNDELFS || ENABLE_VFS_NET */
 551
 552 /* --------------------------------------------------------------------------------------------- */
 553
 554 static void
 555 configure_panel_listing (WPanel * p, int list_type, int use_msformat, char *user, char *status)
 556 {
 557     p->user_mini_status = use_msformat;
 558     p->list_type = list_type;
 559
 560     if (list_type == list_user || use_msformat)
 561     {
 562         g_free (p->user_format);
 563         p->user_format = user;
 564
 565         g_free (p->user_status_format[list_type]);
 566         p->user_status_format[list_type] = status;
 567
 568         set_panel_formats (p);
 569     }
 570     else
 571     {
 572         g_free (user);
 573         g_free (status);
 574     }
 575
 576     set_panel_formats (p);
 577     do_refresh ();
 578 }
 579
 580 /* --------------------------------------------------------------------------------------------- */
 581
 582 static void
 583 switch_to_listing (int panel_index)
 584 {
 585     if (get_display_type (panel_index) != view_listing)
 586         set_display_type (panel_index, view_listing);
 587     else
 588     {
 589         WPanel *p;
 590
 591         p = (WPanel *) get_panel_widget (panel_index);
 592         if (p->is_panelized)
 593         {
 594             p->is_panelized = FALSE;
 595             panel_reload (p);
 596         }
 597     }
 598 }
 599
 600 /* --------------------------------------------------------------------------------------------- */
 601 /** Handle the tree internal listing modes switching */
 602
 603 static gboolean
 604 set_basic_panel_listing_to (int panel_index, int listing_mode)
 605 {
 606     WPanel *p = (WPanel *) get_panel_widget (panel_index);
 607     gboolean ok;
 608
 609     switch_to_listing (panel_index);
 610     p->list_type = listing_mode;
 611
 612     ok = set_panel_formats (p) == 0;
 613
 614     if (ok)
 615         do_refresh ();
 616
 617     return ok;
 618 }
 619
 620 /* --------------------------------------------------------------------------------------------- */
 621 /*** public functions ****************************************************************************/
 622 /* --------------------------------------------------------------------------------------------- */
 623
 624 gboolean
 625 view_file_at_line (const vfs_path_t * filename_vpath, int plain_view, int internal, long start_line)
 626 {
 627     gboolean ret = TRUE;
 628
 629     if (plain_view)
 630     {
 631         int changed_hex_mode = 0;
 632         int changed_nroff_flag = 0;
 633         int changed_magic_flag = 0;
 634
 635         mcview_altered_hex_mode = 0;
 636         mcview_altered_nroff_flag = 0;
 637         mcview_altered_magic_flag = 0;
 638         if (mcview_default_hex_mode)
 639             changed_hex_mode = 1;
 640         if (mcview_default_nroff_flag)
 641             changed_nroff_flag = 1;
 642         if (mcview_default_magic_flag)
 643             changed_magic_flag = 1;
 644         mcview_default_hex_mode = 0;
 645         mcview_default_nroff_flag = 0;
 646         mcview_default_magic_flag = 0;
 647
 648         ret = mcview_viewer (NULL, filename_vpath, start_line);
 649
 650         if (changed_hex_mode && !mcview_altered_hex_mode)
 651             mcview_default_hex_mode = 1;
 652         if (changed_nroff_flag && !mcview_altered_nroff_flag)
 653             mcview_default_nroff_flag = 1;
 654         if (changed_magic_flag && !mcview_altered_magic_flag)
 655             mcview_default_magic_flag = 1;
 656
 657         dialog_switch_process_pending ();
 658     }
 659     else if (internal)
 660     {
 661         char view_entry[BUF_TINY];
 662
 663         if (start_line != 0)
 664             g_snprintf (view_entry, sizeof (view_entry), "View:%ld", start_line);
 665         else
 666             strcpy (view_entry, "View");
 667
 668         ret = (regex_command (filename_vpath, view_entry) == 0);
 669         if (ret)
 670         {
 671             ret = mcview_viewer (NULL, filename_vpath, start_line);
 672             dialog_switch_process_pending ();
 673         }
 674     }
 675     else
 676     {
 677         static const char *viewer = NULL;
 678
 679         if (viewer == NULL)
 680         {
 681             viewer = getenv ("VIEWER");
 682             if (viewer == NULL)
 683                 viewer = getenv ("PAGER");
 684             if (viewer == NULL)
 685                 viewer = "view";
 686         }
 687
 688         execute_external_editor_or_viewer (viewer, filename_vpath, start_line);
 689     }
 690
 691     return ret;
 692 }
 693
 694 /* --------------------------------------------------------------------------------------------- */
 695 /** view_file (filename, plain_view, internal)
 696  *
 697  * Inputs:
 698  *   filename_vpath: The file name to view
 699  *   plain_view:     If set does not do any fancy pre-processing (no filtering) and
 700  *                   always invokes the internal viewer.
 701  *   internal:       If set uses the internal viewer, otherwise an external viewer.
 702  */
 703
 704 gboolean
 705 view_file (const vfs_path_t * filename_vpath, int plain_view, int internal)
 706 {
 707     long line = 0;
 708
 709     if (!internal)
 710     {
 711         long column;
 712         off_t offset;
 713
 714         if (filename_vpath != NULL && *(vfs_path_get_by_index (filename_vpath, 0)->path) != '\0')
 715             load_file_position (filename_vpath, &line, &column, &offset, NULL);
 716     }
 717
 718     return view_file_at_line (filename_vpath, plain_view, internal, line);
 719 }
 720
 721
 722 /* --------------------------------------------------------------------------------------------- */
 723 /** Run user's preferred viewer on the currently selected file */
 724
 725 void
 726 view_cmd (void)
 727 {
 728     do_view_cmd (FALSE);
 729 }
 730
 731 /* --------------------------------------------------------------------------------------------- */
 732 /** Ask for file and run user's preferred viewer on it */
 733
 734 void
 735 view_file_cmd (void)
 736 {
 737     char *filename;
 738     vfs_path_t *vpath;
 739
 740     filename =
 741         input_expand_dialog (_("View file"), _("Filename:"),
 742                              MC_HISTORY_FM_VIEW_FILE, selection (current_panel)->fname,
 743                              INPUT_COMPLETE_FILENAMES);
 744     if (!filename)
 745         return;
 746
 747     vpath = vfs_path_from_str (filename);
 748     g_free (filename);
 749     view_file (vpath, 0, use_internal_view);
 750     vfs_path_free (vpath);
 751 }
 752
 753 /* --------------------------------------------------------------------------------------------- */
 754 /** Run plain internal viewer on the currently selected file */
 755 void
 756 view_raw_cmd (void)
 757 {
 758     do_view_cmd (TRUE);
 759 }
 760
 761 /* --------------------------------------------------------------------------------------------- */
 762
 763 void
 764 view_filtered_cmd (void)
 765 {
 766     char *command;
 767     const char *initial_command;
 768
 769     if (cmdline->buffer[0] == '\0')
 770         initial_command = selection (current_panel)->fname;
 771     else
 772         initial_command = cmdline->buffer;
 773
 774     command =
 775         input_dialog (_("Filtered view"),
 776                       _("Filter command and arguments:"),
 777                       MC_HISTORY_FM_FILTERED_VIEW, initial_command,
 778                       INPUT_COMPLETE_FILENAMES | INPUT_COMPLETE_COMMANDS);
 779
 780     if (command != NULL)
 781     {
 782         mcview_viewer (command, NULL, 0);
 783         g_free (command);
 784         dialog_switch_process_pending ();
 785     }
 786 }
 787
 788 /* --------------------------------------------------------------------------------------------- */
 789
 790 void
 791 do_edit_at_line (const vfs_path_t * what_vpath, gboolean internal, long start_line)
 792 {
 793
 794 #ifdef USE_INTERNAL_EDIT
 795     if (internal)
 796         edit_file (what_vpath, start_line);
 797     else
 798 #endif /* USE_INTERNAL_EDIT */
 799     {
 800         static const char *editor = NULL;
 801
 802         (void) internal;
 803
 804         if (editor == NULL)
 805         {
 806             editor = getenv ("EDITOR");
 807             if (editor == NULL)
 808                 editor = get_default_editor ();
 809         }
 810
 811         if (start_line < 1)
 812             start_line = 1;
 813
 814         execute_external_editor_or_viewer (editor, what_vpath, start_line);
 815     }
 816
 817     if (mc_global.mc_run_mode == MC_RUN_FULL)
 818         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
 819
 820 #ifdef USE_INTERNAL_EDIT
 821     if (use_internal_edit)
 822         dialog_switch_process_pending ();
 823     else
 824 #endif /* USE_INTERNAL_EDIT */
 825         repaint_screen ();
 826 }
 827
 828 /* --------------------------------------------------------------------------------------------- */
 829
 830 void
 831 edit_cmd (void)
 832 {
 833     vfs_path_t *fname;
 834
 835     fname = vfs_path_from_str (selection (current_panel)->fname);
 836     if (regex_command (fname, "Edit") == 0)
 837         do_edit (fname);
 838     vfs_path_free (fname);
 839 }
 840
 841 /* --------------------------------------------------------------------------------------------- */
 842
 843 #ifdef USE_INTERNAL_EDIT
 844 void
 845 edit_cmd_force_internal (void)
 846 {
 847     vfs_path_t *fname;
 848
 849     fname = vfs_path_from_str (selection (current_panel)->fname);
 850     if (regex_command (fname, "Edit") == 0)
 851         do_edit_at_line (fname, TRUE, 0);
 852     vfs_path_free (fname);
 853 }
 854 #endif
 855
 856 /* --------------------------------------------------------------------------------------------- */
 857
 858 void
 859 edit_cmd_new (void)
 860 {
 861     vfs_path_t *fname_vpath = NULL;
 862
 863     if (editor_ask_filename_before_edit)
 864     {
 865         char *fname;
 866
 867         fname = input_expand_dialog (_("Edit file"), _("Enter file name:"),
 868                                      MC_HISTORY_EDIT_LOAD, "", INPUT_COMPLETE_FILENAMES);
 869         if (fname == NULL)
 870             return;
 871
 872         if (*fname != '\0')
 873             fname_vpath = vfs_path_from_str (fname);
 874
 875         g_free (fname);
 876     }
 877
 878 #ifdef HAVE_CHARSET
 879     mc_global.source_codepage = default_source_codepage;
 880 #endif
 881     do_edit (fname_vpath);
 882
 883     vfs_path_free (fname_vpath);
 884 }
 885
 886 /* --------------------------------------------------------------------------------------------- */
 887 /** Invoked by F5.  Copy, default to the other panel.  */
 888
 889 void
 890 copy_cmd (void)
 891 {
 892     save_cwds_stat ();
 893     if (panel_operate (current_panel, OP_COPY, FALSE))
 894     {
 895         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
 896         repaint_screen ();
 897     }
 898 }
 899
 900 /* --------------------------------------------------------------------------------------------- */
 901 /** Invoked by F6.  Move/rename, default to the other panel, ignore marks.  */
 902
 903 void
 904 rename_cmd (void)
 905 {
 906     save_cwds_stat ();
 907     if (panel_operate (current_panel, OP_MOVE, FALSE))
 908     {
 909         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
 910         repaint_screen ();
 911     }
 912 }
 913
 914 /* --------------------------------------------------------------------------------------------- */
 915 /** Invoked by F15.  Copy, default to the same panel, ignore marks.  */
 916
 917 void
 918 copy_cmd_local (void)
 919 {
 920     save_cwds_stat ();
 921     if (panel_operate (current_panel, OP_COPY, TRUE))
 922     {
 923         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
 924         repaint_screen ();
 925     }
 926 }
 927
 928 /* --------------------------------------------------------------------------------------------- */
 929 /** Invoked by F16.  Move/rename, default to the same panel.  */
 930
 931 void
 932 rename_cmd_local (void)
 933 {
 934     save_cwds_stat ();
 935     if (panel_operate (current_panel, OP_MOVE, TRUE))
 936     {
 937         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
 938         repaint_screen ();
 939     }
 940 }
 941
 942 /* --------------------------------------------------------------------------------------------- */
 943
 944 void
 945 mkdir_cmd (void)
 946 {
 947     char *dir;
 948     const char *name = "";
 949
 950     /* If 'on' then automatically fills name with current selected item name */
 951     if (auto_fill_mkdir_name && !DIR_IS_DOTDOT (selection (current_panel)->fname))
 952         name = selection (current_panel)->fname;
 953
 954     dir =
 955         input_expand_dialog (_("Create a new Directory"),
 956                              _("Enter directory name:"), MC_HISTORY_FM_MKDIR, name,
 957                              INPUT_COMPLETE_FILENAMES);
 958
 959     if (dir != NULL && dir != '\0')
 960     {
 961         vfs_path_t *absdir;
 962
 963         if (dir[0] == '/' || dir[0] == '~')
 964             absdir = vfs_path_from_str (dir);
 965         else
 966         {
 967             /* possible escaped '~' */
 968             /* allow create directory with name '~' */
 969             char *tmpdir = dir;
 970
 971             if (dir[0] == '\\' && dir[1] == '~')
 972                 tmpdir = dir + 1;
 973
 974             absdir = vfs_path_append_new (current_panel->cwd_vpath, tmpdir, NULL);
 975         }
 976
 977         save_cwds_stat ();
 978         if (my_mkdir (absdir, 0777) == 0)
 979         {
 980             update_panels (UP_OPTIMIZE, dir);
 981             repaint_screen ();
 982             select_item (current_panel);
 983         }
 984         else
 985         {
 986             message (D_ERROR, MSG_ERROR, "%s", unix_error_string (errno));
 987         }
 988         vfs_path_free (absdir);
 989     }
 990     g_free (dir);
 991 }
 992
 993 /* --------------------------------------------------------------------------------------------- */
 994
 995 void
 996 delete_cmd (void)
 997 {
 998     save_cwds_stat ();
 999
1000     if (panel_operate (current_panel, OP_DELETE, FALSE))
1001     {
1002         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
1003         repaint_screen ();
1004     }
1005 }
1006
1007 /* --------------------------------------------------------------------------------------------- */
1008 /** Invoked by F18.  Remove selected file, regardless of marked files.  */
1009
1010 void
1011 delete_cmd_local (void)
1012 {
1013     save_cwds_stat ();
1014
1015     if (panel_operate (current_panel, OP_DELETE, TRUE))
1016     {
1017         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
1018         repaint_screen ();
1019     }
1020 }
1021
1022 /* --------------------------------------------------------------------------------------------- */
1023
1024 void
1025 find_cmd (void)
1026 {
1027     find_file ();
1028 }
1029
1030 /* --------------------------------------------------------------------------------------------- */
1031 /** Invoked from the left/right menus */
1032
1033 void
1034 filter_cmd (void)
1035 {
1036     WPanel *p;
1037
1038     if (!SELECTED_IS_PANEL)
1039         return;
1040
1041     p = MENU_PANEL;
1042     set_panel_filter (p);
1043 }
1044
1045 /* --------------------------------------------------------------------------------------------- */
1046
1047 void
1048 reread_cmd (void)
1049 {
1050     panel_update_flags_t flag = UP_ONLY_CURRENT;
1051
1052     if (get_current_type () == view_listing && get_other_type () == view_listing &&
1053         vfs_path_equal (current_panel->cwd_vpath, other_panel->cwd_vpath))
1054         flag = UP_OPTIMIZE;
1055
1056     update_panels (UP_RELOAD | flag, UP_KEEPSEL);
1057     repaint_screen ();
1058 }
1059
1060 /* --------------------------------------------------------------------------------------------- */
1061
1062 void
1063 select_invert_cmd (void)
1064 {
1065     int i;
1066
1067     for (i = 0; i < current_panel->dir.len; i++)
1068     {
1069         file_entry_t *file = &current_panel->dir.list[i];
1070
1071         if (!panels_options.reverse_files_only || !S_ISDIR (file->st.st_mode))
1072             do_file_mark (current_panel, i, !file->f.marked);
1073     }
1074 }
1075
1076 /* --------------------------------------------------------------------------------------------- */
1077
1078 void
1079 select_cmd (void)
1080 {
1081     select_unselect_cmd (_("Select"), ":select_cmd: Select ", TRUE);
1082 }
1083
1084 /* --------------------------------------------------------------------------------------------- */
1085
1086 void
1087 unselect_cmd (void)
1088 {
1089     select_unselect_cmd (_("Unselect"), ":unselect_cmd: Unselect ", FALSE);
1090 }
1091
1092 /* --------------------------------------------------------------------------------------------- */
1093
1094 void
1095 ext_cmd (void)
1096 {
1097     vfs_path_t *extdir_vpath;
1098     int dir;
1099
1100     dir = 0;
1101     if (geteuid () == 0)
1102     {
1103         dir = query_dialog (_("Extension file edit"),
1104                             _("Which extension file you want to edit?"), D_NORMAL, 2,
1105                             _("&User"), _("&System Wide"));
1106     }
1107     extdir_vpath = vfs_path_build_filename (mc_global.sysconfig_dir, MC_LIB_EXT, NULL);
1108
1109     if (dir == 0)
1110     {
1111         vfs_path_t *buffer_vpath;
1112
1113         buffer_vpath = mc_config_get_full_vpath (MC_FILEBIND_FILE);
1114         check_for_default (extdir_vpath, buffer_vpath);
1115         do_edit (buffer_vpath);
1116         vfs_path_free (buffer_vpath);
1117     }
1118     else if (dir == 1)
1119     {
1120         if (!exist_file (vfs_path_get_last_path_str (extdir_vpath)))
1121         {
1122             vfs_path_free (extdir_vpath);
1123             extdir_vpath = vfs_path_build_filename (mc_global.share_data_dir, MC_LIB_EXT, NULL);
1124         }
1125         do_edit (extdir_vpath);
1126     }
1127     vfs_path_free (extdir_vpath);
1128     flush_extension_file ();
1129 }
1130
1131 /* --------------------------------------------------------------------------------------------- */
1132 /** edit file menu for mc */
1133
1134 void
1135 edit_mc_menu_cmd (void)
1136 {
1137     vfs_path_t *buffer_vpath;
1138     vfs_path_t *menufile_vpath;
1139     int dir = 0;
1140
1141     dir = query_dialog (_("Menu edit"),
1142                         _("Which menu file do you want to edit?"),
1143                         D_NORMAL, geteuid ()? 2 : 3, _("&Local"), _("&User"), _("&System Wide"));
1144
1145     menufile_vpath = vfs_path_build_filename (mc_global.sysconfig_dir, MC_GLOBAL_MENU, NULL);
1146
1147     if (!exist_file (vfs_path_get_last_path_str (menufile_vpath)))
1148     {
1149         vfs_path_free (menufile_vpath);
1150         menufile_vpath = vfs_path_build_filename (mc_global.share_data_dir, MC_GLOBAL_MENU, NULL);
1151     }
1152
1153     switch (dir)
1154     {
1155     case 0:
1156         buffer_vpath = vfs_path_from_str (MC_LOCAL_MENU);
1157         check_for_default (menufile_vpath, buffer_vpath);
1158         chmod (vfs_path_get_last_path_str (buffer_vpath), 0600);
1159         break;
1160
1161     case 1:
1162         buffer_vpath = mc_config_get_full_vpath (MC_USERMENU_FILE);
1163         check_for_default (menufile_vpath, buffer_vpath);
1164         break;
1165
1166     case 2:
1167         buffer_vpath = vfs_path_build_filename (mc_global.sysconfig_dir, MC_GLOBAL_MENU, NULL);
1168         if (!exist_file (vfs_path_get_last_path_str (buffer_vpath)))
1169         {
1170             vfs_path_free (buffer_vpath);
1171             buffer_vpath = vfs_path_build_filename (mc_global.share_data_dir, MC_GLOBAL_MENU, NULL);
1172         }
1173         break;
1174
1175     default:
1176         vfs_path_free (menufile_vpath);
1177         return;
1178     }
1179
1180     do_edit (buffer_vpath);
1181
1182     vfs_path_free (buffer_vpath);
1183     vfs_path_free (menufile_vpath);
1184 }
1185
1186 /* --------------------------------------------------------------------------------------------- */
1187
1188 void
1189 edit_fhl_cmd (void)
1190 {
1191     vfs_path_t *fhlfile_vpath = NULL;
1192
1193     int dir;
1194
1195     dir = 0;
1196     if (geteuid () == 0)
1197     {
1198         dir = query_dialog (_("Highlighting groups file edit"),
1199                             _("Which highlighting file you want to edit?"), D_NORMAL, 2,
1200                             _("&User"), _("&System Wide"));
1201     }
1202     fhlfile_vpath = vfs_path_build_filename (mc_global.sysconfig_dir, MC_FHL_INI_FILE, NULL);
1203
1204     if (dir == 0)
1205     {
1206         vfs_path_t *buffer_vpath;
1207
1208         buffer_vpath = mc_config_get_full_vpath (MC_FHL_INI_FILE);
1209         check_for_default (fhlfile_vpath, buffer_vpath);
1210         do_edit (buffer_vpath);
1211         vfs_path_free (buffer_vpath);
1212     }
1213     else if (dir == 1)
1214     {
1215         if (!exist_file (vfs_path_get_last_path_str (fhlfile_vpath)))
1216         {
1217             vfs_path_free (fhlfile_vpath);
1218             fhlfile_vpath =
1219                 vfs_path_build_filename (mc_global.sysconfig_dir, MC_FHL_INI_FILE, NULL);
1220         }
1221         do_edit (fhlfile_vpath);
1222     }
1223     vfs_path_free (fhlfile_vpath);
1224
1225     /* refresh highlighting rules */
1226     mc_fhl_free (&mc_filehighlight);
1227     mc_filehighlight = mc_fhl_new (TRUE);
1228 }
1229
1230 /* --------------------------------------------------------------------------------------------- */
1231
1232 void
1233 hotlist_cmd (void)
1234 {
1235     char *target;
1236
1237     target = hotlist_show (LIST_HOTLIST);
1238     if (!target)
1239         return;
1240
1241     if (get_current_type () == view_tree)
1242         tree_chdir (the_tree, target);
1243     else
1244     {
1245         vfs_path_t *deprecated_vpath;
1246         char *cmd;
1247
1248         deprecated_vpath = vfs_path_from_str_flags (target, VPF_USE_DEPRECATED_PARSER);
1249         cmd = g_strconcat ("cd ", vfs_path_as_str (deprecated_vpath), (char *) NULL);
1250         vfs_path_free (deprecated_vpath);
1251
1252         do_cd_command (cmd);
1253         g_free (cmd);
1254     }
1255     g_free (target);
1256 }
1257
1258 #ifdef ENABLE_VFS
1259 void
1260 vfs_list (void)
1261 {
1262     char *target;
1263     vfs_path_t *target_vpath;
1264
1265     target = hotlist_show (LIST_VFSLIST);
1266     if (!target)
1267         return;
1268
1269     target_vpath = vfs_path_from_str (target);
1270     if (!do_cd (target_vpath, cd_exact))
1271         message (D_ERROR, MSG_ERROR, _("Cannot change directory"));
1272     vfs_path_free (target_vpath);
1273     g_free (target);
1274 }
1275 #endif /* ENABLE_VFS */
1276
1277 /* --------------------------------------------------------------------------------------------- */
1278
1279 void
1280 compare_dirs_cmd (void)
1281 {
1282     int choice;
1283     enum CompareMode thorough_flag;
1284
1285     choice =
1286         query_dialog (_("Compare directories"),
1287                       _("Select compare method:"), D_NORMAL, 4,
1288                       _("&Quick"), _("&Size only"), _("&Thorough"), _("&Cancel"));
1289
1290     if (choice < 0 || choice > 2)
1291         return;
1292
1293     thorough_flag = choice;
1294
1295     if (get_current_type () == view_listing && get_other_type () == view_listing)
1296     {
1297         compare_dir (current_panel, other_panel, thorough_flag);
1298         compare_dir (other_panel, current_panel, thorough_flag);
1299     }
1300     else
1301     {
1302         message (D_ERROR, MSG_ERROR,
1303                  _("Both panels should be in the listing mode\nto use this command"));
1304     }
1305 }
1306
1307 /* --------------------------------------------------------------------------------------------- */
1308
1309 #ifdef USE_DIFF_VIEW
1310 void
1311 diff_view_cmd (void)
1312 {
1313     /* both panels must be in the list mode */
1314     if (get_current_type () != view_listing || get_other_type () != view_listing)
1315         return;
1316
1317     if (get_current_index () == 0)
1318         dview_diff_cmd (current_panel, other_panel);
1319     else
1320         dview_diff_cmd (other_panel, current_panel);
1321
1322     if (mc_global.mc_run_mode == MC_RUN_FULL)
1323         update_panels (UP_OPTIMIZE, UP_KEEPSEL);
1324
1325     dialog_switch_process_pending ();
1326 }
1327 #endif
1328
1329 /* --------------------------------------------------------------------------------------------- */
1330
1331 void
1332 swap_cmd (void)
1333 {
1334     swap_panels ();
1335     tty_touch_screen ();
1336     repaint_screen ();
1337 }
1338
1339 /* --------------------------------------------------------------------------------------------- */
1340
1341 void
1342 view_other_cmd (void)
1343 {
1344     static int message_flag = TRUE;
1345
1346     if (!mc_global.tty.xterm_flag && mc_global.tty.console_flag == '\0'
1347         && !mc_global.tty.use_subshell && !output_starts_shell)
1348     {
1349         if (message_flag)
1350             message (D_ERROR, MSG_ERROR,
1351                      _("Not an xterm or Linux console;\nthe panels cannot be toggled."));
1352         message_flag = FALSE;
1353     }
1354     else
1355     {
1356         toggle_panels ();
1357     }
1358 }
1359
1360 /* --------------------------------------------------------------------------------------------- */
1361
1362 void
1363 link_cmd (link_type_t link_type)
1364 {
1365     char *filename = selection (current_panel)->fname;
1366
1367     if (filename != NULL)
1368         do_link (link_type, filename);
1369 }
1370
1371 /* --------------------------------------------------------------------------------------------- */
1372
1373 void
1374 edit_symlink_cmd (void)
1375 {
1376     if (S_ISLNK (selection (current_panel)->st.st_mode))
1377     {
1378         char buffer[MC_MAXPATHLEN];
1379         char *p = NULL;
1380         int i;
1381         char *q;
1382         vfs_path_t *p_vpath;
1383
1384         p = selection (current_panel)->fname;
1385         p_vpath = vfs_path_from_str (p);
1386
1387         q = g_strdup_printf (_("Symlink '%s\' points to:"), str_trunc (p, 32));
1388
1389         i = readlink (p, buffer, MC_MAXPATHLEN - 1);
1390         if (i > 0)
1391         {
1392             char *dest;
1393
1394             buffer[i] = 0;
1395             dest =
1396                 input_expand_dialog (_("Edit symlink"), q, MC_HISTORY_FM_EDIT_LINK, buffer,
1397                                      INPUT_COMPLETE_FILENAMES);
1398             if (dest)
1399             {
1400                 if (*dest && strcmp (buffer, dest))
1401                 {
1402                     save_cwds_stat ();
1403                     if (mc_unlink (p_vpath) == -1)
1404                     {
1405                         message (D_ERROR, MSG_ERROR, _("edit symlink, unable to remove %s: %s"),
1406                                  p, unix_error_string (errno));
1407                     }
1408                     else
1409                     {
1410                         vfs_path_t *dest_vpath;
1411
1412                         dest_vpath = vfs_path_from_str_flags (dest, VPF_NO_CANON);
1413                         if (mc_symlink (dest_vpath, p_vpath) == -1)
1414                             message (D_ERROR, MSG_ERROR, _("edit symlink: %s"),
1415                                      unix_error_string (errno));
1416                         vfs_path_free (dest_vpath);
1417                     }
1418                     update_panels (UP_OPTIMIZE, UP_KEEPSEL);
1419                     repaint_screen ();
1420                 }
1421                 g_free (dest);
1422             }
1423         }
1424         g_free (q);
1425         vfs_path_free (p_vpath);
1426     }
1427     else
1428     {
1429         message (D_ERROR, MSG_ERROR, _("'%s' is not a symbolic link"),
1430                  selection (current_panel)->fname);
1431     }
1432 }
1433
1434 /* --------------------------------------------------------------------------------------------- */
1435
1436 void
1437 help_cmd (void)
1438 {
1439     ev_help_t event_data = { NULL, NULL };
1440
1441     if (current_panel->searching)
1442         event_data.node = "[Quick search]";
1443     else
1444         event_data.node = "[main]";
1445
1446     mc_event_raise (MCEVENT_GROUP_CORE, "help", &event_data);
1447 }
1448
1449 /* --------------------------------------------------------------------------------------------- */
1450
1451 void
1452 user_file_menu_cmd (void)
1453 {
1454     (void) user_menu_cmd (NULL, NULL, -1);
1455 }
1456
1457 /* --------------------------------------------------------------------------------------------- */
1458 /**
1459  * Return a random hint.  If force is not 0, ignore the timeout.
1460  */
1461
1462 char *
1463 get_random_hint (int force)
1464 {
1465     char *data, *result = NULL, *eop;
1466     int len;
1467     int start;
1468     static int last_sec;
1469     static struct timeval tv;
1470     GIConv conv;
1471
1472     /* Do not change hints more often than one minute */
1473     gettimeofday (&tv, NULL);
1474     if (!force && !(tv.tv_sec > last_sec + 60))
1475         return g_strdup ("");
1476     last_sec = tv.tv_sec;
1477
1478     data = load_mc_home_file (mc_global.share_data_dir, MC_HINT, NULL);
1479     if (data == NULL)
1480         return NULL;
1481
1482     /* get a random entry */
1483     srand (tv.tv_sec);
1484     len = strlen (data);
1485     start = rand () % (len - 1);
1486
1487     /* Search the start of paragraph */
1488     for (; start != 0; start--)
1489         if (data[start] == '\n' && data[start + 1] == '\n')
1490         {
1491             start += 2;
1492             break;
1493         }
1494
1495     /* Search the end of paragraph */
1496     for (eop = data + start; *eop != '\0'; eop++)
1497     {
1498         if (*eop == '\n' && *(eop + 1) == '\n')
1499         {
1500             *eop = '\0';
1501             break;
1502         }
1503         if (*eop == '\n')
1504             *eop = ' ';
1505     }
1506
1507     /* hint files are stored in utf-8 */
1508     /* try convert hint file from utf-8 to terminal encoding */
1509     conv = str_crt_conv_from ("UTF-8");
1510     if (conv != INVALID_CONV)
1511     {
1512         GString *buffer;
1513
1514         buffer = g_string_new ("");
1515         if (str_convert (conv, &data[start], buffer) != ESTR_FAILURE)
1516             result = g_string_free (buffer, FALSE);
1517         else
1518             g_string_free (buffer, TRUE);
1519         str_close_conv (conv);
1520     }
1521     else
1522         result = g_strdup (&data[start]);
1523
1524     g_free (data);
1525     return result;
1526 }
1527
1528 /* --------------------------------------------------------------------------------------------- */
1529
1530 #ifdef ENABLE_VFS_FTP
1531 void
1532 ftplink_cmd (void)
1533 {
1534     nice_cd (_("FTP to machine"), _(machine_str),
1535              "[FTP File System]", ":ftplink_cmd: FTP to machine ", "ftp://", 1, TRUE);
1536 }
1537 #endif /* ENABLE_VFS_FTP */
1538
1539 /* --------------------------------------------------------------------------------------------- */
1540
1541 #ifdef ENABLE_VFS_SFTP
1542 void
1543 sftplink_cmd (void)
1544 {
1545     nice_cd (_("SFTP to machine"), _(machine_str),
1546              "[SFTP (SSH File Transfer Protocol) filesystem]",
1547              ":sftplink_cmd: SFTP to machine ", "sftp://", 1, TRUE);
1548 }
1549 #endif /* ENABLE_VFS_SFTP */
1550
1551 /* --------------------------------------------------------------------------------------------- */
1552
1553 #ifdef ENABLE_VFS_FISH
1554 void
1555 fishlink_cmd (void)
1556 {
1557     nice_cd (_("Shell link to machine"), _(machine_str),
1558              "[FIle transfer over SHell filesystem]", ":fishlink_cmd: Shell link to machine ",
1559              "sh://", 1, TRUE);
1560 }
1561 #endif /* ENABLE_VFS_FISH */
1562
1563 /* --------------------------------------------------------------------------------------------- */
1564
1565 #ifdef ENABLE_VFS_SMB
1566 void
1567 smblink_cmd (void)
1568 {
1569     nice_cd (_("SMB link to machine"), _(machine_str),
1570              "[SMB File System]", ":smblink_cmd: SMB link to machine ", "smb://", 0, TRUE);
1571 }
1572 #endif /* ENABLE_VFS_SMB */
1573
1574 /* --------------------------------------------------------------------------------------------- */
1575
1576 #ifdef ENABLE_VFS_UNDELFS
1577 void
1578 undelete_cmd (void)
1579 {
1580     nice_cd (_("Undelete files on an ext2 file system"),
1581              _("Enter device (without /dev/) to undelete\nfiles on: (F1 for details)"),
1582              "[Undelete File System]", ":undelete_cmd: Undel on ext2 fs ", "undel://", 0, FALSE);
1583 }
1584 #endif /* ENABLE_VFS_UNDELFS */
1585
1586 /* --------------------------------------------------------------------------------------------- */
1587
1588 void
1589 quick_cd_cmd (void)
1590 {
1591     char *p = cd_dialog ();
1592
1593     if (p && *p)
1594     {
1595         char *q = g_strconcat ("cd ", p, (char *) NULL);
1596
1597         do_cd_command (q);
1598         g_free (q);
1599     }
1600     g_free (p);
1601 }
1602
1603 /* --------------------------------------------------------------------------------------------- */
1604 /*!
1605    \brief calculate dirs sizes
1606
1607    calculate dirs sizes and resort panel:
1608    dirs_selected = show size for selected dirs,
1609    otherwise = show size for dir under cursor:
1610    dir under cursor ".." = show size for all dirs,
1611    otherwise = show size for dir under cursor
1612  */
1613
1614 void
1615 smart_dirsize_cmd (void)
1616 {
1617     WPanel *panel = current_panel;
1618     file_entry_t *entry;
1619
1620     entry = &(panel->dir.list[panel->selected]);
1621     if ((S_ISDIR (entry->st.st_mode) && DIR_IS_DOTDOT (entry->fname)) || panel->dirs_marked)
1622         dirsizes_cmd ();
1623     else
1624         single_dirsize_cmd ();
1625 }
1626
1627 /* --------------------------------------------------------------------------------------------- */
1628
1629 void
1630 single_dirsize_cmd (void)
1631 {
1632     WPanel *panel = current_panel;
1633     file_entry_t *entry;
1634
1635     entry = &(panel->dir.list[panel->selected]);
1636     if (S_ISDIR (entry->st.st_mode) && !DIR_IS_DOTDOT (entry->fname))
1637     {
1638         size_t count = 0;
1639         uintmax_t total = 0;
1640         ComputeDirSizeUI *ui;
1641         vfs_path_t *p;
1642
1643         ui = compute_dir_size_create_ui (FALSE);
1644         p = vfs_path_from_str (entry->fname);
1645
1646         if (compute_dir_size (p, ui, compute_dir_size_update_ui, &count, &total, TRUE) == FILE_CONT)
1647         {
1648             entry->st.st_size = (off_t) total;
1649             entry->f.dir_size_computed = 1;
1650         }
1651
1652         vfs_path_free (p);
1653         compute_dir_size_destroy_ui (ui);
1654     }
1655
1656     if (panels_options.mark_moves_down)
1657         send_message (panel, NULL, MSG_ACTION, CK_Down, NULL);
1658
1659     recalculate_panel_summary (panel);
1660
1661     if (current_panel->sort_field->sort_routine == (GCompareFunc) sort_size)
1662         panel_re_sort (panel);
1663
1664     panel->dirty = 1;
1665 }
1666
1667 /* --------------------------------------------------------------------------------------------- */
1668
1669 void
1670 dirsizes_cmd (void)
1671 {
1672     WPanel *panel = current_panel;
1673     int i;
1674     ComputeDirSizeUI *ui;
1675
1676     ui = compute_dir_size_create_ui (FALSE);
1677
1678     for (i = 0; i < panel->dir.len; i++)
1679         if (S_ISDIR (panel->dir.list[i].st.st_mode)
1680             && ((panel->dirs_marked && panel->dir.list[i].f.marked)
1681                 || !panel->dirs_marked) && !DIR_IS_DOTDOT (panel->dir.list[i].fname))
1682         {
1683             vfs_path_t *p;
1684             size_t count = 0;
1685             uintmax_t total = 0;
1686             gboolean ok;
1687
1688             p = vfs_path_from_str (panel->dir.list[i].fname);
1689             ok = compute_dir_size (p, ui, compute_dir_size_update_ui, &count, &total,
1690                                    TRUE) != FILE_CONT;
1691             vfs_path_free (p);
1692
1693             if (ok)
1694                 break;
1695
1696             panel->dir.list[i].st.st_size = (off_t) total;
1697             panel->dir.list[i].f.dir_size_computed = 1;
1698         }
1699
1700     compute_dir_size_destroy_ui (ui);
1701
1702     recalculate_panel_summary (panel);
1703
1704     if (current_panel->sort_field->sort_routine == (GCompareFunc) sort_size)
1705         panel_re_sort (panel);
1706
1707     panel->dirty = 1;
1708 }
1709
1710 /* --------------------------------------------------------------------------------------------- */
1711
1712 void
1713 save_setup_cmd (void)
1714 {
1715     vfs_path_t *vpath;
1716     const char *path;
1717
1718     vpath = vfs_path_from_str_flags (mc_config_get_path (), VPF_STRIP_HOME);
1719     path = vfs_path_as_str (vpath);
1720
1721     if (save_setup (TRUE, TRUE))
1722         message (D_NORMAL, _("Setup"), _("Setup saved to %s"), path);
1723     else
1724         message (D_ERROR, _("Setup"), _("Unable to save setup to %s"), path);
1725
1726     vfs_path_free (vpath);
1727 }
1728
1729 /* --------------------------------------------------------------------------------------------- */
1730
1731 void
1732 info_cmd_no_menu (void)
1733 {
1734     if (get_display_type (0) == view_info)
1735         set_display_type (0, view_listing);
1736     else if (get_display_type (1) == view_info)
1737         set_display_type (1, view_listing);
1738     else
1739         set_display_type (current_panel == left_panel ? 1 : 0, view_info);
1740 }
1741
1742 /* --------------------------------------------------------------------------------------------- */
1743
1744 void
1745 quick_cmd_no_menu (void)
1746 {
1747     if (get_display_type (0) == view_quick)
1748         set_display_type (0, view_listing);
1749     else if (get_display_type (1) == view_quick)
1750         set_display_type (1, view_listing);
1751     else
1752         set_display_type (current_panel == left_panel ? 1 : 0, view_quick);
1753 }
1754
1755 /* --------------------------------------------------------------------------------------------- */
1756
1757 void
1758 listing_cmd (void)
1759 {
1760     switch_to_listing (MENU_PANEL_IDX);
1761 }
1762
1763 /* --------------------------------------------------------------------------------------------- */
1764
1765 void
1766 change_listing_cmd (void)
1767 {
1768     int list_type;
1769     int use_msformat;
1770     char *user, *status;
1771     WPanel *p = NULL;
1772
1773     if (SELECTED_IS_PANEL)
1774         p = MENU_PANEL_IDX == 0 ? left_panel : right_panel;
1775
1776     list_type = panel_listing_box (p, &user, &status, &use_msformat, MENU_PANEL_IDX);
1777     if (list_type != -1)
1778     {
1779         switch_to_listing (MENU_PANEL_IDX);
1780         p = MENU_PANEL_IDX == 0 ? left_panel : right_panel;
1781         configure_panel_listing (p, list_type, use_msformat, user, status);
1782     }
1783 }
1784
1785 /* --------------------------------------------------------------------------------------------- */
1786
1787 void
1788 panel_tree_cmd (void)
1789 {
1790     set_display_type (MENU_PANEL_IDX, view_tree);
1791 }
1792
1793 /* --------------------------------------------------------------------------------------------- */
1794
1795 void
1796 info_cmd (void)
1797 {
1798     set_display_type (MENU_PANEL_IDX, view_info);
1799 }
1800
1801 /* --------------------------------------------------------------------------------------------- */
1802
1803 void
1804 quick_view_cmd (void)
1805 {
1806     if ((WPanel *) get_panel_widget (MENU_PANEL_IDX) == current_panel)
1807         change_panel ();
1808     set_display_type (MENU_PANEL_IDX, view_quick);
1809 }
1810
1811 /* --------------------------------------------------------------------------------------------- */
1812
1813 void
1814 toggle_listing_cmd (void)
1815 {
1816     int current = get_current_index ();
1817     WPanel *p = (WPanel *) get_panel_widget (current);
1818
1819     set_basic_panel_listing_to (current, (p->list_type + 1) % LIST_TYPES);
1820 }
1821
1822 /* --------------------------------------------------------------------------------------------- */
1823
1824 #ifdef HAVE_CHARSET
1825 void
1826 encoding_cmd (void)
1827 {
1828     if (SELECTED_IS_PANEL)
1829         panel_change_encoding (MENU_PANEL);
1830 }
1831 #endif
1832
1833 /* --------------------------------------------------------------------------------------------- */