From: Ian Jackson Date: Thu, 28 Feb 2019 12:37:54 +0000 (+0000) Subject: wip X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=400c2d6dc098e57b4c6da7df79fb6b2410e67d69;p=pandemic-rising-tide.git wip --- 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#/) {