database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-13 07:41:39 +03:00
Code Activity

Update my2pg to version 1.22.

Browse Source
This commit is contained in:
Bruce Momjian
2002-01-07 22:36:51 +00:00
parent 6d6b3e911c
commit f88aa2d653
1 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
contrib/mysql/my2pg.pl
View File

@ -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 @@
# #
# $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 '') {
$|=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';
# 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 <> (
$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);
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)>
Jeff Waugh <jaw@ic.net> Jeff Waugh <jaw@ic.net>
Joakim Lemstr<74>m <jocke@bytewize.com> || <buddyh19@hotmail.com> Joakim Lemstr<74>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