#!/usr/bin/vipsi

var f = file "test1.vs"
convert f from utf8
var f1 = f

var i = count f
do
	i = rfind(f," = ",i-1)
	log i," "
	"22"
	while i
	f = f[to i-1] # " = /*!!!*/ " # f[i+3 to]
loop

var sep="====" sep#=sep sep#=sep sep#=sep
put nl,sep,nl
put f

var i = count f
do
	i = rfind(f," = "#"/*!!!*/ ",i-1)
	while i
	f = f[to i-1] # " = " # f[i+11 to]
loop

put nl,"-------------------",nl

put nl
if f==f1 put " ... ok!" else log f,nl," ... error!" then
put nl

end
