spell/spellprog/spellprog.c

436 suffix(char *ep, size_t lev)
442 	lev += DLEV;
443 	getderiv(lev + 1);
444 	deriv.buf[lev] = deriv.buf[lev - 1] = 0;
455 		if ((*t->p1)(ep - t->n1, t->d1, t->a1, lev + 1))
458 			deriv.buf[lev] = deriv.buf[lev + 1] = '\0';
459 			return (*t->p2)(ep - t->n2, t->d2, t->a2, lev);
469 nop(char *ep, const char *d, const char *a, size_t lev)
477 strip(char *ep, const char *d, const char *a, size_t lev)
480 	return trypref(ep, a, lev) || suffix(ep, lev);
484 s(char *ep, const char *d, const char *a, const size_t lev)
487 	if (lev > DLEV + 1)
491 	return strip(ep, d, a, lev);
496 an(char *ep, const char *d, const char *a, size_t lev)
501 	return trypref(ep, a, lev);
506 ize(char *ep, const char *d, const char *a, size_t lev)
510 	return strip(ep ,"", d, lev);
515 y_to_e(char *ep, const char *d, const char *a, size_t lev)
520 	if (strip(ep, "", d, lev))
527 ily(char *ep, const char *d, const char *a, size_t lev)
531 		return i_to_y(ep, d, a, lev);
533 		return strip(ep, d, a, lev);
537 ncy(char *ep, const char *d, const char *a, size_t lev)
543 	return strip(ep, d, a, lev);
547 bility(char *ep, const char *d, const char *a, size_t lev)
551 	return y_to_e(ep, d, a, lev);
555 i_to_y(char *ep, const char *d, const char *a, size_t lev)
562 	return strip(ep, "", a, lev);
566 es(char *ep, const char *d, const char *a, size_t lev)
569 	if (lev > DLEV)
576 		return i_to_y(ep, d, a, lev);
581 		return strip(ep, d, a, lev);
586 metry(char *ep, const char *d, const char *a, size_t lev)
591 	return strip(ep, d, a, lev);
595 tion(char *ep, const char *d, const char *a, size_t lev)
601 		return trypref(ep, a, lev);
603 		return y_to_e(ep, d, a, lev);
612 CCe(char *ep, const char *d, const char *a, size_t lev)
625 			return y_to_e(ep, d, a, lev);
643 		if (y_to_e(ep, d, a, lev))
648 	return VCe(ep, d, a, lev);
655 VCe(char *ep, const char *d, const char *a, size_t lev)
665 		if (trypref(ep, d, lev) || suffix(ep, lev))
670 	return strip(ep, d, a, lev);
701 trypref(char *ep, const char *a, size_t lev)
709 	getderiv(lev + 2);
710 	deriv.buf[lev] = a;
711 	if (tryword(word, ep, lev))
715 	deriv.buf[lev + 1] = pp;
720 		if (tryword(bp, ep, lev + 1)) {
727 	deriv.buf[lev + 1] = deriv.buf[lev + 2] = '\0';
732 tryword(char *bp, char *ep, size_t lev)
746 		getderiv(++lev);
747 		deriv.buf[lev] = duple;
757 	for (j = lev; j > 0; j--) {
864 getderiv(size_t lev)
866 	if (deriv.maxlev < lev) {
867 		void *p = realloc(deriv.buf, sizeof(*deriv.buf) * lev);
871 		deriv.maxlev = lev;