|
|
1.1 root 1: # NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT
2: L=/usr/lib/style
3: for i in $*
4: do case $i in
5: -ver) echo $0 version 2.1;exit;;
6: -flags) echo $0 style-file1 \[style-file2\] \[-flags\] \[-ver\];exit;;
7: -*) echo unknown match flag $i;exit;;
8: *) if test ! -r $i
9: then echo Can\'t find the file $i\; try specifying a more complete pathname.; exit
10: fi
11: esac
12: done
13: echo " READABILITY"
14: grep Kin $*
15: echo
16: echo " TOTAL LENGTH"
17: grep "no\. sent" $*
18: echo
19: echo " SENTENCE LENGTH"
20: grep "sent leng" $*
21: echo
22: echo " QUESTIONS"
23: grep question $*
24: echo
25: echo " SIMPLE SENTENCES"
26: grep simple $*
27: echo
28: echo " TOBE USE"
29: grep tobe $*
30: echo
31: echo " PASSIVES"
32: grep passive $*
33: echo
34: echo " NOUN-PRONOUN USE"
35: grep "noun.*adj.*pron" $*
36: echo
37: echo " NOMINALIZATIONS"
38: grep nominaliz $*
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.