BSD 4_1c_2 release

[unix-history] / usr / src / usr.bin / diction / outp.c

#ifndef lint
static char sccsid[] = "@(#)outp.c      4.2     (Berkeley)      82/11/06";
#endif not lint

#include <stdio.h>
#include <ctype.h>
#include "style.h"
#include "names.h"
#include "conp.h"
char *names[] = {
       "noun", "verb", "interjection", "adjective", "adverb", "conjunction", "possessive",
       "pronoun", "article", "preposition", "auxiliary", "tobe", "", "subordinate conjunction",  "expletive"
};
extern int barebones;
outp(){
       struct ss *st;
       char *ssp;
       char *spart, ff;
       int index, lverbc;
       int nn, sc, f, kk,comp, begsc;
       int conjf, verbf,lpas,bflg,lexp,olvb;
       int nom;
       int infinf, ovflg;
       int lvowel,nlet;
       int imper;
       float rd;
       extern FILE *deb;
       extern int nosave;

       if(barebones){
               for(sentp=sent;sentp->cc != END;sentp++)
                       printf("%s %c %c\n",sentp->sp,sentp->ic,sentp->cc);
               printf("%s %c %c\n",sentp->sp,sentp->ic,sentp->cc);
               return;
       }
       if(topic){
               for(sentp=sent;sentp->cc != END;sentp++){
                       if(sentp->cc==ADJ && (sentp+1)->cc==NOUN){
                               printf("%s ",sentp->sp);
                               sentp++;
                               printf("%s\n",sentp->sp);
                       }
                       else if(sentp->cc==NOUN)printf("%s\n",sentp->sp);
               }
               return;
       }
       if(style){
       nn = kk = 0;
       for(sentp=sent;sentp->cc != END;sentp++){
               if(sentp->cc != ',' && sentp->cc != '"')nn++;
               if(sentp->cc == VERB || sentp->cc == BE || sentp->cc == AUX)kk++;
       }
       if(nn < 4 && kk == 0)return;
       }

       imper = lexp = lpas = index = lverbc = nom = 0;
       conjf = verbf = kk = nn = sc = comp = begsc = 0;
       bflg = olvb = infinf = ovflg = 0;
       nlet = 0;
       f = 1;
       sentp=sent;
       while(sentp->cc != END){
/*      printf("%c:",sentp->ic);        */
               if(sentp->cc == ';')comp++;
               else {
                       if((sentp->cc != ',') && (sentp->cc != '"')){
                               if(*sentp->sp != 'x'){
                                       nn++;
                                       nlet += sentp->leng;
                               }
                               kk++;
                       }
               }
               switch(sentp->cc){
               case NOUN:
                       spart ="noun";
                       if(f)index=0;
                       if((sentp->ic==NOM)||(sentp->ic==PNOUN  && islower(*(sentp->sp)))){
                               sentp->ic = NOM;
                               nom++;
                               if(nosave && (deb != NULL))     /* SAVE NOM */
                                       fprintf(deb,"%s\n",sentp->sp);
                       }
                       if(*sentp->sp != 'x'){
                               noun++;
                               numnonf++;
                               letnonf += sentp->leng;
                       }
                       bflg = infinf = ovflg = 0;
                       break;
               case VERB:
                       spart = "verb";
                       if(f)index=1;
                       if(sentp->ic==TO){
                               infin++;
                               infinf=1;
                               lverbc++;
                       }
                       else {
                               if(f)imper=1;
                               if(ovflg == 0 && infinf == 0){
                                       ovflg = 1;
                                       lverbc++;
                                       olvb++;
                               }
                               numnonf++;
                               letnonf += sentp->leng;
                               if(infinf == 0){
                                       if(verbf == 0)verbf++;
                                       else if(conjf)comp++;
                               }
                               if(bflg && sentp->ic == ED){lpas++; ++passive;}
                       }
                       break;
               case INTER:
                       spart = "interj";
                       if(f)index=2;
                       bflg = infinf = ovflg = 0;
                       break;
               case ADJ:
                       spart = "adj";
                       if(f)index=3;
                       adj++;
                       numnonf++;
                       if(sentp->ic == NOM){
                               nom++;
                               if(nosave && (deb != NULL))     /* SAVE NOM */
                                       fprintf(deb,"%s\n",sentp->sp);
                       }
                       letnonf += sentp->leng;
                       bflg = infinf = ovflg = 0;
                       break;
               case ADV:
                       spart = "adv";
                       if(f)index=4;
                       adv++;
                       numnonf++;
                       letnonf += sentp->leng;
                       break;
               case CONJ:
                       spart = "conj";
                       conjc++;
                       if(f)index=5;
                       if(infinf && (sentp+1)->cc == VERB);
                       else {
                               if(verbf)conjf++;
                               bflg = infinf = ovflg = 0;
                       }
                       break;
               case POS:
                       spart = "pos";
                       if(f)index=6;
                       bflg = infinf = ovflg = 0;
                       break;
               case PRONS:
               case PRONP:
                       spart = "pron";
                       pron++;
                       if(f){
                               index=7;
                               if((sentp+1)->cc == BE){
                               if(sentp->leng == 5 && *(sentp->sp) == 't' && *((sentp->sp)+3)=='r'){index=14;lexp=1;}
                               else if(sentp->leng ==2&& *(sentp->sp) == 'i' ){index=14;lexp=1;}
                               }
                       }
                       bflg = infinf = ovflg = 0;
                       if(sentp->ic == THAT || sentp->ic == WHO)sc++;
                       break;
               case ART:
                       spart = "art";
                       if(f)index=8;
                       bflg = infinf = ovflg = 0;
                       break;
               case PREP:
                       spart = "prep";
                       if(f)index=9;
                       prepc++;
                       bflg = infinf = ovflg = 0;
                       break;
               case AUXX:
                       spart = "aux";
                       if(ovflg == 0 && infinf == 0){
                               ovflg = 1;
                               lverbc++;
                               olvb++;
                               aux++;
                       }
                       if(f)index=10;
                       break;
               case BE:
                       if(ovflg == 0 && infinf == 0){
                               ovflg = 1;
                               lverbc++;
                               olvb++;
                       }
                       spart = "be";
                       if(f)index=11;
                       tobe++;
                       bflg = 1;
                       if(verbf == 0)verbf++;
                       else if(conjf)comp++;
                       break;
               case SUBCONJ:
                       spart = "subcj";
                       if(f){
                               index=13;
                               begsc++;
                       }
                       sc++;
                       if((sentp-1)->cc != CONJ)
                               verbf = conjf = 0;
                       bflg = infinf = ovflg = 0;
                       break;
               default:
                       if(sentp->cc == ','){
                               if(begsc)conjf=verbf=0;
                       }
                       spart = sentp->sp;
               }
       if(part){
               printf("%s      %s\n",spart,sentp->sp);
       }
       if(style){
               ssp=sentp->sp;
               lvowel = 0;
               while(*ssp != '\0'){
                       if(*ssp >= '0' && *ssp <= '9'){
                               lvowel=0;
                               break;
                       }
                       switch(*(ssp++)){
                       case 'a':
                       case 'e':
                       case 'i':
                       case 'o':
                       case 'u':
                       case 'y':
                       case 'A':
                       case 'E':
                       case 'I':
                       case 'O':
                       case 'U':
                       case 'Y':
                               lvowel++;
                               continue;
                       }
               }
               if(lvowel != 0){
                       vowel += lvowel;
                       twds++;
               }
       }
               if(f){
                       ff=sentp->cc;
                       f=0;
               }
               sentp++;
       }
       if(part){
               printf(".       %s\n",sentp->sp);
               if(sentno < MAXPAR && nn > 0)
                       leng[sentno++] = nn;
       }
       if(nn == 0)return;
       numsent++;
       numlet += nlet;
       tverbc += lverbc;
       verbc += olvb;
       if(*(sentp->sp) == '?'){
               if(sc > 0)sc -= 1;
               qcount++;
       }
       else if(*(sentp->sp) == '/')icount++;
       else if(imper)icount++;
       if(rstyle||pstyle)rd = 4.71*((float)(nlet)/(float)(nn))+.5*(float)(nn)-21.43;
       if(pstyle ||
           (rstyle&& rd>=rthresh)||(lstyle&&nn >= lthresh)||(pastyle&&lpas)||(estyle&&lexp)
           || (nstyle && (nom > 1 || (nom && lpas)))|| (Nstyle && nom)){
               if(!part){
                       for(st=sent, kk=0;st->cc != END;st++){
                               if(st->ic == NOM)
                                       printf("*%s* ",st->sp);
                               else printf("%s ",st->sp);
                               if(kk++ >= 15){
                                       kk=0;
                                       printf("\n");
                               }
                       }
               }
               kk=1;
       }
       else kk=0;
       if(pstyle || kk){
               if(!part)printf("%s\n",sentp->sp);
               printf(" sentence length: %d ",nn);
               if(sc == 0){
                       if(comp == 0)printf("SIMPLE ");
                       else printf("COMPOUND ");
               }
               else if(comp == 0)printf("COMPLEX ");
               else printf("COMPOUND-COMPLEX ");
               if(index==14)printf(":expletive:");
               if(lpas)printf(":passive:");
               if(rstyle||pstyle)printf(" readability %4.2f ",rd);
               printf(": begins with %s\n\n",names[index]);
       }
       if(index < 15)beg[index]++;
       if(nn > maxsent){
               maxsent=nn;
               maxindex=numsent;
       }
       if(nn < minsent ){
               minsent = nn;
               minindex=numsent;
       }
       numwds += nn;
       if(nn > 49)nn=49;
       sleng[nn]++;
       if(sc == 0){
               if(comp == 0)simple++;
               else compound++;
       }
       else if(comp == 0)complex++;
       else compdx++;
}