diff options
Diffstat (limited to 'navit/script/itemgra.pl')
-rwxr-xr-x | navit/script/itemgra.pl | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/navit/script/itemgra.pl b/navit/script/itemgra.pl deleted file mode 100755 index bbe02b000..000000000 --- a/navit/script/itemgra.pl +++ /dev/null @@ -1,57 +0,0 @@ -#! /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"); -} |