Return to punct.sh CVS log

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

Annotation of researchv10dc/cmd/wwb/punct.sh, revision 1.1.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.