From: Sandro Santilli <strk@kbt.io>
Date: Thu, 22 Aug 2019 14:59:53 +0000 (+0000)
Subject: Add support for extension sequences in create_unpackaged.pl
X-Git-Tag: 3.0.0beta1~49
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=faf9f78f203412b3f7cbeee189c269486ad4fffb;p=postgis

Add support for extension sequences in create_unpackaged.pl

Should fix topology dump-restore
References #4488

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

diff --git a/utils/create_unpackaged.pl b/utils/create_unpackaged.pl
index 84f7aeeb9..aee76a9af 100755
--- a/utils/create_unpackaged.pl
+++ b/utils/create_unpackaged.pl
@@ -44,6 +44,7 @@ my @ops = ();
 my @opcs = ();
 my @views = ();
 my @tables = ();
+my @sequences = ();
 my @schemas = ();
 
 sub strip_default {
@@ -68,7 +69,19 @@ while( my $line = <>)
 		push (@views, $1);
 	}
 	elsif ($line =~ /^create table \s*([\w\.]+)/i) {
-		push (@tables, $1);
+		#print STDERR "XXX table $1\n";
+		my $fqtn = $1;
+		push (@tables, $fqtn);
+		my $defn = $line;
+		while( not $defn =~ /\)/ ) {
+			#print STDERR "XXX defn $defn\n";
+			if ($defn =~ /([\w]+) serial\b/i) {
+				my $seq = "${fqtn}_$1_seq";
+				#print STDERR "XXX serial field [$seq]\n";
+				push (@sequences, $seq);
+			}
+			$defn = <>;
+		}
 	}
 	elsif ($line =~ /^create schema \s*([\w\.]+)/i) {
 		push (@schemas, $1);
@@ -186,6 +199,12 @@ foreach my $table (@tables)
 	add_if_not_exists("TABLE $table");
 }
 
+print "-- Register all sequences.\n";
+foreach my $seq (@sequences)
+{
+	add_if_not_exists("SEQUENCE $seq");
+}
+
 
 print "-- Register all aggregates.\n";
 foreach my $agg (@aggs)