[unix-history] / usr / src / usr.bin / diction / style3 / part.l

%{

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

#include "style.h"
#include "names.h"
#include "conp.h"
FILE *deb;
int nosave = 1;
int part = 0;
int barebones = 0;
int topic = 0;
int style = 1;
int pastyle = 0;
int pstyle = 0;
int lstyle = 0;
int rstyle = 0;
int estyle = 0;
int nstyle = 0;
int Nstyle = 0;
int lthresh;
int rthresh;
int nomin;
char s[SCHAR];
char *sptr = s;
struct ss sent[SLENG];
struct ss *sentp = sent;
float wperc();
float sperc();
float typersent();
float vperc();
int numsent = 0;
int qcount = 0;
int icount = 0;
long vowel = 0;
long numwds = 0;
long twds = 0;
long numnonf = 0;
long letnonf = 0;
int maxsent = 0;
int maxindex = 0;
int minsent = 30;
int minindex = 0;
int simple = 0;
int compound = 0;
int compdx = 0;
int prepc = 0;
int conjc = 0;
int complex = 0;
int tobe = 0;
int adj = 0;
int infin = 0;
int pron = 0;
int passive = 0;
int aux = 0;
int adv = 0;
int verbc = 0;
int tverbc = 0;
int noun = 0;
long numlet = 0;
int beg[15]  = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 };
int sleng[50];
int nsleng = 0;
int j,jj,i;
int comma = 0;
int cflg;
int question;
int quote = 0;
char *st;
int initf = 0;
int over = 1;
int nroff = 0;
int nrofflg = 0;
int leng[MAXPAR];
int sentno= 0;
%}
C	[A-DF-Za-z]
%%
^{C}:.+	{
collect:
	sentp->cc = sentp->ic = yytext[0];
	if(sentp->cc == NOM)
		sentp->cc = NOUN;
collect1:
	nsleng++;
	sentp->leng = yyleng-2;
	sentp++->sp = sptr;
	if(sentp >= &sent[SLENG-1]){
		if(over)fprintf(stderr,"sentence %d too many words\n",numsent+2);
		over=0;
		sentp--;
	}
	if(sptr+yyleng >= &s[SCHAR-1]){
		if(over)fprintf(stderr,"sentence %d too many characters\n",numsent+2);
		over=0;
	}
	else {
		for(i=2;i<yyleng;i++)*sptr++=yytext[i];
		*sptr++ = '\0';
	}
	}
^";:".+	{
	sentp->cc=END;
	sentp->ic = ';';
	goto collect1;
	}
^",:".+	{
	comma++;
	goto collect;
	}
^",:"[:,-]+	{
	comma++;
	goto collect;
	}
[\n]	;
^"\":".+	{
	goto collect;
	}
^E:"/."	{
	cflg = 1;
	goto sdone;
	}
^E:.+	{
	cflg = 0;
sdone:
	over=1;
	sentp->cc=sentp->ic=END;
	sentp++->sp = sptr;
	for(i=2;i<yyleng;i++)*sptr++=yytext[i];
	*sptr++='\0';
	if(yytext[2]=='?')question=1;
	else question=0;

fragment:
	jj=0;
	if(quote == 1 && sent[jj].cc == ED){
		sent[jj].cc = VERB;
		quote = 0;
	}
	if(sent[jj].cc=='"')jj++;
	if(sent[jj].cc==SUBCONJ){
		if(sent[jj+1].cc == ','){
			sent[jj].cc=ADV;
			jj += 2;
			comma--;
		}
		else {
			jj=scan(1,',',0);
			if(jj != -1)jj++;
			comma--;
		}
	}
	if(jj != -1){
		if(sent[jj].cc==CONJ || sent[jj].cc=='"')jj++;
		while((jj=scan(jj,END,cflg)) != -1){
			jj++;
			if(sent[jj].cc == SUBCONJ && sent[jj+1].cc == ','){
				sent[jj].cc=ADV;
				jj += 2;
				comma--;
			}
		}
	}
	st = sent[i].sp;
	if(*(st+1) == '"')
		if(*st == '?' || *st == '!')quote = 1;
	outp();
	nsleng = 0;
	if(nroff){
		if(sentno > 0){
			printf(".SL \"");
			for(i=0;i<sentno;i++)
				printf(" %d",leng[i]);
			printf("\"\n");
			sentno = 0;
		}
		printf("%s",&yytext[1]);
		nroff = 0;
	}
	sptr=s;
	sentp=sent;
	comma=0;
	}
;.+	{
	if(style){
		nomin = atoi(&yytext[1]);
	}
	}
^:.+[\n]	{
	nrofflg=1;
	if(sentp != sent){
		sentp->cc = sentp->ic = END;
		sentp++->sp = sptr;
		*sptr++ = '.';
		*sptr++ = '\0';
		over = 1;
		nroff = 1;
		goto fragment;
	}
	if(sentno > 0){
		printf(".SL \"");
		for(i=0;i<sentno;i++)
			printf(" %d",leng[i]);
		printf("\"\n");
		sentno = 0;
	}
	printf("%s",&yytext[1]);
	}
%%
yywrap(){
	int ii;
	int ml,mg,lsum,gsum;
	float aindex, avl, avw;
	float cindex,kindex,findex,fgrad;
	float syl, avsy, adjs,snonf;
	FILE *io;

	if(style){
	if(numwds == 0 || numsent == 0)exit(0);
	avw = (float)(numwds)/(float)(numsent);
	avl = (float)(numlet)/(float)(numwds);
	aindex = 4.71*avl + .5*avw -21.43;
	syl = .9981*vowel-.3432*twds;
	avsy = syl/twds;
	kindex = 11.8*avsy+.39*avw-15.59;
	findex = 206.835-84.6*avsy-1.015*avw;
	if(findex < 30.)fgrad = 17.;
	else if(findex > 100.) fgrad = 4.;
	else if(findex > 70.)fgrad=(100.-findex)/10 +5.;
	else if(findex > 60.)fgrad =(70.-findex)/10+8.;
	else if(findex >50.)fgrad=(60.-findex)/5+10;
	else fgrad=(50.-findex)/6.66 +13.;
	adjs = 100 * (float)numsent/numwds;
	cindex = 5.89*avl-.3*adjs-15.8;
	printf("readability grades:\n	(Kincaid) %4.1f  (auto) %4.1f  (Coleman-Liau) %4.1f  (Flesch) %4.1f (%4.1f)\n",kindex,aindex,cindex,fgrad,findex);
	printf("sentence info:\n");
	printf("	no. sent %d no. wds %ld\n",numsent,numwds);
	printf("	av sent leng %4.1f av word leng %4.2f\n",avw,avl);
	printf("	no. questions %d no. imperatives %d\n",qcount,icount);
	if(numnonf != 0){
		snonf = (float)(letnonf)/(float)(numnonf);
	}
	printf("	no. nonfunc wds %ld  %4.1f%%   av leng %4.2f\n",numnonf,(float)(numnonf)*100/numwds,snonf);
	mg = avw + 10.5;
	if(mg > 49)mg = 49;
	ml = avw - 4.5;
	if(ml <= 0)ml = 1;
	else if(ml > 49)ml=48;
	gsum = lsum = 0;
	for(ii=0;ii<50;ii++){
		if(ii < ml)lsum += sleng[ii];
		else if(ii > mg)gsum+= sleng[ii];
	}
	printf("	short sent (<%d)%3.0f%% (%d) long sent (>%d) %3.0f%% (%d)\n",ml,sperc(lsum),lsum,mg,sperc(gsum),gsum);
	printf("	longest sent %d wds at sent %d; shortest sent %d wds at sent %d\n",maxsent,maxindex,minsent,minindex);
	printf("sentence types:\n");
	printf("	simple %3.0f%% (%d) complex %3.0f%% (%d)\n",sperc(simple),simple,sperc(complex),complex);
	printf("	compound %3.0f%% (%d) compound-complex %3.0f%% (%d)\n",sperc(compound),compound,sperc(compdx),compdx);
	printf("word usage:\n");
	printf("	verb types as %% of total verbs\n");
	printf("	tobe %3.0f%% (%d) aux %3.0f%% (%d) inf %3.0f%% (%d)\n",vperc(tobe),tobe,vperc(aux),aux,vperc(infin),infin);
	if(verbc != 0)adjs = (float)(passive)*100/(float)(verbc);
	else adjs=0;
	printf("	passives as %% of non-inf verbs %3.0f%% (%d)\n",adjs,passive);
	printf("	types as %% of total\n");
	printf("	prep %3.1f%% (%d) conj %3.1f%% (%d) adv %3.1f%% (%d)\n",wperc(prepc),prepc,wperc(conjc),conjc,wperc(adv),adv);
	printf("	noun %3.1f%% (%d) adj %3.1f%% (%d) pron %3.1f%% (%d)\n",wperc(noun),noun,
		wperc(adj),adj,wperc(pron),pron);
	printf("	nominalizations %3.0f %% (%d)\n",wperc(nomin),nomin);
	printf("sentence beginnings:\n");
	ii=beg[0]+beg[7]+beg[6]+beg[3]+beg[8];
	printf("	subject opener: noun (%d) pron (%d) pos (%d) adj (%d) art (%d) tot %3.0f%%\n",
beg[0],beg[7],beg[6],beg[3],beg[8],sperc(ii));
	printf("	prep %3.0f%% (%d) adv %3.0f%% (%d) \n",sperc(beg[9]),beg[9],sperc(beg[4]),beg[4]);
	printf("	verb %3.0f%% (%d) ",sperc(beg[1]+beg[10]+beg[11]),beg[1]+beg[10]+beg[11]);
	printf(" sub_conj %3.0f%% (%d) conj %3.0f%% (%d)\n",sperc(beg[13]),beg[13],sperc(beg[5]),beg[5]);
	printf("	expletives %3.0f%% (%d)\n",sperc(beg[14]),beg[14]);
#ifdef SCATCH
	if(nosave && (fopen(SCATCH,"r")) != NULL){
	if(((io=fopen(SCATCH,"a")) != NULL)){
		fprintf(io," read %4.1f %4.1f %4.1f %4.1f %4.1f\n",kindex, aindex, cindex, findex, fgrad);
		fprintf(io," sentl %d %ld %4.2f %4.2f %d %d %ld %4.2f\n",numsent,numwds,avw,avl,qcount,icount,numnonf,snonf);
		fprintf(io," l var %d %d %d %d %d\n",ml,lsum,mg,gsum,maxsent);
		fprintf(io," t var %d %d %d %d\n",simple,complex,compound,compdx);
		fprintf(io," verbs %d %d %d %d %d %d\n",tverbc,verbc,tobe,aux,infin,passive);
		fprintf(io," ty %d %d %d %d %d %d %d\n",prepc,conjc,adv,noun,adj,pron,nomin);
		fprintf(io," beg %d %d %d %d %d %d\n",beg[0],beg[7],beg[6],beg[3],beg[8],ii);
		fprintf(io," sbeg %d %d %d %d %d %d\n",beg[9],beg[4],beg[1]+beg[10]+beg[11],beg[13],beg[5],beg[14]);
		}
	}
#endif
	}
	return(1);
}
float
wperc(a)
{
	return((float)(a)*100/numwds);
}
float
sperc(a)
{
	return((float)(a)*100/numsent);
}
float
typersent(a)
{
return((float)(a)/numsent);
}
float
vperc(a)
{
	if(tverbc == 0)return(0);
	return((float)(a)*100/tverbc);
}
main(argc,argv)
char **argv;
{
	while(--argc > 0 && (++argv)[0][0] == '-' ){
		switch(argv[0][1]){
		case 'd': nosave = 0;
			continue;
		case 's': style=1;
			continue;
		case 'p': pastyle=style=1;
			continue;
		case 'a': pstyle=style=1;
			continue;
		case 'e': estyle = style = 1;
			continue;
		case 'n': nstyle = style = 1;
			continue;
		case 'N': Nstyle = style = 1;
			continue;
		case 'l': style=lstyle=1;
			lthresh = atoi(*(++argv));
			argc--;
			continue;
		case 'r':
			style=rstyle=1;
			rthresh = atoi(*(++argv));
			argc--;
			continue;
		case 'P':
			part = 1;
			style = 0;
			continue;
		case 'b':		/* print bare bones info rje */
			barebones = 1;
			style = 0;
			continue;
		case 'T':		/*topic*/
			style = 0;
			topic = 1;
			continue;
		default:
			fprintf(stderr,"unknown flag to part %s\n",*argv);
			exit(1);
		}
		argv++;
	}
#ifdef SNOM
	if(fopen(SNOM,"r") != NULL){
		deb = fopen(SNOM,"a");	/* SAVE NOM*/
	}
#else
	deb = NULL;
#endif
	yylex();
	if(nrofflg && sentno > 0){
		printf(".SL \"");
		for(i=0;i<sentno;i++)
			printf(" %d",leng[i]);
		printf("\"\n");
	}
}
Commit	Line	Data
2958d0fe RH	1	%{
	2
	3	#ifndef lint
280efb10	4	static char sccsid[] = "@(#)part.l 4.2 (Berkeley) 82/11/06";
2958d0fe RH	5	#endif not lint
	6
	7	#include "style.h"
	8	#include "names.h"
	9	#include "conp.h"
280efb10 RH	10	FILE *deb;
280efb10 RH	11	int nosave = 1;
2958d0fe	12	int part = 0;
280efb10 RH	13	int barebones = 0;
280efb10 RH	14	int topic = 0;
2958d0fe RH	15	int style = 1;
	16	int pastyle = 0;
	17	int pstyle = 0;
	18	int lstyle = 0;
	19	int rstyle = 0;
	20	int estyle = 0;
280efb10 RH	21	int nstyle = 0;
280efb10 RH	22	int Nstyle = 0;
2958d0fe RH	23	int lthresh;
	24	int rthresh;
	25	int nomin;
	26	char s[SCHAR];
	27	char *sptr = s;
	28	struct ss sent[SLENG];
	29	struct ss *sentp = sent;
	30	float wperc();
	31	float sperc();
	32	float typersent();
	33	float vperc();
	34	int numsent = 0;
	35	int qcount = 0;
	36	int icount = 0;
	37	long vowel = 0;
	38	long numwds = 0;
	39	long twds = 0;
	40	long numnonf = 0;
	41	long letnonf = 0;
	42	int maxsent = 0;
	43	int maxindex = 0;
	44	int minsent = 30;
	45	int minindex = 0;
	46	int simple = 0;
	47	int compound = 0;
	48	int compdx = 0;
	49	int prepc = 0;
	50	int conjc = 0;
	51	int complex = 0;
	52	int tobe = 0;
	53	int adj = 0;
	54	int infin = 0;
	55	int pron = 0;
	56	int passive = 0;
	57	int aux = 0;
	58	int adv = 0;
	59	int verbc = 0;
	60	int tverbc = 0;
	61	int noun = 0;
	62	long numlet = 0;
	63	int beg[15] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 };
	64	int sleng[50];
280efb10	65	int nsleng = 0;
2958d0fe RH	66	int j,jj,i;
	67	int comma = 0;
	68	int cflg;
	69	int question;
	70	int quote = 0;
	71	char *st;
	72	int initf = 0;
	73	int over = 1;
280efb10 RH	74	int nroff = 0;
	75	int nrofflg = 0;
	76	int leng[MAXPAR];
	77	int sentno= 0;
2958d0fe RH	78	%}
	79	C [A-DF-Za-z]
	80	%%
	81	^{C}:.+ {
	82	collect:
	83	sentp->cc = sentp->ic = yytext[0];
280efb10 RH	84	if(sentp->cc == NOM)
280efb10 RH	85	sentp->cc = NOUN;
2958d0fe	86	collect1:
280efb10	87	nsleng++;
2958d0fe RH	88	sentp->leng = yyleng-2;
	89	sentp++->sp = sptr;
	90	if(sentp >= &sent[SLENG-1]){
	91	if(over)fprintf(stderr,"sentence %d too many words\n",numsent+2);
	92	over=0;
	93	sentp--;
	94	}
	95	if(sptr+yyleng >= &s[SCHAR-1]){
	96	if(over)fprintf(stderr,"sentence %d too many characters\n",numsent+2);
	97	over=0;
	98	}
	99	else {
	100	for(i=2;i<yyleng;i++)*sptr++=yytext[i];
	101	*sptr++ = '\0';
	102	}
	103	}
	104	^";:".+ {
	105	sentp->cc=END;
	106	sentp->ic = ';';
	107	goto collect1;
	108	}
	109	^",:".+ {
	110	comma++;
	111	goto collect;
	112	}
	113	^",:"[:,-]+ {
	114	comma++;
	115	goto collect;
	116	}
	117	[\n] ;
	118	^"\":".+ {
	119	goto collect;
	120	}
	121	^E:"/." {
	122	cflg = 1;
	123	goto sdone;
	124	}
	125	^E:.+ {
	126	cflg = 0;
	127	sdone:
	128	over=1;
	129	sentp->cc=sentp->ic=END;
	130	sentp++->sp = sptr;
	131	for(i=2;i<yyleng;i++)*sptr++=yytext[i];
	132	*sptr++='\0';
	133	if(yytext[2]=='?')question=1;
	134	else question=0;
	135
280efb10	136	fragment:
2958d0fe RH	137	jj=0;
	138	if(quote == 1 && sent[jj].cc == ED){
	139	sent[jj].cc = VERB;
	140	quote = 0;
	141	}
	142	if(sent[jj].cc=='"')jj++;
	143	if(sent[jj].cc==SUBCONJ){
	144	if(sent[jj+1].cc == ','){
	145	sent[jj].cc=ADV;
	146	jj += 2;
	147	comma--;
	148	}
	149	else {
	150	jj=scan(1,',',0);
	151	if(jj != -1)jj++;
	152	comma--;
	153	}
	154	}
	155	if(jj != -1){
	156	if(sent[jj].cc==CONJ \|\| sent[jj].cc=='"')jj++;
	157	while((jj=scan(jj,END,cflg)) != -1){
	158	jj++;
	159	if(sent[jj].cc == SUBCONJ && sent[jj+1].cc == ','){
	160	sent[jj].cc=ADV;
	161	jj += 2;
	162	comma--;
	163	}
	164	}
	165	}
	166	st = sent[i].sp;
	167	if(*(st+1) == '"')
	168	if(st == '?' \|\| st == '!')quote = 1;
	169	outp();
280efb10 RH	170	nsleng = 0;
	171	if(nroff){
	172	if(sentno > 0){
	173	printf(".SL \"");
	174	for(i=0;i<sentno;i++)
	175	printf(" %d",leng[i]);
	176	printf("\"\n");
	177	sentno = 0;
	178	}
	179	printf("%s",&yytext[1]);
	180	nroff = 0;
	181	}
2958d0fe RH	182	sptr=s;
	183	sentp=sent;
	184	comma=0;
	185	}
	186	;.+ {
	187	if(style){
	188	nomin = atoi(&yytext[1]);
	189	}
280efb10 RH	190	}
	191	^:.+[\n] {
	192	nrofflg=1;
	193	if(sentp != sent){
	194	sentp->cc = sentp->ic = END;
	195	sentp++->sp = sptr;
	196	*sptr++ = '.';
	197	*sptr++ = '\0';
	198	over = 1;
	199	nroff = 1;
	200	goto fragment;
	201	}
	202	if(sentno > 0){
	203	printf(".SL \"");
	204	for(i=0;i<sentno;i++)
	205	printf(" %d",leng[i]);
	206	printf("\"\n");
	207	sentno = 0;
	208	}
	209	printf("%s",&yytext[1]);
2958d0fe RH	210	}
	211	%%
	212	yywrap(){
	213	int ii;
	214	int ml,mg,lsum,gsum;
	215	float aindex, avl, avw;
	216	float cindex,kindex,findex,fgrad;
	217	float syl, avsy, adjs,snonf;
280efb10	218	FILE *io;
2958d0fe RH	219
	220	if(style){
	221	if(numwds == 0 \|\| numsent == 0)exit(0);
	222	avw = (float)(numwds)/(float)(numsent);
	223	avl = (float)(numlet)/(float)(numwds);
	224	aindex = 4.71avl + .5avw -21.43;
	225	syl = .9981vowel-.3432twds;
	226	avsy = syl/twds;
	227	kindex = 11.8avsy+.39avw-15.59;
	228	findex = 206.835-84.6avsy-1.015avw;
	229	if(findex < 30.)fgrad = 17.;
	230	else if(findex > 100.) fgrad = 4.;
	231	else if(findex > 70.)fgrad=(100.-findex)/10 +5.;
	232	else if(findex > 60.)fgrad =(70.-findex)/10+8.;
	233	else if(findex >50.)fgrad=(60.-findex)/5+10;
	234	else fgrad=(50.-findex)/6.66 +13.;
	235	adjs = 100 * (float)numsent/numwds;
	236	cindex = 5.89avl-.3adjs-15.8;
	237	printf("readability grades:\n (Kincaid) %4.1f (auto) %4.1f (Coleman-Liau) %4.1f (Flesch) %4.1f (%4.1f)\n",kindex,aindex,cindex,fgrad,findex);
	238	printf("sentence info:\n");
	239	printf(" no. sent %d no. wds %ld\n",numsent,numwds);
	240	printf(" av sent leng %4.1f av word leng %4.2f\n",avw,avl);
	241	printf(" no. questions %d no. imperatives %d\n",qcount,icount);
	242	if(numnonf != 0){
	243	snonf = (float)(letnonf)/(float)(numnonf);
	244	}
	245	printf(" no. nonfunc wds %ld %4.1f%% av leng %4.2f\n",numnonf,(float)(numnonf)*100/numwds,snonf);
	246	mg = avw + 10.5;
	247	if(mg > 49)mg = 49;
	248	ml = avw - 4.5;
	249	if(ml <= 0)ml = 1;
280efb10	250	else if(ml > 49)ml=48;
2958d0fe RH	251	gsum = lsum = 0;
	252	for(ii=0;ii<50;ii++){
	253	if(ii < ml)lsum += sleng[ii];
	254	else if(ii > mg)gsum+= sleng[ii];
	255	}
	256	printf(" short sent (<%d)%3.0f%% (%d) long sent (>%d) %3.0f%% (%d)\n",ml,sperc(lsum),lsum,mg,sperc(gsum),gsum);
	257	printf(" longest sent %d wds at sent %d; shortest sent %d wds at sent %d\n",maxsent,maxindex,minsent,minindex);
	258	printf("sentence types:\n");
	259	printf(" simple %3.0f%% (%d) complex %3.0f%% (%d)\n",sperc(simple),simple,sperc(complex),complex);
	260	printf(" compound %3.0f%% (%d) compound-complex %3.0f%% (%d)\n",sperc(compound),compound,sperc(compdx),compdx);
	261	printf("word usage:\n");
	262	printf(" verb types as %% of total verbs\n");
	263	printf(" tobe %3.0f%% (%d) aux %3.0f%% (%d) inf %3.0f%% (%d)\n",vperc(tobe),tobe,vperc(aux),aux,vperc(infin),infin);
	264	if(verbc != 0)adjs = (float)(passive)*100/(float)(verbc);
	265	else adjs=0;
	266	printf(" passives as %% of non-inf verbs %3.0f%% (%d)\n",adjs,passive);
	267	printf(" types as %% of total\n");
	268	printf(" prep %3.1f%% (%d) conj %3.1f%% (%d) adv %3.1f%% (%d)\n",wperc(prepc),prepc,wperc(conjc),conjc,wperc(adv),adv);
	269	printf(" noun %3.1f%% (%d) adj %3.1f%% (%d) pron %3.1f%% (%d)\n",wperc(noun),noun,
	270	wperc(adj),adj,wperc(pron),pron);
	271	printf(" nominalizations %3.0f %% (%d)\n",wperc(nomin),nomin);
	272	printf("sentence beginnings:\n");
	273	ii=beg[0]+beg[7]+beg[6]+beg[3]+beg[8];
	274	printf(" subject opener: noun (%d) pron (%d) pos (%d) adj (%d) art (%d) tot %3.0f%%\n",
	275	beg[0],beg[7],beg[6],beg[3],beg[8],sperc(ii));
	276	printf(" prep %3.0f%% (%d) adv %3.0f%% (%d) \n",sperc(beg[9]),beg[9],sperc(beg[4]),beg[4]);
280efb10	277	printf(" verb %3.0f%% (%d) ",sperc(beg[1]+beg[10]+beg[11]),beg[1]+beg[10]+beg[11]);
2958d0fe RH	278	printf(" sub_conj %3.0f%% (%d) conj %3.0f%% (%d)\n",sperc(beg[13]),beg[13],sperc(beg[5]),beg[5]);
2958d0fe RH	279	printf(" expletives %3.0f%% (%d)\n",sperc(beg[14]),beg[14]);
280efb10 RH	280	#ifdef SCATCH
	281	if(nosave && (fopen(SCATCH,"r")) != NULL){
	282	if(((io=fopen(SCATCH,"a")) != NULL)){
	283	fprintf(io," read %4.1f %4.1f %4.1f %4.1f %4.1f\n",kindex, aindex, cindex, findex, fgrad);
	284	fprintf(io," sentl %d %ld %4.2f %4.2f %d %d %ld %4.2f\n",numsent,numwds,avw,avl,qcount,icount,numnonf,snonf);
	285	fprintf(io," l var %d %d %d %d %d\n",ml,lsum,mg,gsum,maxsent);
	286	fprintf(io," t var %d %d %d %d\n",simple,complex,compound,compdx);
	287	fprintf(io," verbs %d %d %d %d %d %d\n",tverbc,verbc,tobe,aux,infin,passive);
	288	fprintf(io," ty %d %d %d %d %d %d %d\n",prepc,conjc,adv,noun,adj,pron,nomin);
	289	fprintf(io," beg %d %d %d %d %d %d\n",beg[0],beg[7],beg[6],beg[3],beg[8],ii);
	290	fprintf(io," sbeg %d %d %d %d %d %d\n",beg[9],beg[4],beg[1]+beg[10]+beg[11],beg[13],beg[5],beg[14]);
	291	}
	292	}
	293	#endif
2958d0fe RH	294	}
	295	return(1);
	296	}
	297	float
	298	wperc(a)
	299	{
	300	return((float)(a)*100/numwds);
	301	}
	302	float
	303	sperc(a)
	304	{
	305	return((float)(a)*100/numsent);
	306	}
	307	float
	308	typersent(a)
	309	{
	310	return((float)(a)/numsent);
	311	}
	312	float
	313	vperc(a)
	314	{
	315	if(tverbc == 0)return(0);
	316	return((float)(a)*100/tverbc);
	317	}
	318	main(argc,argv)
	319	char **argv;
	320	{
	321	while(--argc > 0 && (++argv)[0][0] == '-' ){
	322	switch(argv[0][1]){
280efb10 RH	323	case 'd': nosave = 0;
280efb10 RH	324	continue;
2958d0fe RH	325	case 's': style=1;
	326	continue;
	327	case 'p': pastyle=style=1;
	328	continue;
	329	case 'a': pstyle=style=1;
	330	continue;
	331	case 'e': estyle = style = 1;
	332	continue;
280efb10 RH	333	case 'n': nstyle = style = 1;
	334	continue;
	335	case 'N': Nstyle = style = 1;
	336	continue;
2958d0fe RH	337	case 'l': style=lstyle=1;
2958d0fe RH	338	lthresh = atoi(*(++argv));
280efb10	339	argc--;
2958d0fe RH	340	continue;
	341	case 'r':
	342	style=rstyle=1;
	343	rthresh = atoi(*(++argv));
280efb10	344	argc--;
2958d0fe RH	345	continue;
	346	case 'P':
	347	part = 1;
280efb10 RH	348	style = 0;
	349	continue;
	350	case 'b': /* print bare bones info rje */
	351	barebones = 1;
	352	style = 0;
	353	continue;
	354	case 'T': /topic/
	355	style = 0;
	356	topic = 1;
2958d0fe RH	357	continue;
	358	default:
	359	fprintf(stderr,"unknown flag to part %s\n",*argv);
	360	exit(1);
	361	}
	362	argv++;
	363	}
280efb10 RH	364	#ifdef SNOM
	365	if(fopen(SNOM,"r") != NULL){
	366	deb = fopen(SNOM,"a"); /* SAVE NOM*/
	367	}
	368	#else
	369	deb = NULL;
	370	#endif
2958d0fe	371	yylex();
280efb10 RH	372	if(nrofflg && sentno > 0){
	373	printf(".SL \"");
	374	for(i=0;i<sentno;i++)
	375	printf(" %d",leng[i]);
	376	printf("\"\n");
	377	}
2958d0fe	378	}