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