From: Sandro Santilli <strk@keybit.net>
Date: Sat, 24 Dec 2011 10:34:42 +0000 (+0000)
Subject: Add support for objects schema definition in create_undef.pl
X-Git-Tag: 2.0.0alpha1~321
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=00170db57748839d9dec0c88492f6d1a01b769d3;p=postgis

Add support for objects schema definition in create_undef.pl

git-svn-id: http://svn.osgeo.org/postgis/trunk@8554 b70326c6-7e19-0410-871a-916f4a2858ee
---

diff --git a/utils/create_undef.pl b/utils/create_undef.pl
index 3985a879f..ed9085573 100755
--- a/utils/create_undef.pl
+++ b/utils/create_undef.pl
@@ -90,7 +90,7 @@ while( my $line = <INPUT>)
 	elsif ($line =~ /^create or replace view\s*(\w+)/i) {
 		push (@views, $1);
 	}
-	elsif ($line =~ /^create table \s*(\w+)/i) {
+	elsif ($line =~ /^create table \s*([\w\.]+)/i) {
 		push (@tables, $1);
 	}
 	elsif ( $line =~ /^create operator class (\w+)/i ) {
@@ -124,7 +124,7 @@ while( my $line = <INPUT>)
 		}
 		push (@aggs, $defn)
 	}
-	elsif ($line =~ /^create type (\w+)/i) {
+	elsif ($line =~ /^create type ([\w\.]+)/i) {
 		push (@types, $1);
 		while( not $line =~ /;\s*$/ ) {
 			$line = <INPUT>;
@@ -158,11 +158,11 @@ foreach my $table (@tables)
 print "-- Drop all aggregates.\n";
 foreach my $agg (@aggs)
 {
-	if ( $agg =~ /create aggregate\s*(\w+)\s*\(\s*.*basetype = (\w+)/ism )
+	if ( $agg =~ /create aggregate\s*([\w\.]+)\s*\(\s*.*basetype = (\w+)/ism )
 	{
 		print "DROP AGGREGATE $1 ($2);\n";
 	}
-	elsif ( $agg =~ /create aggregate\s*(\w+)\s*\(\s*([\w,\s]+)\s*\)/ism )
+	elsif ( $agg =~ /create aggregate\s*([\w\.]+)\s*\(\s*([\w,\s]+)\s*\)/ism )
 	{
 		print "DROP AGGREGATE $1 ($2);\n";
 	}