added find and replace script
This commit is contained in:
parent
e87b32d72a
commit
9c9319dd8a
95
tests/find-replace
Executable file
95
tests/find-replace
Executable file
@ -0,0 +1,95 @@
|
|||||||
|
#!/usr/bin/env curly
|
||||||
|
>main
|
||||||
|
gto
|
||||||
|
:find
|
||||||
|
=i
|
||||||
|
=term
|
||||||
|
=text
|
||||||
|
:loop
|
||||||
|
$text
|
||||||
|
$i
|
||||||
|
$i
|
||||||
|
$term
|
||||||
|
len
|
||||||
|
add
|
||||||
|
slc
|
||||||
|
=part
|
||||||
|
$i
|
||||||
|
$i
|
||||||
|
inc
|
||||||
|
=i
|
||||||
|
$i
|
||||||
|
$text
|
||||||
|
len
|
||||||
|
$term
|
||||||
|
len
|
||||||
|
sub
|
||||||
|
>not-found
|
||||||
|
ggt
|
||||||
|
$part
|
||||||
|
$term
|
||||||
|
>loop
|
||||||
|
gne
|
||||||
|
ret
|
||||||
|
:not-found
|
||||||
|
neg
|
||||||
|
ret
|
||||||
|
:replace-all
|
||||||
|
=replacement
|
||||||
|
=quest
|
||||||
|
=target
|
||||||
|
\
|
||||||
|
=result
|
||||||
|
0
|
||||||
|
=from
|
||||||
|
:replace-loop
|
||||||
|
$target
|
||||||
|
$quest
|
||||||
|
$from
|
||||||
|
>find
|
||||||
|
fun
|
||||||
|
=pos
|
||||||
|
$pos
|
||||||
|
0
|
||||||
|
>replace-done
|
||||||
|
glt
|
||||||
|
$result
|
||||||
|
$target
|
||||||
|
$from
|
||||||
|
$pos
|
||||||
|
slc
|
||||||
|
$replacement
|
||||||
|
cat
|
||||||
|
cat
|
||||||
|
=result
|
||||||
|
$pos
|
||||||
|
$quest
|
||||||
|
len
|
||||||
|
add
|
||||||
|
=from
|
||||||
|
>replace-loop
|
||||||
|
gto
|
||||||
|
:replace-done
|
||||||
|
$result
|
||||||
|
$target
|
||||||
|
$from
|
||||||
|
$target
|
||||||
|
len
|
||||||
|
slc
|
||||||
|
cat
|
||||||
|
ret
|
||||||
|
:main
|
||||||
|
\Bananen hangen in warme landen aan de bananenboom.
|
||||||
|
\an
|
||||||
|
\@|\|
|
||||||
|
>replace-all
|
||||||
|
fun
|
||||||
|
out
|
||||||
|
=_
|
||||||
|
$target
|
||||||
|
\en
|
||||||
|
\un
|
||||||
|
>replace-all
|
||||||
|
fun
|
||||||
|
out
|
||||||
|
end
|
Loading…
x
Reference in New Issue
Block a user