Return to vfgets.c CVS log

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

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

1.1       root        1: /* vfgets.c - virtual fgets */
                      2: 
                      3: #include "../h/mh.h"
                      4: #include <stdio.h>
                      5: 
                      6: 
                      7: #define        QUOTE   '\\'
                      8: 
                      9: 
                     10: int    vfgets (in, bp)
                     11: register FILE *in;
                     12: register char  **bp;
                     13: {
                     14:     register int    toggle;
                     15:     register char  *cp,
                     16:                    *dp,
                     17:                    *ep,
                     18:                   *fp;
                     19:     static int  len = 0;
                     20:     static char *pp = NULL;
                     21: 
                     22:     if (pp == NULL)
                     23:        if ((pp = malloc ((unsigned) (len = BUFSIZ))) == NULL)
                     24:            adios (NULLCP, "unable to allocate string storage");
                     25: 
                     26:     for (ep = (cp = pp) + len - 1;;) {
                     27:        if (fgets (cp, ep - cp + 1, in) == NULL) {
                     28:            if (cp != pp) {
                     29:                *bp = pp;
                     30:                return OK;
                     31:            }
                     32:            return (ferror (in) ? NOTOK : DONE);
                     33:        }
                     34: 
                     35:        if ((dp = cp + strlen (cp) - 2) < cp || *dp != QUOTE) {
                     36: wrong_guess: ;
                     37:            if (cp > ++dp)
                     38:                adios (NULLCP, "vfgets() botch -- you lose big");
                     39:            if (*dp == '\n') {
                     40:                *bp = pp;
                     41:                return OK;
                     42:            }
                     43:            else
                     44:                cp = ++dp;
                     45:        }
                     46:        else {
                     47:            for (fp = dp - 1, toggle = 0; fp >= cp; fp--)
                     48:                if (*fp != QUOTE)
                     49:                    break;
                     50:                else
                     51:                    toggle = !toggle;
                     52:            if (toggle)
                     53:                goto wrong_guess;
                     54:            if (*++dp == '\n')
                     55:                *--dp = NULL, cp = dp;
                     56:            else
                     57:                cp = ++dp;
                     58:        }
                     59: 
                     60:        if (cp >= ep) {
                     61:            register int curlen = cp - pp;
                     62: 
                     63:            if ((dp = realloc (pp, (unsigned) (len += BUFSIZ))) == NULL)
                     64:                adios (NULLCP, "unable to allocate string storage");
                     65:            else
                     66:                cp = dp + curlen, ep = (pp = dp) + len - 1;
                     67:        }
                     68:     }
                     69: }

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