From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 13 Feb 2019 22:44:52 +0000 (+0000)
Subject: use names
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=cf345900b8c41a7ce2790097f1e7996eceb8d458;p=pandemic-rising-tide.git

use names
---

diff --git a/parse-input-graph b/parse-input-graph
index 12d6e46..49d41ff 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -262,13 +262,22 @@ sub dual () {
 
 sub o { print @_ or die $!; }
 
+sub plag_prv ($) {
+    my ($vi) = @_;
+    my $t = $vertex[$vi]{Text};
+    $t =~ s/\n/ | /g;
+    return "\"$t\"";
+}
+
 sub output_planar_graph () {
   foreach my $via (0..$#vertex) {
     my $vertexa = $vertex[$via];
-    o("$via\n");
+    my $prva = plag_prv($via);
+    o("$prva\n");
     foreach my $ei (@{ $vertexa->{Edges} }) {
       my $vib = $ei->{VIB};
-      o(" $vib\n");
+      my $prvb = plag_prv($vib);
+      o(" $prvb\n");
       o(" ^outside\n") if $ei->{Outside};
     }
   }