2020-01-08 22:45:46 +01:00
|
|
|
#!/usr/bin/env retro
|
|
|
|
|
|
|
|
|
|
~~~
|
|
|
|
|
'Line var
|
2021-01-27 15:49:39 +01:00
|
|
|
:parse (s-a) ASCII:HT s:tokenize dup !Line ;
|
|
|
|
|
:word (-s) #0 script:get-argument ;
|
|
|
|
|
:match? (a-f) #0 a:fetch word s:eq? ;
|
|
|
|
|
:fields (-ss) @Line [ #2 a:fetch ] [ #1 a:fetch ] bi ;
|
|
|
|
|
:display (-) fields s:put $: c:put s:put nl ;
|
|
|
|
|
'tags [ &Heap [ parse match? [ display ] if ] v:preserve ] file:for-each-line
|
2020-01-08 22:45:46 +01:00
|
|
|
~~~
|
