189 lines
4.6 KiB
C
189 lines
4.6 KiB
C
/* ELLE - Copyright 1982, 1984, 1987 by Ken Harrenstien, SRI International
|
|
* This software is quasi-public; it may be used freely with
|
|
* like software, but may NOT be sold or made part of licensed
|
|
* products without permission of the author.
|
|
*/
|
|
/*
|
|
* EEQUER Query-Replace and Replace-String functions
|
|
*/
|
|
|
|
#include "elle.h" /* include structure definitions */
|
|
|
|
/* EFUN: "Query Replace" */
|
|
/* Crude approximation of EMACS function.
|
|
*/
|
|
f_querep()
|
|
{ static struct majmode iqrpmode = { "Query Replace" };
|
|
ed_dorep(0, &iqrpmode);
|
|
}
|
|
|
|
/* EFUN: "Replace String" */
|
|
/* Similar to Query Replace and uses same code.
|
|
*/
|
|
f_repstr()
|
|
{ static struct majmode irepmode = { "Replace String" };
|
|
ed_dorep(1, &irepmode);
|
|
}
|
|
|
|
#if FX_REPLINE
|
|
/* EFUN: "Replace in Line" (not EMACS) */
|
|
/* Acts like Replace String but only operates on current line.
|
|
** Currently a big crock.
|
|
** Feature of crockishness is that Unkill Pop (M-Y) will restore old
|
|
** line.
|
|
*/
|
|
f_repline()
|
|
{
|
|
extern struct buffer *make_buf();
|
|
struct buffer *b, *oldb = cur_buf;
|
|
static struct majmode rlmode = { "Replace in Line" };
|
|
|
|
if(!(b = make_buf(" **LINE**")))
|
|
{ ring_bell();
|
|
return;
|
|
}
|
|
f_kline(); /* Kill line(s) from original buffer */
|
|
chg_buf(b); /* Switch to temp buffer */
|
|
f_unkill(); /* Get killed stuff into temp buffer */
|
|
e_gosetcur((chroff)0); /* Starting at beginning, */
|
|
ed_dorep(1, &rlmode); /* Execute Replace String on it. */
|
|
ed_kill((chroff)0, e_blen()); /* Now kill everything in it, */
|
|
chg_buf(oldb); /* switch back to original buffer, */
|
|
f_unkill(); /* and restore new stuff! */
|
|
kill_buf(b); /* Now flush temporary buffer. */
|
|
}
|
|
#endif
|
|
|
|
|
|
/* Note that the major mode is set without changing the buffer's major
|
|
* mode. When the function is done, the current major mode is reset
|
|
* from the buffer mode.
|
|
*/
|
|
ed_dorep(type, mode) /* 0 = Query Replace, 1 = Replace String */
|
|
int type;
|
|
struct majmode *mode;
|
|
{ register int c;
|
|
register int olen, allflg;
|
|
char *srch_ask();
|
|
char *opromp, *npromp;
|
|
char *nstr, *ostr; /* Note ostr is == to srch_str */
|
|
int nlen;
|
|
chroff last_loc;
|
|
#if IMAGEN
|
|
int nrepled = 0;
|
|
char replmsg[64];
|
|
#endif /*IMAGEN*/
|
|
|
|
/* Set mode, then get search string and replace string */
|
|
#if IMAGEN
|
|
cur_win->w_buf->b_flags |= B_QUERYREP;
|
|
#else
|
|
cur_mode = mode; /* Set major mode pointer */
|
|
#endif /*-IMAGEN*/
|
|
|
|
redp(RD_MODE);
|
|
nstr = 0;
|
|
#if IMAGEN
|
|
opromp = "Old string: ";
|
|
npromp = "New string: ";
|
|
#else
|
|
opromp = "Replace string: ";
|
|
npromp = "with string: ";
|
|
#endif /*-IMAGEN*/
|
|
if((ostr = srch_ask(opromp)) == 0)
|
|
goto done;
|
|
olen = srch_len; /* srch_ask sets this! */
|
|
if((nstr = ask("%s%s %s", opromp, ostr, npromp)) == 0)
|
|
goto done;
|
|
nlen = ask_len;
|
|
|
|
/* Now enter search and subcommand loop */
|
|
allflg = type; /* Unless 0 for Query Rep, replace all */
|
|
for(;;)
|
|
{ last_loc = cur_dot;
|
|
if(e_search(ostr,olen,0) == 0)
|
|
break;
|
|
ed_setcur(); /* Cursor moved */
|
|
redisp:
|
|
if(!allflg) redisplay(); /* Update screen */
|
|
getcmd:
|
|
if(!allflg) c = cmd_read();
|
|
else c = SP;
|
|
switch(c)
|
|
{
|
|
#if IMAGEN
|
|
case 'n':
|
|
#endif /*IMAGEN*/
|
|
case DEL: /* Don't replace, go on */
|
|
continue;
|
|
#if IMAGEN
|
|
case ',':
|
|
#endif /*IMAGEN*/
|
|
case '.': /* Replace and exit */
|
|
case SP: /* Replace, go on */
|
|
ed_delete(cur_dot,(chroff)(cur_dot-olen));
|
|
ed_nsins(nstr,nlen);
|
|
#if IMAGEN
|
|
++nrepled;
|
|
#endif /*IMAGEN*/
|
|
if(c == '.') goto done;
|
|
continue;
|
|
#if IMAGEN
|
|
default:
|
|
#endif /*IMAGEN*/
|
|
case '?': /* Show options */
|
|
#if IMAGEN
|
|
saynow("\
|
|
' '=>change, 'n'=>don't, '.'=>change, quit, '!'=>change rest, '^'=>back up");
|
|
#else
|
|
saynow("\
|
|
SP=Replace, DEL=Don't, ESC=Stop, !=Replace all, ^=Back up, .=Replace & Stop");
|
|
#endif /*-IMAGEN*/
|
|
goto getcmd;
|
|
case '^': /* Return to last place found */
|
|
ed_go(last_loc);
|
|
goto redisp;
|
|
|
|
case CTRL('G'):
|
|
case ESC: /* Exit where we are */
|
|
goto done;
|
|
|
|
case CTRL('L'): /* Redisplay */
|
|
redp(RD_SCREEN);
|
|
goto redisp;
|
|
|
|
case '!': /* Replace all the rest */
|
|
allflg++;
|
|
goto getcmd;
|
|
|
|
#if !(IMAGEN)
|
|
case ',': /* Replace and show */
|
|
case CTRL('R'): /* Enter edit mode recursively */
|
|
case CTRL('W'): /* Delete once and ^R */
|
|
saynow("not implemented");
|
|
goto getcmd;
|
|
default: /* Exit and re-read char */
|
|
unrchf = c;
|
|
goto done;
|
|
#endif /*-IMAGEN*/
|
|
}
|
|
}
|
|
done:
|
|
#if IMAGEN
|
|
cur_win->w_buf->b_flags &= ~B_QUERYREP;
|
|
#else
|
|
cur_mode = cur_buf->b_mode;
|
|
#endif /*-IMAGEN*/
|
|
|
|
redp(RD_MODE);
|
|
if(nstr) /* Free nstr (but not ostr, it's == srch_str!) */
|
|
chkfree(nstr);
|
|
#if IMAGEN
|
|
if (nrepled <= 0)
|
|
saynow("No replacements done");
|
|
else
|
|
{ sprintf(replmsg, "Replaced %d occurences", nrepled);
|
|
saynow(replmsg);
|
|
}
|
|
#endif /*IMAGEN*/
|
|
}
|