![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pscan.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / style|
Return to pscan.c CVS log | Up to [Research Unix] / researchv10dc / cmd / style |
1.1 root 1: #include "names.h"
2: #include "conp.h"
3: #define isadv(c) (c == ADV || c == ADJ_ADV)
4: #define isadj(c) (c == ADJ || c == NOUN_ADJ || c == ADJ_ADV || c == UNK)
5: #define notnoun(c) (c != NOUN && c != UNK && c != NOUN_VERB && c != NV_PL && c != PNOUN)
6: #define issing(c) (c == UNK || c == NOUN_VERB || c == NOUN || c == NOM || c == NOUN_ADJ)
7: #define isnoun(c) (c == NOUN || c == NOUN_VERB || c == NV_PL || c == UNK || c == PNOUN)
8: #define nounnom(c) (c == NOUN || c == NOM)
9: char lastc,nextc;
10: int savsub;
11: scan(si,ce,command) /*scan a phrase */
12: int si;
13: char ce;
14: {
15: int savi;
16: char c;
17: i=si;
18: if(command == 1)subty = PLURAL;
19: else subty = 0;
20: /* added NOUN_ADJ to test - dreg from grigg but probably fix*/
21: if(sent[i].cc==ADJ_ADV && sent[i+1].cc != NOUN && sent[i+1].cc != UNK
22: && sent[i+1].cc != ADJ && sent[i+1].cc != NOUN_ADJ)
23: sent[i++].cc = ADV;
24: done=0;
25: verb = 0;
26: verb=getv(i,ce); /*get verb if obvious*/
27: if(command == 0)j=getnoun(i,ce); /*get subject*/
28: else j = si;
29: if(i != j || ((i==j) && sent[i].cc == NOUN)){
30: i = j+1;
31: }
32: for(;((c=sent[i].cc) != ce) && (c != END) && (c != '\0');i++){
33: nextc=sent[i+1].cc;
34: if(i>0){
35: lastc=sent[i-1].cc;
36: if(lastc==BE)be=1;
37: else{
38: if(lastc != ADV)be=0;
39: }
40: }
41: else lastc=0;
42: if(verb==1)question=0;
43: switch(c){
44: case '"':
45: if(nextc==ED || nextc == MVERB){
46: verb=1;
47: sent[++i].cc=VERB;
48: subty=SING;
49: continue;
50: }
51: subty=0;
52: verb=getv(++i,ce);
53: i=getnoun(i,ce);
54: continue;
55: case MVERB:
56: sent[i].cc = VERB;
57: if(i < nsleng*.5){
58: verb = getv(++i,ce);
59: i = getnoun(i,ce);
60: continue;
61: }
62: continue;
63: case ART:
64: case ADJ:
65: case POS:
66: case ING:
67: aflg=1;
68: i=getnoun(i,ce);
69: aflg=0;
70: continue;
71: case PREP:
72: if(nextc == ce){
73: sent[i].cc=ADV;
74: goto sdone;
75: }
76: prep=1;
77: i=getnoun(++i,ce);
78: prep=0;
79: continue;
80: case VERB_ADJ:
81: if(verb==0){
82: sent[i].cc=VERB;
83: verb=1;
84: continue;
85: }
86: case NOUN_ADJ:
87: if(be==1){
88: sent[i].cc=ADJ;
89: continue;
90: }
91: case PRONP_ADJ:
92: case PRONS_ADJ:
93: i=getnoun(i,ce);
94: continue;
95: case NOUN_ADV:
96: if(verb == 1 && iverb == i+1){
97: sent[i].cc = NOUN;
98: }
99: else {
100: sent[i].cc = ADV;
101: }
102: continue;
103: case ADJ_ADV:
104: if(be == 1){
105: if (isadj(nextc)) {
106: sent[i].cc = ADV;
107: continue;
108: }
109: if(nextc == ',' && isadv(sent[i+2].cc)) {
110: sent[i++].cc = ADV;
111: sent[++i].cc = ADV;
112: comma--;
113: continue;
114: }
115: sent[i].cc = ADJ;
116: continue;
117: }
118: if(lastc == NOUN && (nextc == ',' || nextc == END)){
119: sent[i].cc=ADJ;
120: continue;
121: }
122: if(notnoun(nextc)){
123: sent[i].cc=ADV;
124: continue;
125: }
126: sent[i].cc=ADJ;
127: continue;
128: case WHO:
129: i=who(i,ce);
130: continue;
131: case PRONP:
132: subty=PLURAL;
133: continue;
134: case NOUN:
135: if(nextc==NOUN){
136: sent[i].cc=ADJ;
137: continue;
138: }
139: case PRONS:
140: subty=SING;
141: continue;
142: case PNOUN:
143: sent[i].cc = NOUN;
144: if(subty == 0)subty=PLURAL;
145: continue;
146: case CONJ:
147: if(nextc==UNK || nextc == NOUN_VERB || nextc == NV_PL){
148: if(lastc == ADJ)sent[++i].cc = ADJ;
149: else sent[++i].cc = VERB;
150: }
151: if(nextc == ED){
152: sent[++i].cc = VERB;
153: }
154: continue;
155: case AUXP:
156: case AUXS:
157: case BES:
158: case BEP:
159: case AUXV:
160: case AUX:
161: case HAS:
162: case HAVE:
163: case HAD:
164: verb=getv(i,ce);
165: continue;
166: case ADV:
167: case AUXX:
168: case VERB:
169: case BE:
170: case INTER:
171: continue;
172: case THAT:
173: if(nextc==SUBCONJ){
174: sent[i].cc=PRONP;
175: goto subc;
176: }
177: verb=getv(i+1,ce);
178: j = i+1;
179: while(isadv(sent[j].cc)) {
180: j++;
181: }
182: nextc = sent[j].cc;
183: if((verb==1 && iverb== j) || nextc==ED || nextc == VERB_ADJ){
184: sent[i].cc=PRONP;
185: while(i+1 < j)sent[++i].cc = ADV;
186: }
187: else if(verb==0 && nextc==NV_PL && ((lastc==NOUN
188: && issing(sent[i-1].ic)) || lastc == ',')) {
189: sent[i].cc=PRONP;
190: subty=SING;
191: while(i+1 < j)sent[++i].cc = ADV;
192: }
193: else if(verb==0 && (nextc==UNK || nextc==NOUN_VERB) && (lastc==NOUN
194: && sent[i-1].ic==NV_PL)){
195: subty=PLURAL;
196: sent[i].cc=PRONP;
197: while(i+1 < j)sent[++i].cc = ADV;
198: }
199: else {
200: if(i == 0)sent[i].cc=ADJ;
201: else sent[i].cc=SUBCONJ;
202: j=i;
203: subty=0;
204: i=getnoun(i+1,ce);
205: if(done)sent[j].cc=ADJ;
206: }
207: continue;
208: case ',':
209: if(nextc != CONJ){ /*parenthetical*/
210: continue;
211: }
212: i++;
213: comma--;
214: if(sent[i+1].cc == ED || sent[i+1].cc == MVERB){
215: sent[++i].cc = VERB;
216: continue;
217: }
218: if(command == 1){
219: verb = getv(++i,ce);
220: continue;
221: }
222: case SUBCONJ:
223: subc:
224: savi = i;
225: if(nextc==END||(lastc==',' && nextc==',')){
226: sent[i].cc=ADV;
227: continue;
228: }
229: subty=0;
230: ce=',';
231: verb=getv(++i,ce);
232: if(sent[savi+1].cc == VERB || sent[savi+1].cc == AUXX)
233: if(sent[savi].cc == SUBCONJ)sent[savi].cc = ADV;
234: i=getnoun(i,ce);
235: continue;
236: case PREP_ADV:
237: if(sent[i+2].cc==PREP_ADV &&(sent[i+1].cc != NOUN && sent[i+1].cc != NOUN_VERB
238: && sent[i+1].cc != NV_PL && sent[i+1].cc != PNOUN)){
239: sent[i].cc=ADV;
240: sent[i+2].cc=CONJ;
241: continue;
242: }
243: sav=i++;
244: savsub = subty;
245: pverb=getv(i,ce);
246: if((pverb==1 && iverb == i) || sent[i].cc== ED){
247: sent[sav].cc=PRONP;
248: sent[i].cc=VERB;
249: continue;
250: }
251: i=getnoun(i,ce);
252: if(done==1){
253: sent[sav].cc=ADV;
254: goto sdone;
255: }
256: if(pverb==1 && iverb == i+1){
257: sent[sav].cc=SUBCONJ;
258: ce=',';
259: continue;
260: }
261: switch(sent[i+1].cc){
262: case UNK:
263: case NV_PL:
264: case NOUN_VERB:
265: case ED:
266: sent[sav].cc=SUBCONJ;
267: verb=0;
268: ce=',';
269: continue;
270: default:
271: sent[sav].cc=PREP;
272: subty = savsub;
273: continue;
274: }
275: case TO:
276: savi = i;
277: sent[i++].cc=VERB;
278: sw:
279: switch(nextc){
280: case UNK:
281: case AUXS:
282: case VERB_ADJ:
283: case NOUN_VERB:
284: case VERB:
285: case MVERB:
286: sent[i].cc=VERB;
287: continue;
288: case HAVE:
289: sent[i].cc = VERB;
290: if(sent[i+1].cc == ED){
291: sent[++i].cc = VERB;
292: continue;
293: }
294: if(sent[i+1].cc == ADV)i++;
295: if(sent[i+1].cc != BE)continue;
296: i++;
297: case BE:
298: sent[i].cc=VERB;
299: if(sent[i+1].cc == ADV)i++;
300: if(sent[i+1].cc == ED || sent[i+1].cc == ING){
301: sent[++i].cc = VERB;
302: }
303: else if(sent[i+1].cc == UNK){
304: sent[++i].cc = ADJ;
305: }
306: continue;
307: case ADV:
308: nextc = sent[++i].cc;
309: goto sw;
310: default:
311: sent[savi].cc = PREP;
312: prep=1;
313: i=getnoun(i,ce);
314: prep=0;
315: continue;
316: }
317: case NV_PL:
318: if(subty==0){
319: i=getnoun(i,ce);
320: subty=PLURAL;
321: }
322: else if(verb== 0){ /*need verb*/
323: sent[i].cc=VERB;
324: verb=1;
325: }
326: else{
327: i=getnoun(i,ce);
328: }
329: continue;
330: case UNK:
331: case NOUN_VERB:
332: if(verb==1){
333: if(be==1 && nextc != WHO){
334: sent[i].cc=ADJ;
335: continue;
336: }
337: i=getnoun(i,ce);
338: }
339: else if(nextc==NV_PL && isnoun(sent[i+2].cc)) {
340: sent[i].cc=NOUN;
341: if(sent[i-1].cc == NOUN){
342: sent[i-1].cc = ADJ;
343: }
344: subty=SING;
345: continue;
346: }
347: else if(subty==0){
348: i=getnoun(i,ce);
349: continue;
350: }
351: else { /* desparation */
352: sent[i].cc=VERB;
353: verb=1;
354: }
355: continue;
356: case ED:
357: if(verb == 0){
358: sent[i].cc=VERB;
359: verb=1;
360: }
361: else if(sent[i-1].cc == BE){
362: sent[i].cc = VERB;
363: }
364: else{
365: i=getnoun(i,ce);
366: }
367: continue;
368: default: printf("got a %c %o on %sat %d\n",sent[i].cc,sent[i].cc,sent[i].sp,i);
369: }
370: }
371: sdone:
372: if(sent[i].cc==END && sent[i].ic != ';')return(-1);
373: else {
374: if(sent[i].ic == ';')sent[i].cc=';';
375: else comma--;
376: return(i);
377: }
378: }
379: getv(si,ce)
380: int si;
381: char ce;
382: {
383: int conj;
384: char c;
385: int ik;
386: must=0;
387: bflg=0;
388: hflg=0;
389: verbty=0;
390: for(j=si;((c=sent[j].cc) != ce) && (c != END); j++){
391: iverb=j;
392: switch(c){
393: case ED:
394: continue;
395: case HAS:
396: hflg=1;
397: verbty=SING;
398: sent[j].cc=AUXX;
399: goto next;
400: case HAVE:
401: if(sent[j-1].cc==TO){
402: continue;
403: }
404: case HAD:
405: hflg=1;
406: verbty=PLURAL;
407: sent[j].cc=AUXX;
408: goto next;
409: case BE:
410: if(sent[j].ic != BE){
411: return(1);
412: }
413: continue;
414: case VERB:
415: if(sent[j-1].cc==TO){
416: continue;
417: }
418: return(1);
419: case AUXX:
420: return(1);
421: case AUXP:
422: must=1;
423: verbty=PLURAL;
424: sent[j].cc=AUXX;
425: goto next;
426: case AUXS:
427: if(sent[j-1].cc==TO){
428: continue;
429: }
430: verbty=SING;
431: sent[j].cc=AUXX;
432: goto next;
433: case AUX:
434: case AUXV:
435: must=1;
436: sent[j].cc=AUXX;
437: next:
438: if(sent[j-1].cc == CONJ && verb == 0)conj = 0;
439: else conj = 1;
440: if(question==1){
441: j=getnoun(j+1,ce);
442: question=0;
443: }
444: getv2(ce);
445: if(sent[j].cc == AUXX){
446: sent[j].cc = VERB;
447: }
448: if((sent[j].cc!=VERB && sent[j].cc!=BE) && sent[iverb].cc==AUXX){
449: sent[iverb].cc=VERB;
450: for(ik=iverb+1;ik<=j;ik++){
451: if(sent[ik].ic == NOM)sent[ik].cc=NOUN;
452: else sent[ik].cc=sent[ik].ic;
453: }
454: }
455: return(conj);
456: case BES:
457: verbty=SING;
458: bflg=1;
459: sent[j].cc=BE;
460: goto next;
461: case BEP:
462: verbty=PLURAL;
463: bflg=1;
464: sent[j].cc=BE;
465: goto next;
466: case SUBCONJ:
467: if(sent[j-1].cc== ',' && sent[j+1].cc == ','){
468: continue;
469: }
470: case THAT:
471: case WHO:
472: goto vdone;
473: case ',': if(comma==1 && sent[j+1].cc==CONJ){
474: goto vdone;
475: }
476: }
477: }
478: vdone:
479: return(0);
480: }
481: getv2(ce)
482: char ce;
483: {
484: int vflg;
485: char c;
486: vflg=0;
487: while(((c=sent[++j].cc) != ce) && (c != END)){
488: switch(c){
489: case NOUN_ADV:
490: case ADJ_ADV:
491: if(bflg == 0 || sent[j+1].cc == ED || sent[j+1].cc == ING){
492: sent[j].cc = ADV;
493: }
494: else{
495: j -= 1;
496: return;
497: }
498: case ADV:
499: continue;
500: case SUBCONJ:
501: if(sent[j+1].cc == ED || sent[j+1].cc == ING || sent[j+1].cc == ADV ||
502: sent[j+1].cc == ADJ_ADV)sent[j].cc = ADV;
503: else return;
504: continue;
505: case VERB:
506: return;
507: case VERB_ADJ:
508: case ED:
509: sent[j].cc=VERB;
510: return;
511: case BE:
512: must=0;
513: bflg=1;
514: continue;
515: case ING:
516: if(bflg == 1){
517: sent[j].cc = VERB;
518: }
519: else {
520: j -= 1;
521: }
522: return;
523: case NOUN_VERB:
524: case UNK:
525: if(bflg==1 || vflg==1 || hflg==1){
526: j -= 1;
527: return;
528: }
529: sent[j].cc=VERB;
530: return;
531: case PRONP_ADJ:
532: case PRONS_ADJ:
533: c=sent[j+1].cc;
534: if(c==ED||c==ING||c==BE||must==1){
535: sent[j].cc = ADV;
536: }
537: else{
538: j -= 1;
539: return;
540: }
541: continue;
542: case AUXV:
543: case AUX:
544: case AUXP:
545: case AUXS:
546: case HAD:
547: case HAVE:
548: case HAS:
549: must=0;
550: vflg=1;
551: sent[j].cc=AUXX;
552: continue;
553: default:
554: j -= 1;
555: return;
556: }
557: }
558: j -= 1;
559: }
560: getnoun(k,ce)
561: int k,ce;
562: {
563: char c;
564: int st,t,nextst;
565: int rep;
566: int t1,tt;
567: st=k;
568: rep=0;
569: b:
570: nextst=sent[st+1].cc;
571: switch(sent[st].cc){
572: case END:
573: done=1;
574: break;
575: case ',':
576: if(ce==','){
577: done=1;
578: break;
579: }
580: else {
581: goto getdef;
582: }
583: case '"':
584: if(aflg == 1){
585: st++;
586: goto b;
587: }
588: break;
589: case NOUN:
590: switch(nextst){
591: case UNK:
592: case NOUN_VERB:
593: if(verb==1){
594: goto nn;
595: }
596: if(subty != PLURAL){
597: goto nn;
598: }
599: break;
600: case NV_PL:
601: if(verb==1){
602: goto nn;
603: }
604: if(subty == PLURAL){
605: goto nn;
606: }
607: break;
608: case PNOUN:
609: case NOUN_ADJ:
610: case POS:
611: case NOUN:
612: nn:
613: sent[st].cc=ADJ;
614: goto b;
615: }
616: if(prep==0)subty=SING;
617: break;
618: case PNOUN:
619: sent[st].cc = NOUN;
620: if(prep == 0)subty=PLURAL;
621: break;
622: case ADV:
623: st++;
624: goto b;
625: case WHO:
626: st=who(st,ce);
627: st++;
628: goto b;
629: case ADJ_ADV:
630: case VERB_ADJ:
631: case ED:
632: sent[st++].cc=ADJ;
633: goto b;
634: case ING:
635: if(isnoun(nextst)){
636: sent[st++].cc=ADJ;
637: goto b;
638: }
639: sent[st].cc=NOUN;
640: if(prep==0)subty=SING;
641: break;
642: case ART:
643: case POS:
644: if(st != k){
645: goto getdef;
646: }
647: case ADJ:
648: st++;
649: goto b;
650: case PRONP:
651: if(prep==0)subty=PLURAL;
652:
653: break;
654: case PRONS:
655: if(prep==0)subty=SING;
656: break;
657: case NOUN_VERB:
658: if((nextst==NOUN|| nextst==PNOUN)||(verb==1 && (nextst== NV_PL|| nextst==NOUN_VERB) )){
659: sent[st].cc=ADJ;
660: goto b;
661: }
662: case NV_PL:
663: sent[st].cc=NOUN;
664: if(prep==0){
665: if(sent[st].ic==NV_PL)subty=PLURAL;
666: else subty=SING;
667: }
668: if(sent[st-1].cc == NOUN && nounnom(sent[st-1].ic)) {
669: sent[st-1].cc = ADJ;
670: }
671: break;
672: case PRONP_ADJ:
673: switch(nextst){
674: case PNOUN:
675: case NOUN_ADJ:
676: case NV_PL:
677: case ADJ_ADV:
678: case PRONS_ADJ:
679: case ADJ:
680: case ING:
681: sent[st++].cc=ADJ;
682: goto b;
683: case NOUN_VERB:
684: case UNK:
685: case ED:
686: if(verb == 0){
687: goto def;
688: }
689: else{
690: sent[st++].cc=ADJ;
691: goto b;
692: }
693: case NOUN:
694: sent[st++].cc=ADJ;
695: if(prep==0)subty=SING;
696: break;
697: case SUBCONJ: sent[st++].cc=PRONP; /* more than .. */
698: sent[st++].cc=CONJ;
699: if(verb==0)verb=getv(st,ce);
700: goto b;
701: case '"':
702: sent[st++].cc = ADJ;
703: st++;
704: goto b;
705: default:
706: def:
707: sent[st].cc=PRONP;
708: if(prep==0)subty=PLURAL;
709:
710: break;
711: }
712: break;
713: case PRONS_ADJ:
714: if(aflg == 1 && nextst != END && nextst != ART){
715: sent[st++].cc=ADJ;
716: goto b;
717: }
718: switch(nextst){
719: case '"':
720: sent[st++].cc = ADJ;
721: st++;
722: goto b;
723: case PNOUN:
724: case ING:
725: case UNK:
726: case NOUN_VERB:
727: case NOUN_ADJ:
728: case ADJ_ADV:
729: case ADJ:
730: sent[st++].cc=ADJ;
731: goto b;
732: case NOUN:
733: sent[st++].cc=ADJ;
734: if(prep==0)subty=SING;
735: break;
736: case PRONS_ADJ:
737: sent[st++].cc=ADJ;
738: sent[st].cc=PRONP;
739: if(prep==0)subty=SING;
740: break;
741: case NV_PL:
742: if(verb==1){
743: sent[st++].cc=ADJ;
744: sent[st].cc=NOUN;
745: if(prep==0)subty=PLURAL;
746:
747: break;
748: }
749: sent[st].cc=PRONP;
750: if(prep==0)subty=SING;
751: break;
752: default:
753: sent[st].cc=PRONP;
754: if(prep==0)subty=SING;
755:
756: break;
757: }
758: break;
759: case NOUN_ADJ:
760: if(nextst==NOUN||nextst==ADJ||nextst == NOUN_ADJ||nextst==PRONS_ADJ||nextst==PRONP_ADJ||nextst==PNOUN){
761: sent[st++].cc=ADJ;
762: goto b;
763: }
764: if(nextst!=UNK && nextst != NOUN_VERB && nextst != NV_PL){
765: sent[st].cc=NOUN;
766: if(prep==0)subty=SING;
767: break;
768: }
769: if(verb==1 || sent[st+2].cc==ED){
770: sent[st++].cc=ADJ;
771: goto b;
772: }
773: sent[st].cc=NOUN;
774: if(prep==0)subty=SING;
775: break;
776: case UNK:
777: if(nextst != UNK){
778: if(nextst == ',' && rep==0){
779: c=sent[st+2].cc;
780: if((c==UNK||c==ADJ||c==NOUN_ADJ||c==ING) && isnoun(sent[st+3].cc)){
781: comma--;
782: sent[st].cc=ADJ;
783: sent[st+2].cc=ADJ;
784: sent[st+3].cc=NOUN;
785: if(prep==0){
786: if(sent[st+3].ic==NV_PL)subty=PLURAL;
787: else subty=SING;
788: }
789: return(st+3);
790: }
791: else {
792: sent[st].cc=NOUN;
793: if(prep==0)subty=SING;
794: break;
795: }
796: }
797: if(nextst==NOUN||nextst==ING ||nextst==NOUN_ADJ|| sent[st-1].cc==ADV
798: || nextst==ADJ || nextst==PNOUN){
799: sent[st++].cc=ADJ;
800: goto b;
801: }
802: if((nextst==NV_PL || nextst==NOUN_VERB) &&(verb==1 ||(verb==0 && (sent[st+2].cc==UNK
803: || sent[st+2].cc==NOUN_VERB || sent[st+2].cc==ED||sent[st+2].cc==VERB_ADJ)))){
804: sent[st++].cc=ADJ;
805: sent[st].cc=NOUN;
806: if(prep == 0)subty=PLURAL;
807: break;
808: }
809: if(nextst == CONJ && isadv(sent[st+2].cc)){
810: sent[st].cc=ADJ;
811: goto b;
812: }
813: sent[st].cc=NOUN;
814: if(prep==0)subty=SING;
815:
816: break;
817: }
818: for(t=st+1;sent[t].cc== UNK;t++);
819: if(verb==0 && prep == 0){ /* UUU. */
820: if(prep==0)subty=SING;
821: if(sent[t].cc==NV_PL|| sent[t].cc == PNOUN){ /* UUZ.*/
822: if(sent[t+1].cc==UNK || sent[t+1].cc==NOUN_VERB){ /* UUZU */
823: sent[t+1].cc=VERB;
824: verb=1;
825: sent[t].cc=NOUN;
826: t1=t;
827: }
828: else if(sent[t].cc == NV_PL){ /* UUZ. */
829: sent[t].cc=VERB;
830: verb=1;
831: sent[t-1].cc=NOUN;
832: t1=t-1;
833: }
834: else {
835: sent[t].cc = NOUN;
836: t1 = t;
837: }
838: }
839: else{ /* UU. */
840: if(sent[t].cc!= ED){
841: sent[t-1].cc=VERB;
842: verb=1;
843: sent[t-2].cc=NOUN;
844: t1=t-2;
845: t--;
846: }
847: else {
848: sent[--t].cc=NOUN;
849: t1=t;
850: }
851: }
852: }
853: else{
854: if(sent[t].cc==NOUN_VERB|| sent[t].cc==NOUN|| sent[t].cc==NV_PL|| sent[t].cc==PNOUN){
855: sent[t].cc=NOUN;
856: if(prep==0)subty=PLURAL;
857: t1=t;
858: }
859: else{
860: sent[--t].cc=NOUN;
861: if(prep==0)subty=SING;
862: t1=t;
863: }
864: }
865: for(tt=st;tt<t1;tt++)sent[tt].cc=ADJ;
866: st=t;
867: break;
868: }
869: getdef:
870: if(sent[st].cc == CONJ && sent[st-1].cc == ADJ){
871: st++;
872: goto b;
873: }
874: if(sent[st-1].cc==PREP && ( sent[st].cc == THAT || sent[st].cc == SUBCONJ)){
875: prep=0;
876: return(--st);
877: }
878: if(sent[st].cc != NOUN && sent[st].cc != PRONP && sent[st].cc != PRONS){
879: st--;
880: if(sent[st].cc==ADJ && sent[st].ic==ING){
881: sent[st].cc=NOUN;
882: if(prep==0)subty=SING;
883: }
884: else if(sent[st].cc == PREP){
885: sent[st].cc = ADV;
886: }
887: prep=0;
888: return(st);
889: }
890: if(done==1){
891: prep=0;
892: return(st);
893: }
894: if(sent[st+1].cc== ','){
895: if(sent[st+2].cc==CONJ){
896: if(rep==0){
897: prep=0;
898: return(st);
899: }
900: else{
901: st+=3;
902: comma--;
903: if(prep==0)subty=PLURAL;
904: prep=1;
905: goto b;
906: }
907: }
908: if(comma==1){
909: prep=0;
910: return(st);
911: }
912:
913: switch(sent[st+2].cc){
914: case PREP:
915: case SUBCONJ:
916: case PRONS:
917: case PRONP:
918: prep=0;
919: return(st);
920: default: rep++;
921: comma--;
922: st+=2;
923: if(prep==0)subty=PLURAL;
924: prep=1;
925: goto b;
926: }
927: }
928: if(sent[st+1].cc==CONJ && sent[st+2].cc != ED){
929: st+=2;
930: if(prep==0)subty=PLURAL;
931: prep=1;
932: goto b;
933: }
934: prep=0;
935: return(st);
936: }
937: who(kk,ce)
938: int kk,ce;
939: {
940: char c;
941: sent[kk].cc=PRONP;
942: c=sent[kk+1].cc;
943: while(isadv(c)){
944: sent[++kk].cc = ADV;
945: c = sent[kk+1].cc;
946: }
947: if(c==UNK||c==NOUN_VERB||c==VERB_ADJ||c==ED|| c==NV_PL||c==MVERB){
948: sent[++kk].cc=VERB;
949: if(verb == 0)verb = getv(kk+1,ce);
950: return(kk);
951: }
952: w: switch(sent[++kk].cc){
953: case AUXX:
954: case ADV:
955: case BE:
956: case VERB:
957: goto w;
958: default:
959: verb=getv(kk,ce);
960: return(--kk);
961: }
962: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.