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