1 package SQL::Translator::Producer::PostgreSQL;
3 # -------------------------------------------------------------------
4 # $Id: PostgreSQL.pm,v 1.1 2002-11-20 04:03:56 kycl4rk Exp $
5 # -------------------------------------------------------------------
6 # Copyright (C) 2002 Ken Y. Clark <kycl4rk@users.sourceforge.net>,
7 # darren chamberlain <darren@cpan.org>
9 # This program is free software; you can redistribute it and/or
10 # modify it under the terms of the GNU General Public License as
11 # published by the Free Software Foundation; version 2.
13 # This program is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 # General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
22 # -------------------------------------------------------------------
25 use vars qw($VERSION $DEBUG);
26 $VERSION = sprintf "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/;
27 $DEBUG = 1 unless defined $DEBUG;
32 warn "loading " . __PACKAGE__ . "...\n";
36 my ( $translator, $data ) = @_;
37 debug("Beginning production\n");
38 my $create = sprintf "--\n-- Created by %s\n-- Created on %s\n-- \n\n",
39 __PACKAGE__, scalar localtime;
41 for my $table ( keys %{ $data } ) {
42 debug( "Looking at table '$table'\n" );
43 my $table_data = $data->{$table};
45 $table_data->{'fields'}->{$a}->{'order'}
47 $table_data->{'fields'}->{$b}->{'order'}
48 } keys %{ $table_data->{'fields'} };
50 $create .= "--\n-- Table: $table\n--\n";
51 $create .= "CREATE TABLE $table (\n";
57 for ( my $i = 0; $i <= $#fields; $i++ ) {
58 my $field = $fields[$i];
59 debug("Looking at field '$field'\n");
60 my $field_data = $table_data->{'fields'}->{ $field };
61 my @fdata = ("", $field);
64 push @fdata, sprintf "%s%s",
65 $field_data->{'data_type'},
66 ( defined $field_data->{'size'} )
67 ? "($field_data->{'size'})" : '';
70 push @fdata, "NOT NULL" unless $field_data->{'null'};
72 # Default? XXX Need better quoting!
73 if (my $default = $field_data->{'default'}) {
74 push @fdata, "DEFAULT '$default'";
75 # if (int $default eq "$default") {
76 # push @fdata, "DEFAULT $default";
78 # push @fdata, "DEFAULT '$default'";
83 push @fdata, "auto_increment" if $field_data->{'is_auto_inc'};
86 push @fdata, "PRIMARY KEY" if $field_data->{'is_primary_key'};
88 push @field_statements, join( " ", @fdata );
91 $create .= join( ",\n", @field_statements );
96 my @indices = @{ $table_data->{'indices'} };
97 for ( my $i = 0; $i <= $#indices; $i++ ) {
99 my $key = $indices[$i];
100 my ( $name, $type, $fields ) = @{ $key }{ qw( name type fields ) };
101 if ( $type eq 'primary_key' ) {
102 $create .= " PRIMARY KEY (@{$fields})"
106 $create .= " KEY $name (@{$fields})"
113 $create .= "\n);\n\n";
122 map { carp "[" . __PACKAGE__ . "] $_" } @_;
131 SQL::Translator::Producer::PostgreSQL - PostgreSQL-specific producer for SQL::Translator
135 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>