#! /bin/sh

DB=${1:-geoville}

monitor $DB << EOF

/*=============================================================*/
/* pg2geo_ext.pq                                               */
/*                                                             */
/* Convert standard Postgres types to the new "geo-ext" types  */
/*=============================================================*/

retrieve into Intersection (intersection.feat_num, intersection.ID,
   intersection.BETWEEN1, intersection.BETWEEN2, intersection.BETWEEN3,
   geo_pnt2 = To2Pnt (intersection.geo_loc))\g
destroy intersection\g

retrieve into Property (top_polys.centroid_fn, top_polys.geo_bbox, 
   geo_pgn2 = To2Pgn (top_polys.geo_pline))\g
destroy top_polys\g

retrieve into Property_centr (property.feat_num, property.PARCEL,
   property.LOT, property.NAME, property.SURNAME, property.TAX_ID,
   geo_pnt2 = To2Pnt(property.geo_loc))\g
destroy property\g

retrieve into Property_bound (f_prop_bound.feat_num,
   geo_pln2 = To2Pln(f_prop_bound.geo_pline), f_prop_bound.geo_bbox)\g
destroy f_prop_bound\g

retrieve into Road (road.feat_num, road.NAME, road.DIVISION, road.CLASS,
   geo_pln2 = To2Pln(road.geo_pline))\g
destroy road\g

retrieve into Road_edge (f_road_edge.feat_num, f_road_edge.geo_bbox,
   geo_pln2 = To2Pln(f_road_edge.geo_pline))\g
destroy f_road_edge\g

retrieve into Road_text (f_road_text.feat_num, f_road_text.geo_bbox,
   geo_pln2 = To2Pln(f_road_text.geo_pline), f_road_text.label)\g
destroy f_road_text\g

retrieve into Hydrog_edge (f_hydrog_edge.feat_num, f_hydrog_edge.geo_bbox,
   geo_pln2 = To2Pln(f_hydrog_edge.geo_pline))\g
destroy f_hydrog_edge\g

retrieve into Hydrog_text (f_hydrog_text.feat_num, f_hydrog_text.geo_bbox,
   geo_pln2 = To2Pln(f_hydrog_text.geo_pline), f_hydrog_text.label)\g
destroy f_hydrog_text\g

retrieve into Neatline (f_neatline.feat_num, f_neatline.geo_bbox,
   geo_pln2 = To2Pln(f_neatline.geo_pline))\g
destroy f_neatline\g

retrieve into Mapsheet (f_map_sheet.feat_num,
   geo_pnt2 = To2Pnt(f_map_sheet.geo_loc))\g
destroy f_map_sheet\g

destroy all_points\g

destroy all_plines\g

destroy all_geo\g

remove view Accident_vw\g

remove view Taxes_vw\g

remove view Road_vw\g

define view Accident_vw (ACCIDENT.all, Intersection.all)
   where ACCIDENT.INTERSECTION = Intersection.ID\g

define view Taxes_vw (TAX.all, Property_centr.all)
   where TAX.ID = Property_centr.TAX_ID\g

define view Road_vw (CLDIV=CLASS.DIVISION, CLASS.SURFACE,
   CLASS.LANE, Road.all)
   where CLASS.CLASS = Road.CLASS\g

EOF