$ccolour = $&;
next;
}
- if (my ($name, $water) = m{^\t(\S.*\w|L)(?: \[(\d+)\])?$}) {
+ if (my ($name, $water) = m{^\t(\S.*\w|L2?)(?: \[(\d+)\])?$}) {
confess unless defined $ccolour;
my $dname = $c{DisplayNames}{$name} // $name;
$name =~ s{/}{}g;
$cregion = $name;
next;
}
- if (my ($aref, $adikes) = m{^\t\t(\S.*[A-Za-z.]|L)(?: (\+\+?))?$}) {
+ if (my ($aref, $adikes) = m{^\t\t(\S.*[A-Za-z.]|L2?)(?: (\+\+?))?$}) {
my $adj = { Dikes => (length $adikes // 0), L => $. };
if ($aref =~ m{\.}) {
$adj->{Pattern} = $aref;
sub region_cmp {
($a eq 'L' ) <=> ($b eq 'L' ) or
+ ($a eq 'L2') <=> ($b eq 'L2') or
($a eq 'NZ') <=> ($b eq 'NZ') or
$a cmp $b
}
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");