rem: match(f, p) register fa *f; register uchar *p;
add: match(fa *f, uchar *p)
context: match(f, p)	register fa *f;	register uchar *p;{	register int s, ns;	s = f->reset?makeinit(f,0):f->initstat;	if (f->out[s])		return(1);	do {		if (ns=f->gototab[s][*p])			s=ns;		else			s=cgoto(f,s,*p);		if (f->out[s])			return(1);	} while (*p++ != 0);	return(0);}