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

more tweaks to the retro-tags

Browse source 
FossilOrigin-Name: f8ffa909cb17dc9b1a7329697c417c615bcdad70dea8ef6dc3477f302575a489
This commit is contained in:
crc 2019-09-25 18:08:55 +00:00
parent a250a3c341
commit 75b31534d3
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
example/retro-tags.retro
View file

@ -22,6 +22,17 @@ To generate a tags file:
retro-tags retro-tags
Tags for variables, constants, and data structures are not
always identified correctly. Specifically:
'foo d:create .... <- not identified
#1 'foo const #2 'bar const <- only the last is identified
'foo var 'bar var <- only the last is identified
For these, this assumes one name defined per line, with nothing
following. Better detection and handling of this is left open
for a future project.
To start, I bring in the `retro-unu` tool to locate the code To start, I bring in the `retro-unu` tool to locate the code
blocks and call a combinator for each line in the code block. blocks and call a combinator for each line in the code block.
This one is extended to keep track of the tag address and This one is extended to keep track of the tag address and
@ -75,7 +86,7 @@ Then variables.
dup 'var s:ends-with? over 'var<n> s:ends-with? or ; dup 'var s:ends-with? over 'var<n> s:ends-with? or ;
:output-name :output-name
ASCII:SPACE s:tokenize [ s:trim dup '' s:begins-with? [ n:inc s:put ] &drop choose ] a:for-each ; ASCII:SPACE s:tokenize dup a:length #2 - a:fetch n:inc s:put ;
#0 sys:argv [ s:trim variable? &drop -if; output-name output-location ] unu #0 sys:argv [ s:trim variable? &drop -if; output-name output-location ] unu
~~~ ~~~
@ -87,7 +98,7 @@ Constants.
dup 'const s:ends-with? ; dup 'const s:ends-with? ;
:output-name :output-name
ASCII:SPACE s:tokenize [ s:trim dup '' s:begins-with? [ n:inc s:put ] &drop choose ] a:for-each ; ASCII:SPACE s:tokenize dup a:length #2 - a:fetch n:inc s:put ;
#0 sys:argv [ s:trim constant? &drop -if; output-name output-location ] unu #0 sys:argv [ s:trim constant? &drop -if; output-name output-location ] unu
~~~ ~~~
@ -99,7 +110,7 @@ And finally, words made with `d:create`:
dup 'd:create s:ends-with? ; dup 'd:create s:ends-with? ;
:output-name :output-name
ASCII:SPACE s:tokenize [ s:trim dup '' s:begins-with? [ n:inc s:put ] &drop choose ] a:for-each ; ASCII:SPACE s:tokenize dup a:length #2 - a:fetch n:inc s:put ;
#0 sys:argv [ s:trim created? &drop -if; output-name output-location ] unu #0 sys:argv [ s:trim created? &drop -if; output-name output-location ] unu
~~~ ~~~