move ZZ HS knowledge to misc-data.pl

[pandemic-rising-tide.git] / generate-plag

diff --git a/generate-plag b/generate-plag
index c39e583c4b61ca6622923a6b1da16d6524976bcc..1868acf4ed17e989d8fc52393b8dc1913d21a3e9 100755 (executable)
--- a/generate-plag
+++ b/generate-plag
@@ -7,24 +7,16 @@ BEGIN { unshift @INC, qw(.); }
 
 use Parse;
 
-sub plag_prs ($) {
-    my ($t) = @_;
-    $t = $` if $t =~ m/\n/;
-    $t =~ s/ //g;
-    $t =~ s/-//g;
-    return "$t";
-}
-
 sub output_planar_graph () {
   foreach my $ra (sort keys %region) {
     o(plag_prs($ra), "\n");
-    if ($ra eq 'NZ' || $ra eq 'L') { o(" :outer\n"); }
+    if ($ra eq 'NZ' || $ra =~ m/^L2?$/) { o(" :outer\n"); }
     my $adjs = $region{$ra}{Adj};
     foreach my $adj (reverse @$adjs) {
       o(" ", plag_prs($adj->{Name}), "\n");
     }
   }
-  # RUST_BACKBACE=1 target/release/planar-graph <../pandemic-rising-tide/map.plag R DUAL OUTER-F2V OUTER-SPLIT B T OUTER-F2V OUTER-F12VA PCO CP RAE PRINT-VI-NAMES NLOPT WG t.dot | qtdebug/vtrace
+  # RUST_BACKTRACE=1 target/release/plag-mangler <../pandemic-rising-tide/map.plag R DUAL OUTER-F2V OUTER-SPLIT B T OUTER-F2V OUTER-F12VA PCO CP RAE PRINT-VI-NAMES NLOPT WG t.dot | qtdebug/vtrace
 
 }