![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to syl.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / wwb|
Return to syl.c CVS log | Up to [Research Unix] / researchv8dc / cmd / wwb |
1.1 root 1: /* NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT */
2: /* Writer's Workbench version 2.0, January 1981 */
3: #include <stdio.h>
4: #include <ctype.h>
5: #define MAXCHAR 50
6: #define isvowel(c) (c=='a'||c=='e'||c=='i'||c=='o'||c=='u')
7: char a[MAXCHAR],b[MAXCHAR];
8:
9: main(argc,argv)
10: int argc;
11: char *argv[];
12: {
13: register int nsyl,var;
14: if(argc == 3){
15: if(*argv[1] != '-'){
16: fprintf(stderr,"Usage: syl [-integer] filename\n");
17: exit(1);
18: }
19: var = *(argv[1]+1);
20: if(!isdigit(var)){
21: fprintf(stderr,"Usage: syl [-integer] filename\n");
22: exit(1);
23: }
24: var = atoi(argv[1]+1);
25: }
26: else var = 0;
27: while(getword()!=EOF){
28: if(a[0] == '\0')continue;
29: change();
30: nsyl=estimate();
31: if(nsyl >= var)
32: printf("%d-%s\n",nsyl,a);
33: }
34:
35: }
36: getword(){
37: int skip,c2;
38: int ret;
39: register char *aptr;
40: char last;
41: ret = skip = 0;
42: for(aptr=a;aptr<&a[MAXCHAR];aptr++){
43: *aptr = getchar();
44: if(*aptr == EOF){
45: ret=EOF;
46: break;
47: }
48: if(isdigit(*aptr)){
49: skip = 1;
50: continue;
51: }
52: if(isspace(*aptr)) break;
53: if(!isalnum(*aptr)){
54: last = *(aptr-1);
55: switch(*aptr){
56: case '-':
57: if(((c2=getchar())=='o' && last=='o')||
58: (c2=='e' && last=='e'))
59: ungetc(c2,stdin);
60: else if(skip==0){
61: ungetc(c2,stdin);
62: goto found;
63: }
64: else{
65: ungetc(c2,stdin);
66: goto found;
67: }
68: break;
69: case '\'':
70: if(last=='x' || last=='c' ||last=='s'
71: || last=='h' ||(*(aptr-2)=='g' && last=='e'))
72: *aptr='\'';
73: else if ((c2=getchar())=='t' && last=='n'){
74: ungetc(c2,stdin);
75: *aptr='\'';
76: }
77: else{
78: ungetc(c2,stdin);
79: aptr--;
80: }
81: break;
82: case ',':
83: case ';':
84: case '?':
85: case '!':
86: case ':':
87: case '~':
88: case '/':
89: goto found;
90: default:
91: aptr--;
92: }
93: }
94: }
95: found:
96: *aptr= '\0';
97: return(ret);
98: }
99:
100: change()
101: {
102: register char *aptr, *bptr;
103:
104: char temp;
105: for(aptr=a, bptr=b;*aptr!='\0';aptr++,bptr++){
106: switch(*aptr){
107: case 'a':
108: case 'A':
109: case 'Y':
110: case 'E':
111: case 'O':
112: case 'I':
113: case 'U':
114: case 'o':
115: case '\'':
116: *bptr='V';
117: break;
118:
119: case 'e':
120: if(*(aptr+1)=='a'){
121: if(scmp("creat",(aptr-2)) && *(aptr+3) != 'u')
122: *bptr = 'S';
123: else if(scmp("reac",(aptr-1)) && *(aptr+3) != 'h')
124: *bptr='S';
125: else if(*(aptr+2) == '\0')*bptr = 'S';
126: else if(*(aptr+2) == 's' && *(aptr+3) == '\0')
127: *bptr = 'S';
128: else if(scmp("reali",(aptr-1)))*bptr='S';
129: else *bptr='V';
130: }
131: else if(*(aptr+1)=='o'){
132: if(aptr == &a[1] && (*(aptr-1) == 'd' || *(aptr-1) == 'r'))
133: *bptr = 'S';
134: else if(aptr == &a[2] && (*(aptr-2) == 'p' && *(aptr-1) == 'r'))
135: *bptr= 'S';
136: else if(*(aptr+2)=='u') *bptr='S';
137: else if(*(aptr+2) == '0') *bptr='S';
138: else *bptr='V';
139: }
140: else if(*(bptr-2)=='C' && *(aptr-2)!='l' &&
141: *(aptr-1)=='l') *bptr='V';
142: else if( *(aptr+1)=='l' &&*(aptr+2)=='y' )
143: *bptr='C';
144: else if(scmp("liness",aptr+1))*bptr='C';
145: else if(scmp("lihood",aptr+1))*bptr='C';
146: else if(scmp("ful",aptr+1))*bptr = 'C';
147: else if(scmp("nless",aptr+1))*bptr = 'C';
148: else if(scmp("ment",aptr+1))*bptr = 'C';
149: else if(scmp("ship",aptr+1))*bptr='C';
150: else *bptr='V';
151: break;
152:
153: case 'i':
154: if(*(aptr+1)=='e'){
155: if(*(aptr+2)=='r') *bptr='S';
156: else if(*(aptr+2)=='t') *bptr='S';
157: else if(scmp("icient",aptr-2))*bptr='V';
158: else if(scmp("nient",aptr-1))*bptr='V';
159: else if(*(aptr+2)=='n' && *(aptr+3)=='t')
160: *bptr='S';
161: else if(scmp("icienc",aptr-2))*bptr='V';
162: else if(scmp("nienc",aptr-1))*bptr='V';
163: else if(*(aptr+2)=='n' && *(aptr+3)=='c')
164: *bptr='S';
165: else *bptr='V';
166: }
167: else if(*(aptr+1)=='o'){
168: if(*(aptr-1)=='v' && *(aptr+2)=='r') *bptr='V';
169: else if(*(aptr-1)=='r') *bptr='S';
170: else if(*(aptr+2)=='u') *bptr='S';
171: else if(*(aptr-1)=='v' || *(aptr-1)=='V')
172: *bptr='S';
173: else if(*(aptr+2) == '\0') *bptr='S';
174: else *bptr='V';
175: }
176: else if(*(aptr+1)=='a'){
177: if((*(aptr-1)=='c' || *(aptr-1)=='t') &&
178: *(aptr-2)=='o') *bptr='S';
179: else if (*(aptr-1)=='c' || *(aptr-1)=='t')
180: *bptr='V';
181: else *bptr='S';
182: }
183: else *bptr='V';
184: break;
185: case 'u':
186: if(*(aptr-1) == 'q' || *(aptr-1) == 'Q')
187: *bptr = 'C';
188: else if( (*(aptr-1) == 'g' || *(aptr-1) == 'G') &&
189: (isvowel(*(aptr+1))||*(aptr+1) == 'y')) *bptr='C';
190: else if(*(aptr+1)=='a'){
191: if(*(aptr-1)=='t' || *(aptr-1)=='d' ||
192: *(aptr-1)=='s') *bptr='S';
193: else if(*(aptr+2)=='t') *bptr='S';
194: else *bptr='V';
195: }
196: else if(*(aptr+1)=='e'){
197: if(*(aptr-1)=='l') *bptr='S';
198: else if(*(aptr-2)=='g' && *(aptr-1)=='r')
199: *bptr='S';
200: else *bptr='V';
201: }
202: else *bptr='V';
203: break;
204: case 'y':
205: if((aptr>a&& *(aptr+1) != '\0') && *(bptr-1) == 'V'
206: && (isvowel(*(aptr+1))))
207: *bptr='C';
208: else *bptr='V';
209: break;
210: case 'n':
211: if(*(aptr-1)=='i' && *(aptr+1)=='g'){
212: *(bptr-1)='C';
213: *bptr='V';
214: }
215: else *bptr='C';
216: break;
217: default:
218: *bptr='C';
219: }
220: }
221:
222: *bptr='\0';
223: /*sitting on last char*/
224: aptr--;
225: bptr--;
226: if(*(aptr-1)=='e' && *aptr=='d'){
227: if(*(aptr-2)=='t' || *(aptr-2) == 'd'||(*(bptr-3)=='C' && *(aptr-2)=='l'
228: && *(aptr-3) !='l')){
229: *(bptr) = *(bptr-2) = 'C';
230: *(bptr-1)='V';
231: }
232: else{
233: *bptr = *(bptr-1)= 'C';
234: }
235: return;
236: }
237: temp = *(aptr-2);
238: if((temp=='s'||temp=='g'|| temp== 'h'|| temp=='c'|| temp=='z') && (*(aptr-1)=='e' && *aptr=='s')){
239: *bptr = *(bptr-2)='C';
240: *(bptr-1)='V';
241: return;
242: }
243: if(*(bptr-3)=='C' && temp=='l' && *(aptr-1)=='e' && *aptr=='s'){
244: *bptr = *(bptr-2)='C';
245: *(bptr-1)='V';
246: return;
247: }
248: if(*(aptr-1)=='e' && *aptr=='s'){
249: *bptr = *(bptr-1) = 'C';
250: return;
251: }
252: if(*(bptr-2)=='C' && *(aptr-1)=='l' && *aptr=='e'){
253: *bptr='V';
254: *(bptr-1)='C';
255: return;
256: }
257: if(*aptr=='e') *bptr='C';
258:
259: }
260:
261: estimate()
262: {
263: register char *bptr;
264: int k,f,i;
265: k=0;
266: f=1;
267: for(bptr=b;*bptr!='\0';bptr++){
268: if(f==1 && *bptr=='V'){
269: f=2;
270: k++;
271: }
272: if(f==1 && *bptr=='S') k++;
273: if(f==2 && *bptr=='C') f=1;
274: else if(f==2 && *bptr=='S'){
275: f=1;
276: k++;
277: }
278: }
279: if(k>0) return(k);
280: else return(1);
281: }
282:
283: scmp(s1,s2)
284: char *s1,*s2;
285: {
286: char *s, *p;
287: for(s=s1, p=s2;*s != '\0';s++,p++){
288: if(*s != *p)return(0);
289: }
290: return(1);
291: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.