Return to punct.sh CVS log

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

Annotation of researchv8dc/cmd/wwb/punct.sh, revision 1.1

1.1     ! root        1: B=/usr/bin
        !             2: L=/usr/lib/style
        !             3: trap 'rm -f /tmp/$$* ; exit'  1 2 3 15
        !             4: a=$*
        !             5: if test $# = 0
        !             6: then
        !             7: a=-
        !             8: cat >/tmp/$$a
        !             9: $B/double /tmp/$$a
        !            10: else
        !            11: $B/double $*
        !            12: fi
        !            13: echo
        !            14: for i in $a
        !            15: do case $i in
        !            16:                -) :;;
        !            17:                -*) echo unknown punct flag $i; exit;;
        !            18:                *) if test ! -r $i
        !            19:                        then echo Can\'t find the file $i\; try specifying a more complete pathname.
        !            20:                                exit;
        !            21:                        fi
        !            22:        esac
        !            23:        if test $i = '-'
        !            24:        then
        !            25:        sed "s/^'/./" /tmp/$$a >/tmp/$$in
        !            26:        else
        !            27:        sed "s/^'/./"  $i >/tmp/$$in
        !            28:        fi
        !            29:        $L/punlx </tmp/$$in >/tmp/$$pu
        !            30:        diff /tmp/$$in /tmp/$$pu >/tmp/$$diff
        !            31:        if test ! -s /tmp/$$diff
        !            32:        then 
        !            33:                :
        !            34:        else echo $i
        !            35:                sed -f $L/seddiff /tmp/$$diff 
        !            36:                echo
        !            37:        fi
        !            38:        rm -f /tmp/$$*
        !            39:        if test $i = '-'
        !            40:        then exit;
        !            41:        fi
        !            42:        shift;continue;
        !            43: done

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