date and time created 93/01/23 11:13:24 by bostic

[unix-history] / usr / src / contrib / ed / search.c

/*-
* Copyright (c) 1992 The Regents of the University of California.
* All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* Rodney Ruddock of the University of Guelph.
*
* %sccs.include.redist.c%
*/

#ifndef lint
static char sccsid[] = "@(#)search.c    5.1 (Berkeley) %G%";
#endif /* not lint */

#include "ed.h"

/*
* searches forward through the buffer (wrapping if necessary) for a
* line that contains a match to the RE.
*/

LINE
*search(inputt, errnum)

FILE *inputt;
int *errnum;

{

 LINE *l_temp;
 int l_err;
 char *l_patt;

 l_temp = current->below;
 /* get the RE */
 l_patt = get_pattern(ss, inputt, errnum, 0);
 if (sigint_flag)
   SIGINT_ACTION;
 if (*errnum < -1)
   return(NULL);
 *errnum = 0;
 if ((RE_flag == 0) && (l_patt[1] == '\0'))
   {
     *errnum = -1;
     ungetc(ss, inputt);
     return(NULL);
   }
 else if (l_patt[1] || (RE_patt == NULL))
   {
     free(RE_patt);
     RE_patt = l_patt;
   }
 RE_sol = (RE_patt[1] == '^')?1:0;
 /* compile it up */
 if ((l_patt[1]) && (regfree(&RE_comp), l_err = regcomp(&RE_comp, &RE_patt[1], 0)))
   {
     regerror(l_err, &RE_comp, help_msg, 128);
     *errnum = -1;
     RE_flag = 0;
     ungetc(ss, inputt);
     return(NULL);
   }
 RE_flag = 1;
 if (sigint_flag)
   SIGINT_ACTION;
 /* find a line that has the RE in it */
 while (1) /*(l_temp != current)*/
      {
        if (l_temp == NULL)
          {
            if (top != NULL)
              l_temp = top;
            else
              break;
          }
        get_line(l_temp->handle, l_temp->len);
        if (regexec(&RE_comp, text, (size_t)RE_SEC, RE_match, 0))
          {
            l_temp = l_temp->below;
            if (l_temp == (current->below))
               break;
          }
        else
          {
            *errnum = 0;
            return(l_temp);
          }
        if (sigint_flag)
          SIGINT_ACTION;
      } /* end-while */
 strcpy(help_msg, "RE not found");
 *errnum = -1;
 return(NULL);
} /* end-search */

/*
* Searches backward through the buffer (wrapping if necessary) to find
* a line that contains a match to the RE.
*/

LINE
*search_r(inputt, errnum)

FILE *inputt;
int *errnum;

{

 LINE *l_temp;
 int l_err;
 char *l_patt;

 l_temp = current->above;
 /* get the RE */
 l_patt = get_pattern(ss, inputt, errnum, 0);
 if (sigint_flag)
   SIGINT_ACTION;
 if (*errnum < -1)
   return(NULL);
 *errnum = 0;
 if ((RE_flag == 0) && (l_patt[1] == '\0'))
   {
     *errnum = -1;
     ungetc(ss, inputt);
     return(NULL);
   }
 else if (l_patt[1] || (RE_patt == NULL))
   {
     free(RE_patt);
     RE_patt = l_patt;
   }
 RE_sol = (RE_patt[1] == '^')?1:0;
 /* compile up the RE */
 if ((l_patt[1]) && (regfree(&RE_comp), l_err = regcomp(&RE_comp, &RE_patt[1], 0)))
   {
     regerror(l_err, &RE_comp, help_msg, 128);
     *errnum = -1;
     RE_flag = 0;
     ungetc(ss, inputt);
     return(NULL);
   }
 RE_flag = 1;
 if (sigint_flag)
   SIGINT_ACTION;
 /* search for a line that has the RE in it */
 while (1) /*(l_temp != (current->above))*/
      {
        if (l_temp == NULL)
          {
            if (bottom != NULL)
              l_temp = bottom;
            else
              break;
          }
        get_line(l_temp->handle, l_temp->len);
        if (regexec(&RE_comp, text, (size_t)RE_SEC, RE_match, 0))
          {
            l_temp = l_temp->above;
            if (l_temp == (current->above))
              break;
          }
        else
          {
            *errnum = 0;
            return(l_temp);
          }
       if (sigint_flag)
         SIGINT_ACTION;
      } /* end-while */
 strcpy(help_msg, "RE not found");
 *errnum = -1;
 return(NULL);
} /* end-search */