Skip to content

P
Postgres FD Implementation
Commit f88aa2d6 authored by Bruce Momjian's avatar Bruce Momjian
Browse files
Options

Update my2pg to version 1.22.

parent 6d6b3e91
Hide whitespace changes
Inline Side-by-side
Showing with 15 additions and 8 deletions
contrib/mysql/my2pg.pl
View file @ f88aa2d6
...@@ -35,8 +35,8 @@ ...@@ -35,8 +35,8 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE. # SUCH DAMAGE.
# #
# $My2pg: my2pg.pl,v 1.21 2001/08/25 18:55:28 fonin Exp $ # $My2pg: my2pg.pl,v 1.22 2001/12/06 19:32:20 fonin Exp $
# $Id: my2pg.pl,v 1.5 2001/11/21 02:43:30 momjian Exp $ # $Id: my2pg.pl,v 1.6 2002/01/07 22:36:51 momjian Exp $
# TODO: # TODO:
# + Handle SETs # + Handle SETs
...@@ -47,8 +47,14 @@ ...@@ -47,8 +47,14 @@
# #
# $Log: my2pg.pl,v $ # $Log: my2pg.pl,v $
# Revision 1.5 2001/11/21 02:43:30 momjian # Revision 1.6 2002/01/07 22:36:51 momjian
# Update my2pg.pl for release. # Update my2pg to version 1.22.
#
# Revision 1.22 2001/12/06 19:32:20 fonin
# Patch: On line 594 where you check for UNIQUE, I believe the regex should try
# and match 'UNIQUE KEY'. Otherwise it outputs no unique indexes for the
# postgres dump.
# Thanks to Brad Hilton <bhilton@vpop.net>
# #
# Revision 1.21 2001/08/25 18:55:28 fonin # Revision 1.21 2001/08/25 18:55:28 fonin
# Incorporated changes from Yunliang Yu <yu@math.duke.edu>: # Incorporated changes from Yunliang Yu <yu@math.duke.edu>:
...@@ -141,7 +147,7 @@ if($opts{d} ne '') { ...@@ -141,7 +147,7 @@ if($opts{d} ne '') {
$|=1; $|=1;
print("------------------------------------------------------------------"); print("------------------------------------------------------------------");
print("\n-- My2Pg \$Revision: 1.5 $ \translated dump"); print("\n-- My2Pg \$Revision: 1.6 $ \translated dump");
print("\n--"); print("\n--");
print("\n------------------------------------------------------------------"); print("\n------------------------------------------------------------------");
...@@ -163,7 +169,7 @@ $libtypename.='/libtypes.so'; ...@@ -163,7 +169,7 @@ $libtypename.='/libtypes.so';
# push header to libtypes.c # push header to libtypes.c
open(LIBTYPES,">$libtypesource"); open(LIBTYPES,">$libtypesource");
print LIBTYPES "/******************************************************"; print LIBTYPES "/******************************************************";
print LIBTYPES "\n * My2Pg \$Revision: 1.5 $ \translated dump"; print LIBTYPES "\n * My2Pg \$Revision: 1.6 $ \translated dump";
print LIBTYPES "\n * User types definitions"; print LIBTYPES "\n * User types definitions";
print LIBTYPES "\n ******************************************************/"; print LIBTYPES "\n ******************************************************/";
print LIBTYPES "\n\n#include <postgres.h>\n"; print LIBTYPES "\n\n#include <postgres.h>\n";
...@@ -627,7 +633,7 @@ CREATE OPERATOR <> ( ...@@ -627,7 +633,7 @@ CREATE OPERATOR <> (
$tmpfld=~s/\s*,\s*/","/g if $dq; $tmpfld=~s/\s*,\s*/","/g if $dq;
$index{$table_name}[++$j]="CREATE INDEX ${ky}_$table_name\_index ON $dq$table_name$dq ($dq$tmpfld$dq);"; $index{$table_name}[++$j]="CREATE INDEX ${ky}_$table_name\_index ON $dq$table_name$dq ($dq$tmpfld$dq);";
} }
if(/^\s*UNIQUE ([\w\d_]+)\s*\((.*)\).*/i) { if(/^\s*UNIQUE.*?([\w\d_]+)\s*\((.*)\).*/i) {
my $tmpfld=$2; my $ky=$1; my $tmpfld=$2; my $ky=$1;
$tmpfld=~s/,/","/g if $dq; $tmpfld=~s/,/","/g if $dq;
$index{$table_name}[++$j]="CREATE UNIQUE INDEX ${ky}_$table_name\_index ON $dq$table_name$dq ($dq$tmpfld$dq);"; $index{$table_name}[++$j]="CREATE UNIQUE INDEX ${ky}_$table_name\_index ON $dq$table_name$dq ($dq$tmpfld$dq);";
...@@ -694,7 +700,7 @@ close(LIBTYPES); ...@@ -694,7 +700,7 @@ close(LIBTYPES);
open(MAKE,">Makefile"); open(MAKE,">Makefile");
print MAKE "# print MAKE "#
# My2Pg \$Revision: 1.5 $ \translated dump # My2Pg \$Revision: 1.6 $ \translated dump
# Makefile # Makefile
# #
...@@ -908,6 +914,7 @@ B<(c) 2000 Valentine V. Danilchuk (valdan@ziet.zhitomir.ua)> ...@@ -908,6 +914,7 @@ B<(c) 2000 Valentine V. Danilchuk (valdan@ziet.zhitomir.ua)>
Jeff Waugh <jaw@ic.net> Jeff Waugh <jaw@ic.net>
Joakim Lemström <jocke@bytewize.com> || <buddyh19@hotmail.com> Joakim Lemström <jocke@bytewize.com> || <buddyh19@hotmail.com>
Yunliang Yu <yu@math.duke.edu> Yunliang Yu <yu@math.duke.edu>
Brad Hilton <bhilton@vpop.net>
=head1 LICENSE =head1 LICENSE
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment