Move OuterfaceRe and SpecialRegions knowledge to %c

NFC

diff --git a/generate-board b/generate-board
index 96d83c79fcbfb800ec5f2f224b7a816f892c5671..0e217ae52063365497324fee0bebbc11a203f28d 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -57,7 +57,7 @@ our $sre = qr{(?:(\")|(?=\w))(.*)\1$}; # 2 captures, $2 is the name
 
 sub prs2r ($) {
   # bodgery for the sea and land
-  return 'NZ' if m/ \| / && !grep { !m{^(?:NZ|L2?)$} } split / \| /, $_[0];
+  return 'NZ' if m/ \| / && !grep { !m{^$c{OuterfaceRe}$} } split / \| /, $_[0];
   $prs2region{$_[0]} // confess "@_ ?"
 }
 sub prs2rr ($) { $region{prs2r($_[0])} }
@@ -142,7 +142,7 @@ sub read_faces () {
   }
   $process_rr->();
 
-  $region{$_}{Special} = 1 foreach qw(NZ L L2);
+  $region{$_}{Special} = 1 foreach @{ $c{SpecialRegions} };
 }
 
 #----- geometry mangling -----

diff --git a/misc-data.pl b/misc-data.pl
index 48bb0e5e49fb9ef432e50eb99f4ac068a0dc8307..ca3d259beba79f67d4a65163406de84d92883166 100644 (file)
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -26,6 +26,8 @@ our %c =
      hinttext   => '000',
  },
  Sea => 'NZ',
+ OuterfaceRe => qr{(?:NZ|L2?)},
+ SpecialRegions => [qw(NZ L L2)],
  DisplayNames => {
      ZZ => 'Zuiderzee',
      NZ => 'Noordzee',