From 5a5e2352c9a01f9076994915188c26c6b9036202 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 17:28:28 +0200 Subject: Adding upstream version 4.9.0. Signed-off-by: Daniel Baumann --- search.c | 383 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 383 insertions(+) create mode 100644 search.c (limited to 'search.c') diff --git a/search.c b/search.c new file mode 100644 index 0000000..2e59554 --- /dev/null +++ b/search.c @@ -0,0 +1,383 @@ +/* Copyright (c) 2008, 2009 + * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de) + * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de) + * Micah Cowan (micah@cowan.name) + * Sadrul Habib Chowdhury (sadrul@users.sourceforge.net) + * Copyright (c) 1993-2002, 2003, 2005, 2006, 2007 + * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de) + * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de) + * Copyright (c) 1987 Oliver Laumann + * + * This program 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, or (at your option) + * any later version. + * + * This program 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 (see the file COPYING); if not, see + * https://www.gnu.org/licenses/, or contact Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA + * + **************************************************************** + */ + +#include + +#include "config.h" +#include "screen.h" +#include "mark.h" +#include "extern.h" + +#define INPUTLINE (flayer->l_height - 1) + +extern struct layer *flayer; +extern struct win *fore; + +#ifdef COPY_PASTE + +int search_ic; + +/******************************************************************** + * VI style Search + */ + +static int matchword __P((char*, int, int, int)); +static void searchend __P((char*, int, char *)); +static void backsearchend __P((char*, int, char *)); + +void +Search(int dir) +{ + struct markdata *markdata; + if (dir == 0) { + markdata = (struct markdata *)flayer->l_data; + if (markdata->isdir > 0) + searchend(0, 0, NULL); + else if (markdata->isdir < 0) + backsearchend(0, 0, NULL); + else + LMsg(0, "No previous pattern"); + } else + Input((dir > 0 ? "/" : "?"), sizeof(markdata->isstr) - 1, + INP_COOKED, (dir > 0 ? searchend : backsearchend), NULL, 0); +} + +static void +searchend(char *buf, int len, char *data) +{ + int x = 0, sx, ex, y; + struct markdata *markdata; + struct win *p; + + markdata = (struct markdata *)flayer->l_data; + p = markdata->md_window; + markdata->isdir = 1; + if (len) + strcpy(markdata->isstr, buf); + sx = markdata->cx + 1; + ex = flayer->l_width - 1; + for (y = markdata->cy; y < p->w_histheight + flayer->l_height; + y++, sx = 0) { + if ((x = matchword(markdata->isstr, y, sx, ex)) >= 0) + break; + } + if (y >= p->w_histheight + flayer->l_height) { + LGotoPos(flayer, markdata->cx, W2D(markdata->cy)); + LMsg(0, "Pattern not found"); + } else + revto(x, y); +} + +static void +backsearchend(char *buf, int len, char *data) +{ + int sx, ex, x = -1, y; + struct markdata *markdata; + + markdata = (struct markdata *)flayer->l_data; + markdata->isdir = -1; + + if (len) + strcpy(markdata->isstr, buf); + ex = markdata->cx - 1; + + for (y = markdata->cy; y >= 0; y--, ex = flayer->l_width - 1) { + sx = 0; + while ((sx = matchword(markdata->isstr, y, sx, ex)) >= 0) + x = sx++; + if (x >= 0) + break; + } + + if (y < 0) { + LGotoPos(flayer, markdata->cx, W2D(markdata->cy)); + LMsg(0, "Pattern not found"); + } else + revto(x, y); +} + +/* + * Search for a string that matches pattern. The first character of the + * match must be on line y, between columns sx and ex (inclusive), but + * the rest of the match can extend beyond column ex and even onto the + * following line. Returns the starting column of the first match found, + * or -1 if there's no match. + */ +static int +matchword(char *pattern, int y, int sx, int ex) +{ + unsigned char *cp, *pp, *cpe; + int cy; + + fore = ((struct markdata *)flayer->l_data)->md_window; + + for (; sx <= ex; sx++) { + cy = y; + cp = WIN(cy)->image + sx; + cpe = WIN(cy)->image + flayer->l_width; + pp = (unsigned char *)pattern; + for (;;) { + if (*cp != *pp) + if (!search_ic || ((*cp ^ *pp) & 0xdf) || + (*cp | 0x20) < 'a' || (*cp | 0x20) > 'z') + break; + cp++; + pp++; + if (*pp == 0) + return sx; + if (cp == cpe) { + /* + * We have a partial match, but we've hit + * the end of this line. Does it wrap onto + * the following line? If not, we're done. + */ + if (*cp == ' ' || + cy >= + fore->w_histheight + flayer->l_height - 1) + break; + + /* + * This line does wrap, so look on the next + * line for the rest of our match. + */ + cy++; + cp = WIN(cy)->image; + cpe = WIN(cy)->image + flayer->l_width; + } + } + } + return -1; +} + +/******************************************************************** + * Emacs style ISearch + */ + +static char *isprompts[] = { + "I-search backward: ", "failing I-search backward: ", + "I-search: ", "failing I-search: " +}; + +static int is_redo __P((struct markdata*)); +static void is_process __P((char*, int, char *)); +static int is_bm __P((char*, int, int, int, int)); + +static int +is_bm(char *str, int l, int p, int end, int dir) +{ + int tab[256]; + int i, q; + unsigned char *s, c; + int w = flayer->l_width; + + /* *sigh* to make WIN work */ + fore = ((struct markdata *)flayer->l_next->l_data)->md_window; + debug2("is_bm: searching for %s len %d\n", str, l); + debug3("start at %d end %d dir %d\n", p, end, dir); + + if (p < 0 || p + l > end) + return -1; + if (l == 0) + return p; + if (dir < 0) + str += l - 1; + for (i = 0; i < 256; i++) + tab[i] = l * dir; + + for (i = 0; i < l - 1; i++, str += dir) { + q = *(unsigned char *)str; + tab[q] = (l - 1 - i) * dir; + if (search_ic && (q | 0x20) >= 'a' && ((q | 0x20) <= 'z')) + tab[q ^ 0x20] = (l - 1 - i) * dir; + } + + if (dir > 0) + p += l - 1; + + debug1("first char to match: %c\n", *str); + + while (p >= 0 && p < end) { + q = p; + s = (unsigned char *)str; + for (i = 0;;) { + c = (WIN(q / w))->image[q % w]; + if (i == 0) + p += tab[(int)(unsigned char)c]; + if (c != *s) + if (!search_ic || ((c ^ *s) & 0xdf) || + (c | 0x20) < 'a' || (c | 0x20) > 'z') + break; + q -= dir; + s -= dir; + if (++i == l) + return q + (dir > 0 ? 1 : -l); + } + } + return -1; +} + +/*ARGSUSED*/ +static void +is_process(char *p, int n, char *data) /* i-search */ +{ + int pos, x, y, dir; + struct markdata *markdata; + + if (n == 0) + return; + ASSERT(p); + markdata = (struct markdata *)flayer->l_next->l_data; + + pos = markdata->cx + markdata->cy * flayer->l_width; + LGotoPos(flayer, markdata->cx, W2D(markdata->cy)); + + switch (*p) { + case '\007': /* CTRL-G */ + pos = markdata->isstartpos; + /*FALLTHROUGH*/ + case '\033': /* ESC */ + *p = 0; + break; + case '\013': /* CTRL-K */ + case '\027': /* CTRL-W */ + markdata->isistrl = 1; + /*FALLTHROUGH*/ + case '\b': + case '\177': + if (markdata->isistrl == 0) + return; + markdata->isistrl--; + pos = is_redo(markdata); + *p = '\b'; + break; + case '\023': /* CTRL-S */ + case '\022': /* CTRL-R */ + if (markdata->isistrl >= (int)sizeof(markdata->isistr)) + return; + dir = (*p == '\023') ? 1 : -1; + pos += dir; + if (markdata->isdir == dir && markdata->isistrl == 0) { + strcpy(markdata->isistr, markdata->isstr); + markdata->isistrl = markdata->isstrl = strlen(markdata->isstr); + break; + } + markdata->isdir = dir; + markdata->isistr[markdata->isistrl++] = *p; + break; + default: + if (*p < ' ' || + markdata->isistrl >= + (int)sizeof(markdata->isistr) || + markdata->isstrl >= (int)sizeof(markdata->isstr) - 1) + return; + markdata->isstr[markdata->isstrl++] = *p; + markdata->isistr[markdata->isistrl++] = *p; + markdata->isstr[markdata->isstrl] = 0; + debug2("New char: %c - left %d\n", *p, + (int)sizeof(markdata->isistr) - markdata->isistrl); + } + if (*p && *p != '\b') + pos = is_bm(markdata->isstr, markdata->isstrl, pos, + flayer->l_width * + (markdata->md_window->w_histheight + flayer->l_height), + markdata->isdir); + if (pos >= 0) { + x = pos % flayer->l_width; + y = pos / flayer->l_width; + LAY_CALL_UP(LayRedisplayLine(INPUTLINE, 0, flayer -> l_width - 1, + 0) ; revto(x, y) ; if(W2D(markdata -> cy) == INPUTLINE) revto_line(markdata + -> cx, markdata -> cy, INPUTLINE > 0 ? INPUTLINE - 1 : 1) ;); + } + if (*p) + inp_setprompt(isprompts[markdata->isdir + (pos < 0) + 1], + markdata->isstrl ? markdata->isstr : ""); + flayer->l_x = markdata->cx; + flayer->l_y = W2D(markdata->cy); + LGotoPos(flayer, flayer->l_x, flayer->l_y); + if (!*p) { + /* we are about to finish, keep cursor position */ + flayer->l_next->l_x = markdata->cx; + flayer->l_next->l_y = W2D(markdata->cy); + } +} + +static int +is_redo(struct markdata *markdata) +{ + int i, pos, npos, dir; + char c; + + npos = pos = markdata->isstartpos; + dir = markdata->isstartdir; + markdata->isstrl = 0; + + for (i = 0; i < markdata->isistrl; i++) { + c = markdata->isistr[i]; + if (c == '\022') /* ^R */ + pos += (dir = -1); + else if (c == '\023') /* ^S */ + pos += (dir = 1); + else + markdata->isstr[markdata->isstrl++] = c; + if (pos >= 0) { + npos = is_bm(markdata->isstr, markdata->isstrl, pos, + flayer->l_width * + (markdata->md_window->w_histheight + + flayer->l_height), dir); + if (npos >= 0) + pos = npos; + } + } + markdata->isstr[markdata->isstrl] = 0; + markdata->isdir = dir; + return npos; +} + +void +ISearch(int dir) +{ + struct markdata *markdata; + + markdata = (struct markdata *)flayer->l_data; + markdata->isdir = markdata->isstartdir = dir; + markdata->isstartpos = markdata->cx + markdata->cy * flayer->l_width; + markdata->isistrl = markdata->isstrl = 0; + + if (W2D(markdata->cy) == INPUTLINE) + revto_line(markdata->cx, markdata->cy, + INPUTLINE > 0 ? INPUTLINE - 1 : 1); + + Input(isprompts[dir + 1], sizeof(markdata->isstr) - 1, INP_RAW, + is_process, NULL, 0); + + LGotoPos(flayer, markdata->cx, W2D(markdata->cy)); + flayer->l_x = markdata->cx; + flayer->l_y = W2D(markdata->cy); +} + +#endif /* COPY_PASTE */ -- cgit v1.2.3