Return to isthere.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/isthere.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     ******************************************
                      4:  *     ******************************************
                      5:  *     *** IS STRING IN THERE ? IF SO WHERE ? ***
                      6:  *     ****** R. B. Drake WH 8C-005 X4163 *******
                      7:  *     ******** Fri Aug 24 17:38:24 1979 ********
                      8:  *     ******************************************
                      9:  *     ******************************************
                     10: 
                     11: */
                     12: /*   "@(#) isthere.c:  V 1.1  12/21/80" */
                     13: 
                     14: /* determine if a group of characters is in a string and if so
                     15:  * return a pointer to the start of the group otherwise return
                     16:  * -1 */
                     17: #include "bas.h"
                     18: static char *beyond; /*pointer to first non-blank beyond group*/
                     19: char *isthere(s,t,flg)
                     20: char *s,*t;
                     21: int flg; /* used to turn quote testing on and off */
                     22: {
                     23:        int i;
                     24:        char *quot();
                     25:        for(;*t != 0;t++)
                     26:        {
                     27:                if((*t == '"') && ( flg ==1))
                     28:                {
                     29:                        t=quot(t);
                     30:                        if(t < (char *)0)
                     31:                                return(0);
                     32:                        if(*t == '\0')
                     33:                                return(0);
                     34:                }
                     35:                for(i=0; s[i] == 0 || s[i] == t[i];i++)
                     36:                        if(s[i] == '\0')
                     37:                        {
                     38:                        for(i=i;t[i] == ' ';i++);
                     39:                        beyond = &t[i];
                     40:                        return(t);
                     41:                        }
                     42:        }
                     43:        return(0);
                     44: }
                     45: /* take the string starting at ptr and */
                     46: shrink(ptr)
                     47: char *ptr;
                     48: {
                     49:        extern char linbuf[];
                     50:        while(*beyond != '\0')
                     51:                *ptr++ = *beyond++;
                     52:        *ptr = '\0';
                     53: }
                     54: /* routine to push the incoming pointer past anything enclosed
                     55:  * in double quotes. If we hit the end of string first, its an error */
                     56: char *quot(t)
                     57: char *t;
                     58: {
                     59:        t++; /* get past the opening quote */
                     60:        while(*t++ != '"')
                     61:                if(*t == '\0')
                     62:                {
                     63:                        error(inst.thing.linno,11);
                     64:                        return(0);
                     65:                }
                     66:        return(t);
                     67: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.