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