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

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.