1 package SQL::Translator::Producer::MySQL;
3 # -------------------------------------------------------------------
4 # $Id: MySQL.pm,v 1.3 2002-11-20 04:03:04 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.3 $ =~ /(\d+)\.(\d+)/;
27 $DEBUG = 1 unless defined $DEBUG;
32 warn "loading " . __PACKAGE__ . "...\n";
36 my ($translator, $data) = @_;
37 debug("Beginning production\n");
39 "# ----------------------------------------------------------------------
42 # ----------------------------------------------------------------------\n\n",
43 __PACKAGE__, scalar localtime;
45 for my $table (keys %{$data}) {
46 debug("Looking at table '$table'\n");
47 my $table_data = $data->{$table};
48 my @fields = sort { $table_data->{'fields'}->{$a}->{'order'} <=>
49 $table_data->{'fields'}->{$b}->{'order'}
50 } keys %{$table_data->{'fields'}};
52 # --------------------------------------------------------------
53 # Header. Should this look like what mysqldump produces?
54 # --------------------------------------------------------------
56 "# ----------------------------------------------------------------------
58 # ----------------------------------------------------------------------\n";
59 $create .= "CREATE TABLE $table (";
61 # --------------------------------------------------------------
63 # --------------------------------------------------------------
64 for (my $i = 0; $i <= $#fields; $i++) {
65 my $field = $fields[$i];
66 debug("Looking at field '$field'\n");
67 my $field_data = $table_data->{'fields'}->{$field};
68 my @fdata = ("", $field);
72 push @fdata, sprintf "%s%s", $field_data->{'data_type'},
73 ($field_data->{'size'}) ?
74 "($field_data->{'size'})" : "";
77 push @fdata, "NOT NULL" unless $field_data->{'null'};
79 # Default? XXX Need better quoting!
80 if (my $default = $field_data->{'default'}) {
81 if (int $default eq "$default") {
82 push @fdata, "DEFAULT $default";
84 push @fdata, "DEFAULT '$default'";
89 push @fdata, "auto_increment" if $field_data->{'is_auto_inc'};
92 push @fdata, "PRIMARY KEY" if $field_data->{'is_primary_key'};
95 $create .= (join " ", @fdata);
96 $create .= "," unless ($i == $#fields);
99 # --------------------------------------------------------------
101 # --------------------------------------------------------------
102 my @indices = @{$table_data->{'indices'}};
103 for (my $i = 0; $i <= $#indices; $i++) {
105 my $key = $indices[$i];
106 my ($name, $type, $fields) = @{$key}{qw(name type fields)};
107 if ($type eq "primary_key") {
108 $create .= " PRIMARY KEY (@{$fields})"
111 $create .= " KEY $name (@{$fields})"
115 # --------------------------------------------------------------
117 # --------------------------------------------------------------
119 $create .= " TYPE=$table_data->{'type'}"
120 if defined $table_data->{'type'};
124 # Global footer (with a vim plug)
136 map { carp "[" . __PACKAGE__ . "] $_" } @_;
145 SQL::Translator::Producer::MySQL - mysql-specific producer for SQL::Translator
149 darren chamberlain E<lt>darren@cpan.orgE<gt>