|
|
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.