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