/************************************************************************** * text.c -- This file is part of GNU nano. * * * * Copyright (C) 1999-2011, 2013-2018 Free Software Foundation, Inc. * * Copyright (C) 2014-2015 Mark Majeres * * Copyright (C) 2016 Mike Scalora * * Copyright (C) 2016 Sumedh Pendurkar * * Copyright (C) 2015-2017 Benno Schulenberg * * * * GNU nano is free software: you can redistribute it and/or modify * * it under the terms of the GNU General Public License as published * * by the Free Software Foundation, either version 3 of the License, * * or (at your option) any later version. * * * * GNU nano is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty * * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * * See the GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public License * * along with this program. If not, see http://www.gnu.org/licenses/. * * * **************************************************************************/ #include "proto.h" #include #include #include #include #include #ifndef NANO_TINY static pid_t pid = -1; /* The PID of the forked process in execute_command(), for use * with the cancel_command() signal handler. */ #endif #ifdef ENABLE_WRAPPING static bool prepend_wrap = FALSE; /* Should we prepend wrapped text to the next line? */ #endif #ifdef ENABLE_JUSTIFY static filestruct *jusbuffer = NULL; /* The buffer where we store unjustified text. */ static filestruct *jusbottom = NULL; /* A pointer to the end of the buffer with unjustified text. */ #endif #ifdef ENABLE_WORDCOMPLETION static int pletion_x = 0; /* The x position in pletion_line of the last found completion. */ static completion_word *list_of_completions; /* A linked list of the completions that have been attempted. */ #endif #ifndef NANO_TINY /* Toggle the mark. */ void do_mark(void) { if (!openfile->mark) { openfile->mark = openfile->current; openfile->mark_x = openfile->current_x; statusbar(_("Mark Set")); openfile->kind_of_mark = HARDMARK; } else { openfile->mark = NULL; statusbar(_("Mark Unset")); refresh_needed = TRUE; } } #endif /* !NANO_TINY */ #if defined(ENABLE_COLOR) || defined(ENABLE_SPELLER) /* Return an error message containing the given name. */ char *invocation_error(const char *name) { char *message, *invoke_error = _("Error invoking \"%s\""); message = charalloc(strlen(invoke_error) + strlen(name) + 1); sprintf(message, invoke_error, name); return message; } #endif /* Delete the character under the cursor. */ void do_deletion(undo_type action) { #ifndef NANO_TINY size_t old_amount = 0; #endif openfile->placewewant = xplustabs(); if (openfile->current->data[openfile->current_x] != '\0') { /* We're in the middle of a line: delete the current character. */ int char_len = parse_mbchar(openfile->current->data + openfile->current_x, NULL, NULL); size_t line_len = strlen(openfile->current->data + openfile->current_x); #ifndef NANO_TINY update_undo(action); if (ISSET(SOFTWRAP)) old_amount = number_of_chunks_in(openfile->current); #endif /* Move the remainder of the line "in", over the current character. */ charmove(&openfile->current->data[openfile->current_x], &openfile->current->data[openfile->current_x + char_len], line_len - char_len + 1); #ifndef NANO_TINY /* Adjust the mark if it is after the cursor on the current line. */ if (openfile->mark == openfile->current && openfile->mark_x > openfile->current_x) openfile->mark_x -= char_len; #endif /* Adjust the file size. */ openfile->totsize--; } else if (openfile->current != openfile->filebot) { /* We're at the end of a line and not at the end of the file: join * this line with the next. */ filestruct *joining = openfile->current->next; /* If there is a magic line, and we're before it: don't eat it. */ if (joining == openfile->filebot && openfile->current_x != 0 && !ISSET(NO_NEWLINES)) { #ifndef NANO_TINY if (action == BACK) add_undo(BACK); #endif return; } #ifndef NANO_TINY add_undo(action); #endif /* Add the contents of the next line to those of the current one. */ openfile->current->data = charealloc(openfile->current->data, strlen(openfile->current->data) + strlen(joining->data) + 1); strcat(openfile->current->data, joining->data); /* Adjust the file size. */ openfile->totsize--; #ifndef NANO_TINY /* Remember the new file size for a possible redo. */ openfile->current_undo->newsize = openfile->totsize; /* Adjust the mark if it was on the line that was "eaten". */ if (openfile->mark == joining) { openfile->mark = openfile->current; openfile->mark_x += openfile->current_x; } #endif unlink_node(joining); renumber(openfile->current); /* Two lines were joined, so we need to refresh the screen. */ refresh_needed = TRUE; } else /* We're at the end-of-file: nothing to do. */ return; #ifndef NANO_TINY /* If the number of screen rows that a softwrapped line occupies * has changed, we need a full refresh. */ if (ISSET(SOFTWRAP) && refresh_needed == FALSE && number_of_chunks_in(openfile->current) != old_amount) refresh_needed = TRUE; #endif set_modified(); } /* Delete the character under the cursor. */ void do_delete(void) { do_deletion(DEL); } /* Backspace over one character. That is, move the cursor left one * character, and then delete the character under the cursor. */ void do_backspace(void) { if (openfile->current != openfile->fileage || openfile->current_x > 0) { do_left(); do_deletion(BACK); } } #ifndef NANO_TINY /* Delete text from the cursor until the first start of a word to * the right, or to the left when backward is true. */ void do_cutword(bool backward) { /* Remember the current cursor position. */ filestruct *is_current = openfile->current; size_t is_current_x = openfile->current_x; /* Remember where the cutbuffer is and then make it seem blank. */ filestruct *is_cutbuffer = cutbuffer; filestruct *is_cutbottom = cutbottom; cutbuffer = NULL; cutbottom = NULL; /* Move the cursor to a word start, to the left or to the right. */ if (backward) do_prev_word(ISSET(WORD_BOUNDS), FALSE); else do_next_word(FALSE, ISSET(WORD_BOUNDS), FALSE); /* Set the mark at the start of that word. */ openfile->mark = openfile->current; openfile->mark_x = openfile->current_x; /* Put the cursor back where it was, so an undo will put it there too. */ openfile->current = is_current; openfile->current_x = is_current_x; /* Now kill the marked region and a word is gone. */ do_cut_text_void(); /* Discard the cut word and restore the cutbuffer. */ free_filestruct(cutbuffer); cutbuffer = is_cutbuffer; cutbottom = is_cutbottom; } /* Delete a word leftward. */ void do_cut_prev_word(void) { do_cutword(TRUE); } /* Delete a word rightward. */ void do_cut_next_word(void) { do_cutword(FALSE); } #endif /* !NANO_TINY */ /* Insert a tab. If the TABS_TO_SPACES flag is set, insert the number * of spaces that a tab would normally take up. */ void do_tab(void) { #ifndef NANO_TINY if (ISSET(TABS_TO_SPACES)) { char *spaces = charalloc(tabsize + 1); size_t length = tabsize - (xplustabs() % tabsize); charset(spaces, ' ', length); spaces[length] = '\0'; do_output(spaces, length, TRUE); free(spaces); } else #endif do_output((char *)"\t", 1, TRUE); } #ifndef NANO_TINY /* Add an indent to the given line. */ void indent_a_line(filestruct *line, char *indentation) { size_t length = strlen(line->data); size_t indent_len = strlen(indentation); /* If the indent is empty, don't change the line. */ if (indent_len == 0) return; /* Add the fabricated indentation to the beginning of the line. */ line->data = charealloc(line->data, length + indent_len + 1); charmove(line->data + indent_len, line->data, length + 1); strncpy(line->data, indentation, indent_len); openfile->totsize += indent_len; /* Compensate for the change in the current line. */ if (line == openfile->mark && openfile->mark_x > 0) openfile->mark_x += indent_len; if (line == openfile->current && openfile->current_x > 0) { openfile->current_x += indent_len; openfile->placewewant = xplustabs(); } } /* Indent the current line (or the marked lines) by tabsize columns. * This inserts either a tab character or a tab's worth of spaces, * depending on whether --tabstospaces is in effect. */ void do_indent(void) { char *indentation; filestruct *top, *bot, *line; /* Use either all the marked lines or just the current line. */ get_range((const filestruct **)&top, (const filestruct **)&bot); /* Skip any leading empty lines. */ while (top != bot->next && top->data[0] == '\0') top = top->next; /* If all lines are empty, there is nothing to do. */ if (top == bot->next) return; indentation = charalloc(tabsize + 1); /* Set the indentation to either a bunch of spaces or a single tab. */ if (ISSET(TABS_TO_SPACES)) { charset(indentation, ' ', tabsize); indentation[tabsize] = '\0'; } else { indentation[0] = '\t'; indentation[1] = '\0'; } add_undo(INDENT); /* Go through each of the lines, adding an indent to the non-empty ones, * and recording whatever was added in the undo item. */ for (line = top; line != bot->next; line = line->next) { char *real_indent = (line->data[0] == '\0') ? "" : indentation; indent_a_line(line, real_indent); update_multiline_undo(line->lineno, real_indent); } free(indentation); set_modified(); refresh_needed = TRUE; shift_held = TRUE; } /* Return the number of bytes of whitespace at the start of the given text, * but at most a tab's worth. */ size_t length_of_white(const char *text) { size_t bytes_of_white = 0; while (TRUE) { if (*text == '\t') return ++bytes_of_white; if (*text != ' ') return bytes_of_white; if (++bytes_of_white == tabsize) return tabsize; text++; } } /* Adjust the positions of mark and cursor when they are on the given line. */ void compensate_leftward(filestruct *line, size_t leftshift) { if (line == openfile->mark) { if (openfile->mark_x < leftshift) openfile->mark_x = 0; else openfile->mark_x -= leftshift; } if (line == openfile->current) { if (openfile->current_x < leftshift) openfile->current_x = 0; else openfile->current_x -= leftshift; openfile->placewewant = xplustabs(); } } /* Remove an indent from the given line. */ void unindent_a_line(filestruct *line, size_t indent_len) { size_t length = strlen(line->data); /* If the indent is empty, don't change the line. */ if (indent_len == 0) return; /* Remove the first tab's worth of whitespace from this line. */ charmove(line->data, line->data + indent_len, length - indent_len + 1); openfile->totsize -= indent_len; /* Adjust the positions of mark and cursor, when they are affected. */ compensate_leftward(line, indent_len); } /* Unindent the current line (or the marked lines) by tabsize columns. * The removed indent can be a mixture of spaces plus at most one tab. */ void do_unindent(void) { filestruct *top, *bot, *line; /* Use either all the marked lines or just the current line. */ get_range((const filestruct **)&top, (const filestruct **)&bot); /* Skip any leading lines that cannot be unindented. */ while (top != bot->next && length_of_white(top->data) == 0) top = top->next; /* If none of the lines can be unindented, there is nothing to do. */ if (top == bot->next) return; add_undo(UNINDENT); /* Go through each of the lines, removing their leading indent where * possible, and saving the removed whitespace in the undo item. */ for (line = top; line != bot->next; line = line->next) { size_t indent_len = length_of_white(line->data); char *indentation = mallocstrncpy(NULL, line->data, indent_len + 1); indentation[indent_len] = '\0'; unindent_a_line(line, indent_len); update_multiline_undo(line->lineno, indentation); free(indentation); } set_modified(); refresh_needed = TRUE; shift_held = TRUE; } /* Perform an undo or redo for an indent or unindent action. */ void handle_indent_action(undo *u, bool undoing, bool add_indent) { undo_group *group = u->grouping; filestruct *line = fsfromline(group->top_line); if (group->next != NULL) statusline(ALERT, "Multiple groups -- please report a bug"); /* When redoing, reposition the cursor and let the indenter adjust it. */ if (!undoing) goto_line_posx(u->lineno, u->begin); /* For each line in the group, add or remove the individual indent. */ while (line && line->lineno <= group->bottom_line) { char *blanks = group->indentations[line->lineno - group->top_line]; if (undoing ^ add_indent) indent_a_line(line, blanks); else unindent_a_line(line, strlen(blanks)); line = line->next; } /* When undoing, reposition the cursor to the recorded location. */ if (undoing) goto_line_posx(u->lineno, u->begin); refresh_needed = TRUE; } #endif /* !NANO_TINY */ /* Test whether the string is empty or consists of only blanks. */ bool white_string(const char *s) { while (*s != '\0' && (is_blank_mbchar(s) || *s == '\r')) s += move_mbright(s, 0); return !*s; } #ifdef ENABLE_COMMENT /* Test whether the given line can be uncommented, or add or remove a comment, * depending on action. Return TRUE if the line is uncommentable, or when * anything was added or removed; FALSE otherwise. */ bool comment_line(undo_type action, filestruct *line, const char *comment_seq) { size_t comment_seq_len = strlen(comment_seq); const char *post_seq = strchr(comment_seq, '|'); /* The postfix, if this is a bracketing type comment sequence. */ size_t pre_len = post_seq ? post_seq++ - comment_seq : comment_seq_len; /* Length of prefix. */ size_t post_len = post_seq ? comment_seq_len - pre_len - 1 : 0; /* Length of postfix. */ size_t line_len = strlen(line->data); if (!ISSET(NO_NEWLINES) && line == openfile->filebot) return FALSE; if (action == COMMENT) { /* Make room for the comment sequence(s), move the text right and * copy them in. */ line->data = charealloc(line->data, line_len + pre_len + post_len + 1); charmove(line->data + pre_len, line->data, line_len + 1); charmove(line->data, comment_seq, pre_len); if (post_len > 0) charmove(line->data + pre_len + line_len, post_seq, post_len + 1); openfile->totsize += pre_len + post_len; /* If needed, adjust the position of the mark and of the cursor. */ if (line == openfile->mark && openfile->mark_x > 0) openfile->mark_x += pre_len; if (line == openfile->current && openfile->current_x > 0) { openfile->current_x += pre_len; openfile->placewewant = xplustabs(); } return TRUE; } /* If the line is commented, report it as uncommentable, or uncomment it. */ if (strncmp(line->data, comment_seq, pre_len) == 0 && (post_len == 0 || strcmp(line->data + line_len - post_len, post_seq) == 0)) { if (action == PREFLIGHT) return TRUE; /* Erase the comment prefix by moving the non-comment part. */ charmove(line->data, line->data + pre_len, line_len - pre_len); /* Truncate the postfix if there was one. */ line->data[line_len - pre_len - post_len] = '\0'; openfile->totsize -= pre_len + post_len; /* Adjust the positions of mark and cursor, when needed. */ compensate_leftward(line, pre_len); return TRUE; } return FALSE; } /* Comment or uncomment the current line or the marked lines. */ void do_comment(void) { const char *comment_seq = GENERAL_COMMENT_CHARACTER; undo_type action = UNCOMMENT; filestruct *top, *bot, *line; bool empty, all_empty = TRUE; #ifdef ENABLE_COLOR if (openfile->syntax) comment_seq = openfile->syntax->comment; if (*comment_seq == '\0') { statusbar(_("Commenting is not supported for this file type")); return; } #endif /* Determine which lines to work on. */ get_range((const filestruct **)&top, (const filestruct **)&bot); /* If only the magic line is selected, don't do anything. */ if (top == bot && bot == openfile->filebot && !ISSET(NO_NEWLINES)) { statusbar(_("Cannot comment past end of file")); return; } /* Figure out whether to comment or uncomment the selected line or lines. */ for (line = top; line != bot->next; line = line->next) { empty = white_string(line->data); /* If this line is not blank and not commented, we comment all. */ if (!empty && !comment_line(PREFLIGHT, line, comment_seq)) { action = COMMENT; break; } all_empty = all_empty && empty; } /* If all selected lines are blank, we comment them. */ action = all_empty ? COMMENT : action; add_undo(action); /* Store the comment sequence used for the operation, because it could * change when the file name changes; we need to know what it was. */ openfile->current_undo->strdata = mallocstrcpy(NULL, comment_seq); /* Comment/uncomment each of the selected lines when possible, and * store undo data when a line changed. */ for (line = top; line != bot->next; line = line->next) { if (comment_line(action, line, comment_seq)) update_multiline_undo(line->lineno, ""); } set_modified(); refresh_needed = TRUE; shift_held = TRUE; } /* Perform an undo or redo for a comment or uncomment action. */ void handle_comment_action(undo *u, bool undoing, bool add_comment) { undo_group *group = u->grouping; /* When redoing, reposition the cursor and let the commenter adjust it. */ if (!undoing) goto_line_posx(u->lineno, u->begin); while (group) { filestruct *f = fsfromline(group->top_line); while (f && f->lineno <= group->bottom_line) { comment_line(undoing ^ add_comment ? COMMENT : UNCOMMENT, f, u->strdata); f = f->next; } group = group->next; } /* When undoing, reposition the cursor to the recorded location. */ if (undoing) goto_line_posx(u->lineno, u->begin); refresh_needed = TRUE; } #endif /* ENABLE_COMMENT */ #ifndef NANO_TINY #define redo_paste undo_cut #define undo_paste redo_cut /* Undo a cut, or redo an uncut. */ void undo_cut(undo *u) { /* If we cut the magicline, we may as well not crash. :/ */ if (!u->cutbuffer) return; /* Get to where we need to uncut from. */ if (u->xflags == WAS_WHOLE_LINE) goto_line_posx(u->mark_begin_lineno, 0); else goto_line_posx(u->mark_begin_lineno, u->mark_begin_x); copy_from_buffer(u->cutbuffer); if (u->xflags != WAS_MARKED_FORWARD && u->type != PASTE) goto_line_posx(u->mark_begin_lineno, u->mark_begin_x); } /* Redo a cut, or undo an uncut. */ void redo_cut(undo *u) { filestruct *oldcutbuffer = cutbuffer, *oldcutbottom = cutbottom; /* If we cut the magicline, we may as well not crash. :/ */ if (!u->cutbuffer) return; cutbuffer = NULL; cutbottom = NULL; goto_line_posx(u->lineno, u->begin); openfile->mark = fsfromline(u->mark_begin_lineno); openfile->mark_x = (u->xflags == WAS_WHOLE_LINE) ? 0 : u->mark_begin_x; do_cut_text(FALSE, FALSE); free_filestruct(cutbuffer); cutbuffer = oldcutbuffer; cutbottom = oldcutbottom; } /* Undo the last thing(s) we did. */ void do_undo(void) { undo *u = openfile->current_undo; filestruct *f = NULL, *t = NULL; filestruct *oldcutbuffer, *oldcutbottom; char *data, *undidmsg = NULL; size_t from_x, to_x; if (!u) { statusbar(_("Nothing in undo buffer!")); return; } if (u->type <= REPLACE) { f = fsfromline(u->mark_begin_lineno); if (f == NULL) return; } #ifdef DEBUG fprintf(stderr, " >> Undoing a type %d...\n", u->type); #endif openfile->current_x = u->begin; switch (u->type) { case ADD: /* TRANSLATORS: The next thirteen strings describe actions * that are undone or redone. They are all nouns, not verbs. */ undidmsg = _("text add"); if (u->xflags == WAS_FINAL_LINE && !ISSET(NO_NEWLINES)) remove_magicline(); data = charalloc(strlen(f->data) - strlen(u->strdata) + 1); strncpy(data, f->data, u->begin); strcpy(&data[u->begin], &f->data[u->begin + strlen(u->strdata)]); free(f->data); f->data = data; goto_line_posx(u->lineno, u->begin); break; case ENTER: if (f->next == NULL) { statusline(ALERT, "Missing break line -- please report a bug"); break; } undidmsg = _("line break"); from_x = (u->begin == 0) ? 0 : u->mark_begin_x; to_x = (u->begin == 0) ? u->mark_begin_x : u->begin; f->data = charealloc(f->data, strlen(f->data) + strlen(&u->strdata[from_x]) + 1); strcat(f->data, &u->strdata[from_x]); unlink_node(f->next); renumber(f); goto_line_posx(u->lineno, to_x); break; case BACK: case DEL: undidmsg = _("text delete"); data = charalloc(strlen(f->data) + strlen(u->strdata) + 1); strncpy(data, f->data, u->begin); strcpy(&data[u->begin], u->strdata); strcpy(&data[u->begin + strlen(u->strdata)], &f->data[u->begin]); free(f->data); f->data = data; goto_line_posx(u->mark_begin_lineno, u->mark_begin_x); break; case JOIN: undidmsg = _("line join"); /* When the join was done by a Backspace at the tail of the file, * and the nonewlines flag isn't set, do not re-add a newline that * wasn't actually deleted; just position the cursor. */ if (u->xflags == WAS_FINAL_BACKSPACE && !ISSET(NO_NEWLINES)) { goto_line_posx(openfile->filebot->lineno, 0); break; } t = make_new_node(f); t->data = mallocstrcpy(NULL, u->strdata); data = mallocstrncpy(NULL, f->data, u->mark_begin_x + 1); data[u->mark_begin_x] = '\0'; free(f->data); f->data = data; splice_node(f, t); renumber(t); goto_line_posx(u->lineno, u->begin); break; case REPLACE: undidmsg = _("text replace"); goto_line_posx(u->lineno, u->begin); data = u->strdata; u->strdata = f->data; f->data = data; break; #ifdef ENABLE_WRAPPING case SPLIT_END: goto_line_posx(u->lineno, u->begin); openfile->current_undo = openfile->current_undo->next; openfile->last_action = OTHER; while (openfile->current_undo->type != SPLIT_BEGIN) do_undo(); u = openfile->current_undo; case SPLIT_BEGIN: undidmsg = _("text add"); break; #endif case CUT_TO_EOF: case CUT: undidmsg = _("text cut"); undo_cut(u); break; case PASTE: undidmsg = _("text uncut"); undo_paste(u); break; case INSERT: undidmsg = _("text insert"); oldcutbuffer = cutbuffer; oldcutbottom = cutbottom; cutbuffer = NULL; cutbottom = NULL; openfile->mark = fsfromline(u->mark_begin_lineno); openfile->mark_x = u->mark_begin_x; goto_line_posx(u->lineno, u->begin); cut_marked(NULL); free_filestruct(u->cutbuffer); u->cutbuffer = cutbuffer; u->cutbottom = cutbottom; cutbuffer = oldcutbuffer; cutbottom = oldcutbottom; break; case COUPLE_BEGIN: undidmsg = _("filtering"); break; case COUPLE_END: openfile->current_undo = openfile->current_undo->next; do_undo(); do_undo(); do_undo(); return; case INDENT: handle_indent_action(u, TRUE, TRUE); undidmsg = _("indent"); break; case UNINDENT: handle_indent_action(u, TRUE, FALSE); undidmsg = _("unindent"); break; #ifdef ENABLE_COMMENT case COMMENT: handle_comment_action(u, TRUE, TRUE); undidmsg = _("comment"); break; case UNCOMMENT: handle_comment_action(u, TRUE, FALSE); undidmsg = _("uncomment"); break; #endif default: statusline(ALERT, "Wrong undo type -- please report a bug"); break; } if (undidmsg && !pletion_line) statusline(HUSH, _("Undid action (%s)"), undidmsg); openfile->current_undo = openfile->current_undo->next; openfile->last_action = OTHER; openfile->mark = NULL; openfile->placewewant = xplustabs(); openfile->totsize = u->wassize; /* When at the point where the file was last saved, unset "Modified". */ if (openfile->current_undo == openfile->last_saved) { openfile->modified = FALSE; titlebar(NULL); } else set_modified(); } /* Redo the last thing(s) we undid. */ void do_redo(void) { filestruct *f = NULL, *shoveline; char *data, *redidmsg = NULL; undo *u = openfile->undotop; if (u == NULL || u == openfile->current_undo) { statusbar(_("Nothing to re-do!")); return; } /* Get the previous undo item. */ while (u != NULL && u->next != openfile->current_undo) u = u->next; if (u->next != openfile->current_undo) { statusline(ALERT, "Bad undo stack -- please report a bug"); return; } if (u->type <= REPLACE) { f = fsfromline(u->mark_begin_lineno); if (f == NULL) return; } #ifdef DEBUG fprintf(stderr, " >> Redoing a type %d...\n", u->type); #endif switch (u->type) { case ADD: redidmsg = _("text add"); if (u->xflags == WAS_FINAL_LINE && !ISSET(NO_NEWLINES)) new_magicline(); data = charalloc(strlen(f->data) + strlen(u->strdata) + 1); strncpy(data, f->data, u->begin); strcpy(&data[u->begin], u->strdata); strcpy(&data[u->begin + strlen(u->strdata)], &f->data[u->begin]); free(f->data); f->data = data; goto_line_posx(u->mark_begin_lineno, u->mark_begin_x); break; case ENTER: redidmsg = _("line break"); shoveline = make_new_node(f); shoveline->data = mallocstrcpy(NULL, u->strdata); data = mallocstrncpy(NULL, f->data, u->begin + 1); data[u->begin] = '\0'; free(f->data); f->data = data; splice_node(f, shoveline); renumber(shoveline); goto_line_posx(u->lineno + 1, u->mark_begin_x); break; case BACK: case DEL: redidmsg = _("text delete"); data = charalloc(strlen(f->data) + strlen(u->strdata) + 1); strncpy(data, f->data, u->begin); strcpy(&data[u->begin], &f->data[u->begin + strlen(u->strdata)]); free(f->data); f->data = data; goto_line_posx(u->lineno, u->begin); break; case JOIN: if (f->next == NULL) { statusline(ALERT, "Missing join line -- please report a bug"); break; } redidmsg = _("line join"); /* When the join was done by a Backspace at the tail of the file, * and the nonewlines flag isn't set, do not join anything, as * nothing was actually deleted; just position the cursor. */ if (u->xflags == WAS_FINAL_BACKSPACE && !ISSET(NO_NEWLINES)) { goto_line_posx(u->mark_begin_lineno, u->mark_begin_x); break; } f->data = charealloc(f->data, strlen(f->data) + strlen(u->strdata) + 1); strcat(f->data, u->strdata); unlink_node(f->next); renumber(f); goto_line_posx(u->mark_begin_lineno, u->mark_begin_x); break; case REPLACE: redidmsg = _("text replace"); data = u->strdata; u->strdata = f->data; f->data = data; goto_line_posx(u->lineno, u->begin); break; #ifdef ENABLE_WRAPPING case SPLIT_BEGIN: goto_line_posx(u->lineno, u->begin); openfile->current_undo = u; openfile->last_action = OTHER; while (openfile->current_undo->type != SPLIT_END) do_redo(); u = openfile->current_undo; goto_line_posx(u->lineno, u->begin); case SPLIT_END: redidmsg = _("text add"); break; #endif case CUT_TO_EOF: case CUT: redidmsg = _("text cut"); redo_cut(u); break; case PASTE: redidmsg = _("text uncut"); redo_paste(u); break; case INSERT: redidmsg = _("text insert"); goto_line_posx(u->lineno, u->begin); copy_from_buffer(u->cutbuffer); free_filestruct(u->cutbuffer); u->cutbuffer = NULL; break; case COUPLE_BEGIN: openfile->current_undo = u; do_redo(); do_redo(); do_redo(); return; case COUPLE_END: redidmsg = _("filtering"); break; case INDENT: handle_indent_action(u, FALSE, TRUE); redidmsg = _("indent"); break; case UNINDENT: handle_indent_action(u, FALSE, FALSE); redidmsg = _("unindent"); break; #ifdef ENABLE_COMMENT case COMMENT: handle_comment_action(u, FALSE, TRUE); redidmsg = _("comment"); break; case UNCOMMENT: handle_comment_action(u, FALSE, FALSE); redidmsg = _("uncomment"); break; #endif default: statusline(ALERT, "Wrong redo type -- please report a bug"); break; } if (redidmsg) statusline(HUSH, _("Redid action (%s)"), redidmsg); openfile->current_undo = u; openfile->last_action = OTHER; openfile->mark = NULL; openfile->placewewant = xplustabs(); openfile->totsize = u->newsize; /* When at the point where the file was last saved, unset "Modified". */ if (openfile->current_undo == openfile->last_saved) { openfile->modified = FALSE; titlebar(NULL); } else set_modified(); } #endif /* !NANO_TINY */ /* Break the current line at the cursor position. */ void do_enter(void) { filestruct *newnode = make_new_node(openfile->current); size_t extra = 0; #ifndef NANO_TINY filestruct *sampleline = openfile->current; bool allblanks = FALSE; if (ISSET(AUTOINDENT)) { #ifdef ENABLE_JUSTIFY /* If the next line is in this same paragraph, use its indentation * as the model, as it is more likely to be what the user wants. */ if (!ISSET(NO_WRAP) && sampleline->next != NULL && inpar(sampleline->next) && !begpar(sampleline->next, 0)) sampleline = sampleline->next; #endif extra = indent_length(sampleline->data); /* If we are breaking the line in the indentation, limit the new * indentation to the current x position. */ if (extra > openfile->current_x) extra = openfile->current_x; else if (extra == openfile->current_x) allblanks = TRUE; } #endif /* NANO_TINY */ newnode->data = charalloc(strlen(openfile->current->data + openfile->current_x) + extra + 1); strcpy(&newnode->data[extra], openfile->current->data + openfile->current_x); #ifndef NANO_TINY if (ISSET(AUTOINDENT)) { /* Copy the whitespace from the sample line to the new one. */ strncpy(newnode->data, sampleline->data, extra); /* If there were only blanks before the cursor, trim them. */ if (allblanks) openfile->current_x = 0; else openfile->totsize += extra; } #endif null_at(&openfile->current->data, openfile->current_x); #ifndef NANO_TINY add_undo(ENTER); /* Adjust the mark if it was on the current line after the cursor. */ if (openfile->mark == openfile->current && openfile->mark_x > openfile->current_x) { openfile->mark = newnode; openfile->mark_x += extra - openfile->current_x; } #endif splice_node(openfile->current, newnode); renumber(newnode); openfile->current = newnode; openfile->current_x = extra; openfile->placewewant = xplustabs(); openfile->totsize++; set_modified(); #ifndef NANO_TINY update_undo(ENTER); #endif refresh_needed = TRUE; focusing = FALSE; } #ifndef NANO_TINY /* Send a SIGKILL (unconditional kill) to the forked process in * execute_command(). */ RETSIGTYPE cancel_command(int signal) { if (kill(pid, SIGKILL) == -1) nperror("kill"); } /* Send the text that starts at the given line to file descriptor fd. */ void send_data(const filestruct *line, int fd) { FILE *tube = fdopen(fd, "w"); if (tube == NULL) return; /* Send each line, except a final empty line. */ while (line != NULL && (line->next != NULL || line->data[0] != '\0')) { fprintf(tube, "%s%s", line->data, line->next == NULL ? "" : "\n"); line = line->next; } fclose(tube); } /* Execute command in a shell. Return TRUE on success. */ bool execute_command(const char *command) { int from_fd[2], to_fd[2]; /* The pipes through which text will written and read. */ const bool should_pipe = (command[0] == '|'); FILE *stream; const char *shellenv; struct sigaction oldaction, newaction; /* Original and temporary handlers for SIGINT. */ bool setup_failed = FALSE; /* Whether setting up the temporary SIGINT handler failed. */ /* Create a pipe to read the command's output from, and, if needed, * a pipe to feed the command's input through. */ if (pipe(from_fd) == -1 || (should_pipe && pipe(to_fd) == -1)) { statusbar(_("Could not create pipe")); return FALSE; } /* Check which shell to use. If none is specified, use /bin/sh. */ shellenv = getenv("SHELL"); if (shellenv == NULL) shellenv = (char *) "/bin/sh"; /* Fork a child process to run the command in. */ if ((pid = fork()) == 0) { /* Child: close the unused read end of the output pipe. */ close(from_fd[0]); /* Connect the write end of the output pipe to the process' output streams. */ dup2(from_fd[1], fileno(stdout)); dup2(from_fd[1], fileno(stderr)); /* If the parent sends text, connect the read end of the * feeding pipe to the child's input stream. */ if (should_pipe) { dup2(to_fd[0], fileno(stdin)); close(to_fd[1]); } /* Run the given command inside the preferred shell. */ execl(shellenv, tail(shellenv), "-c", should_pipe ? &command[1] : command, NULL); /* If the exec call returns, there was an error. */ exit(1); } /* Parent: close the unused write end of the pipe. */ close(from_fd[1]); if (pid == -1) { statusbar(_("Could not fork")); close(from_fd[0]); return FALSE; } /* If the command starts with "|", pipe buffer or region to the command. */ if (should_pipe) { filestruct *was_cutbuffer = cutbuffer; cutbuffer = NULL; #ifdef ENABLE_MULTIBUFFER if (ISSET(MULTIBUFFER)) { switch_to_prev_buffer(); if (openfile->mark) do_cut_text(TRUE, FALSE); } else #endif { add_undo(COUPLE_BEGIN); if (openfile->mark == NULL) { openfile->current = openfile->fileage; openfile->current_x = 0; } add_undo(CUT); do_cut_text(FALSE, openfile->mark == NULL); update_undo(CUT); } if (fork() == 0) { close(to_fd[0]); send_data(cutbuffer != NULL ? cutbuffer : openfile->fileage, to_fd[1]); close(to_fd[1]); exit(0); } close(to_fd[0]); close(to_fd[1]); #ifdef ENABLE_MULTIBUFFER if (ISSET(MULTIBUFFER)) switch_to_next_buffer(); #endif free_filestruct(cutbuffer); cutbuffer = was_cutbuffer; } /* Re-enable interpretation of the special control keys so that we get * SIGINT when Ctrl-C is pressed. */ enable_signals(); /* Set things up so that Ctrl-C will terminate the forked process. */ if (sigaction(SIGINT, NULL, &newaction) == -1) { setup_failed = TRUE; nperror("sigaction"); } else { newaction.sa_handler = cancel_command; if (sigaction(SIGINT, &newaction, &oldaction) == -1) { setup_failed = TRUE; nperror("sigaction"); } } stream = fdopen(from_fd[0], "rb"); if (stream == NULL) statusline(ALERT, _("Failed to open pipe: %s"), strerror(errno)); else read_file(stream, 0, "pipe", TRUE); if (should_pipe && !ISSET(MULTIBUFFER)) add_undo(COUPLE_END); if (wait(NULL) == -1) nperror("wait"); /* If it was changed, restore the handler for SIGINT. */ if (!setup_failed && sigaction(SIGINT, &oldaction, NULL) == -1) nperror("sigaction"); /* Restore the terminal to its desired state, and disable * interpretation of the special control keys again. */ terminal_init(); return TRUE; } /* Discard undo items that are newer than the given one, or all if NULL. * When keep is TRUE, do not touch the last_saved pointer. */ void discard_until(const undo *thisitem, openfilestruct *thefile, bool keep) { undo *dropit = thefile->undotop; undo_group *group; while (dropit != NULL && dropit != thisitem) { thefile->undotop = dropit->next; free(dropit->strdata); free_filestruct(dropit->cutbuffer); group = dropit->grouping; while (group != NULL) { undo_group *next = group->next; free_chararray(group->indentations, group->bottom_line - group->top_line); free(group); group = next; } free(dropit); dropit = thefile->undotop; } /* Adjust the pointer to the top of the undo stack. */ thefile->current_undo = (undo *)thisitem; /* Prevent a chain of editing actions from continuing. */ thefile->last_action = OTHER; /* When requested, record that the undo stack was chopped, and * that thus there is no point at which the file was last saved. */ if (!keep) thefile->last_saved = (undo *)0xbeeb; } /* Add a new undo struct to the top of the current pile. */ void add_undo(undo_type action) { undo *u = openfile->current_undo; /* The thing we did previously. */ /* When doing contiguous adds or contiguous cuts -- which means: with * no cursor movement in between -- don't add a new undo item. */ if (u && u->mark_begin_lineno == openfile->current->lineno && action == openfile->last_action && ((action == ADD && u->type == ADD && u->mark_begin_x == openfile->current_x) || (action == CUT && u->type == CUT && u->xflags < MARK_WAS_SET && keeping_cutbuffer()))) return; /* Blow away newer undo items if we add somewhere in the middle. */ discard_until(u, openfile, TRUE); #ifdef DEBUG fprintf(stderr, " >> Adding an undo... action = %d\n", action); #endif /* Allocate and initialize a new undo type. */ u = (undo *) nmalloc(sizeof(undo)); u->type = action; #ifdef ENABLE_WRAPPING if (u->type == SPLIT_BEGIN) { /* Some action, most likely an ADD, was performed that invoked * do_wrap(). Rearrange the undo order so that this previous * action is after the SPLIT_BEGIN undo. */ u->next = openfile->undotop->next; openfile->undotop->next = u; } else #endif { u->next = openfile->undotop; openfile->undotop = u; openfile->current_undo = u; } u->strdata = NULL; u->cutbuffer = NULL; u->cutbottom = NULL; u->lineno = openfile->current->lineno; u->begin = openfile->current_x; u->mark_begin_lineno = openfile->current->lineno; u->mark_begin_x = openfile->current_x; u->wassize = openfile->totsize; u->xflags = 0; u->grouping = NULL; switch (u->type) { /* We need to start copying data into the undo buffer * or we won't be able to restore it later. */ case ADD: /* If a new magic line will be added, an undo should remove it. */ if (openfile->current == openfile->filebot) u->xflags = WAS_FINAL_LINE; u->wassize--; break; case ENTER: break; case BACK: /* If the next line is the magic line, don't ever undo this * backspace, as it won't actually have deleted anything. */ if (openfile->current->next == openfile->filebot && openfile->current->data[0] != '\0') u->xflags = WAS_FINAL_BACKSPACE; case DEL: if (openfile->current->data[openfile->current_x] != '\0') { char *char_buf = charalloc(MAXCHARLEN + 1); int char_len = parse_mbchar(&openfile->current->data[u->begin], char_buf, NULL); char_buf[char_len] = '\0'; u->strdata = char_buf; if (u->type == BACK) u->mark_begin_x += char_len; break; } /* Else purposely fall into the line-joining code. */ case JOIN: if (openfile->current->next) { if (u->type == BACK) { u->lineno = openfile->current->next->lineno; u->begin = 0; } u->strdata = mallocstrcpy(NULL, openfile->current->next->data); } action = u->type = JOIN; break; case REPLACE: u->strdata = mallocstrcpy(NULL, openfile->current->data); break; #ifdef ENABLE_WRAPPING case SPLIT_BEGIN: action = openfile->undotop->type; break; case SPLIT_END: break; #endif case CUT_TO_EOF: cutbuffer_reset(); break; case CUT: cutbuffer_reset(); if (openfile->mark) { u->mark_begin_lineno = openfile->mark->lineno; u->mark_begin_x = openfile->mark_x; u->xflags = MARK_WAS_SET; } else if (!ISSET(CUT_FROM_CURSOR)) { /* The entire line is being cut regardless of the cursor position. */ u->begin = 0; u->xflags = WAS_WHOLE_LINE; } break; case PASTE: u->cutbuffer = copy_filestruct(cutbuffer); u->lineno += cutbottom->lineno - cutbuffer->lineno; break; case INSERT: case COUPLE_BEGIN: case COUPLE_END: break; case INDENT: case UNINDENT: break; #ifdef ENABLE_COMMENT case COMMENT: case UNCOMMENT: break; #endif default: statusline(ALERT, "Wrong undo adding type -- please report a bug"); break; } openfile->last_action = action; } /* Update a multiline undo item. This should be called once for each line * affected by a multiple-line-altering feature. The indentation that is * added or removed is saved separately for each line in the undo item. */ void update_multiline_undo(ssize_t lineno, char *indentation) { undo *u = openfile->current_undo; /* If there already is a group and the current line is contiguous with it, * extend the group; otherwise, create a new group. */ if (u->grouping && u->grouping->bottom_line + 1 == lineno) { size_t number_of_lines; u->grouping->bottom_line++; number_of_lines = u->grouping->bottom_line - u->grouping->top_line + 1; u->grouping->indentations = (char **)nrealloc(u->grouping->indentations, number_of_lines * sizeof(char *)); u->grouping->indentations[number_of_lines - 1] = mallocstrcpy(NULL, indentation); } else { undo_group *born = (undo_group *)nmalloc(sizeof(undo_group)); born->next = u->grouping; u->grouping = born; born->top_line = lineno; born->bottom_line = lineno; u->grouping->indentations = (char **)nmalloc(sizeof(char *)); u->grouping->indentations[0] = mallocstrcpy(NULL, indentation); } /* Store the file size after the change, to be used when redoing. */ u->newsize = openfile->totsize; } /* Update an undo record, after checking that a new one is not needed. */ void update_undo(undo_type action) { undo *u = openfile->undotop; char *char_buf; int char_len; #ifdef DEBUG fprintf(stderr, " >> Updating an undo... action = %d\n", action); #endif /* If the action is different or the position changed, don't update the * current record but add a new one instead. */ if (action != openfile->last_action || (action != ENTER && action != CUT && action != INSERT && openfile->current->lineno != openfile->current_undo->lineno)) { add_undo(action); return; } u->newsize = openfile->totsize; switch (u->type) { case ADD: char_buf = charalloc(MAXCHARLEN); char_len = parse_mbchar(&openfile->current->data[u->mark_begin_x], char_buf, NULL); u->strdata = addstrings(u->strdata, u->strdata ? strlen(u->strdata) : 0, char_buf, char_len); u->mark_begin_lineno = openfile->current->lineno; u->mark_begin_x = openfile->current_x; break; case ENTER: u->strdata = mallocstrcpy(NULL, openfile->current->data); u->mark_begin_x = openfile->current_x; break; case BACK: case DEL: char_buf = charalloc(MAXCHARLEN); char_len = parse_mbchar(&openfile->current->data[openfile->current_x], char_buf, NULL); if (openfile->current_x == u->begin) { /* They deleted more: add removed character after earlier stuff. */ u->strdata = addstrings(u->strdata, strlen(u->strdata), char_buf, char_len); u->mark_begin_x = openfile->current_x; } else if (openfile->current_x == u->begin - char_len) { /* They backspaced further: add removed character before earlier. */ u->strdata = addstrings(char_buf, char_len, u->strdata, strlen(u->strdata)); u->begin = openfile->current_x; } else { /* They deleted *elsewhere* on the line: start a new undo item. */ free(char_buf); add_undo(u->type); return; } break; case JOIN: break; case REPLACE: case PASTE: u->begin = openfile->current_x; u->lineno = openfile->current->lineno; break; #ifdef ENABLE_WRAPPING case SPLIT_BEGIN: case SPLIT_END: break; #endif case CUT_TO_EOF: case CUT: if (!cutbuffer) break; free_filestruct(u->cutbuffer); u->cutbuffer = copy_filestruct(cutbuffer); if (u->xflags == MARK_WAS_SET) { /* If the "marking" operation was from right-->left or * bottom-->top, then swap the mark points. */ if ((u->lineno == u->mark_begin_lineno && u->begin < u->mark_begin_x) || u->lineno < u->mark_begin_lineno) { ssize_t line = u->lineno; size_t x_loc = u->begin; u->begin = u->mark_begin_x; u->mark_begin_x = x_loc; u->lineno = u->mark_begin_lineno; u->mark_begin_lineno = line; } else u->xflags = WAS_MARKED_FORWARD; } else { /* Compute the end of the cut for the undo, using our copy. */ u->cutbottom = u->cutbuffer; while (u->cutbottom->next != NULL) u->cutbottom = u->cutbottom->next; u->lineno = u->mark_begin_lineno + u->cutbottom->lineno - u->cutbuffer->lineno; if (ISSET(CUT_FROM_CURSOR) || u->type == CUT_TO_EOF) { u->begin = strlen(u->cutbottom->data); if (u->lineno == u->mark_begin_lineno) u->begin += u->mark_begin_x; } else if (openfile->current == openfile->filebot && ISSET(NO_NEWLINES)) u->begin = strlen(u->cutbottom->data); } break; case INSERT: u->mark_begin_lineno = openfile->current->lineno; u->mark_begin_x = openfile->current_x; case COUPLE_BEGIN: case COUPLE_END: break; default: statusline(ALERT, "Wrong undo update type -- please report a bug"); break; } } #endif /* !NANO_TINY */ #ifdef ENABLE_WRAPPING /* Unset the prepend_wrap flag. We need to do this as soon as we do * something other than type text. */ void wrap_reset(void) { prepend_wrap = FALSE; } /* Try wrapping the given line. Return TRUE if wrapped, FALSE otherwise. */ bool do_wrap(filestruct *line) { size_t line_len = strlen(line->data); /* The length of the line we wrap. */ ssize_t wrap_loc; /* The index of line->data where we wrap. */ const char *remainder; /* The text after the wrap point. */ size_t rest_length; /* The length of the remainder. */ size_t old_x = openfile->current_x; filestruct *old_line = openfile->current; /* There are three steps. First, we decide where to wrap. Then, we * create the new wrap line. Finally, we clean up. */ /* Step 1, finding where to wrap. We are going to add a new line * after a blank character. In this step, we call break_line() to * get the location of the last blank we can break the line at, and * set wrap_loc to the location of the character after it, so that * the blank is preserved at the end of the line. * * If there is no legal wrap point, or we reach the last character * of the line while trying to find one, we should return without * wrapping. Note that if autoindent is turned on, we don't break * at the end of it! */ /* Find the last blank where we can break the line. */ wrap_loc = break_line(line->data, fill, FALSE); /* If we couldn't break the line, or we've reached the end of it, we * don't wrap. */ if (wrap_loc == -1 || line->data[wrap_loc] == '\0') return FALSE; /* Otherwise, move forward to the character just after the blank. */ wrap_loc += move_mbright(line->data + wrap_loc, 0); /* If we've reached the end of the line, we don't wrap. */ if (line->data[wrap_loc] == '\0') return FALSE; #ifndef NANO_TINY /* If autoindent is turned on, and we're on the character just after * the indentation, we don't wrap. */ if (ISSET(AUTOINDENT) && wrap_loc == indent_length(line->data)) return FALSE; add_undo(SPLIT_BEGIN); #endif openfile->current = line; /* Step 2, making the new wrap line. It will consist of indentation * followed by the text after the wrap point, optionally followed by * a space (if the text after the wrap point doesn't end in a blank) * and the text of the next line, if they can fit without wrapping, * the next line exists, and the prepend_wrap flag is set. */ /* The remainder is the text that will be wrapped to the next line. */ remainder = line->data + wrap_loc; rest_length = line_len - wrap_loc; /* We prepend the wrapped text to the next line, if the prepend_wrap * flag is set, there is a next line, and prepending would not make * the line too long. */ if (prepend_wrap && line != openfile->filebot) { const char *tail = remainder + move_mbleft(remainder, rest_length); /* Go to the end of the line. */ openfile->current_x = line_len; /* If the remainder doesn't end in a blank, add a space. */ if (!is_blank_mbchar(tail)) { #ifndef NANO_TINY add_undo(ADD); #endif line->data = charealloc(line->data, line_len + 2); line->data[line_len] = ' '; line->data[line_len + 1] = '\0'; remainder = line->data + wrap_loc; rest_length++; openfile->totsize++; openfile->current_x++; #ifndef NANO_TINY update_undo(ADD); #endif } if (rest_length + strlen(line->next->data) <= fill) { /* Delete the LF to join the two lines. */ do_delete(); /* Delete any leading blanks from the joined-on line. */ while (is_blank_mbchar(&line->data[openfile->current_x])) do_delete(); } } /* Go to the wrap location. */ openfile->current_x = wrap_loc; /* When requested, snip trailing blanks off the wrapped line. */ if (ISSET(TRIM_BLANKS)) { size_t tail_x = move_mbleft(line->data, wrap_loc); size_t typed_x = move_mbleft(line->data, old_x); while (tail_x != typed_x && is_blank_mbchar(line->data + tail_x)) { openfile->current_x = tail_x; do_delete(); tail_x = move_mbleft(line->data, tail_x); } } /* Now split the line. */ do_enter(); if (old_x < wrap_loc) { openfile->current_x = old_x; openfile->current = old_line; prepend_wrap = TRUE; } else { openfile->current_x += (old_x - wrap_loc); prepend_wrap = FALSE; } openfile->placewewant = xplustabs(); #ifndef NANO_TINY add_undo(SPLIT_END); #endif return TRUE; } #endif /* ENABLE_WRAPPING */ #if defined(ENABLE_HELP) || defined(ENABLED_WRAPORJUSTIFY) /* We are trying to break a chunk off line. We find the last blank such * that the display length to there is at most (goal + 1). If there is * no such blank, then we find the first blank. We then take the last * blank in that group of blanks. The terminating '\0' counts as a * blank, as does a '\n' if snap_at_nl is TRUE. */ ssize_t break_line(const char *line, ssize_t goal, bool snap_at_nl) { ssize_t lastblank = -1; /* The index of the last blank we found. */ ssize_t index = 0; /* The index of the character we are looking at. */ size_t column = 0; /* The column position that corresponds with index. */ int char_len = 0; /* The length of the current character, in bytes. */ /* Find the last blank that does not overshoot the target column. */ while (*line != '\0' && ((ssize_t)column <= goal)) { if (is_blank_mbchar(line) || (snap_at_nl && *line == '\n')) { lastblank = index; if (*line == '\n') break; } char_len = parse_mbchar(line, NULL, &column); line += char_len; index += char_len; } /* If the whole line displays shorter than goal, we're done. */ if ((ssize_t)column <= goal) return index; #ifdef ENABLE_HELP /* If we're wrapping a help text and no blank was found, or was * found only as the first character, force a line break. */ if (snap_at_nl && lastblank < 1) return (index - char_len); #endif /* If no blank was found within the goal width, seek one after it. */ if (lastblank < 0) { while (*line != '\0') { if (is_blank_mbchar(line)) lastblank = index; else if (lastblank > 0) return lastblank; char_len = parse_mbchar(line, NULL, NULL); line += char_len; index += char_len; } return -1; } /* Move the pointer back to the last blank, and then step beyond it. */ line = line - index + lastblank; char_len = parse_mbchar(line, NULL, NULL); line += char_len; /* Skip any consecutive blanks after the last blank. */ while (*line != '\0' && is_blank_mbchar(line)) { lastblank += char_len; char_len = parse_mbchar(line, NULL, NULL); line += char_len; } return lastblank; } #endif /* ENABLE_HELP || ENABLED_WRAPORJUSTIFY */ #if !defined(NANO_TINY) || defined(ENABLE_JUSTIFY) /* The "indentation" of a line is the whitespace between the quote part * and the non-whitespace of the line. */ size_t indent_length(const char *line) { size_t len = 0; char onechar[MAXCHARLEN]; int charlen; while (*line != '\0') { charlen = parse_mbchar(line, onechar, NULL); if (!is_blank_mbchar(onechar)) break; line += charlen; len += charlen; } return len; } #endif /* !NANO_TINY || ENABLE_JUSTIFY */ #ifdef ENABLE_JUSTIFY /* justify_format() replaces blanks with spaces and multiple spaces by 1 * (except it maintains up to 2 after a character in punct optionally * followed by a character in brackets, and removes all from the end). * * justify_format() might make paragraph->data shorter, and change the * actual pointer with null_at(). * * justify_format() will not look at the first skip characters of * paragraph. skip should be at most strlen(paragraph->data). The * character at paragraph[skip + 1] must not be blank. */ void justify_format(filestruct *paragraph, size_t skip) { char *end, *new_end, *new_paragraph_data; size_t shift = 0; #ifndef NANO_TINY size_t mark_shift = 0; #endif end = paragraph->data + skip; new_paragraph_data = charalloc(strlen(paragraph->data) + 1); strncpy(new_paragraph_data, paragraph->data, skip); new_end = new_paragraph_data + skip; while (*end != '\0') { int end_len; /* If this character is blank, change it to a space if * necessary, and skip over all blanks after it. */ if (is_blank_mbchar(end)) { end_len = parse_mbchar(end, NULL, NULL); *new_end = ' '; new_end++; end += end_len; while (*end != '\0' && is_blank_mbchar(end)) { end_len = parse_mbchar(end, NULL, NULL); end += end_len; shift += end_len; #ifndef NANO_TINY /* Keep track of the change in the current line. */ if (openfile->mark == paragraph && openfile->mark_x >= end - paragraph->data) mark_shift += end_len; #endif } /* If this character is punctuation optionally followed by a * bracket and then followed by blanks, change no more than two * of the blanks to spaces if necessary, and skip over all * blanks after them. */ } else if (mbstrchr(punct, end) != NULL) { end_len = parse_mbchar(end, NULL, NULL); while (end_len > 0) { *new_end = *end; new_end++; end++; end_len--; } if (*end != '\0' && mbstrchr(brackets, end) != NULL) { end_len = parse_mbchar(end, NULL, NULL); while (end_len > 0) { *new_end = *end; new_end++; end++; end_len--; } } if (*end != '\0' && is_blank_mbchar(end)) { end_len = parse_mbchar(end, NULL, NULL); *new_end = ' '; new_end++; end += end_len; } if (*end != '\0' && is_blank_mbchar(end)) { end_len = parse_mbchar(end, NULL, NULL); *new_end = ' '; new_end++; end += end_len; } while (*end != '\0' && is_blank_mbchar(end)) { end_len = parse_mbchar(end, NULL, NULL); end += end_len; shift += end_len; #ifndef NANO_TINY /* Keep track of the change in the current line. */ if (openfile->mark == paragraph && openfile->mark_x >= end - paragraph->data) mark_shift += end_len; #endif } /* If this character is neither blank nor punctuation, leave it * unchanged. */ } else { end_len = parse_mbchar(end, NULL, NULL); while (end_len > 0) { *new_end = *end; new_end++; end++; end_len--; } } } *new_end = *end; /* If there are spaces at the end of the line, remove them. */ while (new_end > new_paragraph_data + skip && *(new_end - 1) == ' ') { new_end--; shift++; } if (shift > 0) { openfile->totsize -= shift; null_at(&new_paragraph_data, new_end - new_paragraph_data); free(paragraph->data); paragraph->data = new_paragraph_data; #ifndef NANO_TINY /* Adjust the mark coordinates to compensate for the change in * the current line. */ if (openfile->mark == paragraph) { openfile->mark_x -= mark_shift; if (openfile->mark_x > new_end - new_paragraph_data) openfile->mark_x = new_end - new_paragraph_data; } #endif } else free(new_paragraph_data); } /* The "quote part" of a line is the largest initial substring matching * the quote string. This function returns the length of the quote part * of the given line. */ size_t quote_length(const char *line) { regmatch_t matches; int rc = regexec("ereg, line, 1, &matches, 0); if (rc == REG_NOMATCH || matches.rm_so == (regoff_t)-1) return 0; /* matches.rm_so should be 0, since the quote string should start * with the caret ^. */ return matches.rm_eo; } /* The maximum depth of recursion. This must be an even number. */ #define RECURSION_LIMIT 222 /* Return TRUE when the given line is the beginning of a paragraph (BOP). */ bool begpar(const filestruct *const line, int depth) { size_t quote_len, indent_len, prev_dent_len; /* If this is the very first line of the buffer, it counts as a BOP * even when it contains no text. */ if (line == openfile->fileage) return TRUE; /* If recursion is going too deep, just say it's not a BOP. */ if (depth > RECURSION_LIMIT) return FALSE; quote_len = quote_length(line->data); indent_len = indent_length(line->data + quote_len); /* If this line contains no text, it is not a BOP. */ if (line->data[quote_len + indent_len] == '\0') return FALSE; /* If the quote part of the preceding line differs, this is a BOP. */ if (quote_len != quote_length(line->prev->data) || strncmp(line->data, line->prev->data, quote_len) != 0) return TRUE; prev_dent_len = indent_length(line->prev->data + quote_len); /* If the preceding line contains no text, this is a BOP. */ if (line->prev->data[quote_len + prev_dent_len] == '\0') return TRUE; /* If the indentation of the preceding line equals the indentation * of this line, this is not a BOP. */ if (prev_dent_len == indent_len && strncmp(line->prev->data + quote_len, line->data + quote_len, indent_len) == 0) return FALSE; /* Otherwise, this is a BOP if the preceding line is not. */ return !begpar(line->prev, depth + 1); } /* Return TRUE when the given line is part of a paragraph. */ bool inpar(const filestruct *const line) { size_t quote_len = quote_length(line->data); return (line->data[quote_len + indent_length(line->data + quote_len)] != '\0'); } /* Move the next par_len lines, starting with first_line, into the * justify buffer, leaving copies of those lines in place. Assume that * par_len is greater than zero, and that there are enough lines after * first_line. */ void backup_lines(filestruct *first_line, size_t par_len) { filestruct *top = first_line; /* The top of the paragraph we're backing up. */ filestruct *bot = first_line; /* The bottom of the paragraph we're backing up. */ size_t i; size_t current_x_save = openfile->current_x; ssize_t fl_lineno_save = first_line->lineno; ssize_t edittop_lineno_save = openfile->edittop->lineno; ssize_t current_lineno_save = openfile->current->lineno; #ifndef NANO_TINY bool mark_is_set = (openfile->mark != NULL); ssize_t was_mark_lineno = (mark_is_set ? openfile->mark->lineno : 0); size_t was_mark_x = openfile->mark_x; #endif /* Move bot down par_len lines to the line after the last line of * the paragraph, if there is one. */ for (i = par_len; i > 0 && bot != openfile->filebot; i--) bot = bot->next; /* Move the paragraph from the current buffer to the justify buffer. */ extract_buffer(&jusbuffer, &jusbottom, top, 0, bot, (i == 1 && bot == openfile->filebot) ? strlen(bot->data) : 0); /* Copy the paragraph back to the current buffer. */ copy_from_buffer(jusbuffer); /* Move upward from the last line of the paragraph to the first * line, putting first_line, edittop, current, and mark_begin at the * same lines in the copied paragraph that they had in the original * paragraph. */ if (openfile->current != openfile->fileage) { top = openfile->current->prev; #ifndef NANO_TINY if (mark_is_set && openfile->current->lineno == was_mark_lineno) { openfile->mark = openfile->current; openfile->mark_x = was_mark_x; } #endif } else top = openfile->current; for (i = par_len; i > 0 && top != NULL; i--) { if (top->lineno == fl_lineno_save) first_line = top; if (top->lineno == edittop_lineno_save) openfile->edittop = top; if (top->lineno == current_lineno_save) openfile->current = top; #ifndef NANO_TINY if (mark_is_set && top->lineno == was_mark_lineno) { openfile->mark = top; openfile->mark_x = was_mark_x; } #endif top = top->prev; } /* Put current_x at the same place in the copied paragraph that it * had in the original paragraph. */ openfile->current_x = current_x_save; set_modified(); } /* Find the beginning of the current paragraph if we're in one, or the * beginning of the next paragraph if we're not. Afterwards, save the * quote length and paragraph length in *quote and *par. Return TRUE if * we found a paragraph, and FALSE if there was an error or we didn't * find a paragraph. */ bool find_paragraph(size_t *const quote, size_t *const par) { size_t quote_len; /* Length of the initial quotation of the paragraph we search for. */ size_t par_len; /* Number of lines in the paragraph we search for. */ filestruct *current_save; /* The line at the beginning of the paragraph we search for. */ if (quoterc != 0) { statusline(ALERT, _("Bad quote string %s: %s"), quotestr, quoteerr); return FALSE; } /* If we're at the end of the last line of the file, it means that * there aren't any paragraphs left, so get out. */ if (openfile->current == openfile->filebot && openfile->current_x == strlen(openfile->filebot->data)) return FALSE; /* If the current line isn't in a paragraph, move forward to the * last line of the next paragraph, if any. */ if (!inpar(openfile->current)) { do_para_end(FALSE); /* If we end up past the beginning of the line, it means that * we're at the end of the last line of the file, and the line * isn't blank, in which case the last line of the file is the * last line of the next paragraph. * * Otherwise, if we end up on a line that's in a paragraph, it * means that we're on the line after the last line of the next * paragraph, in which case we should move back to the last line * of the next paragraph. */ if (openfile->current_x == 0) { if (!openfile->current->prev || !inpar(openfile->current->prev)) return FALSE; if (openfile->current != openfile->fileage) openfile->current = openfile->current->prev; } } /* If the current line isn't the first line of the paragraph, move * back to the first line of the paragraph. */ if (!begpar(openfile->current, 0)) do_para_begin(FALSE); /* Now current is the first line of the paragraph. Set quote_len to * the quotation length of that line, and set par_len to the number * of lines in this paragraph. */ quote_len = quote_length(openfile->current->data); current_save = openfile->current; do_para_end(FALSE); par_len = openfile->current->lineno - current_save->lineno; /* If we end up past the beginning of the line, it means that we're at * the end of the last line of the file, and the line isn't blank, in * which case the last line of the file is part of the paragraph. */ if (openfile->current_x > 0) par_len++; openfile->current = current_save; /* Save the values of quote_len and par_len. */ *quote = quote_len; *par = par_len; return TRUE; } /* Justify the current paragraph, and justify the entire file when * full_justify is TRUE. */ void do_justify(bool full_justify) { filestruct *first_par_line = NULL; /* Will be the first line of the justified paragraph(s), if any. * For restoring after unjustify. */ filestruct *last_par_line = NULL; /* Will be the line after the last line of the justified * paragraph(s), if any. Also for restoring after unjustify. */ bool filebot_inpar = FALSE; /* Whether the text at filebot is part of the current paragraph. */ int kbinput; /* The first keystroke after a justification. */ functionptrtype func; /* The function associated with that keystroke. */ /* We save these variables to be restored if the user unjustifies. */ filestruct *edittop_save = openfile->edittop; size_t firstcolumn_save = openfile->firstcolumn; filestruct *current_save = openfile->current; size_t current_x_save = openfile->current_x; #ifndef NANO_TINY filestruct *was_mark = openfile->mark; size_t was_mark_x = openfile->mark_x; #endif bool modified_save = openfile->modified; /* Move to the beginning of the current line, so that justifying at * the end of the last line of the file, if that line isn't blank, * will work the first time through. */ openfile->current_x = 0; /* If we're justifying the entire file, start at the beginning. */ if (full_justify) openfile->current = openfile->fileage; while (TRUE) { filestruct *firstline; /* The first line of the current paragraph. */ filestruct *sampleline; /* The line from which the indentation is copied -- either * the first and only or the second line of the paragraph. */ size_t quote_len; /* Length of the quote part of the current paragraph. */ size_t lead_len; /* Length of the quote part plus the indentation part. */ size_t par_len; /* Number of lines in the current paragraph. */ ssize_t break_pos; /* Where we will break lines. */ char *lead_string; /* The quote+indent stuff that is copied from the sample line. */ /* Find the first line of the paragraph to be justified. That * is the start of this paragraph if we're in one, or the start * of the next otherwise. Save the quote length and paragraph * length (number of lines). Don't refresh the screen yet, * since we'll do that after we justify. * * If the search failed, we do one of two things. If we're * justifying the whole file, and we've found at least one * paragraph, it means that we should justify all the way to the * last line of the file, so set the last line of the text to be * justified to the last line of the file and break out of the * loop. Otherwise, it means that there are no paragraph(s) to * justify, so refresh the screen and get out. */ if (!find_paragraph("e_len, &par_len)) { if (full_justify && first_par_line != NULL) { last_par_line = openfile->filebot; break; } else { refresh_needed = TRUE; return; } } /* par_len will be one greater than the number of lines between * current and filebot if filebot is the last line in the * paragraph. Set filebot_inpar to TRUE if this is the case. */ filebot_inpar = (openfile->current->lineno + par_len == openfile->filebot->lineno + 1); /* If we haven't already done it, move the original paragraph(s) * to the justify buffer, splice a copy of the original * paragraph(s) into the file in the same place, and set * first_par_line to the first line of the copy. */ if (first_par_line == NULL) { backup_lines(openfile->current, full_justify ? openfile->filebot->lineno - openfile->current->lineno + ((openfile->filebot->data[0] != '\0') ? 1 : 0) : par_len); first_par_line = openfile->current; } /* Remember the first line of the current paragraph. */ firstline = openfile->current; /* The sample line is either the only line or the second line. */ sampleline = (par_len == 1 ? firstline : firstline->next); /* Copy the leading part (quoting + indentation) of the sample line. */ lead_len = quote_len + indent_length(sampleline->data + quote_len); lead_string = mallocstrncpy(NULL, sampleline->data, lead_len + 1); lead_string[lead_len] = '\0'; /* Now tack all the lines of the paragraph together, skipping * the quoting and indentation on all lines after the first. */ while (par_len > 1) { filestruct *next_line = openfile->current->next; size_t line_len = strlen(openfile->current->data); size_t next_line_len = strlen(next_line->data); lead_len = quote_len + indent_length(next_line->data + quote_len); /* We're just about to tack the next line onto this one. If * this line isn't empty, make sure it ends in a space. */ if (line_len > 0 && openfile->current->data[line_len - 1] != ' ') { openfile->current->data = charealloc(openfile->current->data, line_len + 2); openfile->current->data[line_len++] = ' '; openfile->current->data[line_len] = '\0'; openfile->totsize++; } openfile->current->data = charealloc(openfile->current->data, line_len + next_line_len - lead_len + 1); strcat(openfile->current->data, next_line->data + lead_len); #ifndef NANO_TINY /* If needed, adjust the coordinates of the mark. */ if (openfile->mark == next_line) { openfile->mark = openfile->current; openfile->mark_x += line_len - lead_len; } #endif /* Don't destroy edittop! */ if (next_line == openfile->edittop) openfile->edittop = openfile->current; unlink_node(next_line); openfile->totsize -= lead_len + 1; par_len--; } /* Call justify_format() on the paragraph, which will remove excess * spaces from it and change all blank characters to spaces. */ justify_format(openfile->current, quote_len + indent_length(openfile->current->data + quote_len)); while (par_len > 0 && strlenpt(openfile->current->data) > fill) { size_t line_len = strlen(openfile->current->data); /* If this line is too long, try to wrap it to the next line * to make it short enough. */ break_pos = break_line(openfile->current->data + lead_len, fill - strnlenpt(openfile->current->data, lead_len), FALSE); /* If we can't break the line, or don't need to, we're done. */ if (break_pos == -1 || break_pos + lead_len == line_len) break; /* Adjust the breaking position for the leading part and * move it beyond the found whitespace character. */ break_pos += lead_len + 1; /* Insert a new line after the current one and allocate it. */ splice_node(openfile->current, make_new_node(openfile->current)); openfile->current->next->data = charalloc(lead_len + 1 + line_len - break_pos); /* Copy the leading part and the text after the breaking point * into the next line. */ strncpy(openfile->current->next->data, lead_string, lead_len); strcpy(openfile->current->next->data + lead_len, openfile->current->data + break_pos); openfile->totsize += lead_len + 1; par_len++; #ifndef NANO_TINY /* If needed, compensate the mark coordinates for the change * in the current line. */ if (openfile->mark == openfile->current && openfile->mark_x > break_pos) { openfile->mark = openfile->current->next; openfile->mark_x -= break_pos - lead_len; } #endif /* When requested, snip all trailing blanks. */ if (ISSET(TRIM_BLANKS)) { while (break_pos > 0 && is_blank_mbchar(&openfile->current->data[break_pos - 1])) { break_pos--; openfile->totsize--; } } /* Break the current line. */ null_at(&openfile->current->data, break_pos); /* Go to the next line. */ openfile->current = openfile->current->next; par_len--; } free(lead_string); /* Go to the next line, if possible. If there is no next line, * move to the end of the current line. */ if (openfile->current != openfile->filebot) openfile->current = openfile->current->next; else openfile->current_x = strlen(openfile->current->data); /* Renumber the now-justified paragraph, since both refreshing the * edit window and finding a paragraph need correct line numbers. */ renumber(firstline); /* We've just finished justifying the paragraph. If we're not * justifying the entire file, break out of the loop. * Otherwise, continue the loop so that we justify all the * paragraphs in the file. */ if (!full_justify) break; } /* We are now done justifying the paragraph or the file, so clean * up. totsize has been maintained above. If we actually justified * something, set last_par_line to the new end of the paragraph. */ if (first_par_line != NULL) last_par_line = openfile->current; #ifndef NANO_TINY /* Let a justification cancel a soft mark. */ if (openfile->mark && openfile->kind_of_mark == SOFTMARK) openfile->mark = NULL; #endif edit_refresh(); /* Show "Unjustify" in the help lines. */ uncutfunc->desc = unjust_tag; display_main_list(); #ifndef NANO_TINY kbinput = KEY_WINCH; /* Now wait for the next keystroke. */ while (kbinput == KEY_WINCH) #endif { statusbar(_("Can now UnJustify!")); place_the_cursor(); kbinput = do_input(FALSE); } /* Unset the suppression flag after showing the Unjustify message. */ suppress_cursorpos = FALSE; func = func_from_key(&kbinput); /* If the keystroke was Unjustify or Undo, then undo the justification. */ if (func == do_uncut_text #ifndef NANO_TINY || func == do_undo #endif ) { /* If we actually justified something, then splice the preserved * unjustified text back into the file, */ if (first_par_line != NULL) { filestruct *trash = NULL, *dummy = NULL; /* Throw away the justified paragraph, and replace it with * the preserved unjustified text. */ extract_buffer(&trash, &dummy, first_par_line, 0, last_par_line, filebot_inpar ? strlen(last_par_line->data) : 0); free_filestruct(trash); ingraft_buffer(jusbuffer); /* Restore the old position and the mark. */ openfile->edittop = edittop_save; openfile->firstcolumn = firstcolumn_save; openfile->current = current_save; openfile->current_x = current_x_save; #ifndef NANO_TINY if (openfile->mark) { openfile->mark = was_mark; openfile->mark_x = was_mark_x; } #endif openfile->modified = modified_save; if (!openfile->modified) titlebar(NULL); refresh_needed = TRUE; } } else { /* Put the keystroke back into the queue. */ unget_kbinput(kbinput, meta_key); /* Set the desired screen column (always zero, except at EOF). */ openfile->placewewant = xplustabs(); #ifndef NANO_TINY /* Throw away the entire undo stack, to prevent a crash when * the user tries to undo something in the justified text. */ discard_until(NULL, openfile, FALSE); #endif /* Blow away the unjustified text. */ free_filestruct(jusbuffer); } /* Mark the buffer for unjustified text as empty. */ jusbuffer = NULL; wipe_statusbar(); /* Show "Uncut" again in the help lines, and force their redrawing. */ uncutfunc->desc = uncut_tag; currmenu = MMOST; } /* Justify the current paragraph. */ void do_justify_void(void) { do_justify(FALSE); } /* Justify the entire file. */ void do_full_justify(void) { do_justify(TRUE); } #endif /* ENABLE_JUSTIFY */ #if defined(ENABLE_SPELLER) || defined (ENABLE_COLOR) /* Set up an argument list for executing the given command. */ void construct_argument_list(char ***arguments, char *command, char *filename) { char *copy_of_command = mallocstrcpy(NULL, command); char *element = strtok(copy_of_command, " "); int count = 2; while (element != NULL) { *arguments = (char **)nrealloc(*arguments, ++count * sizeof(char *)); (*arguments)[count - 3] = element; element = strtok(NULL, " "); } (*arguments)[count - 2] = filename; (*arguments)[count - 1] = NULL; } #endif #ifdef ENABLE_SPELLER /* Let the user edit the misspelled word. Return FALSE if the user cancels. */ bool fix_spello(const char *word) { char *save_search; size_t firstcolumn_save = openfile->firstcolumn; size_t current_x_save = openfile->current_x; filestruct *edittop_save = openfile->edittop; filestruct *current_save = openfile->current; /* Save where we are. */ bool proceed = FALSE; /* The return value of this function. */ bool result; /* The return value of searching for a misspelled word. */ #ifndef NANO_TINY bool right_side_up = FALSE; /* TRUE if (mark_begin, mark_begin_x) is the top of the mark, * FALSE if (current, current_x) is. */ filestruct *top, *bot; size_t top_x, bot_x; #endif /* Save the current search string, then set it to the misspelled word. */ save_search = last_search; last_search = mallocstrcpy(NULL, word); #ifndef NANO_TINY /* If the mark is on, start at the beginning of the marked region. */ if (openfile->mark) { mark_order((const filestruct **)&top, &top_x, (const filestruct **)&bot, &bot_x, &right_side_up); /* If the region is marked normally, swap the end points, so that * (current, current_x) (where searching starts) is at the top. */ if (right_side_up) { openfile->current = top; openfile->current_x = top_x; openfile->mark = bot; openfile->mark_x = bot_x; } } else #endif /* Otherwise, start from the top of the file. */ { openfile->current = openfile->fileage; openfile->current_x = 0; } /* Find the first whole occurrence of word. */ result = findnextstr(word, TRUE, INREGION, NULL, FALSE, NULL, 0); /* If the word isn't found, alert the user; if it is, allow correction. */ if (result == 0) { statusline(ALERT, _("Unfindable word: %s"), word); lastmessage = HUSH; proceed = TRUE; napms(2800); } else if (result == 1) { size_t from_col = xplustabs(); size_t to_col = from_col + strlenpt(word); #ifndef NANO_TINY filestruct *saved_mark = openfile->mark; openfile->mark = NULL; #endif edit_refresh(); #ifndef NANO_TINY openfile->mark = saved_mark; #endif spotlight(TRUE, from_col, to_col); /* Let the user supply a correctly spelled alternative. */ proceed = (do_prompt(FALSE, FALSE, MSPELL, word, NULL, edit_refresh, _("Edit a replacement")) != -1); spotlight(FALSE, from_col, to_col); /* If a replacement was given, go through all occurrences. */ if (proceed && strcmp(word, answer) != 0) { do_replace_loop(word, TRUE, current_save, ¤t_x_save); /* TRANSLATORS: Shown after fixing misspellings in one word. */ statusbar(_("Next word...")); napms(400); } } #ifndef NANO_TINY if (openfile->mark) { /* Restore the (compensated) end points of the marked region. */ if (right_side_up) { openfile->current = openfile->mark; openfile->current_x = openfile->mark_x; openfile->mark = top; openfile->mark_x = top_x; } else { openfile->current = top; openfile->current_x = top_x; } } else #endif { /* Restore the (compensated) cursor position. */ openfile->current = current_save; openfile->current_x = current_x_save; } /* Restore the string that was last searched for. */ free(last_search); last_search = save_search; /* Restore the viewport to where it was. */ openfile->edittop = edittop_save; openfile->firstcolumn = firstcolumn_save; return proceed; } /* Internal (integrated) spell checking using the spell program, * filtered through the sort and uniq programs. Return NULL for normal * termination, and the error string otherwise. */ const char *do_int_speller(const char *tempfile_name) { char *read_buff, *read_buff_ptr, *read_buff_word; size_t pipe_buff_size, read_buff_size, read_buff_read, bytesread; int spell_fd[2], sort_fd[2], uniq_fd[2], tempfile_fd = -1; pid_t pid_spell, pid_sort, pid_uniq; int spell_status, sort_status, uniq_status; /* Create all three pipes up front. */ if (pipe(spell_fd) == -1 || pipe(sort_fd) == -1 || pipe(uniq_fd) == -1) return _("Could not create pipe"); statusbar(_("Creating misspelled word list, please wait...")); /* A new process to run spell in. */ if ((pid_spell = fork()) == 0) { /* Child continues (i.e. future spell process). */ close(spell_fd[0]); /* Replace the standard input with the temp file. */ if ((tempfile_fd = open(tempfile_name, O_RDONLY)) == -1) goto close_pipes_and_exit; if (dup2(tempfile_fd, STDIN_FILENO) != STDIN_FILENO) goto close_pipes_and_exit; close(tempfile_fd); /* Send spell's standard output to the pipe. */ if (dup2(spell_fd[1], STDOUT_FILENO) != STDOUT_FILENO) goto close_pipes_and_exit; close(spell_fd[1]); /* Start the spell program; we are using $PATH. */ execlp("spell", "spell", NULL); /* This should not be reached if spell is found. */ exit(1); } /* Parent continues here. */ close(spell_fd[1]); /* A new process to run sort in. */ if ((pid_sort = fork()) == 0) { /* Child continues (i.e. future sort process). Replace the * standard input with the standard output of the old pipe. */ if (dup2(spell_fd[0], STDIN_FILENO) != STDIN_FILENO) goto close_pipes_and_exit; close(spell_fd[0]); /* Send sort's standard output to the new pipe. */ if (dup2(sort_fd[1], STDOUT_FILENO) != STDOUT_FILENO) goto close_pipes_and_exit; close(sort_fd[1]); /* Start the sort program. Use -f to ignore case. */ execlp("sort", "sort", "-f", NULL); /* This should not be reached if sort is found. */ exit(1); } close(spell_fd[0]); close(sort_fd[1]); /* A new process to run uniq in. */ if ((pid_uniq = fork()) == 0) { /* Child continues (i.e. future uniq process). Replace the * standard input with the standard output of the old pipe. */ if (dup2(sort_fd[0], STDIN_FILENO) != STDIN_FILENO) goto close_pipes_and_exit; close(sort_fd[0]); /* Send uniq's standard output to the new pipe. */ if (dup2(uniq_fd[1], STDOUT_FILENO) != STDOUT_FILENO) goto close_pipes_and_exit; close(uniq_fd[1]); /* Start the uniq program; we are using PATH. */ execlp("uniq", "uniq", NULL); /* This should not be reached if uniq is found. */ exit(1); } close(sort_fd[0]); close(uniq_fd[1]); /* The child process was not forked successfully. */ if (pid_spell < 0 || pid_sort < 0 || pid_uniq < 0) { close(uniq_fd[0]); return _("Could not fork"); } /* Get the system pipe buffer size. */ if ((pipe_buff_size = fpathconf(uniq_fd[0], _PC_PIPE_BUF)) < 1) { close(uniq_fd[0]); return _("Could not get size of pipe buffer"); } /* Read in the returned spelling errors. */ read_buff_read = 0; read_buff_size = pipe_buff_size + 1; read_buff = read_buff_ptr = charalloc(read_buff_size); while ((bytesread = read(uniq_fd[0], read_buff_ptr, pipe_buff_size)) > 0) { read_buff_read += bytesread; read_buff_size += pipe_buff_size; read_buff = read_buff_ptr = charealloc(read_buff, read_buff_size); read_buff_ptr += read_buff_read; } *read_buff_ptr = '\0'; close(uniq_fd[0]); /* Do any replacements case sensitive, forward, and without regexes. */ SET(CASE_SENSITIVE); UNSET(BACKWARDS_SEARCH); UNSET(USE_REGEXP); read_buff_word = read_buff_ptr = read_buff; /* Process each of the misspelled words. */ while (*read_buff_ptr != '\0') { if ((*read_buff_ptr == '\r') || (*read_buff_ptr == '\n')) { *read_buff_ptr = '\0'; if (read_buff_word != read_buff_ptr) { if (!fix_spello(read_buff_word)) { read_buff_word = read_buff_ptr; break; } } read_buff_word = read_buff_ptr + 1; } read_buff_ptr++; } /* Special case: the last word doesn't end with '\r' or '\n'. */ if (read_buff_word != read_buff_ptr) fix_spello(read_buff_word); free(read_buff); tidy_up_after_search(); refresh_needed = TRUE; /* Process the end of the three processes. */ waitpid(pid_spell, &spell_status, 0); waitpid(pid_sort, &sort_status, 0); waitpid(pid_uniq, &uniq_status, 0); if (WIFEXITED(spell_status) == 0 || WEXITSTATUS(spell_status)) return _("Error invoking \"spell\""); if (WIFEXITED(sort_status) == 0 || WEXITSTATUS(sort_status)) return _("Error invoking \"sort -f\""); if (WIFEXITED(uniq_status) == 0 || WEXITSTATUS(uniq_status)) return _("Error invoking \"uniq\""); /* When all went okay. */ return NULL; close_pipes_and_exit: /* Don't leak any handles. */ close(tempfile_fd); close(spell_fd[0]); close(spell_fd[1]); close(sort_fd[0]); close(sort_fd[1]); close(uniq_fd[0]); close(uniq_fd[1]); exit(1); } /* External (alternate) spell checking. Return NULL for normal * termination, and the error string otherwise. */ const char *do_alt_speller(char *tempfile_name) { int alt_spell_status; size_t current_x_save = openfile->current_x; size_t pww_save = openfile->placewewant; ssize_t lineno_save = openfile->current->lineno; bool was_at_eol = (openfile->current->data[openfile->current_x] == '\0'); struct stat spellfileinfo; time_t timestamp; pid_t pid_spell; static char **spellargs = NULL; /* Get the timestamp and the size of the temporary file. */ stat(tempfile_name, &spellfileinfo); timestamp = spellfileinfo.st_mtime; /* If the number of bytes to check is zero, get out. */ if (spellfileinfo.st_size == 0) return NULL; /* Exit from curses mode. */ endwin(); construct_argument_list(&spellargs, alt_speller, tempfile_name); /* Fork a child process and run the alternate spell program in it. */ if ((pid_spell = fork()) == 0) { execvp(spellargs[0], spellargs); /* Terminate the child process if no alternate speller is found. */ exit(1); } else if (pid_spell < 0) return _("Could not fork"); #ifndef NANO_TINY /* Block SIGWINCHes so the spell checker doesn't get any. */ allow_sigwinch(FALSE); #endif /* Wait for the alternate spell checker to finish. */ wait(&alt_spell_status); /* Reenter curses mode. */ doupdate(); /* Restore the terminal to its previous state. */ terminal_init(); if (!WIFEXITED(alt_spell_status) || WEXITSTATUS(alt_spell_status) != 0) return invocation_error(alt_speller); #ifndef NANO_TINY /* Replace the marked text (or the entire text) of the current buffer * with the spell-checked text. */ if (openfile->mark) { filestruct *top, *bot; size_t top_x, bot_x; bool right_side_up; ssize_t was_mark_lineno = openfile->mark->lineno; mark_order((const filestruct **)&top, &top_x, (const filestruct **)&bot, &bot_x, &right_side_up); openfile->mark = NULL; replace_marked_buffer(tempfile_name, top, top_x, bot, bot_x); /* Adjust the end point of the marked region for any change in * length of the region's last line. */ if (right_side_up) current_x_save = openfile->current_x; else openfile->mark_x = openfile->current_x; /* Restore the mark. */ openfile->mark = fsfromline(was_mark_lineno); } else #endif replace_buffer(tempfile_name); /* Go back to the old position. */ goto_line_posx(lineno_save, current_x_save); if (was_at_eol || openfile->current_x > strlen(openfile->current->data)) openfile->current_x = strlen(openfile->current->data); openfile->placewewant = pww_save; adjust_viewport(STATIONARY); /* Stat the temporary file again, and mark the buffer as modified only * if this file was changed since it was written. */ stat(tempfile_name, &spellfileinfo); if (spellfileinfo.st_mtime != timestamp) { set_modified(); #ifndef NANO_TINY /* Flush the undo stack, to avoid making a mess when the user * tries to undo things in spell-corrected lines. */ discard_until(NULL, openfile, FALSE); #endif } #ifndef NANO_TINY /* Unblock SIGWINCHes again. */ allow_sigwinch(TRUE); #endif return NULL; } /* Spell check the current file. If an alternate spell checker is * specified, use it. Otherwise, use the internal spell checker. */ void do_spell(void) { bool status; FILE *temp_file; char *temp; unsigned stash[sizeof(flags) / sizeof(flags[0])]; /* A storage place for the current flag settings. */ const char *spell_msg; if (ISSET(RESTRICTED)) { show_restricted_warning(); return; } temp = safe_tempfile(&temp_file); if (temp == NULL) { statusline(ALERT, _("Error writing temp file: %s"), strerror(errno)); return; } /* Save the settings of the global flags. */ memcpy(stash, flags, sizeof(flags)); /* Don't add an extra newline when writing out the (selected) text. */ SET(NO_NEWLINES); #ifndef NANO_TINY if (openfile->mark) status = write_marked_file(temp, temp_file, TRUE, OVERWRITE); else #endif status = write_file(temp, temp_file, TRUE, OVERWRITE, TRUE); if (!status) { statusline(ALERT, _("Error writing temp file: %s"), strerror(errno)); free(temp); return; } blank_bottombars(); statusbar(_("Invoking spell checker, please wait")); spell_msg = (alt_speller != NULL) ? do_alt_speller(temp) : do_int_speller(temp); unlink(temp); free(temp); /* Restore the settings of the global flags. */ memcpy(flags, stash, sizeof(flags)); /* If the spell-checker printed any error messages onscreen, make * sure that they're cleared off. */ total_refresh(); if (spell_msg != NULL) { if (errno == 0) /* Don't display an error message of "Success". */ statusline(ALERT, _("Spell checking failed: %s"), spell_msg); else statusline(ALERT, _("Spell checking failed: %s: %s"), spell_msg, strerror(errno)); } else statusbar(_("Finished checking spelling")); } #endif /* ENABLE_SPELLER */ #ifdef ENABLE_COLOR /* Run a linting program on the current buffer. Return NULL for normal * termination, and the error string otherwise. */ void do_linter(void) { char *read_buff, *read_buff_ptr, *read_buff_word; size_t pipe_buff_size, read_buff_size, read_buff_read, bytesread; size_t parsesuccess = 0; int lint_status, lint_fd[2]; pid_t pid_lint; static char **lintargs = NULL; lintstruct *lints = NULL, *tmplint = NULL, *curlint = NULL; if (ISSET(RESTRICTED)) { show_restricted_warning(); return; } if (!openfile->syntax || !openfile->syntax->linter) { statusbar(_("No linter defined for this type of file!")); return; } #ifndef NANO_TINY openfile->mark = NULL; #endif edit_refresh(); if (openfile->modified) { int i = do_yesno_prompt(FALSE, _("Save modified buffer before linting?")); if (i == -1) { statusbar(_("Cancelled")); return; } else if (i == 1 && (do_writeout(FALSE, FALSE) != 1)) return; } /* Create a pipe up front. */ if (pipe(lint_fd) == -1) { statusbar(_("Could not create pipe")); return; } blank_bottombars(); currmenu = MLINTER; statusbar(_("Invoking linter, please wait")); construct_argument_list(&lintargs, openfile->syntax->linter, openfile->filename); /* Start a new process to run the linter in. */ if ((pid_lint = fork()) == 0) { /* Child continues here (i.e. the future linting process). */ close(lint_fd[0]); /* Send the linter's standard output + err to the pipe. */ if (dup2(lint_fd[1], STDOUT_FILENO) != STDOUT_FILENO) exit(9); if (dup2(lint_fd[1], STDERR_FILENO) != STDERR_FILENO) exit(9); close(lint_fd[1]); /* Start the linter program; we are using $PATH. */ execvp(lintargs[0], lintargs); /* This is only reached when the linter is not found. */ exit(9); } /* Parent continues here. */ close(lint_fd[1]); /* If the child process was not forked successfully... */ if (pid_lint < 0) { close(lint_fd[0]); statusbar(_("Could not fork")); return; } /* Get the system pipe buffer size. */ if ((pipe_buff_size = fpathconf(lint_fd[0], _PC_PIPE_BUF)) < 1) { close(lint_fd[0]); statusbar(_("Could not get size of pipe buffer")); return; } /* Read in the returned syntax errors. */ read_buff_read = 0; read_buff_size = pipe_buff_size + 1; read_buff = read_buff_ptr = charalloc(read_buff_size); while ((bytesread = read(lint_fd[0], read_buff_ptr, pipe_buff_size)) > 0) { read_buff_read += bytesread; read_buff_size += pipe_buff_size; read_buff = read_buff_ptr = charealloc(read_buff, read_buff_size); read_buff_ptr += read_buff_read; } *read_buff_ptr = '\0'; close(lint_fd[0]); /* Process the linter output. */ read_buff_word = read_buff_ptr = read_buff; while (*read_buff_ptr != '\0') { if ((*read_buff_ptr == '\r') || (*read_buff_ptr == '\n')) { *read_buff_ptr = '\0'; if (read_buff_word != read_buff_ptr) { char *filename = NULL, *linestr = NULL, *maybecol = NULL; char *message = mallocstrcpy(NULL, read_buff_word); /* At the moment we handle the following formats: * * filenameorcategory:line:column:message (e.g. splint) * filenameorcategory:line,column:message (e.g. pylint) * filenameorcategory:line:message (e.g. pyflakes) */ if (strstr(message, ": ") != NULL) { filename = strtok(read_buff_word, ":"); if ((linestr = strtok(NULL, ":")) != NULL) { if ((maybecol = strtok(NULL, ":")) != NULL) { ssize_t tmplineno = 0, tmpcolno = 0; char *tmplinecol; tmplineno = strtol(linestr, NULL, 10); if (tmplineno <= 0) { read_buff_ptr++; free(message); continue; } tmpcolno = strtol(maybecol, NULL, 10); /* Check if the middle field is in comma format. */ if (tmpcolno <= 0) { strtok(linestr, ","); if ((tmplinecol = strtok(NULL, ",")) != NULL) tmpcolno = strtol(tmplinecol, NULL, 10); else tmpcolno = 1; } /* Nice. We have a lint message we can use. */ parsesuccess++; tmplint = curlint; curlint = nmalloc(sizeof(lintstruct)); curlint->next = NULL; curlint->prev = tmplint; if (curlint->prev != NULL) curlint->prev->next = curlint; curlint->msg = mallocstrcpy(NULL, message); curlint->lineno = tmplineno; curlint->colno = tmpcolno; curlint->filename = mallocstrcpy(NULL, filename); if (lints == NULL) lints = curlint; } } } else free(message); } read_buff_word = read_buff_ptr + 1; } read_buff_ptr++; } /* Process the end of the linting process. */ waitpid(pid_lint, &lint_status, 0); if (!WIFEXITED(lint_status) || WEXITSTATUS(lint_status) > 2) { statusbar(invocation_error(openfile->syntax->linter)); return; } free(read_buff); if (parsesuccess == 0) { statusline(HUSH, _("Got 0 parsable lines from command: %s"), openfile->syntax->linter); return; } bottombars(MLINTER); tmplint = NULL; curlint = lints; while (TRUE) { int kbinput; functionptrtype func; struct stat lintfileinfo; if (stat(curlint->filename, &lintfileinfo) != -1 && (openfile->current_stat == NULL || openfile->current_stat->st_ino != lintfileinfo.st_ino)) { #ifdef ENABLE_MULTIBUFFER const openfilestruct *started_at = openfile; openfile = openfile->next; while (openfile != started_at && (openfile->current_stat == NULL || openfile->current_stat->st_ino != lintfileinfo.st_ino)) openfile = openfile->next; if (openfile->current_stat == NULL || openfile->current_stat->st_ino != lintfileinfo.st_ino) { char *msg = charalloc(1024 + strlen(curlint->filename)); int i; sprintf(msg, _("This message is for unopened file %s," " open it in a new buffer?"), curlint->filename); i = do_yesno_prompt(FALSE, msg); free(msg); if (i == -1) { statusbar(_("Cancelled")); goto free_lints_and_return; } else if (i == 1) { open_buffer(curlint->filename, TRUE); } else { #endif char *dontwantfile = mallocstrcpy(NULL, curlint->filename); lintstruct *restlint = NULL; while (curlint != NULL) { if (strcmp(curlint->filename, dontwantfile) == 0) { if (curlint == lints) lints = curlint->next; else curlint->prev->next = curlint->next; if (curlint->next != NULL) curlint->next->prev = curlint->prev; tmplint = curlint; curlint = curlint->next; free(tmplint->msg); free(tmplint->filename); free(tmplint); } else { if (restlint == NULL) restlint = curlint; curlint = curlint->next; } } if (restlint == NULL) { statusbar(_("No more errors in unopened files, cancelling")); napms(2400); break; } else { curlint = restlint; continue; } free(dontwantfile); #ifdef ENABLE_MULTIBUFFER } } #endif } if (tmplint != curlint) { goto_line_posx(curlint->lineno, curlint->colno - 1); titlebar(NULL); adjust_viewport(CENTERING); #ifdef ENABLE_LINENUMBERS confirm_margin(); #endif edit_refresh(); statusbar(curlint->msg); bottombars(MLINTER); } /* Place the cursor to indicate the affected line. */ place_the_cursor(); wnoutrefresh(edit); kbinput = get_kbinput(bottomwin, VISIBLE); #ifndef NANO_TINY if (kbinput == KEY_WINCH) continue; #endif func = func_from_key(&kbinput); tmplint = curlint; if (func == do_cancel) break; else if (func == do_help_void) { tmplint = NULL; do_help_void(); } else if (func == do_page_down) { if (curlint->next != NULL) curlint = curlint->next; else statusbar(_("At last message")); } else if (func == do_page_up) { if (curlint->prev != NULL) curlint = curlint->prev; else statusbar(_("At first message")); } } wipe_statusbar(); #ifdef ENABLE_MULTIBUFFER free_lints_and_return: #endif for (curlint = lints; curlint != NULL;) { tmplint = curlint; curlint = curlint->next; free(tmplint->msg); free(tmplint->filename); free(tmplint); } } #ifdef ENABLE_SPELLER /* Run a formatter for the current syntax. This expects the formatter * to be non-interactive and operate on a file in-place, which we'll * pass it on the command line. */ void do_formatter(void) { bool status; FILE *temp_file; int format_status; ssize_t lineno_save = openfile->current->lineno; size_t current_x_save = openfile->current_x; size_t pww_save = openfile->placewewant; bool was_at_eol = (openfile->current->data[openfile->current_x] == '\0'); pid_t pid_format; static char **formatargs = NULL; char *temp, *finalstatus = NULL; if (openfile->totsize == 0) { statusbar(_("Finished")); return; } temp = safe_tempfile(&temp_file); if (temp == NULL) { statusline(ALERT, _("Error writing temp file: %s"), strerror(errno)); return; } #ifndef NANO_TINY /* We're not supporting partial formatting, oi vey. */ openfile->mark = NULL; #endif status = write_file(temp, temp_file, TRUE, OVERWRITE, TRUE); if (!status) { statusline(ALERT, _("Error writing temp file: %s"), strerror(errno)); free(temp); return; } blank_bottombars(); statusbar(_("Invoking formatter, please wait")); construct_argument_list(&formatargs, openfile->syntax->formatter, temp); /* Start a new process for the formatter. */ if ((pid_format = fork()) == 0) { /* Start the formatting program; we are using $PATH. */ execvp(formatargs[0], formatargs); /* Should not be reached, if the formatter is found! */ exit(1); } /* If we couldn't fork, get out. */ if (pid_format < 0) { statusbar(_("Could not fork")); unlink(temp); free(temp); return; } #ifndef NANO_TINY /* Block SIGWINCHes so the formatter doesn't get any. */ allow_sigwinch(FALSE); #endif /* Wait for the formatter to finish. */ wait(&format_status); if (!WIFEXITED(format_status) || WEXITSTATUS(format_status) != 0) finalstatus = invocation_error(openfile->syntax->formatter); else { /* Replace the text of the current buffer with the formatted text. */ replace_buffer(temp); /* Restore the cursor position. */ goto_line_posx(lineno_save, current_x_save); if (was_at_eol || openfile->current_x > strlen(openfile->current->data)) openfile->current_x = strlen(openfile->current->data); openfile->placewewant = pww_save; adjust_viewport(STATIONARY); set_modified(); #ifndef NANO_TINY /* Flush the undo stack, to avoid a mess or crash when * the user tries to undo things in reformatted lines. */ discard_until(NULL, openfile, FALSE); #endif finalstatus = _("Finished formatting"); } unlink(temp); free(temp); #ifndef NANO_TINY /* Unblock SIGWINCHes again. */ allow_sigwinch(TRUE); #endif statusbar(finalstatus); /* If there were error messages, allow the user some time to read them. */ if (WIFEXITED(format_status) && WEXITSTATUS(format_status) == 2) sleep(4); /* If there were any messages, clear them off. */ total_refresh(); } #endif /* ENABLE_SPELLER */ #endif /* ENABLE_COLOR */ #ifndef NANO_TINY /* Our own version of "wc". Note that its character counts are in * multibyte characters instead of single-byte characters. */ void do_wordlinechar_count(void) { size_t words = 0, chars = 0; ssize_t nlines = 0; size_t current_x_save = openfile->current_x; size_t pww_save = openfile->placewewant; filestruct *current_save = openfile->current; filestruct *was_mark = openfile->mark; filestruct *top, *bot; size_t top_x, bot_x; /* If the mark is on, partition the buffer so that it * contains only the marked text, and turn the mark off. */ if (was_mark) { mark_order((const filestruct **)&top, &top_x, (const filestruct **)&bot, &bot_x, NULL); filepart = partition_filestruct(top, top_x, bot, bot_x); openfile->mark = NULL; } /* Start at the top of the file. */ openfile->current = openfile->fileage; openfile->current_x = 0; openfile->placewewant = 0; /* Keep moving to the next word (counting punctuation characters as * part of a word, as "wc -w" does), without updating the screen, * until we reach the end of the file, incrementing the total word * count whenever we're on a word just before moving. */ while (openfile->current != openfile->filebot || openfile->current->data[openfile->current_x] != '\0') { if (do_next_word(FALSE, TRUE, FALSE)) words++; } /* Get the total line and character counts, as "wc -l" and "wc -c" * do, but get the latter in multibyte characters. */ if (was_mark) { nlines = openfile->filebot->lineno - openfile->fileage->lineno + 1; chars = get_totsize(openfile->fileage, openfile->filebot); /* Unpartition the buffer so that it contains all the text * again, and turn the mark back on. */ unpartition_filestruct(&filepart); openfile->mark = was_mark; } else { nlines = openfile->filebot->lineno; chars = openfile->totsize; } /* Restore where we were. */ openfile->current = current_save; openfile->current_x = current_x_save; openfile->placewewant = pww_save; /* Display the total word, line, and character counts on the statusbar. */ statusline(HUSH, _("%sWords: %zu Lines: %zd Chars: %zu"), was_mark ? _("In Selection: ") : "", words, nlines, chars); } #endif /* !NANO_TINY */ /* Get verbatim input. */ void do_verbatim_input(void) { int *kbinput; size_t kbinput_len, i; char *output; /* TRANSLATORS: This is displayed when the next keystroke will be * inserted verbatim. */ statusbar(_("Verbatim Input")); place_the_cursor(); /* Read in all the verbatim characters. */ kbinput = get_verbatim_kbinput(edit, &kbinput_len); /* Unsuppress cursor-position display or blank the statusbar. */ if (ISSET(CONSTANT_SHOW)) suppress_cursorpos = FALSE; else wipe_statusbar(); /* Display all the verbatim characters at once, not filtering out * control characters. */ output = charalloc(kbinput_len + 1); for (i = 0; i < kbinput_len; i++) output[i] = (char)kbinput[i]; output[i] = '\0'; free(kbinput); do_output(output, kbinput_len, TRUE); free(output); } #ifdef ENABLE_WORDCOMPLETION /* Copy the found completion candidate. */ char *copy_completion(char *check_line, int start) { char *word; int position = start, len_of_word = 0, index = 0; /* Find the length of the word by travelling to its end. */ while (is_word_mbchar(&check_line[position], FALSE)) { int next = move_mbright(check_line, position); len_of_word += next - position; position = next; } word = charalloc(len_of_word + 1); /* Simply copy the word. */ while (index < len_of_word) word[index++] = check_line[start++]; word[index] = '\0'; return word; } /* Look at the fragment the user has typed, then search the current buffer for * the first word that starts with this fragment, and tentatively complete the * fragment. If the user types 'Complete' again, search and paste the next * possible completion. */ void complete_a_word(void) { char *shard, *completion = NULL; size_t start_of_shard, shard_length = 0; size_t i = 0, j = 0; completion_word *some_word; #ifdef ENABLE_WRAPPING bool was_set_wrapping = !ISSET(NO_WRAP); #endif /* If this is a fresh completion attempt... */ if (pletion_line == NULL) { /* Clear the list of words of a previous completion run. */ while (list_of_completions != NULL) { completion_word *dropit = list_of_completions; list_of_completions = list_of_completions->next; free(dropit->word); free(dropit); } /* Prevent a completion from being merged with typed text. */ openfile->last_action = OTHER; /* Initialize the starting point for searching. */ pletion_line = openfile->fileage; pletion_x = 0; /* Wipe the "No further matches" message. */ wipe_statusbar(); } else { /* Remove the attempted completion from the buffer. */ do_undo(); } /* Find the start of the fragment that the user typed. */ start_of_shard = openfile->current_x; while (start_of_shard > 0) { int step_left = move_mbleft(openfile->current->data, start_of_shard); if (!is_word_mbchar(&openfile->current->data[step_left], FALSE)) break; start_of_shard = step_left; } /* If there is no word fragment before the cursor, do nothing. */ if (start_of_shard == openfile->current_x) { pletion_line = NULL; return; } shard = charalloc(openfile->current_x - start_of_shard + 1); /* Copy the fragment that has to be searched for. */ while (start_of_shard < openfile->current_x) shard[shard_length++] = openfile->current->data[start_of_shard++]; shard[shard_length] = '\0'; /* Run through all of the lines in the buffer, looking for shard. */ while (pletion_line != NULL) { int threshold = strlen(pletion_line->data) - shard_length - 1; /* The point where we can stop searching for shard. */ /* Traverse the whole line, looking for shard. */ for (i = pletion_x; (int)i < threshold; i++) { /* If the first byte doesn't match, run on. */ if (pletion_line->data[i] != shard[0]) continue; /* Compare the rest of the bytes in shard. */ for (j = 1; j < shard_length; j++) if (pletion_line->data[i + j] != shard[j]) break; /* If not all of the bytes matched, continue searching. */ if (j < shard_length) continue; /* If the found match is not /longer/ than shard, skip it. */ if (!is_word_mbchar(&pletion_line->data[i + j], FALSE)) continue; /* If the match is not a separate word, skip it. */ if (i > 0 && is_word_mbchar(&pletion_line->data[ move_mbleft(pletion_line->data, i)], FALSE)) continue; /* If this match is the shard itself, ignore it. */ if (pletion_line == openfile->current && i == openfile->current_x - shard_length) continue; completion = copy_completion(pletion_line->data, i); /* Look among earlier attempted completions for a duplicate. */ some_word = list_of_completions; while (some_word && strcmp(some_word->word, completion) != 0) some_word = some_word->next; /* If we've already tried this word, skip it. */ if (some_word != NULL) { free(completion); continue; } /* Add the found word to the list of completions. */ some_word = (completion_word *)nmalloc(sizeof(completion_word)); some_word->word = completion; some_word->next = list_of_completions; list_of_completions = some_word; #ifdef ENABLE_WRAPPING /* Temporarily disable wrapping so only one undo item is added. */ SET(NO_WRAP); #endif /* Inject the completion into the buffer. */ do_output(&completion[shard_length], strlen(completion) - shard_length, FALSE); #ifdef ENABLE_WRAPPING /* If needed, reenable wrapping and wrap the current line. */ if (was_set_wrapping) { UNSET(NO_WRAP); do_wrap(openfile->current); } #endif /* Set the position for a possible next search attempt. */ pletion_x = ++i; free(shard); return; } pletion_line = pletion_line->next; pletion_x = 0; } /* The search has reached the end of the file. */ if (list_of_completions != NULL) { statusline(ALERT, _("No further matches")); refresh_needed = TRUE; } else /* TRANSLATORS: Shown when there are zero possible completions. */ statusline(ALERT, _("No matches")); free(shard); } #endif /* ENABLE_WORDCOMPLETION */