Return to sexist.sh CVS log

Up to [Research Unix] / researchv10dc / cmd / wwb

Annotation of researchv10dc/cmd/wwb/sexist.sh, revision 1.1

1.1     ! root        1: # NOTICE-NOT TO BE DISCLOSED OUTSIDE BELL SYS EXCEPT UNDER WRITTEN AGRMT
        !             2: L=/usr/lib/style
        !             3: trap ' rm -f /tmp/$$*; trap 0;exit' 0 1 2 3 15
        !             4: for i in $*
        !             5:        do case $i in
        !             6:                -ver) echo $0 version 2.3: 2.0: 2.1,2.0;exit;;
        !             7:                -flags) echo $0 \[-flags\] \[-ver\] \[file ...\];exit;;
        !             8:                -f) fflag=F; shift; file=$1; shift;continue;;
        !             9:                -*) echo unknown sexist flag $i;exit;;
        !            10:                *)      if test ! -r $i
        !            11:                        then echo Can\'t find the file $i\; try specifying a more complete pathname.
        !            12:                                exit 1
        !            13:                        fi
        !            14:        esac
        !            15: done
        !            16: echo $*
        !            17: if test $fflag
        !            18: then   cat $L/sexist.d $file >/tmp/$$phrase
        !            19:        $L/dprog -l -n -f /tmp/$$phrase -o /tmp/$$sexsed $*
        !            20: elif test -s $HOME/lib/sexdict
        !            21: then
        !            22:        echo -e Sexist is using your phrases in $HOME/lib/sexdict."\n"
        !            23:        cat $L/sexist.d $HOME/lib/sexdict >/tmp/$$phrase
        !            24:        $L/dprog -l -n -f /tmp/$$phrase -o /tmp/$$sexsed $*
        !            25: else
        !            26:        $L/dprog -l -n -f $L/sexist.d -o /tmp/$$sexsed $*
        !            27: fi
        !            28: if test -s /tmp/$$sexsed
        !            29: then
        !            30:        echo -e '\nPlease wait for the substitution phrases\n
        !            31: \n-------------------   Table of Substitutions   --------------------\n
        !            32: PHRASE                     SUBSTITUTION\n'
        !            33:         sort -u /tmp/$$sexsed |sed -f $L/script.sed| split -50 -f /tmp/$$s_
        !            34: for i in /tmp/$$s_*
        !            35: do 
        !            36:        sed -n -f $i $L/sexist.sg >>/tmp/$$s
        !            37: done
        !            38: sort /tmp/$$s
        !            39:        echo -e '\n------------------------------------------------------------------\n'
        !            40: fi

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.