region Name

diff --git a/Parse.pm b/Parse.pm
index 797de9fbeacc05b89d1b518d2314ebb2a99a0196..1e06115357d086f7360eb7cb51bf2d8c2a261f3d 100644 (file)
--- a/Parse.pm
+++ b/Parse.pm
@@ -13,6 +13,7 @@ our @EXPORT = qw(parse_input_graph o plag_prs %region);
 our %region;
 # $region{NAME}{Colour}
 # $region{NAME}{Water}
+# $region{NAME}{Name}
 # $region{NAME}{L} # line number
 # $region{NAME}{Adj}[]{Name}
 # $region{NAME}{Adj}[]{Pattern}
@@ -145,6 +146,12 @@ sub adjacencies () {
   #print STDERR "total $ndikes dikes\n";
 }
 
+sub names () {
+  foreach my $r (sort keys %region) {
+    $region{$r}{Name} = $r;
+  }
+}
+
 sub edge_id_to_other_id ($$) {
   my ($ra, $adjia) = @_;
   my $adjsa = $region{$ra}{Adj};
@@ -174,6 +181,7 @@ sub parse_input_graph () {
   read_in();
   resolve_arefs();
   adjacencies();
+  names();
 }
 
 1;