src/filemanager/cmd.c

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