Return to subj CVS log

Up to [Research Unix] / researchv10dc / vol2 / index / tools

Annotation of researchv10dc/vol2/index/tools/subj, revision 1.1

1.1     ! root        1: #NOTICE-PROPRIETARY INFORMATION NOT TO BE DISCLOSED OUTSIDE BELL LABORATORIES
        !             2: trap  'rm -f /tmp/sbj*$$; exit' 1 2 3 15
        !             3: 
        !             4: date=`/bin/date '+%h %d-%y %H:%M'`
        !             5: 
        !             6: B=/usr/vol2/xindex/tools
        !             7: L=/usr/vol2/xindex/tools
        !             8: 
        !             9: if
        !            10:        test $# -lt 1
        !            11: then
        !            12:        echo 'Usage:  subj manuscript_file(s) ' >&2
        !            13:        exit 1
        !            14: fi
        !            15: 
        !            16:        TEXT=/tmp/sbj$$
        !            17: 
        !            18: COUNT=0
        !            19: 
        !            20: for arg
        !            21: do
        !            22:        if
        !            23:                test ! \( -r $arg \)
        !            24:        then
        !            25:                echo "subj: subj aborted, cannot read the file  $arg" >&2
        !            26:                echo "      Please check to see that  $arg  exists and is readable" >&2
        !            27:                exit 1
        !            28:        fi
        !            29:        sed -f $L/clean.sed $arg > $TEXT
        !            30:        
        !            31:        HFILE=/tmp/sbj1$$
        !            32:        SFILE=/tmp/sbj2$$
        !            33:        CFILE=/tmp/sbj3$$
        !            34:        
        !            35:        $L/sbj1.out $TEXT $HFILE $SFILE $CFILE d > /dev/null
        !            36: 
        !            37:        sed "/[.][      ]*is[.]$/s// is./" $HFILE |
        !            38:                parts   | $L/sbj2.out >> $CFILE
        !            39:        parts $TEXT | $L/sbj3.out > $SFILE
        !            40:         FINAL=/tmp/sbj8$COUNT$$
        !            41:        
        !            42:        sort -udf  $CFILE > $FINAL
        !            43:        rm -f /tmp/sbj[1-3]$$
        !            44:        COUNT=`expr "$COUNT" + 1`
        !            45: done
        !            46: sed -f $L/del.sed /tmp/sbj8*$$ | sort -udf
        !            47: rm -f /tmp/sbj*$$
        !            48: 

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