#! /bin/sh

DB=${1:-tdn}

# monitor -TN -c "retrieve (the_oid= ge_weg.oid, frompnt= PointSelector(ge_weg.pln2, 1), topnt= PointSelector(ge_weg.pln2, -1), length= Length2Pln(ge_weg.pln2)) where ge_weg.geo_bbox && \"(190000,482000,195000,487000)\"::box" $DB | 

monitor -TN -c "retrieve (the_oid= weg.oid, frompnt= PointSelector(weg.pln2, 1), topnt= PointSelector(weg.pln2, -1), length= Length2Pln(weg.pln2)) from weg in wegen* where weg.geo_bbox && \"(191000,480700,197400,487000)\"::box" $DB | \
nawk '
function makestr(s) { sub(/,/,"_",s); return "p" substr(s, 2, length(s)-2); }

  	{ 
	  if (NF != 4)
	    next;
	  printf "%s(%s,%s,%d).\n", makestr($2), $1, makestr($3), int($4)
  	  printf "%s(%s,%s,%d).\n", makestr($3), $1, makestr($2), int($4)
	}
' > data/$DB.data

bigprol << EOF
['read'].
read_data('data/$DB.data').
save('data/$DB.save').
EOF

rm data/$DB.data