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
|
#! /usr/bin/perl
my $layout;
my $type,$types;
my $order,$orders,@orders;
my @layouts;
open(IN,"../navit.xml");
while (<IN>) {
if (/<layout name="([^"]*)"/) {
$layout=$1;
push(@layouts,$layout);
}
if (/<itemgra item_types="([^"]*)"/) {
$types=$1;
if (/order="([^"]*)"/) {
$order=$1;
foreach $type (split(",",$types)) {
$result->{$type}->{$layout}->{$order}=1;
}
}
}
}
close(IN);
open(IN,"../item_def.h");
while (<IN>) {
if (/^ITEM2\([^,]*,(.*)\)/) {
$type=$1;
$result->{$type}->{"none"}=1;
}
if (/^ITEM\((.*)\)/) {
$type=$1;
$result->{$type}->{"none"}=1;
}
}
close(IN);
my $typefmt="%-30s";
my $layoutfmt="%10s";
printf($typefmt,"");
foreach $layout (@layouts) {
printf($layoutfmt,$layout);
}
printf("\n");
foreach $type (sort keys %$result) {
$marker="";
if (!$result->{$type}->{"none"}) {
$marker="#";
}
printf($typefmt,$marker.$type);
foreach $layout (@layouts) {
@orders=sort keys %{$result->{$type}->{$layout}};
$order="";
if ($#orders >= 0) {
$order="*";
}
printf($layoutfmt,$order);
}
printf("\n");
}
|