2 Routines invoked by a function key
3 They normally operate on the current panel.
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.
10 Andrew Borodin <aborodin@vmail.ru>, 2013
12 This file is part of the Midnight Commander.
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.
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.
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/>.
29 * \brief Source: routines invoked by a function key
31 * They normally operate on the current panel.
40 #include <sys/types.h>
55 #include "lib/global.h"
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"
67 #include "lib/widget.h"
68 #include "lib/keybind.h" /* CK_Down, CK_History */
69 #include "lib/event.h" /* mc_event_raise() */
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() */
77 #ifdef USE_INTERNAL_EDIT
78 #include "src/editor/edit.h"
82 #include "src/diffviewer/ydiff.h"
85 #include "fileopctx.h"
86 #include "file.h" /* file operation routines */
87 #include "find.h" /* find_file() */
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() */
100 #include "cmd.h" /* Our definitions */
102 /*** global variables ****************************************************************************/
104 int select_flags
= SELECT_MATCH_CASE
| SELECT_SHELL_PATTERNS
;
106 /*** file scope macro definitions ****************************************************************/
112 /*** file scope type declarations ****************************************************************/
116 compare_quick
, compare_size_only
, compare_thourough
119 /*** file scope variables ************************************************************************/
121 #ifdef ENABLE_VFS_NET
122 static const char *machine_str
= N_("Enter machine name (F1 for details):");
123 #endif /* ENABLE_VFS_NET */
125 /*** file scope functions ************************************************************************/
126 /* --------------------------------------------------------------------------------------------- */
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).
132 do_view_cmd (gboolean normal
)
134 /* Directories are viewed by changing to them */
135 if (S_ISDIR (selection (current_panel
)->st
.st_mode
) || link_isdir (selection (current_panel
)))
137 vfs_path_t
*fname_vpath
;
139 if (confirm_view_dir
&& (current_panel
->marked
|| current_panel
->dirs_marked
))
142 (_("Confirmation"), _("Files tagged, want to cd?"), D_NORMAL
, 2,
143 _("&Yes"), _("&No")) != 0)
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
);
156 vfs_path_t
*filename_vpath
;
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
);
167 /* --------------------------------------------------------------------------------------------- */
170 do_edit (const vfs_path_t
* what_vpath
)
174 if (!use_internal_edit
)
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
);
182 do_edit_at_line (what_vpath
, use_internal_edit
, line
);
185 /* --------------------------------------------------------------------------------------------- */
188 set_panel_filter_to (WPanel
* p
, char *allocated_filter_string
)
193 if (!(allocated_filter_string
[0] == '*' && allocated_filter_string
[1] == 0))
194 p
->filter
= allocated_filter_string
;
196 g_free (allocated_filter_string
);
200 /* --------------------------------------------------------------------------------------------- */
201 /** Set a given panel filter expression */
204 set_panel_filter (WPanel
* p
)
209 x
= p
->filter
? p
->filter
: easy_patterns
? "*" : ".";
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
);
217 set_panel_filter_to (p
, reg_exp
);
220 /* --------------------------------------------------------------------------------------------- */
223 select_unselect_cmd (const char *title
, const char *history_name
, gboolean do_select
)
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;
233 quick_widget_t quick_widgets
[] = {
235 QUICK_INPUT (INPUT_LAST_TEXT
, history_name
, ®_exp
, NULL
,
236 FALSE
, FALSE
, INPUT_COMPLETE_FILENAMES
),
238 QUICK_CHECKBOX (N_("&Files only"), &files_only
, NULL
),
239 QUICK_CHECKBOX (N_("&Using shell patterns"), &shell_patterns
, NULL
),
241 QUICK_CHECKBOX (N_("&Case sensitive"), &case_sens
, NULL
),
247 quick_dialog_t qdlg
= {
249 title
, "[Select/Unselect Files]",
250 quick_widgets
, NULL
, NULL
253 if (quick_dialog (&qdlg
) == B_CANCEL
)
256 if (reg_exp
== NULL
|| *reg_exp
== '\0')
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;
267 for (i
= 0; i
< current_panel
->count
; i
++)
269 if (strcmp (current_panel
->dir
.list
[i
].fname
, "..") == 0)
271 if (S_ISDIR (current_panel
->dir
.list
[i
].st
.st_mode
) && files_only
!= 0)
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
);
279 mc_search_free (search
);
285 select_flags
|= SELECT_MATCH_CASE
;
287 select_flags
|= SELECT_FILES_ONLY
;
288 if (shell_patterns
!= 0)
289 select_flags
|= SELECT_SHELL_PATTERNS
;
292 /* --------------------------------------------------------------------------------------------- */
295 compare_files (const vfs_path_t
* vpath1
, const vfs_path_t
* vpath2
, off_t size
)
299 int result
= -1; /* Different by default */
304 name
= vfs_path_to_str (vpath1
);
305 file1
= open (name
, O_RDONLY
);
309 name
= vfs_path_to_str (vpath2
);
310 file2
= open (name
, O_RDONLY
);
317 data1
= mmap (0, size
, PROT_READ
, MAP_FILE
| MAP_PRIVATE
, file1
, 0);
318 if (data1
!= (char *) -1)
320 data2
= mmap (0, size
, PROT_READ
, MAP_FILE
| MAP_PRIVATE
, file2
, 0);
321 if (data2
!= (char *) -1)
324 result
= memcmp (data1
, data2
, size
);
325 munmap (data2
, size
);
327 munmap (data1
, size
);
330 /* Don't have mmap() :( Even more ugly :) */
331 char buf1
[BUFSIZ
], buf2
[BUFSIZ
];
336 while ((n1
= read (file1
, buf1
, BUFSIZ
)) == -1 && errno
== EINTR
);
337 while ((n2
= read (file2
, buf2
, BUFSIZ
)) == -1 && errno
== EINTR
);
339 while (n1
== n2
&& n1
== BUFSIZ
&& !memcmp (buf1
, buf2
, BUFSIZ
));
340 result
= (n1
!= n2
) || memcmp (buf1
, buf2
, n1
);
341 #endif /* !HAVE_MMAP */
349 /* --------------------------------------------------------------------------------------------- */
352 compare_dir (WPanel
* panel
, WPanel
* other
, enum CompareMode mode
)
356 /* No marks by default */
359 panel
->dirs_marked
= 0;
361 /* Handle all files in the panel */
362 for (i
= 0; i
< panel
->count
; i
++)
364 file_entry
*source
= &panel
->dir
.list
[i
];
366 /* Default: unmarked */
367 file_mark (panel
, i
, 0);
369 /* Skip directories */
370 if (S_ISDIR (source
->st
.st_mode
))
373 /* Search the corresponding entry from the other panel */
374 for (j
= 0; j
< other
->count
; j
++)
376 if (strcmp (source
->fname
, other
->dir
.list
[j
].fname
) == 0)
379 if (j
>= other
->count
)
380 /* Not found -> mark */
381 do_file_mark (panel
, i
, 1);
385 file_entry
*target
= &other
->dir
.list
[j
];
387 if (mode
!= compare_size_only
)
389 /* Older version is not marked */
390 if (source
->st
.st_mtime
< target
->st
.st_mtime
)
394 /* Newer version with different size is marked */
395 if (source
->st
.st_size
!= target
->st
.st_size
)
397 do_file_mark (panel
, i
, 1);
401 if (mode
== compare_size_only
)
404 if (mode
== compare_quick
)
406 /* Thorough compare off, compare only time stamps */
407 /* Mark newer version, don't mark version with the same date */
408 if (source
->st
.st_mtime
> target
->st
.st_mtime
)
410 do_file_mark (panel
, i
, 1);
415 /* Thorough compare on, do byte-by-byte comparison */
417 vfs_path_t
*src_name
, *dst_name
;
419 src_name
= vfs_path_append_new (panel
->cwd_vpath
, source
->fname
, NULL
);
420 dst_name
= vfs_path_append_new (other
->cwd_vpath
, target
->fname
, NULL
);
421 if (compare_files (src_name
, dst_name
, source
->st
.st_size
))
422 do_file_mark (panel
, i
, 1);
423 vfs_path_free (src_name
);
424 vfs_path_free (dst_name
);
430 /* --------------------------------------------------------------------------------------------- */
433 do_link (link_type_t link_type
, const char *fname
)
435 char *dest
= NULL
, *src
= NULL
;
436 vfs_path_t
*fname_vpath
, *dest_vpath
= NULL
;
438 fname_vpath
= vfs_path_from_str (fname
);
439 if (link_type
== LINK_HARDLINK
)
441 src
= g_strdup_printf (_("Link %s to:"), str_trunc (fname
, 46));
443 input_expand_dialog (_("Link"), src
, MC_HISTORY_FM_LINK
, "", INPUT_COMPLETE_FILENAMES
);
447 dest_vpath
= vfs_path_from_str (dest
);
448 if (-1 == mc_link (fname_vpath
, dest_vpath
))
449 message (D_ERROR
, MSG_ERROR
, _("link: %s"), unix_error_string (errno
));
455 /* suggest the full path for symlink, and either the full or
456 relative path to the file it points to */
457 s
= vfs_path_append_new (current_panel
->cwd_vpath
, fname
, NULL
);
459 if (get_other_type () == view_listing
)
460 d
= vfs_path_append_new (other_panel
->cwd_vpath
, fname
, NULL
);
462 d
= vfs_path_from_str (fname
);
464 if (link_type
== LINK_SYMLINK_RELATIVE
)
468 s_str
= diff_two_paths (other_panel
->cwd_vpath
, s
);
470 s
= vfs_path_from_str_flags (s_str
, VPF_NO_CANON
);
474 symlink_dialog (s
, d
, &dest
, &src
);
478 if (!dest
|| !*dest
|| !src
|| !*src
)
482 dest_vpath
= vfs_path_from_str_flags (dest
, VPF_NO_CANON
);
484 s
= vfs_path_from_str (src
);
485 if (mc_symlink (dest_vpath
, s
) == -1)
486 message (D_ERROR
, MSG_ERROR
, _("symlink: %s"), unix_error_string (errno
));
490 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
494 vfs_path_free (fname_vpath
);
495 vfs_path_free (dest_vpath
);
500 /* --------------------------------------------------------------------------------------------- */
502 #if defined(ENABLE_VFS_UNDELFS) || defined(ENABLE_VFS_NET)
504 nice_cd (const char *text
, const char *xtext
, const char *help
,
505 const char *history_name
, const char *prefix
, int to_home
, gboolean strip_password
)
510 if (!SELECTED_IS_PANEL
)
514 input_dialog_help (text
, xtext
, help
, history_name
, "", strip_password
,
515 INPUT_COMPLETE_FILENAMES
| INPUT_COMPLETE_CD
| INPUT_COMPLETE_HOSTNAMES
|
516 INPUT_COMPLETE_USERNAMES
);
520 to_home
= 0; /* FIXME: how to solve going to home nicely? /~/ is
521 ugly as hell and leads to problems in vfs layer */
523 if (strncmp (prefix
, machine
, strlen (prefix
)) == 0)
524 cd_path
= g_strconcat (machine
, to_home
? "/~/" : (char *) NULL
, (char *) NULL
);
526 cd_path
= g_strconcat (prefix
, machine
, to_home
? "/~/" : (char *) NULL
, (char *) NULL
);
530 if (*cd_path
!= PATH_SEP
)
534 cd_path
= g_strconcat (PATH_SEP_STR
, tmp
, (char *) NULL
);
539 vfs_path_t
*cd_vpath
;
541 cd_vpath
= vfs_path_from_str_flags (cd_path
, VPF_NO_CANON
);
542 if (!do_panel_cd (MENU_PANEL
, cd_vpath
, cd_parse_command
))
543 message (D_ERROR
, MSG_ERROR
, _("Cannot chdir to \"%s\""), cd_path
);
544 vfs_path_free (cd_vpath
);
548 #endif /* ENABLE_VFS_UNDELFS || ENABLE_VFS_NET */
550 /* --------------------------------------------------------------------------------------------- */
553 configure_panel_listing (WPanel
* p
, int list_type
, int use_msformat
, char *user
, char *status
)
555 p
->user_mini_status
= use_msformat
;
556 p
->list_type
= list_type
;
558 if (list_type
== list_user
|| use_msformat
)
560 g_free (p
->user_format
);
561 p
->user_format
= user
;
563 g_free (p
->user_status_format
[list_type
]);
564 p
->user_status_format
[list_type
] = status
;
566 set_panel_formats (p
);
574 set_panel_formats (p
);
578 /* --------------------------------------------------------------------------------------------- */
581 switch_to_listing (int panel_index
)
583 if (get_display_type (panel_index
) != view_listing
)
584 set_display_type (panel_index
, view_listing
);
589 p
= (WPanel
*) get_panel_widget (panel_index
);
592 p
->is_panelized
= FALSE
;
598 /* --------------------------------------------------------------------------------------------- */
599 /** Handle the tree internal listing modes switching */
602 set_basic_panel_listing_to (int panel_index
, int listing_mode
)
604 WPanel
*p
= (WPanel
*) get_panel_widget (panel_index
);
607 switch_to_listing (panel_index
);
608 p
->list_type
= listing_mode
;
610 ok
= set_panel_formats (p
) == 0;
618 /* --------------------------------------------------------------------------------------------- */
619 /*** public functions ****************************************************************************/
620 /* --------------------------------------------------------------------------------------------- */
623 view_file_at_line (const vfs_path_t
* filename_vpath
, int plain_view
, int internal
, long start_line
)
625 static const char *viewer
= NULL
;
630 int changed_hex_mode
= 0;
631 int changed_nroff_flag
= 0;
632 int changed_magic_flag
= 0;
634 mcview_altered_hex_mode
= 0;
635 mcview_altered_nroff_flag
= 0;
636 mcview_altered_magic_flag
= 0;
637 if (mcview_default_hex_mode
)
638 changed_hex_mode
= 1;
639 if (mcview_default_nroff_flag
)
640 changed_nroff_flag
= 1;
641 if (mcview_default_magic_flag
)
642 changed_magic_flag
= 1;
643 mcview_default_hex_mode
= 0;
644 mcview_default_nroff_flag
= 0;
645 mcview_default_magic_flag
= 0;
647 ret
= mcview_viewer (NULL
, filename_vpath
, start_line
);
649 if (changed_hex_mode
&& !mcview_altered_hex_mode
)
650 mcview_default_hex_mode
= 1;
651 if (changed_nroff_flag
&& !mcview_altered_nroff_flag
)
652 mcview_default_nroff_flag
= 1;
653 if (changed_magic_flag
&& !mcview_altered_magic_flag
)
654 mcview_default_magic_flag
= 1;
656 dialog_switch_process_pending ();
660 char view_entry
[BUF_TINY
];
663 g_snprintf (view_entry
, sizeof (view_entry
), "View:%ld", start_line
);
665 strcpy (view_entry
, "View");
667 ret
= (regex_command (filename_vpath
, view_entry
) == 0);
670 ret
= mcview_viewer (NULL
, filename_vpath
, start_line
);
671 dialog_switch_process_pending ();
678 viewer
= getenv ("VIEWER");
680 viewer
= getenv ("PAGER");
685 execute_external_editor_or_viewer (viewer
, filename_vpath
, start_line
);
691 /* --------------------------------------------------------------------------------------------- */
692 /** view_file (filename, plain_view, internal)
695 * filename_vpath: The file name to view
696 * plain_view: If set does not do any fancy pre-processing (no filtering) and
697 * always invokes the internal viewer.
698 * internal: If set uses the internal viewer, otherwise an external viewer.
702 view_file (const vfs_path_t
* filename_vpath
, int plain_view
, int internal
)
711 if (filename_vpath
!= NULL
&& *(vfs_path_get_by_index (filename_vpath
, 0)->path
) != '\0')
712 load_file_position (filename_vpath
, &line
, &column
, &offset
, NULL
);
715 return view_file_at_line (filename_vpath
, plain_view
, internal
, line
);
719 /* --------------------------------------------------------------------------------------------- */
720 /** Run user's preferred viewer on the currently selected file */
728 /* --------------------------------------------------------------------------------------------- */
729 /** Ask for file and run user's preferred viewer on it */
738 input_expand_dialog (_("View file"), _("Filename:"),
739 MC_HISTORY_FM_VIEW_FILE
, selection (current_panel
)->fname
,
740 INPUT_COMPLETE_FILENAMES
);
744 vpath
= vfs_path_from_str (filename
);
746 view_file (vpath
, 0, use_internal_view
);
747 vfs_path_free (vpath
);
750 /* --------------------------------------------------------------------------------------------- */
751 /** Run plain internal viewer on the currently selected file */
758 /* --------------------------------------------------------------------------------------------- */
761 view_filtered_cmd (void)
764 const char *initial_command
;
766 if (cmdline
->buffer
[0] == '\0')
767 initial_command
= selection (current_panel
)->fname
;
769 initial_command
= cmdline
->buffer
;
772 input_dialog (_("Filtered view"),
773 _("Filter command and arguments:"),
774 MC_HISTORY_FM_FILTERED_VIEW
, initial_command
,
775 INPUT_COMPLETE_FILENAMES
| INPUT_COMPLETE_COMMANDS
);
779 mcview_viewer (command
, NULL
, 0);
781 dialog_switch_process_pending ();
785 /* --------------------------------------------------------------------------------------------- */
788 do_edit_at_line (const vfs_path_t
* what_vpath
, gboolean internal
, long start_line
)
790 static const char *editor
= NULL
;
792 #ifdef USE_INTERNAL_EDIT
794 edit_file (what_vpath
, start_line
);
796 #endif /* USE_INTERNAL_EDIT */
800 editor
= getenv ("EDITOR");
802 editor
= get_default_editor ();
808 execute_external_editor_or_viewer (editor
, what_vpath
, start_line
);
811 if (mc_global
.mc_run_mode
== MC_RUN_FULL
)
812 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
814 #ifdef USE_INTERNAL_EDIT
815 if (use_internal_edit
)
816 dialog_switch_process_pending ();
818 #endif /* USE_INTERNAL_EDIT */
822 /* --------------------------------------------------------------------------------------------- */
829 fname
= vfs_path_from_str (selection (current_panel
)->fname
);
830 if (regex_command (fname
, "Edit") == 0)
832 vfs_path_free (fname
);
835 /* --------------------------------------------------------------------------------------------- */
837 #ifdef USE_INTERNAL_EDIT
839 edit_cmd_force_internal (void)
843 fname
= vfs_path_from_str (selection (current_panel
)->fname
);
844 if (regex_command (fname
, "Edit") == 0)
845 do_edit_at_line (fname
, TRUE
, 0);
846 vfs_path_free (fname
);
850 /* --------------------------------------------------------------------------------------------- */
855 vfs_path_t
*fname_vpath
= NULL
;
857 if (editor_ask_filename_before_edit
)
861 fname
= input_expand_dialog (_("Edit file"), _("Enter file name:"),
862 MC_HISTORY_EDIT_LOAD
, "", INPUT_COMPLETE_FILENAMES
);
867 fname_vpath
= vfs_path_from_str (fname
);
873 mc_global
.source_codepage
= default_source_codepage
;
875 do_edit (fname_vpath
);
877 vfs_path_free (fname_vpath
);
880 /* --------------------------------------------------------------------------------------------- */
881 /** Invoked by F5. Copy, default to the other panel. */
887 if (panel_operate (current_panel
, OP_COPY
, FALSE
))
889 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
894 /* --------------------------------------------------------------------------------------------- */
895 /** Invoked by F6. Move/rename, default to the other panel, ignore marks. */
901 if (panel_operate (current_panel
, OP_MOVE
, FALSE
))
903 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
908 /* --------------------------------------------------------------------------------------------- */
909 /** Invoked by F15. Copy, default to the same panel, ignore marks. */
912 copy_cmd_local (void)
915 if (panel_operate (current_panel
, OP_COPY
, TRUE
))
917 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
922 /* --------------------------------------------------------------------------------------------- */
923 /** Invoked by F16. Move/rename, default to the same panel. */
926 rename_cmd_local (void)
929 if (panel_operate (current_panel
, OP_MOVE
, TRUE
))
931 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
936 /* --------------------------------------------------------------------------------------------- */
942 const char *name
= "";
944 /* If 'on' then automatically fills name with current selected item name */
945 if (auto_fill_mkdir_name
&& strcmp (selection (current_panel
)->fname
, "..") != 0)
946 name
= selection (current_panel
)->fname
;
949 input_expand_dialog (_("Create a new Directory"),
950 _("Enter directory name:"), MC_HISTORY_FM_MKDIR
, name
,
951 INPUT_COMPLETE_FILENAMES
);
953 if (dir
!= NULL
&& dir
!= '\0')
957 if (dir
[0] == '/' || dir
[0] == '~')
958 absdir
= vfs_path_from_str (dir
);
961 /* possible escaped '~' */
962 /* allow create directory with name '~' */
965 if (dir
[0] == '\\' && dir
[1] == '~')
968 absdir
= vfs_path_append_new (current_panel
->cwd_vpath
, tmpdir
, NULL
);
972 if (my_mkdir (absdir
, 0777) == 0)
974 update_panels (UP_OPTIMIZE
, dir
);
976 select_item (current_panel
);
980 message (D_ERROR
, MSG_ERROR
, "%s", unix_error_string (errno
));
982 vfs_path_free (absdir
);
987 /* --------------------------------------------------------------------------------------------- */
994 if (panel_operate (current_panel
, OP_DELETE
, FALSE
))
996 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
1001 /* --------------------------------------------------------------------------------------------- */
1002 /** Invoked by F18. Remove selected file, regardless of marked files. */
1005 delete_cmd_local (void)
1009 if (panel_operate (current_panel
, OP_DELETE
, TRUE
))
1011 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
1016 /* --------------------------------------------------------------------------------------------- */
1024 /* --------------------------------------------------------------------------------------------- */
1025 /** Invoked from the left/right menus */
1032 if (!SELECTED_IS_PANEL
)
1036 set_panel_filter (p
);
1039 /* --------------------------------------------------------------------------------------------- */
1044 panel_update_flags_t flag
= UP_ONLY_CURRENT
;
1046 if (get_current_type () == view_listing
&& get_other_type () == view_listing
&&
1047 vfs_path_equal (current_panel
->cwd_vpath
, other_panel
->cwd_vpath
))
1050 update_panels (UP_RELOAD
| flag
, UP_KEEPSEL
);
1054 /* --------------------------------------------------------------------------------------------- */
1057 select_invert_cmd (void)
1062 for (i
= 0; i
< current_panel
->count
; i
++)
1064 file
= ¤t_panel
->dir
.list
[i
];
1065 if (!panels_options
.reverse_files_only
|| !S_ISDIR (file
->st
.st_mode
))
1066 do_file_mark (current_panel
, i
, !file
->f
.marked
);
1070 /* --------------------------------------------------------------------------------------------- */
1075 select_unselect_cmd (_("Select"), ":select_cmd: Select ", TRUE
);
1078 /* --------------------------------------------------------------------------------------------- */
1083 select_unselect_cmd (_("Unselect"), ":unselect_cmd: Unselect ", FALSE
);
1086 /* --------------------------------------------------------------------------------------------- */
1091 vfs_path_t
*buffer_vpath
;
1092 vfs_path_t
*extdir_vpath
;
1096 if (geteuid () == 0)
1098 dir
= query_dialog (_("Extension file edit"),
1099 _("Which extension file you want to edit?"), D_NORMAL
, 2,
1100 _("&User"), _("&System Wide"));
1102 extdir_vpath
= vfs_path_build_filename (mc_global
.sysconfig_dir
, MC_LIB_EXT
, NULL
);
1106 buffer_vpath
= mc_config_get_full_vpath (MC_FILEBIND_FILE
);
1107 check_for_default (extdir_vpath
, buffer_vpath
);
1108 do_edit (buffer_vpath
);
1109 vfs_path_free (buffer_vpath
);
1113 if (!exist_file (vfs_path_get_last_path_str (extdir_vpath
)))
1115 vfs_path_free (extdir_vpath
);
1116 extdir_vpath
= vfs_path_build_filename (mc_global
.share_data_dir
, MC_LIB_EXT
, NULL
);
1118 do_edit (extdir_vpath
);
1120 vfs_path_free (extdir_vpath
);
1121 flush_extension_file ();
1124 /* --------------------------------------------------------------------------------------------- */
1125 /** edit file menu for mc */
1128 edit_mc_menu_cmd (void)
1130 vfs_path_t
*buffer_vpath
;
1131 vfs_path_t
*menufile_vpath
;
1134 dir
= query_dialog (_("Menu edit"),
1135 _("Which menu file do you want to edit?"),
1136 D_NORMAL
, geteuid ()? 2 : 3, _("&Local"), _("&User"), _("&System Wide"));
1138 menufile_vpath
= vfs_path_build_filename (mc_global
.sysconfig_dir
, MC_GLOBAL_MENU
, NULL
);
1140 if (!exist_file (vfs_path_get_last_path_str (menufile_vpath
)))
1142 vfs_path_free (menufile_vpath
);
1143 menufile_vpath
= vfs_path_build_filename (mc_global
.share_data_dir
, MC_GLOBAL_MENU
, NULL
);
1149 buffer_vpath
= vfs_path_from_str (MC_LOCAL_MENU
);
1150 check_for_default (menufile_vpath
, buffer_vpath
);
1151 chmod (vfs_path_get_last_path_str (buffer_vpath
), 0600);
1155 buffer_vpath
= mc_config_get_full_vpath (MC_USERMENU_FILE
);
1156 check_for_default (menufile_vpath
, buffer_vpath
);
1160 buffer_vpath
= vfs_path_build_filename (mc_global
.sysconfig_dir
, MC_GLOBAL_MENU
, NULL
);
1161 if (!exist_file (vfs_path_get_last_path_str (buffer_vpath
)))
1163 vfs_path_free (buffer_vpath
);
1164 buffer_vpath
= vfs_path_build_filename (mc_global
.share_data_dir
, MC_GLOBAL_MENU
, NULL
);
1169 vfs_path_free (menufile_vpath
);
1173 do_edit (buffer_vpath
);
1175 vfs_path_free (buffer_vpath
);
1176 vfs_path_free (menufile_vpath
);
1179 /* --------------------------------------------------------------------------------------------- */
1184 vfs_path_t
*buffer_vpath
= NULL
;
1185 vfs_path_t
*fhlfile_vpath
= NULL
;
1190 if (geteuid () == 0)
1192 dir
= query_dialog (_("Highlighting groups file edit"),
1193 _("Which highlighting file you want to edit?"), D_NORMAL
, 2,
1194 _("&User"), _("&System Wide"));
1196 fhlfile_vpath
= vfs_path_build_filename (mc_global
.sysconfig_dir
, MC_FHL_INI_FILE
, NULL
);
1200 buffer_vpath
= mc_config_get_full_vpath (MC_FHL_INI_FILE
);
1201 check_for_default (fhlfile_vpath
, buffer_vpath
);
1202 do_edit (buffer_vpath
);
1203 vfs_path_free (buffer_vpath
);
1207 if (!exist_file (vfs_path_get_last_path_str (fhlfile_vpath
)))
1209 vfs_path_free (fhlfile_vpath
);
1211 vfs_path_build_filename (mc_global
.sysconfig_dir
, MC_FHL_INI_FILE
, NULL
);
1213 do_edit (fhlfile_vpath
);
1215 vfs_path_free (fhlfile_vpath
);
1217 /* refresh highlighting rules */
1218 mc_fhl_free (&mc_filehighlight
);
1219 mc_filehighlight
= mc_fhl_new (TRUE
);
1222 /* --------------------------------------------------------------------------------------------- */
1229 target
= hotlist_show (LIST_HOTLIST
);
1233 if (get_current_type () == view_tree
)
1234 tree_chdir (the_tree
, target
);
1237 vfs_path_t
*deprecated_vpath
;
1238 char *cmd
, *normalized_target
;
1240 deprecated_vpath
= vfs_path_from_str_flags (target
, VPF_USE_DEPRECATED_PARSER
);
1241 normalized_target
= vfs_path_to_str (deprecated_vpath
);
1242 cmd
= g_strconcat ("cd ", normalized_target
, (char *) NULL
);
1243 g_free (normalized_target
);
1244 vfs_path_free (deprecated_vpath
);
1246 do_cd_command (cmd
);
1257 vfs_path_t
*target_vpath
;
1259 target
= hotlist_show (LIST_VFSLIST
);
1263 target_vpath
= vfs_path_from_str (target
);
1264 if (!do_cd (target_vpath
, cd_exact
))
1265 message (D_ERROR
, MSG_ERROR
, _("Cannot change directory"));
1266 vfs_path_free (target_vpath
);
1269 #endif /* ENABLE_VFS */
1271 /* --------------------------------------------------------------------------------------------- */
1274 compare_dirs_cmd (void)
1277 enum CompareMode thorough_flag
;
1280 query_dialog (_("Compare directories"),
1281 _("Select compare method:"), D_NORMAL
, 4,
1282 _("&Quick"), _("&Size only"), _("&Thorough"), _("&Cancel"));
1284 if (choice
< 0 || choice
> 2)
1287 thorough_flag
= choice
;
1289 if (get_current_type () == view_listing
&& get_other_type () == view_listing
)
1291 compare_dir (current_panel
, other_panel
, thorough_flag
);
1292 compare_dir (other_panel
, current_panel
, thorough_flag
);
1296 message (D_ERROR
, MSG_ERROR
,
1297 _("Both panels should be in the listing mode\nto use this command"));
1301 /* --------------------------------------------------------------------------------------------- */
1303 #ifdef USE_DIFF_VIEW
1305 diff_view_cmd (void)
1307 /* both panels must be in the list mode */
1308 if (get_current_type () != view_listing
|| get_other_type () != view_listing
)
1311 if (get_current_index () == 0)
1312 dview_diff_cmd (current_panel
, other_panel
);
1314 dview_diff_cmd (other_panel
, current_panel
);
1316 if (mc_global
.mc_run_mode
== MC_RUN_FULL
)
1317 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
1319 dialog_switch_process_pending ();
1323 /* --------------------------------------------------------------------------------------------- */
1329 tty_touch_screen ();
1333 /* --------------------------------------------------------------------------------------------- */
1336 view_other_cmd (void)
1338 static int message_flag
= TRUE
;
1340 if (!mc_global
.tty
.xterm_flag
&& mc_global
.tty
.console_flag
== '\0'
1341 && !mc_global
.tty
.use_subshell
&& !output_starts_shell
)
1344 message (D_ERROR
, MSG_ERROR
,
1345 _("Not an xterm or Linux console;\nthe panels cannot be toggled."));
1346 message_flag
= FALSE
;
1354 /* --------------------------------------------------------------------------------------------- */
1357 link_cmd (link_type_t link_type
)
1359 char *filename
= selection (current_panel
)->fname
;
1361 if (filename
!= NULL
)
1362 do_link (link_type
, filename
);
1365 /* --------------------------------------------------------------------------------------------- */
1368 edit_symlink_cmd (void)
1370 if (S_ISLNK (selection (current_panel
)->st
.st_mode
))
1372 char buffer
[MC_MAXPATHLEN
];
1376 vfs_path_t
*p_vpath
;
1378 p
= selection (current_panel
)->fname
;
1379 p_vpath
= vfs_path_from_str (p
);
1381 q
= g_strdup_printf (_("Symlink `%s\' points to:"), str_trunc (p
, 32));
1383 i
= readlink (p
, buffer
, MC_MAXPATHLEN
- 1);
1388 input_expand_dialog (_("Edit symlink"), q
, MC_HISTORY_FM_EDIT_LINK
, buffer
,
1389 INPUT_COMPLETE_FILENAMES
);
1392 if (*dest
&& strcmp (buffer
, dest
))
1395 if (mc_unlink (p_vpath
) == -1)
1397 message (D_ERROR
, MSG_ERROR
, _("edit symlink, unable to remove %s: %s"),
1398 p
, unix_error_string (errno
));
1402 vfs_path_t
*dest_vpath
;
1404 dest_vpath
= vfs_path_from_str_flags (dest
, VPF_NO_CANON
);
1405 if (mc_symlink (dest_vpath
, p_vpath
) == -1)
1406 message (D_ERROR
, MSG_ERROR
, _("edit symlink: %s"),
1407 unix_error_string (errno
));
1408 vfs_path_free (dest_vpath
);
1410 update_panels (UP_OPTIMIZE
, UP_KEEPSEL
);
1417 vfs_path_free (p_vpath
);
1421 message (D_ERROR
, MSG_ERROR
, _("`%s' is not a symbolic link"),
1422 selection (current_panel
)->fname
);
1426 /* --------------------------------------------------------------------------------------------- */
1431 ev_help_t event_data
= { NULL
, NULL
};
1433 if (current_panel
->searching
)
1434 event_data
.node
= "[Quick search]";
1436 event_data
.node
= "[main]";
1438 mc_event_raise (MCEVENT_GROUP_CORE
, "help", &event_data
);
1441 /* --------------------------------------------------------------------------------------------- */
1444 user_file_menu_cmd (void)
1446 (void) user_menu_cmd (NULL
, NULL
, -1);
1449 /* --------------------------------------------------------------------------------------------- */
1451 * Return a random hint. If force is not 0, ignore the timeout.
1455 get_random_hint (int force
)
1457 char *data
, *result
= NULL
, *eop
;
1460 static int last_sec
;
1461 static struct timeval tv
;
1464 /* Do not change hints more often than one minute */
1465 gettimeofday (&tv
, NULL
);
1466 if (!force
&& !(tv
.tv_sec
> last_sec
+ 60))
1467 return g_strdup ("");
1468 last_sec
= tv
.tv_sec
;
1470 data
= load_mc_home_file (mc_global
.share_data_dir
, MC_HINT
, NULL
);
1474 /* get a random entry */
1476 len
= strlen (data
);
1477 start
= rand () % (len
- 1);
1479 /* Search the start of paragraph */
1480 for (; start
!= 0; start
--)
1481 if (data
[start
] == '\n' && data
[start
+ 1] == '\n')
1487 /* Search the end of paragraph */
1488 for (eop
= data
+ start
; *eop
!= '\0'; eop
++)
1490 if (*eop
== '\n' && *(eop
+ 1) == '\n')
1499 /* hint files are stored in utf-8 */
1500 /* try convert hint file from utf-8 to terminal encoding */
1501 conv
= str_crt_conv_from ("UTF-8");
1502 if (conv
!= INVALID_CONV
)
1506 buffer
= g_string_new ("");
1507 if (str_convert (conv
, &data
[start
], buffer
) != ESTR_FAILURE
)
1508 result
= g_string_free (buffer
, FALSE
);
1510 g_string_free (buffer
, TRUE
);
1511 str_close_conv (conv
);
1514 result
= g_strdup (&data
[start
]);
1520 /* --------------------------------------------------------------------------------------------- */
1522 #ifdef ENABLE_VFS_FTP
1526 nice_cd (_("FTP to machine"), _(machine_str
),
1527 "[FTP File System]", ":ftplink_cmd: FTP to machine ", "ftp://", 1, TRUE
);
1529 #endif /* ENABLE_VFS_FTP */
1531 /* --------------------------------------------------------------------------------------------- */
1533 #ifdef ENABLE_VFS_SFTP
1537 nice_cd (_("SFTP to machine"), _(machine_str
),
1538 "[SFTP (SSH File Transfer Protocol) filesystem]",
1539 ":sftplink_cmd: SFTP to machine ", "sftp://", 1, TRUE
);
1541 #endif /* ENABLE_VFS_SFTP */
1543 /* --------------------------------------------------------------------------------------------- */
1545 #ifdef ENABLE_VFS_FISH
1549 nice_cd (_("Shell link to machine"), _(machine_str
),
1550 "[FIle transfer over SHell filesystem]", ":fishlink_cmd: Shell link to machine ",
1553 #endif /* ENABLE_VFS_FISH */
1555 /* --------------------------------------------------------------------------------------------- */
1557 #ifdef ENABLE_VFS_SMB
1561 nice_cd (_("SMB link to machine"), _(machine_str
),
1562 "[SMB File System]", ":smblink_cmd: SMB link to machine ", "smb://", 0, TRUE
);
1564 #endif /* ENABLE_VFS_SMB */
1566 /* --------------------------------------------------------------------------------------------- */
1568 #ifdef ENABLE_VFS_UNDELFS
1572 nice_cd (_("Undelete files on an ext2 file system"),
1573 _("Enter device (without /dev/) to undelete\nfiles on: (F1 for details)"),
1574 "[Undelete File System]", ":undelete_cmd: Undel on ext2 fs ", "undel://", 0, FALSE
);
1576 #endif /* ENABLE_VFS_UNDELFS */
1578 /* --------------------------------------------------------------------------------------------- */
1583 char *p
= cd_dialog ();
1587 char *q
= g_strconcat ("cd ", p
, (char *) NULL
);
1595 /* --------------------------------------------------------------------------------------------- */
1597 \brief calculate dirs sizes
1599 calculate dirs sizes and resort panel:
1600 dirs_selected = show size for selected dirs,
1601 otherwise = show size for dir under cursor:
1602 dir under cursor ".." = show size for all dirs,
1603 otherwise = show size for dir under cursor
1607 smart_dirsize_cmd (void)
1609 WPanel
*panel
= current_panel
;
1612 entry
= &(panel
->dir
.list
[panel
->selected
]);
1613 if ((S_ISDIR (entry
->st
.st_mode
) && (strcmp (entry
->fname
, "..") == 0)) || panel
->dirs_marked
)
1616 single_dirsize_cmd ();
1619 /* --------------------------------------------------------------------------------------------- */
1622 single_dirsize_cmd (void)
1624 WPanel
*panel
= current_panel
;
1627 entry
= &(panel
->dir
.list
[panel
->selected
]);
1628 if (S_ISDIR (entry
->st
.st_mode
) && strcmp (entry
->fname
, "..") != 0)
1631 uintmax_t total
= 0;
1632 ComputeDirSizeUI
*ui
;
1635 ui
= compute_dir_size_create_ui (FALSE
);
1636 p
= vfs_path_from_str (entry
->fname
);
1638 if (compute_dir_size (p
, ui
, compute_dir_size_update_ui
, &marked
, &total
, TRUE
) ==
1641 entry
->st
.st_size
= (off_t
) total
;
1642 entry
->f
.dir_size_computed
= 1;
1646 compute_dir_size_destroy_ui (ui
);
1649 if (panels_options
.mark_moves_down
)
1650 send_message (panel
, NULL
, MSG_ACTION
, CK_Down
, NULL
);
1652 recalculate_panel_summary (panel
);
1654 if (current_panel
->sort_info
.sort_field
->sort_routine
== (sortfn
*) sort_size
)
1655 panel_re_sort (panel
);
1660 /* --------------------------------------------------------------------------------------------- */
1665 WPanel
*panel
= current_panel
;
1667 ComputeDirSizeUI
*ui
;
1669 ui
= compute_dir_size_create_ui (FALSE
);
1671 for (i
= 0; i
< panel
->count
; i
++)
1672 if (S_ISDIR (panel
->dir
.list
[i
].st
.st_mode
)
1673 && ((panel
->dirs_marked
&& panel
->dir
.list
[i
].f
.marked
)
1674 || !panel
->dirs_marked
) && strcmp (panel
->dir
.list
[i
].fname
, "..") != 0)
1678 uintmax_t total
= 0;
1681 p
= vfs_path_from_str (panel
->dir
.list
[i
].fname
);
1682 ok
= compute_dir_size (p
, ui
, compute_dir_size_update_ui
, &marked
, &total
,
1689 panel
->dir
.list
[i
].st
.st_size
= (off_t
) total
;
1690 panel
->dir
.list
[i
].f
.dir_size_computed
= 1;
1693 compute_dir_size_destroy_ui (ui
);
1695 recalculate_panel_summary (panel
);
1697 if (current_panel
->sort_info
.sort_field
->sort_routine
== (sortfn
*) sort_size
)
1698 panel_re_sort (panel
);
1703 /* --------------------------------------------------------------------------------------------- */
1706 save_setup_cmd (void)
1711 vpath
= mc_config_get_full_vpath (MC_CONFIG_FILE
);
1712 path
= vfs_path_to_str_flags (vpath
, 0, VPF_STRIP_HOME
);
1713 vfs_path_free (vpath
);
1715 if (save_setup (TRUE
, TRUE
))
1716 message (D_NORMAL
, _("Setup"), _("Setup saved to %s"), path
);
1718 message (D_ERROR
, _("Setup"), _("Unable to save setup to %s"), path
);
1722 /* --------------------------------------------------------------------------------------------- */
1725 info_cmd_no_menu (void)
1727 if (get_display_type (0) == view_info
)
1728 set_display_type (0, view_listing
);
1729 else if (get_display_type (1) == view_info
)
1730 set_display_type (1, view_listing
);
1732 set_display_type (current_panel
== left_panel
? 1 : 0, view_info
);
1735 /* --------------------------------------------------------------------------------------------- */
1738 quick_cmd_no_menu (void)
1740 if (get_display_type (0) == view_quick
)
1741 set_display_type (0, view_listing
);
1742 else if (get_display_type (1) == view_quick
)
1743 set_display_type (1, view_listing
);
1745 set_display_type (current_panel
== left_panel
? 1 : 0, view_quick
);
1748 /* --------------------------------------------------------------------------------------------- */
1753 switch_to_listing (MENU_PANEL_IDX
);
1756 /* --------------------------------------------------------------------------------------------- */
1759 change_listing_cmd (void)
1763 char *user
, *status
;
1766 if (SELECTED_IS_PANEL
)
1767 p
= MENU_PANEL_IDX
== 0 ? left_panel
: right_panel
;
1769 list_type
= panel_listing_box (p
, &user
, &status
, &use_msformat
, MENU_PANEL_IDX
);
1770 if (list_type
!= -1)
1772 switch_to_listing (MENU_PANEL_IDX
);
1773 p
= MENU_PANEL_IDX
== 0 ? left_panel
: right_panel
;
1774 configure_panel_listing (p
, list_type
, use_msformat
, user
, status
);
1778 /* --------------------------------------------------------------------------------------------- */
1781 panel_tree_cmd (void)
1783 set_display_type (MENU_PANEL_IDX
, view_tree
);
1786 /* --------------------------------------------------------------------------------------------- */
1791 set_display_type (MENU_PANEL_IDX
, view_info
);
1794 /* --------------------------------------------------------------------------------------------- */
1797 quick_view_cmd (void)
1799 if ((WPanel
*) get_panel_widget (MENU_PANEL_IDX
) == current_panel
)
1801 set_display_type (MENU_PANEL_IDX
, view_quick
);
1804 /* --------------------------------------------------------------------------------------------- */
1807 toggle_listing_cmd (void)
1809 int current
= get_current_index ();
1810 WPanel
*p
= (WPanel
*) get_panel_widget (current
);
1812 set_basic_panel_listing_to (current
, (p
->list_type
+ 1) % LIST_TYPES
);
1815 /* --------------------------------------------------------------------------------------------- */
1821 if (SELECTED_IS_PANEL
)
1822 panel_change_encoding (MENU_PANEL
);
1826 /* --------------------------------------------------------------------------------------------- */