crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

retro-describe: use s:left rather than fully tokenizing the source data when doing basic searches

Browse source 
FossilOrigin-Name: dafa60449e827e32eb344d44215b2e3b3f6a8328db90073131ba29496eae6c6c
This commit is contained in:
crc 2023-11-03 14:33:14 +00:00
parent f3f06cb180
commit 635cb165ee
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tools/retro-describe.retro
View file

@ -141,14 +141,15 @@ the description.
~~~
{{
'Target var
'Target var
'Len var
'LineNumber var
:matched? (-f) field:name s:hash @Target eq? ;
:matched? (-f) @SourceLine @Len s:left s:hash @Target eq? ;
:entry? (-f) @LineNumber DATA-START gteq? &LineNumber v:inc ;
:process (-) &Heap [ s:keep !SourceLine matched? &display-result if ] v:preserve ;
---reveal---
:find-and-display-entry
#0 !LineNumber s:hash !Target
#0 !LineNumber dup s:length !Len s:hash !Target
script:name [ entry? &process &drop choose ] file:for-each-line nl ;
}}
~~~