global-functions: $Grep: use length from variable

This commit is contained in:
Christian Hesse 2026-02-17 12:14:43 +01:00
parent 0ba5c9f63e
commit 1af9ed26b7

View file

@ -728,11 +728,12 @@
:do {
# Do *NOT* try :deserialize here to split lines. It can fail with
# scripts, and it *does* fail with global-functions!
:local Line [ :pick $Input 0 [ :find $Input "\n" ] ];
:local Len [ :find $Input "\n" ];
:local Line [ :pick $Input 0 $Len ];
:if ([ :typeof [ :find $Line $Pattern ] ] = "num") do={
:return $Line;
}
:set Input [ :pick $Input ([ :find $Input "\n" ] + 1) [ :len $Input ] ];
:set Input [ :pick $Input ($Len + 1) [ :len $Input ] ];
} while=([ :len $Input ] > 0);
:return [];