Commit | Line | Data |
---|---|---|
6630b441 KL |
1 | #! /bin/csh -f |
2 | # | |
3 | # SCCS id: @(#)difftc.sh 1.1 (Berkeley) %G% | |
4 | # | |
5 | # diff termcap files | |
6 | @ n = 1 | |
7 | set files=() term=() | |
8 | ||
9 | while ($n <= $#argv) | |
10 | if ("$argv[$n]" == "-e") then | |
11 | @ n++ | |
12 | set term=($argv[$n]) | |
13 | else | |
14 | if ($argv[$n] !~ /*) then | |
15 | set files=($files $cwd/$argv[$n]) | |
16 | else | |
17 | set files=($files $argv[$n]) | |
18 | endif | |
19 | endif | |
20 | @ n++ | |
21 | end | |
22 | switch ($#files) | |
23 | case 0: | |
24 | echo 'difftc: need at least one termcap file' | |
25 | exit 1 | |
26 | case 1: | |
27 | set files=(/etc/termcap $files) | |
28 | breaksw | |
29 | case 2: | |
30 | breaksw | |
31 | default: | |
32 | echo 'difftc: too many termcap files' | |
33 | exit 1 | |
34 | endsw | |
35 | ||
36 | onintr cleanup | |
37 | /usr/local/showtc -f $files[1] $term > /tmp/tcd$$.old | |
38 | /usr/local/showtc -f $files[2] $term | diff /tmp/tcd$$.old - | |
39 | ||
40 | cleanup: | |
41 | rm -f /tmp/tcd$$.old |