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: }
|
Last modified: 1983-02-12
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 792 |
|