From e1e927687089cf6af26f32fd0a1177c82e45ae5c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 24 Sep 2020 22:06:17 -0700
Subject: Fixed major performance issue with finding patterns

---
 grammars/builtins.bpeg | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/grammars/builtins.bpeg b/grammars/builtins.bpeg
index 7f45f52..7a7aa06 100644
--- a/grammars/builtins.bpeg
+++ b/grammars/builtins.bpeg
@@ -22,7 +22,9 @@ find-all: (
     (include-binary-files / is-text-file)
     define-highlights
     add-filename
-    1+find-next%\n 0-1{!<\n => "\n"}
+    0+ (!..pattern {..\n=>})
+    1+ (>..pattern add-line-number 1+(..hl-pattern) ..\n / {..\n=>})
+    0-1{!<\n => "\n"}
 )
 only-matches: (
     (include-binary-files / is-text-file)
@@ -30,8 +32,6 @@ only-matches: (
     add-filename
     1+{...@hl-pattern=>'@1\n'}
 )
-find-next: matching-line / {..\n =>} find-next
-matching-line: add-line-number 1+(..hl-pattern) ..$
 add-filename: 0-1(print-filenames (is-tty {=>"\033[33;1;4m@&:\033[0m\n"} / {=>"@&:\n"}))
 add-line-number: 0-1(print-line-numbers (is-tty {=>"\033[2m@#\033[5G|\033[0m "} / {=>"@#| "}))
 hl-pattern: {@[match]pattern define-highlights => "@[hl-start]@[match]@[hl-end]"}
-- 
cgit v1.2.3