#!/usr/bin/perl -w

use strict;
use Carp;

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"); }
    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

}

parse_input_graph();
output_planar_graph();

# Local variables:
# cperl-indent-level: 2
# End.