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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
#! /usr/local/apps/perl/current/bin/perl
#########################################################################################
# Program to read in two files (e.g. name.def, paramId.def, shortName.def or units.def)
# and check
# 1. They have the same number of parameters
# 2. They occur in the same order
# 3. And each param is defined in exactly the same way
# For each parameter we store its keys in the order encountered
# in the files and compare.
#
# Usage:
# $0 file1 file2
#
# URLs:
# http://perldoc.perl.org/perldsc.html#MORE-ELABORATE-RECORDS
#########################################################################################
$|=1;
#use strict;
use Test::More;
use Data::Dumper;
#use Algorithm::Diff qw[ diff ];
use Algorithm::Diff::Callback 'diff_hashes';
$extra_info= 0; # Do we print more info?
$debug = 0;
my $key; my @values;
die "Bad args. Expected two files" if (scalar @ARGV < 2);
$file1 = $ARGV[0];
$file2 = $ARGV[1];
print "Comparing $file1 and $file2\n";
#die "File extension should be '.def'" if $file1 !~ /\.def$/;
#die "File extension should be '.def'" if $file2 !~ /\.def$/;
while (my $arg = shift @ARGV){
if ($arg =~ /-D(\w+)=(\w+)/) {
$var_name = $1; $value = $2;
$$var_name = $value;
}
}
my %map1 = process("$file1");
my %map2 = process("$file2");
my $count1 = scalar(keys %map1);
my $count2 = scalar(keys %map2);
# Compare hashes
if ($compare) {
print "Compare hashes...\n";
diff_hashes(
\%map1,
\%map2,
sub { print "\nLost ", shift },
sub { print "\nGained ", shift },
undef,
);
}
#diff_hashes(
# \%map1,
# \%map2,
# sub { print 'Lost ', shift },
# sub { print 'Gained ', shift },
# sub {
# my ( $key, $before, $after ) = @_;
# print "$key changed from $before to $after\n";
# },
# );
#@diffs = diff( \%map1, \%map2 );
#exit 0;
#print @$_ for map{
# @$_
#} diff(
# [ split "\n", Dumper( \%map1 ) ],
# [ split "\n", Dumper( \%map2 ) ]
#);
print "\nTesting now...\n";
ok($count1==$count2, "Same number of elements");
ok($count1 > 0 && $count2 > 0, "Check some params found");
#print "count1=$count1, count2=$count2\n";
# Check name maps are the same
is_deeply(\%map1, \%map2, 'Check hashes are the same');
print Data::Dumper->Dump([\%map1], ["Name Map1"]), $/ if ($debug);
done_testing();
# -------------------------------------------------------------------------
# Function to return a hash:
# key = parameter long name
# value = an array holding 1 or more hashes
# We use a trick to store the main title e.g. units, paramId in they key "<MAIN>"
# E.g.
# hash = {
# 'Reactive tracer 10 mass mixing ratio' => [
# {
# 'parameterCategory' => '210',
# 'parameterNumber' => '149',
# 'discipline' => '192'
# },
# {
# 'parameterCategory' => '211',
# 'parameterNumber' => '149',
# 'discipline' => '192'
# }
# ],
# 'downward shortwave radiant flux density' => [
# {
# 'parameterCategory' => '201',
# 'parameterNumber' => '1',
# 'discipline' => '192'
# }
# ],
# .... etc
#
# -------------------------------------------------------------------------
sub process {
my ($filename) = @_;
open FILE, $filename or die "Tried to open $filename\n$!";
my @lines = <FILE>;
close(FILE);
my %map1 = ();
my %map2 = (); # inner map
my $lineNum = 0;
my $desc = "";
my $this; # a line in file
foreach $this (@lines) {
$lineNum++;
chomp $this;
#if ($lineNum == 1 && $this !~ /Automatically generated by/ ) {
# die "File: $filename, Line 1: Should say 'Automatically generated'";
#}
#next if ($lineNum == 1); # always skip first line
# Description line
if ($this =~ /^\s*#\s*(.*)\s*/) {
$desc = $1;
die "File: $filename, Empty description" if ($desc eq "");
}
# 'something' = {
elsif ($this =~ /^'(.*)'\s*=\s*{\s*$/ && $desc) {
$map2{"<MAIN>"} = $1;
}
# key = value
elsif ($this =~ /(\w+)\s*=\s*([^ ]+)\s*;/ && $desc) {
$key = $1; $val = $2;
$map2{$key} = $val;
}
# Hit the end brace
elsif ($this =~ /^\s*}\s*$/) {
my %map2_copy = %map2; # copy inner hash
# Store this inner hash in our array
push @{ $map1{$desc} }, \%map2_copy;
%map2 = (); # Empty inner map for next param
}
}
return (%map1);
}
|
