|
procedure main()
|
|
|
|
s := "A simple string"
|
|
p := "string$" # regular expression
|
|
|
|
s ? write(image(s),if ReFind(p) then " matches " else " doesn't match ",image(p))
|
|
|
|
s[j := ReFind(p,s):ReMatch(p,s,j)] := "replacement"
|
|
write(image(s))
|
|
end
|
|
|
|
link regexp # link to IPL regexp
|