Return to dictadd.sh CVS log

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

Annotation of researchv10dc/cmd/wwb/dictadd.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: file=
        !             4: sexflag=
        !             5: fflag=
        !             6: for i in $*
        !             7:        do case $i in
        !             8:                -ver) echo $0 version 2.4: 2.1;exit;;
        !             9:                -flags) echo $0 \[-flags\] \[-ver\];exit;;
        !            10:                -*) echo unknown dictadd flag $i;exit;;
        !            11:                 *) echo dictadd takes no files;shift;continue;;
        !            12:        esac
        !            13: done
        !            14: if [ -f $HOME/lib ]
        !            15: then echo "Dictadd can't make a directory \$HOME/lib for you
        !            16: because you already have a file named \$HOME/lib.
        !            17: Change the name of the file to something else
        !            18: and run the program again."
        !            19:        exit 1
        !            20: fi
        !            21: if test ! -d $HOME/lib
        !            22: then echo dictadd is making a directory: \$HOME/lib for you.
        !            23:        mkdir $HOME/lib
        !            24: fi
        !            25: echo 'Do you want to add words to $HOME/lib/ddict for use with 
        !            26: wwb and proofr? (y or n)'
        !            27: read ans1
        !            28: if test \( $ans1 = 'y' -o $ans1 = 'Y' -o $ans1 = 'yes' -o $ans1 = 'Yes' \)
        !            29: then
        !            30:         if     test \( -r $HOME/lib/ddict -a  ! -w $HOME/lib/ddict \)
        !            31:        then echo Dictadd can\'t write on the file \$HOME/lib/ddict\; check your permissions.
        !            32:                exit 1
        !            33:        fi
        !            34: else
        !            35:        echo 'Do you want to add words to $HOME/lib/sexdict for use with 
        !            36: sexist? (y or n)'
        !            37:        read ans2
        !            38:        if test \( $ans2 = 'y' -o $ans2 = 'Y' -o $ans2 = 'yes' -o $ans2 = 'Yes' \)
        !            39:        then
        !            40:                sexflag=S;
        !            41:                if test \(  -r $HOME/lib/sexdict -a  ! -w $HOME/lib/sexdict \)
        !            42:                then echo Dictadd can\'t write on the file \$HOME/lib/sexdict\; check your permissions.
        !            43:                        exit 1
        !            44:                fi
        !            45:        else echo "Type the name of the file you want the words added to:\nDo not use symbolic names such as \$HOME."
        !            46:                fflag=F;
        !            47:                read file
        !            48:                if test \( -r $file -a ! -w $file \)
        !            49:                then echo Dictadd can\'t write on the file $file\; check your permissions.
        !            50:                        exit 1
        !            51:                fi
        !            52:        fi
        !            53: fi
        !            54: echo Do you want instructions?  \(y or n\)
        !            55: read ans
        !            56: if test \( $ans = 'y' -o $ans = 'Y' -o $ans = 'yes' -o $ans = 'Yes' \)
        !            57: then echo "
        !            58: 
        !            59: 
        !            60: _O_v_e_r_v_i_e_w:   Dictadd  is  a  program  that  works  with   the
        !            61:             wwb, proofr, and sexist programs. These programs
        !            62:             find all sentences with wordy or sexist diction,
        !            63:             but  you  can  use dictadd  to suppress words or
        !            64:             phrases,  or to add new  ones to your dictionary
        !            65:             files  \$HOME/lib/ddict  and   \$HOME/lib/sexdict,
        !            66:             or  any other  file you prefer.   Procedures are
        !            67:             given below.
        !            68: 
        !            69: 
        !            70: _P_r_o_c_e_d_u_r_e_s__f_o_r__S_u_p_p_r_e_s_s_i_n_g__P_h_r_a_s_e_s      _P_r_o_c_e_d_u_r_e_s__f_o_r__S_t_o_r_i_n_g__P_h_r_a_s_e_s
        !            71: 
        !            72: 
        !            73: _U_s_e wwb, proofr, sexist, diction,        _W_a_i_t for > sign.
        !            74: or dictplus to get a list of wordy             |
        !            75: sentences.      |                              |
        !            76:                 |                              |
        !            77:                 |                              |
        !            78: _F_i_n_d the bracketed information          _T_y_p_e phrase.
        !            79: in the list.    |                              |
        !            80:                 |                              |
        !            81: _D_e_t_e_r_m_i_n_e _t_h_e _i_n_f_o_r_m_a_t_i_o_n _p_a_t_t_e_r_n       _T_y_p_e other phrases until
        !            82: within the brackets:                    all are stored.
        !            83:                                                |
        !            84:   o+ blank spaces before and after it;          |
        !            85:                                                |
        !            86:   o+ a blank space before it;                   |
        !            87:                                                |
        !            88:   o+ no blank spaces at all.                    |
        !            89:                 |                              |
        !            90:                 |                              |
        !            91: _W_a_i_t for > sign.                               |
        !            92:                 |                              |
        !            93:                 |                              |
        !            94: CAUTION:  Don't type brackets.                 |
        !            95:           Make sure to type the                |
        !            96:           spaces, if there are any.            |
        !            97:                                                |
        !            98: _T_y_p_e:    ~Phrase                               |
        !            99:        carriage return.                        |
        !           100:                 |                              |
        !           101:                 |                              |
        !           102: _T_y_p_e _o_t_h_e_r _p_h_r_a_s_e_s until all                   |
        !           103: are suppressed.                                |
        !           104:                 |                              |
        !           105:                 |_______________________________|_
        !           106: 
        !           107:                                  |
        !           108:                                  |
        !           109:                          _T_y_p_e _q (for quit).
        !           110: 
        !           111:       Comment:  Wwb, proofr, and sexist automatically
        !           112:                 search your dictionaries, but you must 
        !           113:                 tell diction and dictplus to do so, as in:
        !           114: 
        !           115:                 diction -f \$HOME/lib/ddict filename"
        !           116: 
        !           117: fi
        !           118: if test $sexflag
        !           119: then   $L/dictadd $HOME/lib/sexdict
        !           120: elif test $fflag 
        !           121: then   $L/dictadd $file
        !           122: else   $L/dictadd $HOME/lib/ddict
        !           123: fi

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