From 400c2d6dc098e57b4c6da7df79fb6b2410e67d69 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 28 Feb 2019 12:37:54 +0000 Subject: [PATCH] wip --- generate-board | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/generate-board b/generate-board index 8f40dfb..3cd5e52 100755 --- 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 (

) { last if m/^\&faces$/; } + + open P, "<", $plagf or die $!; while (

) { if (m/^$sre#/) { -- 2.30.2