From 59d91b5cbfe02c4cd7b2c2adcaa88618a97145b6 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 28 Feb 2019 13:32:43 +0000
Subject: [PATCH] region Name

---
 Parse.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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;
-- 
2.30.2