wip

diff --git a/generate-board b/generate-board
index 8f40dfba530e9b4f5727591507a63d25cae9ecf8..3cd5e5288d5142f530deebdd00a1860ebd38c43b 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -7,7 +7,7 @@ BEGIN { unshift @INC, qw(.); }
 
 use Parse;
 
-our ($plagf) = @ARGV or die;
+our ($plagf, $facesf, @ARGV) = @ARGV or die;
 
 parse_input_graph();
 
@@ -22,6 +22,10 @@ foreach my $rn (keys %region) {
 
 my $sre = qr{(\")(.*)\1$}; # 2 captures, $2 is the name
 
+open F, "<", $facesf or die $!;
+while (<P>) { last if m/^\&faces$/; }
+
+
 open P, "<", $plagf or die $!;
 while (<P>) {
   if (m/^$sre#/) {