1 /* editor high level editing commands
3 Copyright (C) 1996, 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006,
4 2007 Free Software Foundation, Inc.
6 Authors: 1996, 1997 Paul Sheer
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26 * \brief Source: editor high level editing commands
31 /* #define PIPE_BLOCKS_SO_READ_BYTE_BY_BYTE */
40 #include <sys/types.h>
48 #include "../src/global.h"
50 #include "../src/tty/tty.h"
51 #include "../src/tty/key.h" /* XCTRL */
53 #include "../src/history.h"
54 #include "../src/widget.h" /* listbox_new() */
55 #include "../src/layout.h" /* clr_scr() */
56 #include "../src/main.h" /* mc_home source_codepage */
57 #include "../src/help.h" /* interactive_display() */
58 #include "../src/wtools.h" /* message() */
59 #include "../src/charsets.h"
60 #include "../src/selcodepage.h"
61 #include "../src/strutil.h" /* utf string functions */
62 #include "../src/mcconfig/mcconfig.h"
63 #include "../src/skin/skin.h" /* mc_skin_color_get */
65 #include "../edit/edit-impl.h"
66 #include "../edit/edit.h"
67 #include "../edit/editlock.h"
68 #include "../src/cmddef.h"
69 #include "../edit/edit-widget.h"
70 #include "../edit/editcmd_dialogs.h"
71 #include "../edit/etags.h"
75 /* search and replace: */
76 int search_create_bookmark
= 0;
77 /* static int search_in_all_charsets = 0; */
79 /* queries on a save */
80 int edit_confirm_save
= 1;
82 static int edit_save_cmd (WEdit
*edit
);
83 static unsigned char *edit_get_block (WEdit
*edit
, long start
,
87 edit_search_cmd_search_create_bookmark(WEdit
* edit
)
89 int found
= 0, books
= 0;
90 int l
= 0, l_last
= -1;
94 search_create_bookmark
= 0;
95 book_mark_flush (edit
, -1);
98 if (!mc_search_run(edit
->search
, (void *) edit
, q
, edit
->last_byte
, &len
))
101 edit
->search_start
= edit
->search
->normal_offset
;
103 l
+= edit_count_lines (edit
, q
, edit
->search
->normal_offset
);
105 book_mark_insert (edit
, l
, BOOK_MARK_FOUND_COLOR
);
109 q
= edit
->search
->normal_offset
+ 1;
113 edit_error_dialog (_ ("Search"), _ (" Search string not found "));
115 edit_cursor_move (edit
, edit
->search_start
- edit
->curs1
);
116 edit_scroll_screen_over_cursor (edit
);
121 edit_search_cmd_callback(const void *user_data
, gsize char_offset
)
123 return edit_get_byte ((WEdit
* )user_data
, (long) char_offset
);
126 void edit_help_cmd (WEdit
* edit
)
128 interactive_display (NULL
, "[Internal File Editor]");
129 edit
->force
|= REDRAW_COMPLETELY
;
133 edit_refresh_cmd (WEdit
* edit
)
138 edit_get_syntax_color (edit
, -1, &color
);
144 #endif /* !HAVE_SLANG */
148 /* If 0 (quick save) then a) create/truncate <filename> file,
149 b) save to <filename>;
150 if 1 (safe save) then a) save to <tempnam>,
151 b) rename <tempnam> to <filename>;
152 if 2 (do backups) then a) save to <tempnam>,
153 b) rename <filename> to <filename.backup_ext>,
154 c) rename <tempnam> to <filename>. */
156 /* returns 0 on error, -1 on abort */
158 edit_save_file (WEdit
*edit
, const char *filename
)
164 gchar
*real_filename
;
165 int this_save_mode
, fd
= -1;
172 if (*filename
!= PATH_SEP
&& edit
->dir
) {
173 real_filename
= concat_dir_and_file (edit
->dir
, filename
);
175 real_filename
= g_strdup(filename
);
178 this_save_mode
= option_save_mode
;
179 if (this_save_mode
!= EDIT_QUICK_SAVE
) {
180 if (!vfs_file_is_local (real_filename
) ||
181 (fd
= mc_open (real_filename
, O_RDONLY
| O_BINARY
)) == -1) {
183 * The file does not exists yet, so no safe save or
184 * backup are necessary.
186 this_save_mode
= EDIT_QUICK_SAVE
;
192 if (this_save_mode
== EDIT_QUICK_SAVE
&&
193 !edit
->skip_detach_prompt
) {
197 rv
= mc_stat (real_filename
, &sb
);
198 if (rv
== 0 && sb
.st_nlink
> 1) {
199 rv
= edit_query_dialog3 (_("Warning"),
200 _(" File has hard-links. Detach before saving? "),
201 _("&Yes"), _("&No"), _("&Cancel"));
204 this_save_mode
= EDIT_SAFE_SAVE
;
207 edit
->skip_detach_prompt
= 1;
210 g_free(real_filename
);
215 /* Prevent overwriting changes from other editor sessions. */
216 if (rv
== 0 && edit
->stat1
.st_mtime
!= 0 && edit
->stat1
.st_mtime
!= sb
.st_mtime
) {
218 /* The default action is "Cancel". */
221 rv
= edit_query_dialog2 (
223 _("The file has been modified in the meantime. Save anyway?"),
227 g_free(real_filename
);
233 if (this_save_mode
!= EDIT_QUICK_SAVE
) {
234 char *savedir
, *saveprefix
;
235 const char *slashpos
;
236 slashpos
= strrchr (real_filename
, PATH_SEP
);
238 savedir
= g_strdup (real_filename
);
239 savedir
[slashpos
- real_filename
+ 1] = '\0';
241 savedir
= g_strdup (".");
242 saveprefix
= concat_dir_and_file (savedir
, "cooledit");
244 fd
= mc_mkstemps (&savename
, saveprefix
, NULL
);
247 g_free(real_filename
);
251 * Close for now because mc_mkstemps use pure open system call
252 * to create temporary file and it needs to be reopened by
253 * VFS-aware mc_open().
257 savename
= g_strdup (real_filename
);
259 mc_chown (savename
, edit
->stat1
.st_uid
, edit
->stat1
.st_gid
);
260 mc_chmod (savename
, edit
->stat1
.st_mode
);
263 mc_open (savename
, O_CREAT
| O_WRONLY
| O_TRUNC
| O_BINARY
,
264 edit
->stat1
.st_mode
)) == -1)
268 if ((p
= edit_get_write_filter (savename
, real_filename
))) {
272 file
= (FILE *) popen (p
, "w");
275 filelen
= edit_write_stream (edit
, file
);
279 if (pclose (file
) != 0) {
280 tmp
= g_strconcat (_(" Error writing to pipe: "),
281 p
, " ", (char *) NULL
);
282 edit_error_dialog (_("Error"), tmp
);
289 tmp
= g_strconcat (_(" Cannot open pipe for writing: "),
290 p
, " ", (char *) NULL
);
292 edit_error_dialog (_("Error"),
293 get_sys_error (tmp
));
299 } else if (edit
->lb
== LB_ASIS
) { /* do not change line breaks */
302 filelen
= edit
->last_byte
;
303 while (buf
<= (edit
->curs1
>> S_EDIT_BUF_SIZE
) - 1) {
304 if (mc_write (fd
, (char *) edit
->buffers1
[buf
], EDIT_BUF_SIZE
)
312 (fd
, (char *) edit
->buffers1
[buf
],
313 edit
->curs1
& M_EDIT_BUF_SIZE
) !=
314 (edit
->curs1
& M_EDIT_BUF_SIZE
)) {
316 } else if (edit
->curs2
) {
318 buf
= (edit
->curs2
>> S_EDIT_BUF_SIZE
);
321 (char *) edit
->buffers2
[buf
] + EDIT_BUF_SIZE
-
322 (edit
->curs2
& M_EDIT_BUF_SIZE
) - 1,
323 1 + (edit
->curs2
& M_EDIT_BUF_SIZE
)) !=
324 1 + (edit
->curs2
& M_EDIT_BUF_SIZE
)) {
329 (fd
, (char *) edit
->buffers2
[buf
],
330 EDIT_BUF_SIZE
) != EDIT_BUF_SIZE
) {
341 /* Update the file information, especially the mtime. */
342 if (mc_stat (savename
, &edit
->stat1
) == -1)
344 } else { /* change line breaks */
349 file
= (FILE *) fopen (savename
, "w");
352 filelen
= edit_write_stream (edit
, file
);
357 msg
= g_strdup_printf (_(" Cannot open file for writing: %s "), savename
);
358 edit_error_dialog (_("Error"), msg
);
364 if (filelen
!= edit
->last_byte
)
367 if (this_save_mode
== EDIT_DO_BACKUP
) {
368 assert (option_backup_ext
!= NULL
);
369 tmp
= g_strconcat (real_filename
, option_backup_ext
, (char *) NULL
);
370 if (mc_rename (real_filename
, tmp
) == -1){
376 if (this_save_mode
!= EDIT_QUICK_SAVE
)
377 if (mc_rename (savename
, real_filename
) == -1)
380 g_free(real_filename
);
383 /* FIXME: Is this safe ?
384 * if (this_save_mode != EDIT_QUICK_SAVE)
385 * mc_unlink (savename);
387 g_free(real_filename
);
393 menu_save_mode_cmd (void)
396 const int DLG_X
= 38;
397 const int DLG_Y
= 13;
405 N_("&Do backups with following extension:")
408 QuickWidget widgets
[] =
411 QUICK_BUTTON (18, DLG_X
, DLG_Y
- 3, DLG_Y
, N_("&Cancel"), B_CANCEL
, NULL
),
413 QUICK_BUTTON ( 6, DLG_X
, DLG_Y
- 3, DLG_Y
, N_("&OK"), B_ENTER
, NULL
),
415 QUICK_CHECKBOX ( 4, DLG_X
, 8, DLG_Y
, N_("Check &POSIX new line"), &option_check_nl_at_eof
),
417 QUICK_INPUT ( 8, DLG_X
, 6, DLG_Y
, option_backup_ext
, 9, 0, "edit-backup-ext", &str_result
),
419 QUICK_RADIO ( 4, DLG_X
, 3, DLG_Y
, 3, str
, &option_save_mode
),
425 DLG_X
, DLG_Y
, -1, -1, N_(" Edit Save Mode "),
426 "[Edit Save Mode]", widgets
, FALSE
431 size_t w0
, w1
, b_len
, w3
;
433 assert (option_backup_ext
!= NULL
);
435 /* OK/Cancel buttons */
436 w0
= str_term_width1 (_(widgets
[0].u
.button
.text
)) + 3;
437 w1
= str_term_width1 (_(widgets
[1].u
.button
.text
)) + 5; /* default button */
440 maxlen
= max (b_len
, (size_t) str_term_width1 (_(dialog
.title
)) + 2);
443 for (i
= 0; i
< 3; i
++) {
447 w3
= max (w3
, (size_t) str_term_width1 (str
[i
]));
450 maxlen
= max (maxlen
, w3
+ 4);
452 dialog
.xlen
= min ((size_t) COLS
, maxlen
+ 8);
454 widgets
[3].u
.input
.len
= w3
;
455 widgets
[1].relative_x
= (dialog
.xlen
- b_len
)/2;
456 widgets
[0].relative_x
= widgets
[1].relative_x
+ w0
+ 2;
458 for (i
= 0; i
< sizeof (widgets
)/sizeof (widgets
[0]); i
++)
459 widgets
[i
].x_divisions
= dialog
.xlen
;
461 if (quick_dialog (&dialog
) != B_CANCEL
) {
462 g_free (option_backup_ext
);
463 option_backup_ext
= str_result
;
468 edit_set_filename (WEdit
*edit
, const char *f
)
470 g_free (edit
->filename
);
473 edit
->filename
= g_strdup (f
);
474 if (edit
->dir
== NULL
&& *f
!= PATH_SEP
)
476 edit
->dir
= g_strdup (vfs_get_current_dir ());
478 edit
->dir
= g_get_current_dir ();
483 edit_check_newline (WEdit
*edit
)
485 return !(option_check_nl_at_eof
&& edit
->last_byte
> 0
486 && edit_get_byte (edit
, edit
->last_byte
- 1) != '\n'
487 && edit_query_dialog2 (_("Warning"),
488 _("The file you are saving is not finished with a newline"),
489 _("C&ontinue"), _("&Cancel")));
493 edit_get_save_file_as (WEdit
*edit
)
496 #define DLG_HEIGHT 14
498 static LineBreaks cur_lb
= LB_ASIS
;
500 char *filename
= edit
->filename
;
502 const char *lb_names
[LB_NAMES
] =
504 N_("&Do not change"),
505 N_("&Unix format (LF)"),
506 N_("&Windows/DOS format (CR LF)"),
507 N_("&Macintosh format (CR)")
510 QuickWidget quick_widgets
[] =
512 QUICK_BUTTON (6, 10, DLG_HEIGHT
- 3, DLG_HEIGHT
, N_("&Cancel"), B_CANCEL
, NULL
),
513 QUICK_BUTTON (2, 10, DLG_HEIGHT
- 3, DLG_HEIGHT
, N_("&OK"), B_ENTER
, NULL
),
514 QUICK_RADIO (5, DLG_WIDTH
, DLG_HEIGHT
- 8, DLG_HEIGHT
, LB_NAMES
, lb_names
, (int *) &cur_lb
),
515 QUICK_LABEL (3, DLG_WIDTH
, DLG_HEIGHT
- 9, DLG_HEIGHT
, N_("Change line breaks to:")),
516 QUICK_INPUT (3, DLG_WIDTH
, DLG_HEIGHT
- 11, DLG_HEIGHT
, filename
, DLG_WIDTH
- 6, 0, "save-as", &filename
),
517 QUICK_LABEL (2, DLG_WIDTH
, DLG_HEIGHT
- 12, DLG_HEIGHT
, N_(" Enter file name: ")),
521 QuickDialog Quick_options
=
523 DLG_WIDTH
, DLG_HEIGHT
, -1, -1,
524 N_(" Save As "), "[Save File As]",
528 if (quick_dialog (&Quick_options
) != B_CANCEL
) {
539 /* Here we want to warn the users of overwriting an existing file,
540 but only if they have made a change to the filename */
541 /* returns 1 on success */
543 edit_save_as_cmd (WEdit
*edit
)
545 /* This heads the 'Save As' dialog box */
548 int different_filename
= 0;
550 if (!edit_check_newline (edit
))
553 exp
= edit_get_save_file_as (edit
);
554 edit_push_action (edit
, KEY_PRESS
+ edit
->start_display
);
559 edit
->force
|= REDRAW_COMPLETELY
;
563 if (strcmp (edit
->filename
, exp
)) {
565 different_filename
= 1;
566 if ((file
= mc_open (exp
, O_RDONLY
| O_BINARY
)) != -1) {
567 /* the file exists */
569 /* Overwrite the current file or cancel the operation */
570 if (edit_query_dialog2
572 _(" A file already exists with this name. "),
573 _("&Overwrite"), _("&Cancel"))) {
574 edit
->force
|= REDRAW_COMPLETELY
;
579 edit
->stat1
.st_mode
|= S_IWUSR
;
581 save_lock
= edit_lock_file (exp
);
583 /* filenames equal, check if already locked */
584 if (!edit
->locked
&& !edit
->delete_file
)
585 save_lock
= edit_lock_file (exp
);
588 if (different_filename
)
591 * Allow user to write into saved (under another name) file
592 * even if original file had r/o user permissions.
594 edit
->stat1
.st_mode
|= S_IWRITE
;
597 rv
= edit_save_file (edit
, exp
);
600 /* Succesful, so unlock both files */
601 if (different_filename
) {
603 edit_unlock_file (exp
);
605 edit
->locked
= edit_unlock_file (edit
->filename
);
607 if (edit
->locked
|| save_lock
)
608 edit
->locked
= edit_unlock_file (edit
->filename
);
611 edit_set_filename (edit
, exp
);
612 if (edit
->lb
!= LB_ASIS
)
613 edit_reload(edit
, exp
);
616 edit
->delete_file
= 0;
617 if (different_filename
)
618 edit_load_syntax (edit
, NULL
, option_syntax_type
);
619 edit
->force
|= REDRAW_COMPLETELY
;
622 edit_error_dialog (_(" Save As "),
624 (" Cannot save file. ")));
627 /* Failed, so maintain modify (not save) lock */
629 edit_unlock_file (exp
);
631 edit
->force
|= REDRAW_COMPLETELY
;
636 edit
->force
|= REDRAW_COMPLETELY
;
640 /* {{{ Macro stuff starts here */
642 /* creates a macro file if it doesn't exist */
643 static FILE *edit_open_macro_file (const char *r
)
648 filename
= concat_dir_and_file (home_dir
, EDIT_MACRO_FILE
);
649 if ((file
= open (filename
, O_CREAT
| O_RDWR
, S_IRUSR
| S_IWUSR
| S_IRGRP
| S_IROTH
)) == -1){
654 fd
= fopen (filename
, r
);
659 #define MAX_MACROS 1024
660 static int saved_macro
[MAX_MACROS
+ 1];
661 static int saved_macros_loaded
= 0;
664 This is just to stop the macro file be loaded over and over for keys
665 that aren't defined to anything. On slow systems this could be annoying.
671 for (i
= 0; i
< MAX_MACROS
&& saved_macro
[i
]; i
++)
672 if (saved_macro
[i
] == k
)
677 /* returns 1 on error */
679 edit_delete_macro (WEdit
* edit
, int k
)
682 struct macro macro
[MAX_MACRO_LENGTH
];
688 if (saved_macros_loaded
)
689 if ((j
= macro_exists (k
)) < 0)
691 tmp
= concat_dir_and_file (home_dir
, EDIT_TEMP_FILE
);
692 g
= fopen (tmp
, "w");
695 edit_error_dialog (_(" Delete macro "),
696 get_sys_error (_(" Cannot open temp file ")));
699 f
= edit_open_macro_file ("r");
701 edit_error_dialog (_(" Delete macro "),
702 get_sys_error (_(" Cannot open macro file ")));
707 n
= fscanf (f
, ("key '%d 0': "), &s
);
711 while (fscanf (f
, "%lu %d, ", ¯o
[n
].command
, ¯o
[n
].ch
))
715 fprintf (g
, ("key '%d 0': "), s
);
716 for (i
= 0; i
< n
; i
++)
717 fprintf (g
, "%lu %d, ", macro
[i
].command
, macro
[i
].ch
);
723 tmp
= concat_dir_and_file (home_dir
, EDIT_TEMP_FILE
);
724 tmp2
= concat_dir_and_file (home_dir
, EDIT_MACRO_FILE
);
725 if (rename ( tmp
, tmp2
) == -1) {
726 edit_error_dialog (_(" Delete macro "),
727 get_sys_error (_(" Cannot overwrite macro file ")));
735 if (saved_macros_loaded
)
736 memmove (saved_macro
+ j
, saved_macro
+ j
+ 1, sizeof (int) * (MAX_MACROS
- j
- 1));
740 /* returns 0 on error */
741 int edit_save_macro_cmd (WEdit
* edit
, struct macro macro
[], int n
)
746 edit_push_action (edit
, KEY_PRESS
+ edit
->start_display
);
747 s
= editcmd_dialog_raw_key_query (_(" Save macro "),
748 _(" Press the macro's new hotkey: "), 1);
749 edit
->force
|= REDRAW_COMPLETELY
;
751 if (edit_delete_macro (edit
, s
))
753 f
= edit_open_macro_file ("a+");
755 fprintf (f
, ("key '%d 0': "), s
);
756 for (i
= 0; i
< n
; i
++)
757 fprintf (f
, "%lu %d, ", macro
[i
].command
, macro
[i
].ch
);
760 if (saved_macros_loaded
) {
761 for (i
= 0; i
< MAX_MACROS
&& saved_macro
[i
]; i
++);
766 edit_error_dialog (_(" Save macro "), get_sys_error (_(" Cannot open macro file ")));
772 edit_delete_macro_cmd (WEdit
* edit
)
776 command
= editcmd_dialog_raw_key_query (_ (" Delete macro "),
777 _ (" Press macro hotkey: "), 1);
780 edit_delete_macro (edit
, command
);
783 /* return 0 on error */
784 int edit_load_macro_cmd (WEdit
* edit
, struct macro macro
[], int *n
, int k
)
787 int s
, i
= 0, found
= 0;
791 if (saved_macros_loaded
)
792 if (macro_exists (k
) < 0)
795 if ((f
= edit_open_macro_file ("r"))) {
799 u
= fscanf (f
, ("key '%d 0': "), &s
);
802 if (!saved_macros_loaded
)
803 saved_macro
[i
++] = s
;
806 while (*n
< MAX_MACRO_LENGTH
&& 2 == fscanf (f
, "%lu %d, ", ¯o
[*n
].command
, ¯o
[*n
].ch
))
809 while (2 == fscanf (f
, "%lu %d, ", &dummy
.command
, &dummy
.ch
));
814 } while (!found
|| !saved_macros_loaded
);
815 if (!saved_macros_loaded
) {
817 saved_macros_loaded
= 1;
822 edit_error_dialog (_(" Load macro "),
823 get_sys_error (_(" Cannot open macro file ")));
827 /* }}} Macro stuff starts here */
829 /* returns 1 on success */
830 int edit_save_confirm_cmd (WEdit
* edit
)
834 if (!edit_check_newline (edit
))
837 if (edit_confirm_save
) {
838 f
= g_strconcat (_(" Confirm save file? : "), edit
->filename
, " ", (char *) NULL
);
839 if (edit_query_dialog2 (_(" Save file "), f
, _("&Save"), _("&Cancel"))){
845 return edit_save_cmd (edit
);
849 /* returns 1 on success */
851 edit_save_cmd (WEdit
*edit
)
853 int res
, save_lock
= 0;
855 if (!edit
->locked
&& !edit
->delete_file
)
856 save_lock
= edit_lock_file (edit
->filename
);
857 res
= edit_save_file (edit
, edit
->filename
);
859 /* Maintain modify (not save) lock on failure */
860 if ((res
> 0 && edit
->locked
) || save_lock
)
861 edit
->locked
= edit_unlock_file (edit
->filename
);
863 /* On failure try 'save as', it does locking on its own */
865 return edit_save_as_cmd (edit
);
866 edit
->force
|= REDRAW_COMPLETELY
;
868 edit
->delete_file
= 0;
876 /* returns 1 on success */
877 int edit_new_cmd (WEdit
* edit
)
879 if (edit
->modified
) {
880 if (edit_query_dialog2 (_ ("Warning"), _ (" Current text was modified without a file save. \n Continue discards these changes. "), _ ("C&ontinue"), _ ("&Cancel"))) {
881 edit
->force
|= REDRAW_COMPLETELY
;
885 edit
->force
|= REDRAW_COMPLETELY
;
887 return edit_renew (edit
); /* if this gives an error, something has really screwed up */
890 /* returns 1 on error */
892 edit_load_file_from_filename (WEdit
* edit
, char *exp
)
894 int prev_locked
= edit
->locked
;
895 char *prev_filename
= g_strdup (edit
->filename
);
897 if (!edit_reload (edit
, exp
)) {
898 g_free (prev_filename
);
903 edit_unlock_file (prev_filename
);
904 g_free (prev_filename
);
909 edit_load_syntax_file (WEdit
* edit
)
914 if (geteuid () == 0) {
915 dir
= query_dialog (_("Syntax file edit"),
916 _(" Which syntax file you want to edit? "), D_NORMAL
, 2,
917 _("&User"), _("&System Wide"));
920 extdir
= concat_dir_and_file (mc_home
, "syntax" PATH_SEP_STR
"Syntax");
921 if (!exist_file(extdir
)) {
923 extdir
= concat_dir_and_file (mc_home_alt
, "syntax" PATH_SEP_STR
"Syntax");
929 buffer
= concat_dir_and_file (home_dir
, EDIT_SYNTAX_FILE
);
930 check_for_default (extdir
, buffer
);
931 edit_load_file_from_filename (edit
, buffer
);
934 edit_load_file_from_filename (edit
, extdir
);
940 edit_load_menu_file (WEdit
* edit
)
948 _(" Which menu file do you want to edit? "), D_NORMAL
,
949 geteuid() ? 2 : 3, _("&Local"), _("&User"), _("&System Wide")
952 menufile
= concat_dir_and_file (mc_home
, EDIT_GLOBAL_MENU
);
954 if (!exist_file (menufile
)) {
956 menufile
= concat_dir_and_file (mc_home_alt
, EDIT_GLOBAL_MENU
);
961 buffer
= g_strdup (EDIT_LOCAL_MENU
);
962 check_for_default (menufile
, buffer
);
963 chmod (buffer
, 0600);
967 buffer
= concat_dir_and_file (home_dir
, EDIT_HOME_MENU
);
968 check_for_default (menufile
, buffer
);
972 buffer
= concat_dir_and_file (mc_home
, EDIT_GLOBAL_MENU
);
973 if (!exist_file (buffer
)) {
975 buffer
= concat_dir_and_file (mc_home_alt
, EDIT_GLOBAL_MENU
);
984 edit_load_file_from_filename (edit
, buffer
);
991 edit_load_cmd (WEdit
*edit
, edit_current_file_t what
)
996 && (edit_query_dialog2
998 _(" Current text was modified without a file save. \n"
999 " Continue discards these changes. "),
1000 _("C&ontinue"), _("&Cancel")) == 1)) {
1001 edit
->force
|= REDRAW_COMPLETELY
;
1006 case EDIT_FILE_COMMON
:
1007 exp
= input_expand_dialog (_(" Load "), _(" Enter file name: "),
1008 MC_HISTORY_EDIT_LOAD
, edit
->filename
);
1012 edit_load_file_from_filename (edit
, exp
);
1017 case EDIT_FILE_SYNTAX
:
1018 edit_load_syntax_file (edit
);
1021 case EDIT_FILE_MENU
:
1022 edit_load_menu_file (edit
);
1029 edit
->force
|= REDRAW_COMPLETELY
;
1034 if mark2 is -1 then marking is from mark1 to the cursor.
1035 Otherwise its between the markers. This handles this.
1036 Returns 1 if no text is marked.
1038 int eval_marks (WEdit
* edit
, long *start_mark
, long *end_mark
)
1040 if (edit
->mark1
!= edit
->mark2
) {
1041 long start_bol
, start_eol
;
1042 long end_bol
, end_eol
;
1045 if (edit
->mark2
>= 0) {
1046 *start_mark
= min (edit
->mark1
, edit
->mark2
);
1047 *end_mark
= max (edit
->mark1
, edit
->mark2
);
1049 *start_mark
= min (edit
->mark1
, edit
->curs1
);
1050 *end_mark
= max (edit
->mark1
, edit
->curs1
);
1051 edit
->column2
= edit
->curs_col
+ edit
->over_col
;
1053 if (column_highlighting
1054 && (((edit
->mark1
> edit
->curs1
) && (edit
->column1
< edit
->column2
))
1055 || ((edit
->mark1
< edit
->curs1
) && (edit
->column1
> edit
->column2
)))) {
1057 start_bol
= edit_bol (edit
, *start_mark
);
1058 start_eol
= edit_eol (edit
, start_bol
- 1) + 1;
1059 end_bol
= edit_bol (edit
, *end_mark
);
1060 end_eol
= edit_eol (edit
, *end_mark
);
1061 col1
= min (edit
->column1
, edit
->column2
);
1062 col2
= max (edit
->column1
, edit
->column2
);
1064 diff1
= edit_move_forward3 (edit
, start_bol
, col2
, 0) - edit_move_forward3 (edit
, start_bol
, col1
, 0);
1065 diff2
= edit_move_forward3 (edit
, end_bol
, col2
, 0) - edit_move_forward3 (edit
, end_bol
, col1
, 0);
1067 *start_mark
-= diff1
;
1069 *start_mark
= max (*start_mark
, start_eol
);
1070 *end_mark
= min (*end_mark
, end_eol
);
1074 *start_mark
= *end_mark
= 0;
1075 edit
->column2
= edit
->column1
= 0;
1080 #define space_width 1
1083 edit_insert_column_of_text (WEdit
* edit
, unsigned char *data
, int size
, int width
)
1087 cursor
= edit
->curs1
;
1088 col
= edit_get_col (edit
);
1089 for (i
= 0; i
< size
; i
++) {
1090 if (data
[i
] == '\n') { /* fill in and move to next line */
1093 if (edit_get_byte (edit
, edit
->curs1
) != '\n') {
1094 l
= width
- (edit_get_col (edit
) - col
);
1096 edit_insert (edit
, ' ');
1100 for (p
= edit
->curs1
;; p
++) {
1101 if (p
== edit
->last_byte
) {
1102 edit_cursor_move (edit
, edit
->last_byte
- edit
->curs1
);
1103 edit_insert_ahead (edit
, '\n');
1107 if (edit_get_byte (edit
, p
) == '\n') {
1112 edit_cursor_move (edit
, edit_move_forward3 (edit
, p
, col
, 0) - edit
->curs1
);
1113 l
= col
- edit_get_col (edit
);
1114 while (l
>= space_width
) {
1115 edit_insert (edit
, ' ');
1120 edit_insert (edit
, data
[i
]);
1122 edit_cursor_move (edit
, cursor
- edit
->curs1
);
1125 #define TEMP_BUF_LEN 1024
1128 edit_insert_column_of_text_from_file (WEdit
* edit
, int file
)
1132 int blocklen
= -1, width
;
1133 unsigned char *data
;
1134 cursor
= edit
->curs1
;
1135 col
= edit_get_col (edit
);
1136 data
= g_malloc0 (TEMP_BUF_LEN
);
1137 while ((blocklen
= mc_read (file
, (char *) data
, TEMP_BUF_LEN
)) > 0) {
1138 for (width
= 0; width
< blocklen
; width
++) {
1139 if (data
[width
] == '\n')
1142 for (i
= 0; i
< blocklen
; i
++) {
1143 if (data
[i
] == '\n') { /* fill in and move to next line */
1146 if (edit_get_byte (edit
, edit
->curs1
) != '\n') {
1147 l
= width
- (edit_get_col (edit
) - col
);
1149 edit_insert (edit
, ' ');
1153 for (p
= edit
->curs1
;; p
++) {
1154 if (p
== edit
->last_byte
) {
1155 edit_cursor_move (edit
, edit
->last_byte
- edit
->curs1
);
1156 edit_insert_ahead (edit
, '\n');
1160 if (edit_get_byte (edit
, p
) == '\n') {
1165 edit_cursor_move (edit
, edit_move_forward3 (edit
, p
, col
, 0) - edit
->curs1
);
1166 l
= col
- edit_get_col (edit
);
1167 while (l
>= space_width
) {
1168 edit_insert (edit
, ' ');
1173 edit_insert (edit
, data
[i
]);
1176 edit_cursor_move (edit
, cursor
- edit
->curs1
);
1178 edit
->force
|= REDRAW_PAGE
;
1183 edit_block_copy_cmd (WEdit
*edit
)
1185 long start_mark
, end_mark
, current
= edit
->curs1
;
1187 unsigned char *copy_buf
;
1189 edit_update_curs_col (edit
);
1190 if (eval_marks (edit
, &start_mark
, &end_mark
))
1193 copy_buf
= edit_get_block (edit
, start_mark
, end_mark
, &size
);
1195 /* all that gets pushed are deletes hence little space is used on the stack */
1197 edit_push_markers (edit
);
1199 if (column_highlighting
) {
1200 edit_insert_column_of_text (edit
, copy_buf
, size
,
1201 abs (edit
->column2
- edit
->column1
));
1204 edit_insert_ahead (edit
, copy_buf
[size
]);
1208 edit_scroll_screen_over_cursor (edit
);
1210 if (column_highlighting
) {
1211 edit_set_markers (edit
, 0, 0, 0, 0);
1212 edit_push_action (edit
, COLUMN_ON
);
1213 column_highlighting
= 0;
1214 } else if (start_mark
< current
&& end_mark
> current
)
1215 edit_set_markers (edit
, start_mark
,
1216 end_mark
+ end_mark
- start_mark
, 0, 0);
1218 edit
->force
|= REDRAW_PAGE
;
1223 edit_block_move_cmd (WEdit
*edit
)
1227 unsigned char *copy_buf
;
1228 long start_mark
, end_mark
;
1232 if (eval_marks (edit
, &start_mark
, &end_mark
))
1234 if (column_highlighting
) {
1235 edit_update_curs_col (edit
);
1237 if (start_mark
<= edit
->curs1
&& end_mark
>= edit
->curs1
)
1238 if ((x
> edit
->column1
&& x
< edit
->column2
)
1239 || (x
> edit
->column2
&& x
< edit
->column1
))
1241 } else if (start_mark
<= edit
->curs1
&& end_mark
>= edit
->curs1
)
1244 if ((end_mark
- start_mark
) > option_max_undo
/ 2)
1245 if (edit_query_dialog2
1248 (" Block is large, you may not be able to undo this action. "),
1249 _("C&ontinue"), _("&Cancel")))
1252 edit_push_markers (edit
);
1253 current
= edit
->curs1
;
1254 if (column_highlighting
) {
1255 int size
, c1
, c2
, line
;
1256 line
= edit
->curs_line
;
1257 if (edit
->mark2
< 0)
1258 edit_mark_cmd (edit
, 0);
1259 c1
= min (edit
->column1
, edit
->column2
);
1260 c2
= max (edit
->column1
, edit
->column2
);
1261 copy_buf
= edit_get_block (edit
, start_mark
, end_mark
, &size
);
1263 edit_block_delete_cmd (edit
);
1266 edit_move_to_line (edit
, line
);
1267 edit_cursor_move (edit
,
1268 edit_move_forward3 (edit
,
1269 edit_bol (edit
, edit
->curs1
),
1270 x
, 0) - edit
->curs1
);
1271 edit_insert_column_of_text (edit
, copy_buf
, size
, c2
- c1
);
1273 line
= edit
->curs_line
;
1274 edit_update_curs_col (edit
);
1276 edit_block_delete_cmd (edit
);
1277 edit_move_to_line (edit
, line
);
1278 edit_cursor_move (edit
,
1279 edit_move_forward3 (edit
,
1282 x
, 0) - edit
->curs1
);
1284 edit_set_markers (edit
, 0, 0, 0, 0);
1285 edit_push_action (edit
, COLUMN_ON
);
1286 column_highlighting
= 0;
1288 copy_buf
= g_malloc0 (end_mark
- start_mark
);
1289 edit_cursor_move (edit
, start_mark
- edit
->curs1
);
1290 edit_scroll_screen_over_cursor (edit
);
1292 while (count
< end_mark
) {
1293 copy_buf
[end_mark
- count
- 1] = edit_delete (edit
, 1);
1296 edit_scroll_screen_over_cursor (edit
);
1297 edit_cursor_move (edit
,
1298 current
- edit
->curs1
-
1299 (((current
- edit
->curs1
) >
1300 0) ? end_mark
- start_mark
: 0));
1301 edit_scroll_screen_over_cursor (edit
);
1302 while (count
-- > start_mark
)
1303 edit_insert_ahead (edit
, copy_buf
[end_mark
- count
- 1]);
1304 edit_set_markers (edit
, edit
->curs1
,
1305 edit
->curs1
+ end_mark
- start_mark
, 0, 0);
1307 edit_scroll_screen_over_cursor (edit
);
1309 edit
->force
|= REDRAW_PAGE
;
1313 edit_delete_column_of_text (WEdit
* edit
)
1315 long p
, q
, r
, m1
, m2
;
1319 eval_marks (edit
, &m1
, &m2
);
1320 n
= edit_move_forward (edit
, m1
, 0, m2
) + 1;
1321 c
= edit_move_forward3 (edit
, edit_bol (edit
, m1
), 0, m1
);
1322 d
= edit_move_forward3 (edit
, edit_bol (edit
, m2
), 0, m2
);
1323 b
= max (min (c
, d
), min (edit
->column1
, edit
->column2
));
1324 c
= max (c
, max (edit
->column1
, edit
->column2
));
1327 r
= edit_bol (edit
, edit
->curs1
);
1328 p
= edit_move_forward3 (edit
, r
, b
, 0);
1329 q
= edit_move_forward3 (edit
, r
, c
, 0);
1334 edit_cursor_move (edit
, p
- edit
->curs1
);
1336 /* delete line between margins */
1337 if (edit_get_byte (edit
, edit
->curs1
) != '\n')
1338 edit_delete (edit
, 1);
1342 /* move to next line except on the last delete */
1343 edit_cursor_move (edit
, edit_move_forward (edit
, edit
->curs1
, 1, 0) - edit
->curs1
);
1347 /* if success return 0 */
1349 edit_block_delete (WEdit
*edit
)
1352 long start_mark
, end_mark
;
1353 int curs_pos
, line_width
;
1354 long curs_line
, c1
, c2
;
1356 if (eval_marks (edit
, &start_mark
, &end_mark
))
1358 if (column_highlighting
&& edit
->mark2
< 0)
1359 edit_mark_cmd (edit
, 0);
1360 if ((end_mark
- start_mark
) > option_max_undo
/ 2) {
1361 /* Warning message with a query to continue or cancel the operation */
1362 if (edit_query_dialog2
1365 (" Block is large, you may not be able to undo this action. "),
1366 _("C&ontinue"), _("&Cancel"))) {
1370 c1
= min (edit
->column1
, edit
->column2
);
1371 c2
= max (edit
->column1
, edit
->column2
);
1375 edit_push_markers (edit
);
1377 curs_line
= edit
->curs_line
;
1379 /* calculate line width and cursor position before cut */
1380 line_width
= edit_move_forward3 (edit
, edit_bol (edit
, edit
->curs1
), 0,
1381 edit_eol (edit
, edit
->curs1
));
1382 curs_pos
= edit
->curs_col
+ edit
->over_col
;
1384 /* move cursor to start of selection */
1385 edit_cursor_move (edit
, start_mark
- edit
->curs1
);
1386 edit_scroll_screen_over_cursor (edit
);
1388 if (start_mark
< end_mark
) {
1389 if (column_highlighting
) {
1390 if (edit
->mark2
< 0)
1391 edit_mark_cmd (edit
, 0);
1392 edit_delete_column_of_text (edit
);
1393 /* move cursor to the saved position */
1394 edit_move_to_line (edit
, curs_line
);
1395 /* calculate line width after cut */
1396 line_width
= edit_move_forward3 (edit
, edit_bol (edit
, edit
->curs1
), 0,
1397 edit_eol (edit
, edit
->curs1
));
1398 if (option_cursor_beyond_eol
&& curs_pos
> line_width
)
1399 edit
->over_col
= curs_pos
- line_width
;
1401 while (count
< end_mark
) {
1402 edit_delete (edit
, 1);
1407 edit_set_markers (edit
, 0, 0, 0, 0);
1408 edit
->force
|= REDRAW_PAGE
;
1412 /* returns 1 if canceelled by user */
1413 int edit_block_delete_cmd (WEdit
* edit
)
1415 long start_mark
, end_mark
;
1416 if (eval_marks (edit
, &start_mark
, &end_mark
)) {
1417 edit_delete_line (edit
);
1420 return edit_block_delete (edit
);
1423 #define INPUT_INDEX 9
1426 editcmd_find (WEdit
*edit
, gsize
*len
)
1428 off_t search_start
= edit
->search_start
;
1430 long start_mark
= 0;
1431 long end_mark
= edit
->last_byte
;
1434 if (edit
->only_in_selection
) {
1435 mark_res
= eval_marks(edit
, &start_mark
, &end_mark
);
1436 if (mark_res
!= 0) {
1437 edit
->search
->error
= MC_SEARCH_E_NOTFOUND
;
1438 edit
->search
->error_str
= g_strdup(_(" Search string not found "));
1441 if (edit
->replace_backwards
) {
1442 if (search_start
> end_mark
|| search_start
<= start_mark
) {
1443 search_start
= end_mark
;
1446 if (search_start
< start_mark
|| search_start
>= end_mark
) {
1447 search_start
= start_mark
;
1451 if (edit
->replace_backwards
)
1452 end_mark
= max(1, edit
->curs1
) - 1;
1454 if (edit
->replace_backwards
) {
1455 search_end
= end_mark
;
1456 while ((int) search_start
>= start_mark
) {
1457 if (search_end
> search_start
+ edit
->search
->original_len
1458 && mc_search_is_fixed_search_str(edit
->search
)) {
1459 search_end
= search_start
+ edit
->search
->original_len
;
1461 if (mc_search_run(edit
->search
, (void *) edit
, search_start
, search_end
, len
)
1462 && edit
->search
->normal_offset
== search_start
) {
1467 edit
->search
->error_str
= g_strdup(_(" Search string not found "));
1469 return mc_search_run(edit
->search
, (void *) edit
, search_start
, end_mark
, len
);
1475 /* thanks to Liviu Daia <daia@stoilow.imar.ro> for getting this
1476 (and the above) routines to work properly - paul */
1478 #define is_digit(x) ((x) >= '0' && (x) <= '9')
1481 edit_replace_cmd__conv_to_display (char *str
)
1485 tmp
= str_convert_to_display (str
);
1487 if (tmp
&& tmp
->len
){
1488 return g_string_free (tmp
, FALSE
);
1490 g_string_free (tmp
, TRUE
);
1492 return g_strdup(str
);
1496 edit_replace_cmd__conv_to_input(char *str
)
1500 tmp
= str_convert_to_input (str
);
1502 if (tmp
&& tmp
->len
){
1503 return g_string_free (tmp
, FALSE
);
1505 g_string_free (tmp
, TRUE
);
1506 return g_strdup(str
);
1508 return g_strdup(str
);
1510 /* call with edit = 0 before shutdown to close memory leaks */
1512 edit_replace_cmd (WEdit
*edit
, int again
)
1514 /* 1 = search string, 2 = replace with */
1515 static char *saved1
= NULL
; /* saved default[123] */
1516 static char *saved2
= NULL
;
1517 char *input1
= NULL
; /* user input from the dialog */
1518 char *input2
= NULL
;
1520 long times_replaced
= 0, last_search
;
1521 gboolean once_found
= FALSE
;
1524 g_free (saved1
), saved1
= NULL
;
1525 g_free (saved2
), saved2
= NULL
;
1529 last_search
= edit
->last_byte
;
1531 edit
->force
|= REDRAW_COMPLETELY
;
1533 if (again
&& !saved1
&& !saved2
)
1537 input1
= g_strdup (saved1
? saved1
: "");
1538 input2
= g_strdup (saved2
? saved2
: "");
1540 char *disp1
= edit_replace_cmd__conv_to_display (saved1
? saved1
: (char *) "");
1541 char *disp2
= edit_replace_cmd__conv_to_display (saved2
? saved2
: (char *) "");
1542 char *tmp_inp1
, *tmp_inp2
;
1544 edit_push_action (edit
, KEY_PRESS
+ edit
->start_display
);
1546 editcmd_dialog_replace_show (edit
, disp1
, disp2
, &input1
, &input2
);
1551 if (input1
== NULL
|| *input1
== '\0') {
1552 edit
->force
= REDRAW_COMPLETELY
;
1556 tmp_inp1
= input1
; tmp_inp2
= input2
;
1557 input1
= edit_replace_cmd__conv_to_input(input1
);
1558 input2
= edit_replace_cmd__conv_to_input(input2
);
1559 g_free(tmp_inp1
); g_free(tmp_inp2
);
1561 g_free (saved1
), saved1
= g_strdup (input1
);
1562 g_free (saved2
), saved2
= g_strdup (input2
);
1565 mc_search_free(edit
->search
);
1566 edit
->search
= NULL
;
1570 if (!edit
->search
) {
1571 edit
->search
= mc_search_new(input1
, -1);
1572 if (edit
->search
== NULL
) {
1573 edit
->search_start
= edit
->curs1
;
1576 edit
->search
->search_type
= edit
->search_type
;
1577 edit
->search
->is_all_charsets
= edit
->all_codepages
;
1578 edit
->search
->is_case_sentitive
= edit
->replace_case
;
1579 edit
->search
->whole_words
= edit
->whole_words
;
1580 edit
->search
->search_fn
= edit_search_cmd_callback
;
1583 if (edit
->found_len
&& edit
->search_start
== edit
->found_start
+ 1
1584 && edit
->replace_backwards
)
1585 edit
->search_start
--;
1587 if (edit
->found_len
&& edit
->search_start
== edit
->found_start
- 1
1588 && !edit
->replace_backwards
)
1589 edit
->search_start
++;
1595 if (! editcmd_find(edit
, &len
)) {
1596 if (!(edit
->search
->error
== MC_SEARCH_E_OK
||
1597 (once_found
&& edit
->search
->error
== MC_SEARCH_E_NOTFOUND
))) {
1598 edit_error_dialog (_ ("Search"), edit
->search
->error_str
);
1603 new_start
= edit
->search
->normal_offset
;
1605 edit
->search_start
= new_start
= edit
->search
->normal_offset
;
1606 /*returns negative on not found or error in pattern */
1608 if (edit
->search_start
>= 0) {
1611 edit
->found_start
= edit
->search_start
;
1612 i
= edit
->found_len
= len
;
1614 edit_cursor_move (edit
, edit
->search_start
- edit
->curs1
);
1615 edit_scroll_screen_over_cursor (edit
);
1619 if (edit
->replace_mode
== 0) {
1621 l
= edit
->curs_row
- edit
->num_widget_lines
/ 3;
1623 edit_scroll_downward (edit
, l
);
1625 edit_scroll_upward (edit
, -l
);
1627 edit_scroll_screen_over_cursor (edit
);
1628 edit
->force
|= REDRAW_PAGE
;
1629 edit_render_keypress (edit
);
1631 /*so that undo stops at each query */
1632 edit_push_key_press (edit
);
1633 /* and prompt 2/3 down */
1634 switch (editcmd_dialog_replace_prompt_show (edit
, input1
, input2
, -1, -1)) {
1638 case B_SKIP_REPLACE
:
1642 edit
->replace_mode
=1;
1646 edit
->replace_mode
= -1;
1650 if (replace_yes
) { /* delete then insert new */
1651 GString
*repl_str
, *tmp_str
;
1652 tmp_str
= g_string_new(input2
);
1654 repl_str
= mc_search_prepare_replace_str (edit
->search
, tmp_str
);
1655 g_string_free(tmp_str
, TRUE
);
1656 if (edit
->search
->error
!= MC_SEARCH_E_OK
)
1658 edit_error_dialog (_ ("Replace"), edit
->search
->error_str
);
1663 edit_delete (edit
, 1);
1665 while (++i
< repl_str
->len
)
1666 edit_insert (edit
, repl_str
->str
[i
]);
1668 g_string_free(repl_str
, TRUE
);
1669 edit
->found_len
= i
;
1671 /* so that we don't find the same string again */
1672 if (edit
->replace_backwards
) {
1673 last_search
= edit
->search_start
;
1674 edit
->search_start
--;
1676 edit
->search_start
+= i
;
1677 last_search
= edit
->last_byte
;
1679 edit_scroll_screen_over_cursor (edit
);
1681 const char *msg
= _(" Replace ");
1682 /* try and find from right here for next search */
1683 edit
->search_start
= edit
->curs1
;
1684 edit_update_curs_col (edit
);
1686 edit
->force
|= REDRAW_PAGE
;
1687 edit_render_keypress (edit
);
1688 if (times_replaced
) {
1689 message (D_NORMAL
, msg
, _(" %ld replacements made. "),
1692 query_dialog (msg
, _(" Search string not found "),
1693 D_NORMAL
, 1, _("&OK"));
1694 edit
->replace_mode
= -1;
1696 } while (edit
->replace_mode
>= 0);
1698 edit
->force
= REDRAW_COMPLETELY
;
1699 edit_scroll_screen_over_cursor (edit
);
1706 void edit_search_cmd (WEdit
* edit
, int again
)
1708 char *search_string
= NULL
, *search_string_dup
= NULL
;
1715 if (edit
->search
!= NULL
) {
1716 search_string
= g_strndup(edit
->search
->original
, edit
->search
->original_len
);
1717 search_string_dup
= search_string
;
1720 history
= history_get (MC_HISTORY_SHARED_SEARCH
);
1721 if (history
!= NULL
&& history
->data
!= NULL
) {
1722 search_string_dup
= search_string
= (char *) g_strdup(history
->data
);
1723 history
= g_list_first (history
);
1724 g_list_foreach (history
, (GFunc
) g_free
, NULL
);
1725 g_list_free (history
);
1727 edit
->search_start
= edit
->curs1
;
1733 if (search_string
&& *search_string
) {
1734 tmp
= str_convert_to_display (search_string
);
1736 g_free(search_string_dup
);
1737 search_string_dup
= NULL
;
1739 if (tmp
&& tmp
->len
)
1740 search_string
= search_string_dup
= tmp
->str
;
1741 g_string_free (tmp
, FALSE
);
1743 #endif /* HAVE_CHARSET */
1744 editcmd_dialog_search_show (edit
, &search_string
);
1746 if (search_string
&& *search_string
) {
1747 tmp
= str_convert_to_input (search_string
);
1748 if (tmp
&& tmp
->len
)
1749 search_string
= tmp
->str
;
1751 g_string_free (tmp
, FALSE
);
1753 if (search_string_dup
)
1754 g_free(search_string_dup
);
1756 #endif /* HAVE_CHARSET */
1758 edit_push_action (edit
, KEY_PRESS
+ edit
->start_display
);
1760 if (!search_string
) {
1761 edit
->force
|= REDRAW_COMPLETELY
;
1762 edit_scroll_screen_over_cursor (edit
);
1767 mc_search_free(edit
->search
);
1768 edit
->search
= NULL
;
1772 if (!edit
->search
) {
1773 edit
->search
= mc_search_new(search_string
, -1);
1774 if (edit
->search
== NULL
) {
1775 edit
->search_start
= edit
->curs1
;
1778 edit
->search
->search_type
= edit
->search_type
;
1779 edit
->search
->is_all_charsets
= edit
->all_codepages
;
1780 edit
->search
->is_case_sentitive
= edit
->replace_case
;
1781 edit
->search
->whole_words
= edit
->whole_words
;
1782 edit
->search
->search_fn
= edit_search_cmd_callback
;
1785 if (search_create_bookmark
) {
1786 edit_search_cmd_search_create_bookmark(edit
);
1788 if (edit
->found_len
&& edit
->search_start
== edit
->found_start
+ 1 && edit
->replace_backwards
)
1789 edit
->search_start
--;
1791 if (edit
->found_len
&& edit
->search_start
== edit
->found_start
- 1 && !edit
->replace_backwards
)
1792 edit
->search_start
++;
1795 if (editcmd_find(edit
, &len
)) {
1796 edit
->found_start
= edit
->search_start
= edit
->search
->normal_offset
;
1797 edit
->found_len
= len
;
1799 edit_cursor_move (edit
, edit
->search_start
- edit
->curs1
);
1800 edit_scroll_screen_over_cursor (edit
);
1801 if (edit
->replace_backwards
)
1802 edit
->search_start
--;
1804 edit
->search_start
++;
1806 edit
->search_start
= edit
->curs1
;
1807 if (edit
->search
->error_str
)
1808 edit_error_dialog (_ ("Search"), edit
->search
->error_str
);
1812 edit
->force
|= REDRAW_COMPLETELY
;
1813 edit_scroll_screen_over_cursor (edit
);
1818 * Check if it's OK to close the editor. If there are unsaved changes,
1819 * ask user. Return 1 if it's OK to exit, 0 to continue editing.
1822 edit_ok_to_exit (WEdit
*edit
)
1824 if (!edit
->modified
)
1827 if (!edit_check_newline (edit
))
1830 switch (edit_query_dialog3
1831 (_("Quit"), _(" File was modified, Save with exit? "),
1832 _("&Cancel quit"), _("&Yes"), _("&No"))) {
1834 edit_push_markers (edit
);
1835 edit_set_markers (edit
, 0, 0, 0, 0);
1836 if (!edit_save_cmd (edit
))
1849 /* Return a null terminated length of text. Result must be g_free'd */
1850 static unsigned char *
1851 edit_get_block (WEdit
*edit
, long start
, long finish
, int *l
)
1853 unsigned char *s
, *r
;
1854 r
= s
= g_malloc0 (finish
- start
+ 1);
1855 if (column_highlighting
) {
1857 /* copy from buffer, excluding chars that are out of the column 'margins' */
1858 while (start
< finish
) {
1860 x
= edit_move_forward3 (edit
, edit_bol (edit
, start
), 0,
1862 c
= edit_get_byte (edit
, start
);
1863 if ((x
>= edit
->column1
&& x
< edit
->column2
)
1864 || (x
>= edit
->column2
&& x
< edit
->column1
) || c
== '\n') {
1871 *l
= finish
- start
;
1872 while (start
< finish
)
1873 *s
++ = edit_get_byte (edit
, start
++);
1879 /* save block, returns 1 on success */
1881 edit_save_block (WEdit
* edit
, const char *filename
, long start
,
1887 mc_open (filename
, O_CREAT
| O_WRONLY
| O_TRUNC
,
1888 S_IRUSR
| S_IWUSR
| S_IRGRP
| S_IROTH
| O_BINARY
)) == -1)
1891 if (column_highlighting
) {
1893 r
= mc_write (file
, VERTICAL_MAGIC
, sizeof(VERTICAL_MAGIC
));
1895 unsigned char *block
, *p
;
1896 p
= block
= edit_get_block (edit
, start
, finish
, &len
);
1898 r
= mc_write (file
, p
, len
);
1909 len
= finish
- start
;
1910 buf
= g_malloc0 (TEMP_BUF_LEN
);
1911 while (start
!= finish
) {
1912 end
= min (finish
, start
+ TEMP_BUF_LEN
);
1913 for (; i
< end
; i
++)
1914 buf
[i
- start
] = edit_get_byte (edit
, i
);
1915 len
-= mc_write (file
, (char *) buf
, end
- start
);
1926 /* copies a block to clipboard file */
1927 static int edit_save_block_to_clip_file (WEdit
* edit
, long start
, long finish
)
1931 tmp
= concat_dir_and_file (home_dir
, EDIT_CLIP_FILE
);
1932 ret
= edit_save_block (edit
, tmp
, start
, finish
);
1938 void edit_paste_from_history (WEdit
*edit
)
1941 edit_error_dialog (_(" Error "), _(" This function is not implemented. "));
1944 int edit_copy_to_X_buf_cmd (WEdit
* edit
)
1946 long start_mark
, end_mark
;
1947 if (eval_marks (edit
, &start_mark
, &end_mark
))
1949 if (!edit_save_block_to_clip_file (edit
, start_mark
, end_mark
)) {
1950 edit_error_dialog (_(" Copy to clipboard "), get_sys_error (_(" Unable to save to file. ")));
1953 edit_mark_cmd (edit
, 1);
1957 int edit_cut_to_X_buf_cmd (WEdit
* edit
)
1959 long start_mark
, end_mark
;
1960 if (eval_marks (edit
, &start_mark
, &end_mark
))
1962 if (!edit_save_block_to_clip_file (edit
, start_mark
, end_mark
)) {
1963 edit_error_dialog (_(" Cut to clipboard "), _(" Unable to save to file. "));
1966 edit_block_delete_cmd (edit
);
1967 edit_mark_cmd (edit
, 1);
1971 void edit_paste_from_X_buf_cmd (WEdit
* edit
)
1974 tmp
= concat_dir_and_file (home_dir
, EDIT_CLIP_FILE
);
1975 edit_insert_file (edit
, tmp
);
1981 * Ask user for the line and go to that line.
1982 * Negative numbers mean line from the end (i.e. -1 is the last line).
1985 edit_goto_cmd (WEdit
*edit
)
1988 static long line
= 0; /* line as typed, saved as default */
1993 g_snprintf (s
, sizeof (s
), "%ld", line
);
1994 f
= input_dialog (_(" Goto line "), _(" Enter line: "), MC_HISTORY_EDIT_GOTO_LINE
,
2004 l
= strtol (f
, &error
, 0);
2012 l
= edit
->total_lines
+ l
+ 2;
2013 edit_move_display (edit
, l
- edit
->num_widget_lines
/ 2 - 1);
2014 edit_move_to_line (edit
, l
- 1);
2015 edit
->force
|= REDRAW_COMPLETELY
;
2020 /* Return 1 on success */
2022 edit_save_block_cmd (WEdit
*edit
)
2024 long start_mark
, end_mark
;
2027 if (eval_marks (edit
, &start_mark
, &end_mark
))
2030 tmp
= concat_dir_and_file (home_dir
, EDIT_CLIP_FILE
);
2032 input_expand_dialog (_(" Save Block "), _(" Enter file name: "),
2033 MC_HISTORY_EDIT_SAVE_BLOCK
,
2036 edit_push_action (edit
, KEY_PRESS
+ edit
->start_display
);
2042 if (edit_save_block (edit
, exp
, start_mark
, end_mark
)) {
2044 edit
->force
|= REDRAW_COMPLETELY
;
2048 edit_error_dialog (_(" Save Block "),
2050 (" Cannot save file. ")));
2054 edit
->force
|= REDRAW_COMPLETELY
;
2059 /* returns 1 on success */
2061 edit_insert_file_cmd (WEdit
*edit
)
2066 tmp
= concat_dir_and_file (home_dir
, EDIT_CLIP_FILE
);
2067 exp
= input_expand_dialog (_(" Insert File "), _(" Enter file name: "),
2068 MC_HISTORY_EDIT_INSERT_FILE
,
2071 edit_push_action (edit
, KEY_PRESS
+ edit
->start_display
);
2077 if (edit_insert_file (edit
, exp
)) {
2079 edit
->force
|= REDRAW_COMPLETELY
;
2083 edit_error_dialog (_(" Insert File "),
2085 (" Cannot insert file. ")));
2089 edit
->force
|= REDRAW_COMPLETELY
;
2093 /* sorts a block, returns -1 on system fail, 1 on cancel and 0 on success */
2094 int edit_sort_cmd (WEdit
* edit
)
2096 static char *old
= 0;
2098 long start_mark
, end_mark
;
2101 if (eval_marks (edit
, &start_mark
, &end_mark
)) {
2102 edit_error_dialog (_(" Sort block "), _(" You must first highlight a block of text. "));
2106 tmp
= concat_dir_and_file (home_dir
, EDIT_BLOCK_FILE
);
2107 edit_save_block (edit
, tmp
, start_mark
, end_mark
);
2110 exp
= input_dialog (_(" Run Sort "),
2111 _(" Enter sort options (see manpage) separated by whitespace: "),
2112 MC_HISTORY_EDIT_SORT
, (old
!= NULL
) ? old
: "");
2118 tmp
= g_strconcat (" sort ", exp
, " ", home_dir
, PATH_SEP_STR EDIT_BLOCK_FILE
, " > ",
2119 home_dir
, PATH_SEP_STR EDIT_TEMP_FILE
, (char *) NULL
);
2123 if (e
== -1 || e
== 127) {
2124 edit_error_dialog (_(" Sort "),
2125 get_sys_error (_(" Cannot execute sort command ")));
2128 sprintf (q
, "%d ", e
);
2129 tmp
= g_strconcat (_(" Sort returned non-zero: "), q
, (char *) NULL
);
2130 edit_error_dialog (_(" Sort "), tmp
);
2136 edit
->force
|= REDRAW_COMPLETELY
;
2138 if (edit_block_delete_cmd (edit
))
2140 tmp
= concat_dir_and_file (home_dir
, EDIT_TEMP_FILE
);
2141 edit_insert_file (edit
, tmp
);
2147 * Ask user for a command, execute it and paste its output back to the
2151 edit_ext_cmd (WEdit
*edit
)
2157 input_dialog (_("Paste output of external command"),
2158 _("Enter shell command(s):"),
2159 MC_HISTORY_EDIT_PASTE_EXTCMD
, NULL
);
2164 tmp
= g_strconcat (exp
, " > ", home_dir
, PATH_SEP_STR EDIT_TEMP_FILE
, (char *) NULL
);
2170 edit_error_dialog (_("External command"),
2171 get_sys_error (_("Cannot execute command")));
2175 edit
->force
|= REDRAW_COMPLETELY
;
2176 tmp
= concat_dir_and_file (home_dir
, EDIT_TEMP_FILE
);
2177 edit_insert_file (edit
, tmp
);
2182 /* if block is 1, a block must be highlighted and the shell command
2183 processes it. If block is 0 the shell command is a straight system
2184 command, that just produces some output which is to be inserted */
2186 edit_block_process_cmd (WEdit
*edit
, const char *shell_cmd
, int block
)
2188 long start_mark
, end_mark
;
2190 FILE *script_home
= NULL
;
2191 FILE *script_src
= NULL
;
2192 FILE *block_file
= NULL
;
2193 gchar
*o
, *h
, *b
, *tmp
;
2194 char *quoted_name
= NULL
;
2196 o
= g_strconcat (mc_home
, shell_cmd
, (char *) NULL
); /* original source script */
2197 h
= g_strconcat (home_dir
, PATH_SEP_STR EDIT_DIR
, shell_cmd
, (char *) NULL
); /* home script */
2198 b
= concat_dir_and_file (home_dir
, EDIT_BLOCK_FILE
); /* block file */
2200 if (!(script_home
= fopen (h
, "r"))) {
2201 if (!(script_home
= fopen (h
, "w"))) {
2202 tmp
= g_strconcat (_("Error creating script:"), h
, (char *) NULL
);
2203 edit_error_dialog ("", get_sys_error (tmp
));
2205 goto edit_block_process_cmd__EXIT
;
2207 if (!(script_src
= fopen (o
, "r"))) {
2208 o
= g_strconcat (mc_home_alt
, shell_cmd
, (char *) NULL
);
2209 if (!(script_src
= fopen (o
, "r"))) {
2210 fclose (script_home
);
2212 tmp
= g_strconcat (_("Error reading script:"), o
, (char *) NULL
);
2213 edit_error_dialog ("", get_sys_error (tmp
));
2215 goto edit_block_process_cmd__EXIT
;
2218 while (fgets (buf
, sizeof (buf
), script_src
))
2219 fputs (buf
, script_home
);
2220 if (fclose (script_home
)) {
2221 tmp
= g_strconcat (_("Error closing script:"), h
, (char *) NULL
);
2222 edit_error_dialog ("", get_sys_error (tmp
));
2224 goto edit_block_process_cmd__EXIT
;
2227 tmp
= g_strconcat (_("Script created:"), h
, (char *) NULL
);
2228 edit_error_dialog ("", get_sys_error (tmp
));
2234 if (block
) { /* for marked block run indent formatter */
2235 if (eval_marks (edit
, &start_mark
, &end_mark
)) {
2236 edit_error_dialog (_("Process block"),
2238 (" You must first highlight a block of text. "));
2239 goto edit_block_process_cmd__EXIT
;
2241 edit_save_block (edit
, b
, start_mark
, end_mark
);
2242 quoted_name
= name_quote (edit
->filename
, 0);
2245 * Initial space is to avoid polluting bash history.
2247 * $1 - name of the edited file (to check its extension etc).
2248 * $2 - file containing the current block.
2249 * $3 - file where error messages should be put
2250 * (for compatibility with old scripts).
2252 tmp
= g_strconcat (" ", home_dir
, PATH_SEP_STR EDIT_DIR
, shell_cmd
, " ", quoted_name
,
2253 " ", home_dir
, PATH_SEP_STR EDIT_BLOCK_FILE
" /dev/null", (char *) NULL
);
2258 * No block selected, just execute the command for the file.
2260 * $1 - name of the edited file.
2262 tmp
= g_strconcat (" ", home_dir
, PATH_SEP_STR EDIT_DIR
, shell_cmd
, " ",
2263 quoted_name
, (char *) NULL
);
2267 g_free (quoted_name
);
2268 close_error_pipe (D_NORMAL
, NULL
);
2270 edit_refresh_cmd (edit
);
2271 edit
->force
|= REDRAW_COMPLETELY
;
2273 /* insert result block */
2274 if (block
&& !edit_block_delete_cmd (edit
)) {
2275 edit_insert_file (edit
, b
);
2276 block_file
= fopen (b
, "w");
2277 if (block_file
!= NULL
)
2278 fclose (block_file
);
2281 edit_block_process_cmd__EXIT
:
2287 /* prints at the cursor */
2288 /* returns the number of chars printed */
2289 int edit_print_string (WEdit
* e
, const char *s
)
2292 while (s
[i
] != '\0')
2293 edit_execute_cmd (e
, CK_Insert_Char
, (unsigned char) s
[i
++]);
2294 e
->force
|= REDRAW_COMPLETELY
;
2295 edit_update_screen (e
);
2300 static void pipe_mail (WEdit
*edit
, char *to
, char *subject
, char *cc
)
2305 to
= name_quote (to
, 0);
2306 subject
= name_quote (subject
, 0);
2307 cc
= name_quote (cc
, 0);
2308 s
= g_strconcat ("mail -s ", subject
, *cc
? " -c " : "" , cc
, " ", to
, (char *) NULL
);
2320 for (i
= 0; i
< edit
->last_byte
; i
++)
2321 fputc (edit_get_byte (edit
, i
), p
);
2326 #define MAIL_DLG_HEIGHT 12
2328 void edit_mail_dialog (WEdit
* edit
)
2331 char *tmail_subject
;
2334 static char *mail_cc_last
= 0;
2335 static char *mail_subject_last
= 0;
2336 static char *mail_to_last
= 0;
2338 QuickWidget quick_widgets
[] =
2340 /* 0 */ QUICK_BUTTON (6, 10, 9, MAIL_DLG_HEIGHT
, N_("&Cancel"), B_CANCEL
, NULL
),
2341 /* 1 */ QUICK_BUTTON (2, 10, 9, MAIL_DLG_HEIGHT
, N_("&OK"), B_ENTER
, NULL
),
2342 /* 2 */ QUICK_INPUT (3, 50, 8, MAIL_DLG_HEIGHT
, "", 44, 0, "mail-dlg-input", &tmail_cc
),
2343 /* 3 */ QUICK_LABEL (2, 50, 7, MAIL_DLG_HEIGHT
, N_(" Copies to")),
2344 /* 4 */ QUICK_INPUT (3, 50, 6, MAIL_DLG_HEIGHT
, "", 44, 0, "mail-dlg-input-2", &tmail_subject
),
2345 /* 5 */ QUICK_LABEL (2, 50, 5, MAIL_DLG_HEIGHT
, N_(" Subject")),
2346 /* 6 */ QUICK_INPUT (3, 50, 4, MAIL_DLG_HEIGHT
, "", 44, 0, "mail-dlg-input-3", &tmail_to
),
2347 /* 7 */ QUICK_LABEL (2, 50, 3, MAIL_DLG_HEIGHT
, N_(" To")),
2348 /* 8 */ QUICK_LABEL (2, 50, 2, MAIL_DLG_HEIGHT
, N_(" mail -s <subject> -c <cc> <to>")),
2352 QuickDialog Quick_input
=
2354 50, MAIL_DLG_HEIGHT
, -1, -1, N_(" Mail "),
2355 "[Input Line Keys]", quick_widgets
, FALSE
2358 quick_widgets
[2].u
.input
.text
= mail_cc_last
? mail_cc_last
: "";
2359 quick_widgets
[4].u
.input
.text
= mail_subject_last
? mail_subject_last
: "";
2360 quick_widgets
[6].u
.input
.text
= mail_to_last
? mail_to_last
: "";
2362 if (quick_dialog (&Quick_input
) != B_CANCEL
) {
2363 g_free (mail_cc_last
);
2364 g_free (mail_subject_last
);
2365 g_free (mail_to_last
);
2366 mail_cc_last
= tmail_cc
;
2367 mail_subject_last
= tmail_subject
;
2368 mail_to_last
= tmail_to
;
2369 pipe_mail (edit
, mail_to_last
, mail_subject_last
, mail_cc_last
);
2374 /*******************/
2375 /* Word Completion */
2376 /*******************/
2378 static gboolean
is_break_char(char c
)
2380 return (isspace(c
) || strchr("{}[]()<>=|/\\!?~'\",.;:#$%^&*", c
));
2383 /* find first character of current word */
2384 static int edit_find_word_start (WEdit
*edit
, long *word_start
, gsize
*word_len
)
2389 /* return if at begin of file */
2390 if (edit
->curs1
<= 0)
2393 c
= (unsigned char) edit_get_byte (edit
, edit
->curs1
- 1);
2394 /* return if not at end or in word */
2395 if (is_break_char(c
))
2398 /* search start of word to be completed */
2400 /* return if at begin of file */
2401 if (edit
->curs1
- i
< 0)
2405 c
= (unsigned char) edit_get_byte (edit
, edit
->curs1
- i
);
2407 if (is_break_char(c
)) {
2408 /* return if word starts with digit */
2412 *word_start
= edit
->curs1
- (i
- 1); /* start found */
2421 #define MAX_WORD_COMPLETIONS 100 /* in listbox */
2423 /* collect the possible completions */
2425 edit_collect_completions (WEdit
*edit
, long start
, gsize word_len
,
2426 char *match_expr
, struct selection
*compl,
2438 srch
= mc_search_new(match_expr
, -1);
2442 if (mc_config_get_bool(mc_main_config
, CONFIG_APP_SECTION
, "editor_wordcompletion_collect_entire_file", 0)){
2443 last_byte
= edit
->last_byte
;
2448 srch
->search_type
= MC_SEARCH_T_REGEX
;
2449 srch
->is_case_sentitive
= TRUE
;
2450 srch
->search_fn
= edit_search_cmd_callback
;
2452 /* collect max MAX_WORD_COMPLETIONS completions */
2455 /* get next match */
2456 if (mc_search_run (srch
, (void *) edit
, start
+1, last_byte
, &len
) == FALSE
)
2458 start
= srch
->normal_offset
;
2460 /* add matched completion if not yet added */
2461 temp
= g_string_new("");
2462 for (i
= 0; i
< len
; i
++){
2463 skip
= edit_get_byte(edit
, start
+i
);
2466 g_string_append_c (temp
, skip
);
2471 for (i
= 0; i
< (gsize
) *num
; i
++) {
2474 (char *) &compl[i
].text
[word_len
],
2475 (char *) &temp
->str
[word_len
],
2476 max (len
, compl[i
].len
) - (gsize
)word_len
2478 struct selection
this = compl[i
];
2479 for (++i
; i
< *num
; i
++) {
2480 compl[i
- 1] = compl[i
];
2482 compl[*num
- 1] = this;
2484 break; /* skip it, already added */
2488 g_string_free(temp
, TRUE
);
2491 if (*num
== MAX_WORD_COMPLETIONS
&& MAX_WORD_COMPLETIONS
) {
2492 g_free(compl[0].text
);
2493 for (i
= 1; i
< *num
; i
++) {
2494 compl[i
- 1] = compl[i
];
2501 recoded
= str_convert_to_display (temp
->str
);
2503 if (recoded
&& recoded
->len
){
2504 g_string_free(temp
,TRUE
);
2507 g_string_free(recoded
, TRUE
);
2510 compl[*num
].text
= temp
->str
;
2511 compl[*num
].len
= temp
->len
;
2514 g_string_free(temp
, FALSE
);
2516 /* note the maximal length needed for the completion dialog */
2520 mc_search_free(srch
);
2525 * Complete current word using regular expression search
2526 * backwards beginning at the current cursor position.
2529 edit_complete_word_cmd (WEdit
*edit
)
2531 gsize i
, max_len
, word_len
= 0, num_compl
= 0;
2532 long word_start
= 0;
2533 unsigned char *bufpos
;
2535 struct selection
compl[MAX_WORD_COMPLETIONS
]; /* completions */
2537 /* search start of word to be completed */
2538 if (!edit_find_word_start (edit
, &word_start
, &word_len
))
2541 /* prepare match expression */
2542 bufpos
= &edit
->buffers1
[word_start
>> S_EDIT_BUF_SIZE
]
2543 [word_start
& M_EDIT_BUF_SIZE
];
2545 /* match_expr = g_strdup_printf ("\\b%.*s[a-zA-Z_0-9]+", word_len, bufpos); */
2546 match_expr
= g_strdup_printf ("(^|\\s+|\\b)%.*s[^\\s\\.=\\+\\[\\]\\(\\)\\,\\;\\:\\\"\\'\\-\\?\\/\\|\\\\\\{\\}\\*\\&\\^\\%%\\$#@\\!]+", (int)word_len
, bufpos
);
2548 /* collect the possible completions */
2549 /* start search from begin to end of file */
2551 edit_collect_completions (edit
, word_start
, word_len
, match_expr
,
2552 (struct selection
*) &compl, &num_compl
);
2554 if (num_compl
> 0) {
2555 /* insert completed word if there is only one match */
2556 if (num_compl
== 1) {
2557 for (i
= word_len
; i
< compl[0].len
; i
++)
2558 edit_insert (edit
, *(compl[0].text
+ i
));
2560 /* more than one possible completion => ask the user */
2562 /* !!! usually only a beep is expected and when <ALT-TAB> is !!! */
2563 /* !!! pressed again the selection dialog pops up, but that !!! */
2564 /* !!! seems to require a further internal state !!! */
2567 /* let the user select the preferred completion */
2568 editcmd_dialog_completion_show (edit
, max_len
, word_len
,
2569 (struct selection
*) &compl,
2574 g_free (match_expr
);
2575 /* release memory before return */
2576 for (i
= 0; i
< num_compl
; i
++)
2577 g_free (compl[i
].text
);
2581 edit_select_codepage_cmd (WEdit
*edit
)
2584 const char *cp_id
= NULL
;
2585 if (do_select_codepage ()) {
2586 cp_id
= get_codepage_id (source_codepage
>= 0 ?
2587 source_codepage
: display_codepage
);
2589 if (cp_id
!= NULL
) {
2591 conv
= str_crt_conv_from (cp_id
);
2592 if (conv
!= INVALID_CONV
) {
2593 if (edit
->converter
!= str_cnv_from_term
)
2594 str_close_conv (edit
->converter
);
2595 edit
->converter
= conv
;
2600 edit
->utf8
= str_isutf8 (cp_id
);
2603 edit
->force
= REDRAW_COMPLETELY
;
2604 edit_refresh_cmd (edit
);
2611 edit_insert_literal_cmd (WEdit
*edit
)
2613 int char_for_insertion
=
2614 editcmd_dialog_raw_key_query (_(" Insert Literal "),
2615 _(" Press any key: "), 0);
2616 edit_execute_key_command (edit
, -1,
2617 ascii_alpha_to_cntrl (char_for_insertion
));
2621 edit_execute_macro_cmd (WEdit
*edit
)
2624 CK_Macro (editcmd_dialog_raw_key_query
2625 (_(" Execute Macro "), _(" Press macro hotkey: "),
2627 if (command
== CK_Macro (0))
2628 command
= CK_Insert_Char
;
2630 edit_execute_key_command (edit
, command
, -1);
2634 edit_begin_end_macro_cmd (WEdit
*edit
)
2636 /* edit is a pointer to the widget */
2638 unsigned long command
= edit
->macro_i
< 0
2639 ? CK_Begin_Record_Macro
: CK_End_Record_Macro
;
2640 edit_execute_key_command (edit
, command
, -1);
2645 edit_load_forward_cmd (WEdit
*edit
)
2647 if (edit
->modified
) {
2648 if (edit_query_dialog2
2650 _(" Current text was modified without a file save. \n"
2651 " Continue discards these changes. "), _("C&ontinue"),
2653 edit
->force
|= REDRAW_COMPLETELY
;
2657 if ( edit_stack_iterator
+ 1 < MAX_HISTORY_MOVETO
) {
2658 if ( edit_history_moveto
[edit_stack_iterator
+ 1].line
< 1 ) {
2661 edit_stack_iterator
++;
2662 if ( edit_history_moveto
[edit_stack_iterator
].filename
) {
2663 edit_reload_line (edit
, edit_history_moveto
[edit_stack_iterator
].filename
,
2664 edit_history_moveto
[edit_stack_iterator
].line
);
2675 edit_load_back_cmd (WEdit
*edit
)
2677 if (edit
->modified
) {
2678 if (edit_query_dialog2
2680 _(" Current text was modified without a file save. \n"
2681 " Continue discards these changes. "), _("C&ontinue"),
2683 edit
->force
|= REDRAW_COMPLETELY
;
2687 if ( edit_stack_iterator
> 0 ) {
2688 edit_stack_iterator
--;
2689 if ( edit_history_moveto
[edit_stack_iterator
].filename
) {
2690 edit_reload_line (edit
, edit_history_moveto
[edit_stack_iterator
].filename
,
2691 edit_history_moveto
[edit_stack_iterator
].line
);
2702 edit_get_match_keyword_cmd (WEdit
*edit
)
2704 gsize word_len
= 0, max_len
= 0;
2707 long word_start
= 0;
2708 unsigned char *bufpos
;
2712 char *tagfile
= NULL
;
2714 etags_hash_t def_hash
[MAX_DEFINITIONS
];
2716 for ( i
= 0; i
< MAX_DEFINITIONS
; i
++) {
2717 def_hash
[i
].filename
= NULL
;
2720 /* search start of word to be completed */
2721 if (!edit_find_word_start (edit
, &word_start
, &word_len
))
2724 /* prepare match expression */
2725 bufpos
= &edit
->buffers1
[word_start
>> S_EDIT_BUF_SIZE
]
2726 [word_start
& M_EDIT_BUF_SIZE
];
2727 match_expr
= g_strdup_printf ("%.*s", (int)word_len
, bufpos
);
2729 ptr
= g_get_current_dir ();
2730 path
= g_strconcat (ptr
, G_DIR_SEPARATOR_S
, (char *) NULL
);
2733 /* Recursive search file 'TAGS' in parent dirs */
2735 ptr
= g_path_get_dirname (path
);
2736 g_free(path
); path
= ptr
;
2738 tagfile
= g_build_filename (path
, TAGS_NAME
, (char *) NULL
);
2739 if ( exist_file (tagfile
) )
2741 } while (strcmp( path
, G_DIR_SEPARATOR_S
) != 0);
2744 num_def
= etags_set_definition_hash(tagfile
, path
, match_expr
, (etags_hash_t
*) &def_hash
);
2749 max_len
= MAX_WIDTH_DEF_DIALOG
;
2751 if ( num_def
> 0 ) {
2752 editcmd_dialog_select_definition_show (edit
, match_expr
, max_len
, word_len
,
2753 (etags_hash_t
*) &def_hash
,
2756 g_free (match_expr
);
2760 edit_move_block_to_right (WEdit
* edit
)
2762 long start_mark
, end_mark
;
2763 long cur_bol
, start_bol
;
2765 if ( eval_marks (edit
, &start_mark
, &end_mark
) )
2768 start_bol
= edit_bol (edit
, start_mark
);
2769 cur_bol
= edit_bol (edit
, end_mark
- 1);
2771 edit_cursor_move (edit
, cur_bol
- edit
->curs1
);
2772 if ( option_fill_tabs_with_spaces
) {
2773 if ( option_fake_half_tabs
) {
2774 insert_spaces_tab (edit
, 1);
2776 insert_spaces_tab (edit
, 0);
2779 edit_insert (edit
, '\t');
2781 edit_cursor_move (edit
, edit_bol (edit
, cur_bol
) - edit
->curs1
);
2782 if ( cur_bol
== 0 ) {
2785 cur_bol
= edit_bol (edit
, cur_bol
- 1);
2786 } while (cur_bol
>= start_bol
) ;
2787 edit
->force
|= REDRAW_PAGE
;
2791 edit_move_block_to_left (WEdit
* edit
)
2793 long start_mark
, end_mark
;
2794 long cur_bol
, start_bol
;
2795 int i
, del_tab_width
;
2798 if ( eval_marks (edit
, &start_mark
, &end_mark
) )
2801 start_bol
= edit_bol (edit
, start_mark
);
2802 cur_bol
= edit_bol (edit
, end_mark
- 1);
2804 edit_cursor_move (edit
, cur_bol
- edit
->curs1
);
2805 if (option_fake_half_tabs
) {
2806 del_tab_width
= HALF_TAB_SIZE
;
2808 del_tab_width
= option_tab_spacing
;
2810 next_char
= edit_get_byte (edit
, edit
->curs1
);
2811 if ( next_char
== '\t' ) {
2812 edit_delete (edit
, 1);
2813 } else if ( next_char
== ' ' ) {
2814 for (i
= 1; i
<= del_tab_width
; i
++) {
2815 if ( next_char
== ' ' ) {
2816 edit_delete (edit
, 1);
2818 next_char
= edit_get_byte (edit
, edit
->curs1
);
2821 if ( cur_bol
== 0 ) {
2824 cur_bol
= edit_bol (edit
, cur_bol
- 1);
2825 } while (cur_bol
>= start_bol
) ;
2826 edit
->force
|= REDRAW_PAGE
;