SCCS-vsn: usr.bin/spell/spell.c 4.4
SCCS-vsn: usr.bin/spell/spellin.c 4.2
SCCS-vsn: usr.bin/spell/spell.h 4.2
SCCS-vsn: usr.bin/spell/spellout.c 4.2
-static char sccsid[] = "@(#)spell.c 4.3 %G%";
+static char sccsid[] = "@(#)spell.c 4.4 %G%";
#endif
#include "spell.h"
#endif
#include "spell.h"
char affix[40];
main(argc,argv)
char affix[40];
main(argc,argv)
char **argv;
{
register char *ep, *cp;
char **argv;
{
register char *ep, *cp;
{
register struct suftab *t;
register char *cp, *sp;
{
register struct suftab *t;
register char *cp, *sp;
strip(ep,d,a,lev)
char *ep,*d,*a;
strip(ep,d,a,lev)
char *ep,*d,*a;
{
return(putsuf(ep,a,lev)||suffix(ep,lev));
}
s(ep,d,a,lev)
char *ep,*d,*a;
{
return(putsuf(ep,a,lev)||suffix(ep,lev));
}
s(ep,d,a,lev)
char *ep,*d,*a;
{
if(lev>DLEV+1)
return(0);
{
if(lev>DLEV+1)
return(0);
an(ep,d,a,lev)
char *ep,*d,*a;
an(ep,d,a,lev)
char *ep,*d,*a;
{
if(!isupper(*word)) /*must be proper name*/
return(0);
{
if(!isupper(*word)) /*must be proper name*/
return(0);
ize(ep,d,a,lev)
char *ep,*d,*a;
ize(ep,d,a,lev)
char *ep,*d,*a;
{
*ep++ = 'e';
return(strip(ep,"",d,lev));
{
*ep++ = 'e';
return(strip(ep,"",d,lev));
y_to_e(ep,d,a,lev)
char *ep,*d,*a;
y_to_e(ep,d,a,lev)
char *ep,*d,*a;
{
char c = *ep;
*ep++ = 'e';
{
char c = *ep;
*ep++ = 'e';
ily(ep,d,a,lev)
char *ep,*d,*a;
ily(ep,d,a,lev)
char *ep,*d,*a;
{
if(ep[-1]=='i')
return(i_to_y(ep,d,a,lev));
{
if(ep[-1]=='i')
return(i_to_y(ep,d,a,lev));
ncy(ep,d,a,lev)
char *ep, *d, *a;
ncy(ep,d,a,lev)
char *ep, *d, *a;
{
if(skipv(skipv(ep-1))<word)
return(0);
{
if(skipv(skipv(ep-1))<word)
return(0);
bility(ep,d,a,lev)
char *ep,*d,*a;
bility(ep,d,a,lev)
char *ep,*d,*a;
{
*ep++ = 'l';
return(y_to_e(ep,d,a,lev));
{
*ep++ = 'l';
return(y_to_e(ep,d,a,lev));
i_to_y(ep,d,a,lev)
char *ep,*d,*a;
i_to_y(ep,d,a,lev)
char *ep,*d,*a;
{
if(ep[-1]=='i') {
ep[-1] = 'y';
{
if(ep[-1]=='i') {
ep[-1] = 'y';
es(ep,d,a,lev)
char *ep,*d,*a;
es(ep,d,a,lev)
char *ep,*d,*a;
{
if(lev>DLEV)
return(0);
{
if(lev>DLEV)
return(0);
metry(ep,d,a,lev)
char *ep, *d,*a;
metry(ep,d,a,lev)
char *ep, *d,*a;
{
ep[-2] = 'e';
ep[-1] = 'r';
{
ep[-2] = 'e';
ep[-1] = 'r';
tion(ep,d,a,lev)
char *ep,*d,*a;
tion(ep,d,a,lev)
char *ep,*d,*a;
{
switch(ep[-2]) {
case 'c':
{
switch(ep[-2]) {
case 'c':
/* possible consonant-consonant-e ending*/
CCe(ep,d,a,lev)
char *ep,*d,*a;
/* possible consonant-consonant-e ending*/
CCe(ep,d,a,lev)
char *ep,*d,*a;
{
switch(ep[-1]) {
case 'l':
{
switch(ep[-1]) {
case 'l':
/* possible consonant-vowel-consonant-e ending*/
VCe(ep,d,a,lev)
char *ep,*d,*a;
/* possible consonant-vowel-consonant-e ending*/
VCe(ep,d,a,lev)
char *ep,*d,*a;
putsuf(ep,a,lev)
char *ep,*a;
putsuf(ep,a,lev)
char *ep,*a;
{
register char *cp;
char *bp;
{
register char *cp;
char *bp;
int val = 0;
char space[20];
deriv[lev] = a;
int val = 0;
char space[20];
deriv[lev] = a;
+ if(putword(word,ep,lev))
return(1);
bp = word;
pp = space;
return(1);
bp = word;
pp = space;
*pp++ = '+';
while(*pp = *cp++)
pp++;
*pp++ = '+';
while(*pp = *cp++)
pp++;
- if(putw(bp,ep,lev+1)) {
+ if(putword(bp,ep,lev+1)) {
{
register i, j;
char duple[3];
{
register i, j;
char duple[3];
{
switch(Tolower(c)) {
case 'a':
{
switch(Tolower(c)) {
case 'a':
-/* @(#)spell.h 4.1 %G% */
+/* @(#)spell.h 4.2 %G% */
#include <stdio.h>
#include <ctype.h>
#include <stdio.h>
#include <ctype.h>
-prime(argc, argv) register char **argv;
+prime(argc, argv)
+ int argc;
+ register char **argv;
-static char sccsid[] = "@(#)spellin.c 4.1 %G%";
+static char sccsid[] = "@(#)spellin.c 4.2 %G%";
#endif
#include "spell.h"
#endif
#include "spell.h"
char **argv;
{
register i, j;
char **argv;
{
register i, j;
-static char sccsid[] = "@(#)spellout.c 4.1 %G%";
+static char sccsid[] = "@(#)spellout.c 4.2 %G%";
#endif
#include "spell.h"
main(argc, argv)
#endif
#include "spell.h"
main(argc, argv)
char **argv;
{
register i, j;
char **argv;
{
register i, j;