From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 28 Feb 2019 13:32:43 +0000 (+0000)
Subject: region Name
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=59d91b5cbfe02c4cd7b2c2adcaa88618a97145b6;p=pandemic-rising-tide.git

region Name
---

diff --git a/Parse.pm b/Parse.pm
index 797de9f..1e06115 100644
--- 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;