From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 5 Oct 2020 19:00:21 +0000 (+0100)
Subject: break out $sre
X-Git-Tag: otter-0.2.0~737
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=446ff0e8398f7ee5d9ca107f1325fc0efab1b9d6;p=otter.git

break out $sre

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/extract-bf-tests b/extract-bf-tests
index b23f8693..492f3011 100755
--- a/extract-bf-tests
+++ b/extract-bf-tests
@@ -6,8 +6,11 @@ sub chk_repr ($) {
   print "assert_eq($p, Bigfloats.pack(Bigfloats.unpack($p as any)));\n";
 }
 
+my $sre = qr{\"[^"]+\"};
+
 while (<>) {
   next unless m/^mod test/..0;
   my $l = $_;
-  $l =~ s{bf\((\"[^"]+\")\)}{ chk_repr($1) }ge;
+  $l =~ s{bf\(($sre)\)}{ chk_repr($1) }ge;
+  
 }