4.3BSD-UWisc/src/usr.bin/efl/fixuplex

#! /bin/sh
ed - lex.yy.c <<!
/input/s/getc(yyin)/efgetc/
/yylex/+1a
if(pushlex)
	if(pushlex==1)
		{
		pushlex = 2;
		yylval.ival = 0;
		return(EOS);
		}
	else	{
		pushlex = 0;
		if(rket == 2)
			rket = 1;
		else	RETL(prevv,prevl);
		}
if(rket > 0)
	{
	if(rket==1)
		{
		rket = 2;
		RET(RBRACK);
		}
	else	{
		rket = 0;
		RET(EOS);
		}
	}
if(eofneed) return(0);
if(forcerr) return(-1);
.
w
q
!