OntoMorph Rewrite Rules within Rosetta
(DEFREWRITE translate-find-sites-to-SQL{(find-sites :table ?table :route (sequence :elements (?pointA ?pointB))) (?minlat ?maxlat ?minlong ?maxlong)}==> (select distinct s.LAT, s.LON from ?table s where s.LAT '< ?maxlat and s.lat '> ?minlat and s.LON '< ?maxlong and s.LON '> ?minlong) Ö)
(DEFREWRITE translate-route-segment-region{?pointA ?pointB (?? :coords (latlong :lat ?latA :long ?longA) ??) (?? :coords (latlong :lat ?latB :long ?longB) ??)}==> ( ))