source: trunk/minix/commands/elle/eequer.c@ 9

/* 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*/
}