generate-plag

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Carp;
   5
   6 BEGIN { unshift @INC, qw(.); }
   7
   8 use Parse;
   9
  10 sub plag_prs ($) {
  11     my ($t) = @_;
  12     $t = $` if $t =~ m/\n/;
  13     $t =~ s/ //g;
  14     $t =~ s/-//g;
  15     return "$t";
  16 }
  17
  18 sub output_planar_graph () {
  19   foreach my $ra (sort keys %region) {
  20     o(plag_prs($ra), "\n");
  21     if ($ra eq 'NZ' || $ra eq 'L') { o(" :outer\n"); }
  22     my $adjs = $region{$ra}{Adj};
  23     foreach my $adj (reverse @$adjs) {
  24       o(" ", plag_prs($adj->{Name}), "\n");
  25     }
  26   }
  27   # 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
  28
  29 }
  30
  31 parse_input_graph();
  32 output_planar_graph();
  33
  34 # Local variables:
  35 # cperl-indent-level: 2
  36 # End.