package SQL::Translator::Producer::PostgreSQL;
# -------------------------------------------------------------------
-# $Id: PostgreSQL.pm,v 1.17 2003-09-26 22:35:23 kycl4rk Exp $
+# $Id: PostgreSQL.pm,v 1.22 2004-02-09 23:02:15 kycl4rk Exp $
# -------------------------------------------------------------------
-# Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>,
-# darren chamberlain <darren@cpan.org>,
-# Chris Mungall <cjm@fruitfly.org>
+# Copyright (C) 2002-4 SQLFairy Authors
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
SQL::Translator::Producer::PostgreSQL - PostgreSQL producer for SQL::Translator
+=head1 SYNOPSIS
+
+ my $t = SQL::Translator->new( parser => '...', producer => 'PostgreSQL' );
+ $t->translate;
+
+=head1 DESCRIPTION
+
+Creates a DDL suitable for PostgreSQL. Very heavily based on the Oracle
+producer.
+
=cut
use strict;
use vars qw[ $DEBUG $WARN $VERSION ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.17 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.22 $ =~ /(\d+)\.(\d+)/;
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Schema::Constants;
UNION UNIQUE USER USING VERBOSE WHEN WHERE
];
-my $max_id_length = 30;
+my $max_id_length = 62;
my %used_identifiers = ();
my %global_names;
my %unreserve;
$output .= header_comment unless ($no_comments);
my %used_index_names;
+ my @fks;
for my $table ( $schema->get_tables ) {
my $table_name = $table->name or next;
$table_name = mk_name( $table_name, '', undef, 1 );
$data_type = 'character varying';
}
elsif ( $data_type eq 'set' ) {
- # XXX add a CHECK constraint maybe
- # (trickier and slower, than enum :)
-# my $len = length $commalist;
-# $field_def .= " character varying($len) /* set $commalist */";
$data_type = 'character varying';
}
elsif ( $field->is_auto_increment ) {
$data_type = 'serial';
}
undef @size;
-
-# $seq_name = mk_name( $table_name.'_'.$field_name, 'sq' );
-# push @sequence_defs, qq[DROP SEQUENCE "$seq_name";];
-# push @sequence_defs, qq[CREATE SEQUENCE "$seq_name";];
}
else {
$data_type = defined $translate{ $data_type } ?
push @constraint_defs, "${def_start}CHECK ($expression)";
}
elsif ( $c->type eq FOREIGN_KEY ) {
-# my $def = join(' ',
-# map { $_ || () } 'FOREIGN KEY', $c->name
-# );
-#
- my $def .= 'FOREIGN KEY ("' . join( '", "', @fields ) . '")';
-
- $def .= ' REFERENCES ' . $c->reference_table;
+ my $def .= "ALTER TABLE $table_name ADD FOREIGN KEY (" .
+ join( ', ', map { qq["$_"] } @fields ) . ')' .
+ "\n REFERENCES " . $c->reference_table;
if ( @rfields ) {
$def .= ' ("' . join( '", "', @rfields ) . '")';
$def .= ' ON UPDATE '.join( ' ', $c->on_update );
}
- push @constraint_defs, $def;
+ push @fks, "$def;";
}
}
);
}
+ if ( @fks ) {
+ $output .= "--\n-- Foreign Key Definitions\n--\n\n" unless $no_comments;
+ $output .= join( "\n\n", @fks );
+ }
+
if ( $WARN ) {
if ( %truncated ) {
warn "Truncated " . keys( %truncated ) . " names:\n";
=pod
+=head1 SEE ALSO
+
+SQL::Translator, SQL::Translator::Producer::Oracle.
+
=head1 AUTHOR
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>
+Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
=cut