Return to smatch.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / sbr

Annotation of 43BSD/contrib/mh/sbr/smatch.c, revision 1.1.1.1

1.1       root        1: /* smatch.c - match a switch */
                      2: 
                      3: #include "../h/mh.h"
                      4: 
                      5: 
                      6: #define abs(i) (i < 0 ? -i : i)
                      7: 
                      8: 
                      9: smatch(string, swp)
                     10: register char *string;
                     11: register struct swit *swp;
                     12: {
                     13:     register char  *sp,
                     14:                    *tcp;
                     15:     struct swit *tp;
                     16:     int     firstone,
                     17:             stringlen;
                     18: 
                     19:     firstone = UNKWNSW;
                     20: 
                     21:     for (stringlen = strlen (string), tp = swp; tcp = tp -> sw; tp++) {
                     22:        if (stringlen < abs (tp -> minchars))
                     23:            continue;           /* no match */
                     24:        for (sp = string; *sp == *tcp++;) {
                     25:            if (*sp++ == 0)
                     26:                return (tp - swp);/* exact match */
                     27:        }
                     28:        if (*sp != 0) {
                     29:            if (*sp != ' ')
                     30:                continue;       /* no match */
                     31:            if (*--tcp == 0)
                     32:                return (tp - swp);/* exact match */
                     33:        }
                     34:        if (firstone == UNKWNSW)
                     35:            firstone = tp - swp;
                     36:        else
                     37:            firstone = AMBIGSW;
                     38:     }
                     39: 
                     40:     return (firstone);
                     41: }

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