From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 14 Jul 2009 23:52:50 +0000 (-0700)
Subject: move these to ::Producer::SQL::
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=287d4603cabc943c77b21e6ba40ccb531a199a47;p=dbsrgits%2FSQL-Translator-2.0-ish.git

move these to ::Producer::SQL::
---

diff --git a/lib/SQL/Translator/Producer/SQL/PostgreSQL.pm b/lib/SQL/Translator/Producer/SQL/PostgreSQL.pm
new file mode 100644
index 0000000..5860d92
--- /dev/null
+++ b/lib/SQL/Translator/Producer/SQL/PostgreSQL.pm
@@ -0,0 +1,84 @@
+package SQL::Translator::Producer::SQL::PostgreSQL;
+use namespace::autoclean;
+use Moose::Role;
+use SQL::Translator::Constants qw(:sqlt_types);
+
+my %data_type_mapping = (
+    SQL_LONGVARCHAR() => 'text',
+    SQL_TIMESTAMP()   => 'timestamp',
+    SQL_TYPE_TIMESTAMP() => 'timestamp without time zone',
+    SQL_TYPE_TIMESTAMP_WITH_TIMEZONE() => 'timestamp',
+    SQL_INTEGER()     => 'integer',
+    SQL_CHAR()        => 'character',
+    SQL_VARCHAR()     => 'varchar',
+    SQL_BIGINT()      => 'bigint',
+);
+
+sub _create_table {
+    my $self = shift;
+    my $table = shift;
+
+    my $pg_version = 0;
+
+    my $create_table;
+    my (@create, @column_defs, @index_defs, @constraint_defs);
+
+    $create_table .= 'DROP TABLE '   . $table->name . ";\n" if $self->drop_table;
+    $create_table .= 'CREATE TABLE ' . $table->name . " (\n";
+
+    push @column_defs, $self->_create_column($_) for values %{$table->columns};
+    $create_table .= join(",\n", map { '  ' . $_ } @column_defs ) . "\n)";
+
+    #use Data::Dumper; print Dumper($table->indexes);
+    foreach my $index (values %{$table->indexes}) {
+        if ($index->type eq 'NORMAL') {
+            push @index_defs, $self->_create_index($index, $table);
+        } else {
+            push @constraint_defs, $self->_create_index($index);
+        }
+    }
+
+    print $create_table . ";\n";
+#    use Data::Dumper; print Dumper(@index_defs); print Dumper(@constraint_defs);
+    return (@create, $create_table, @index_defs, @constraint_defs);
+}
+
+sub _create_column {
+    my $self = shift;
+    my $column = shift;
+
+    my $size = $column->size;
+    my $default_value = $column->default_value;
+
+    my $column_def;
+    $column_def  = $column->name . ' ';
+    $column_def .= defined $data_type_mapping{$column->data_type}
+                   ? $data_type_mapping{$column->data_type}
+                   : $column->data_type;
+    $column_def .= '(' . $column->size . ')' if $size;
+    $column_def .= ' NOT NULL' unless $column->is_nullable;
+    $column_def .= ' PRIMARY KEY' if $column->is_auto_increment;
+    $column_def .= ' DEFAULT ' . $default_value if $column->default_value && !$column->is_auto_increment;
+    $column_def;
+}
+
+sub _create_index {
+    my $self = shift;
+    my $index = shift;
+    my $table = shift;
+
+    my $index_def;
+    if ($index->type eq 'PRIMARY_KEY') {
+        $index_def = 'CONSTRAINT ' . $index->name .  ' PRIMARY KEY ' .  '(' . (join ', ', map { $_->name } values %{$index->columns}) . ')';
+    }
+    elsif ($index->type eq 'UNIQUE') {
+        $index_def = 'CONSTRAINT ' . $index->name .  ' UNIQUE ' .  '(' . (join ', ', map { $_->name } values %{$index->columns}) . ')';
+    }
+    elsif ($index->type eq 'NORMAL') {
+        $index_def = 'CREATE INDEX ' . $index->name . ' ON ' . $table->name . '('.  (join ', ', map { $_->name } values %{$index->columns}) . ')';
+    }
+
+    $index_def;
+}
+
+1;
diff --git a/lib/SQL/Translator/Producer/SQL/SQLite.pm b/lib/SQL/Translator/Producer/SQL/SQLite.pm
new file mode 100644
index 0000000..b014344
--- /dev/null
+++ b/lib/SQL/Translator/Producer/SQL/SQLite.pm
@@ -0,0 +1,54 @@
+package SQL::Translator::Producer::SQL::SQLite;
+use namespace::autoclean;
+use Moose::Role;
+use SQL::Translator::Constants qw(:sqlt_types);
+
+my %data_type_mapping = (
+    SQL_LONGVARCHAR() => 'text',
+    SQL_TIMESTAMP()   => 'timestamp',
+    SQL_INTEGER()     => 'integer',
+    SQL_CHAR()        => 'character',
+    SQL_VARCHAR()     => 'varchar',
+    SQL_BIGINT()      => 'integer',
+);
+
+sub _create_table {
+    my $self = shift;
+    my $table = shift;
+
+    my $sqlite_version = 0;
+
+    my $create_table;
+    my (@create, @column_defs, @index_defs, @constraint_defs);
+
+    $create_table .= 'DROP TABLE '   . $table->name . ";\n" if $self->drop_table;
+    $create_table .= 'CREATE TABLE ' . $table->name . " (\n";
+
+    push @column_defs, $self->_create_column($_) for values %{$table->columns};
+    $create_table .= join(",\n", map { '  ' . $_ } @column_defs ) . "\n)";
+
+    print $create_table . ";\n";
+    return (@create, $create_table, @index_defs, @constraint_defs );
+}
+
+sub _create_column {
+    my $self = shift;
+    my $column = shift;
+
+    my $size = $column->data_type == SQL_TIMESTAMP() ? undef : $column->size;
+    my $default_value = $column->default_value;
+    $default_value =~ s/^now[()]*/CURRENT_TIMESTAMP/i if $default_value;
+
+    my $column_def;
+    $column_def  = $column->name . ' ';
+    $column_def .= defined $data_type_mapping{$column->data_type}
+                   ? $data_type_mapping{$column->data_type}
+                   : $column->data_type;
+    #$column_def .= '(' . $column->size . ')' if $size;
+    $column_def .= ' NOT NULL' unless $column->is_nullable;
+    $column_def .= ' PRIMARY KEY' if $column->is_auto_increment;
+    $column_def .= ' DEFAULT ' . $default_value if $column->default_value && !$column->is_auto_increment;
+    $column_def;
+}
+
+1;