retroforth/example/retro-locate.retro

#!/usr/bin/env retro

~~~
'Line var
'tags [ &Heap [ ASCII:HT s:tokenize !Line @Line #0 a:fetch #0 script:get-argument s:eq? [ @Line #2 a:fetch @Line #1 a:fetch s:put $: c:put s:put nl ] if ] v:preserve ] file:for-each-line
~~~
add retro-locate to search the tags file generated by retro-tags FossilOrigin-Name: f85240e729d909e1e9b244692f41568a77deae68e3ab6304fc456188389884ca 2020-01-08 22:45:46 +01:00			`#!/usr/bin/env retro`

			`~~~`
			`'Line var`
rename words in sys: to script: (old names still work in this release, but are deprecated) FossilOrigin-Name: 1a43743f43076eb087ee4dd7fbfa96b8dfda2aa4ddcff41e6a5a9634ba6e239c 2020-09-14 21:55:02 +02:00			`'tags [ &Heap [ ASCII:HT s:tokenize !Line @Line #0 a:fetch #0 script:get-argument s:eq? [ @Line #2 a:fetch @Line #1 a:fetch s:put $: c:put s:put nl ] if ] v:preserve ] file:for-each-line`
add retro-locate to search the tags file generated by retro-tags FossilOrigin-Name: f85240e729d909e1e9b244692f41568a77deae68e3ab6304fc456188389884ca 2020-01-08 22:45:46 +01:00			`~~~`