1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!/bin/csh -f
#
# PDBDIFF
#
# Source Version: 2.0
# Software Release #92-0043
#
# include "cpyright.h"
#
set FrontEnd = ""
set DPE = `which pact-dpe`
if ("$DPE" != "") then
if (-e "$DPE[1]") then
source $DPE
endif
endif
set Mode = 0
set Bits = 128
set Individ = 1
set Promote = 0
set DiffPVA = 0
while (1)
if ($#argv < 2) then
echo ""
echo "Usage: pdbdiff [-a] [-b n] [-d] [-i] [-l] [-p f] [-s] [-v] <pdb-file1> <pdb-file2>"
echo ""
echo "Options: a - display all entries if any differ"
echo " b - number of mantissa bits to use in floating point comparisions"
echo " d - compare different floating point types"
echo " i - enter interactive mode"
echo " l - compare different fixed point types"
echo " p - fractional decimal precision to use in floating point comparisons"
echo " s - display only the entries which differ"
echo " v - compare PVA (Portable Visualization and Analysis) files"
echo ""
exit(0)
endif
switch ($argv[1])
case -a:
set Individ = 0
breaksw
case -b:
shift
set Bits = $argv[1]
breaksw
case -d:
if ($Promote == 0) then
set Promote = 2
else if ($Promote == 1) then
set Promote = 3
endif
breaksw
case -i:
set Mode = 1
breaksw
case -l:
if ($Promote == 0) then
set Promote = 1
else if ($Promote == 2) then
set Promote = 3
endif
breaksw
case -p:
shift
set Bits = $argv[1]
breaksw
case -s:
set Individ = 1
breaksw
case -v:
set DiffPVA = 1
breaksw
default:
if ($DiffPVA == 1) then
echo ""
echo "Comparing PVA files"
echo ""
$FrontEnd sx-pact -i -l sxdm.scm \(compare $1 $2\)
set DiffStat = $status
else
if ($Mode == 1) then
$FrontEnd sx-pact -l sxcomp.scm \(pdbcomp $1 $2 $Bits $Individ $Promote\)
set DiffStat = $status
else
$FrontEnd sx-pact -s -l sxcomp.scm \(pdbdiff $1 $2 $Bits $Individ $Promote\)
set DiffStat = $status
endif
endif
exit($DiffStat)
endsw
shift
end
|
