head	1.3;
access;
symbols;
locks; strict;
comment	@ * @;


1.3
date	92.12.15.00.20.22;	author jromine;	state Exp;
branches;
next	1.2;

1.2
date	92.01.31.21.58.55;	author jromine;	state Exp;
branches;
next	1.1;

1.1
date	92.01.31.21.58.45;	author jromine;	state Exp;
branches;
next	;


desc
@@


1.3
log
@endif sugar
@
text
@/* vfgets.c - virtual fgets */
#ifndef       lint
static char ident[] = "@@(#)$Id: vfgets.c,v 1.2 1992/01/31 21:58:55 jromine Exp jromine $";
#endif	/*        lint */

#include "../h/mh.h"
#include <stdio.h>


#define	QUOTE	'\\'


int	vfgets (in, bp)
register FILE *in;
register char  **bp;
{
    register int    toggle;
    register char  *cp,
                   *dp,
                   *ep,
		   *fp;
    static int  len = 0;
    static char *pp = NULL;

    if (pp == NULL)
	if ((pp = malloc ((unsigned) (len = BUFSIZ))) == NULL)
	    adios (NULLCP, "unable to allocate string storage");

    for (ep = (cp = pp) + len - 1;;) {
	if (fgets (cp, ep - cp + 1, in) == NULL) {
	    if (cp != pp) {
		*bp = pp;
		return OK;
	    }
	    return (ferror (in) && !feof (in) ? NOTOK : DONE);
	}

	if ((dp = cp + strlen (cp) - 2) < cp || *dp != QUOTE) {
wrong_guess: ;
	    if (cp > ++dp)
		adios (NULLCP, "vfgets() botch -- you lose big");
	    if (*dp == '\n') {
		*bp = pp;
		return OK;
	    }
	    else
		cp = ++dp;
	}
	else {
	    for (fp = dp - 1, toggle = 0; fp >= cp; fp--)
		if (*fp != QUOTE)
		    break;
		else
		    toggle = !toggle;
	    if (toggle)
		goto wrong_guess;
	    if (*++dp == '\n')
		*--dp = 0, cp = dp;
	    else
		cp = ++dp;
	}

	if (cp >= ep) {
	    register int curlen = cp - pp;

	    if ((dp = realloc (pp, (unsigned) (len += BUFSIZ))) == NULL)
		adios (NULLCP, "unable to allocate string storage");
	    else
		cp = dp + curlen, ep = (pp = dp) + len - 1;
	}
    }
}
@


1.2
log
@kerberos
@
text
@d3 2
a4 2
static char ident[] = "@@(#)$Id$";
#endif        lint
@


1.1
log
@Initial revision
@
text
@d2 3
d58 1
a58 1
		*--dp = NULL, cp = dp;
@