#!/bin/rc

if(~ $acmeaddr '')
	exit 'nil acmeaddr'

if(~ $#* 2)
	repl=$1

cd /mnt/acme/$winid

p=`{echo $acmeaddr | sed 's/.*#(.*),#(.*)/\1 \2/'}
p1=$p(1)
p2=$p(2)

q=`{sam -d body >[2=1] <<! | tr -d '.body;#-'}
#$p1-+x/^/=
#$p2-+x/^/=
!

pre=`{echo $p1-$q(2) | bc}
row=`{echo $p2-$q(4)-$pre | bc}
prere=`{seq -f. 1 $pre | tr -d $ifs}
rowre=`{seq -f. 1 $row | tr -d $ifs}

echo -n '0,$' >addr
sed $q(1)^,$q(3)^'s/(^'$"prere')(.*|('$"rowre'(.*)))/\1'$"repl'\4/' body >data