From: Allen Day Date: Tue, 21 Dec 2004 01:47:34 +0000 (+0000) Subject: replaced by TT producer X-Git-Tag: v0.11008~578 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70c12e7cded727aa32537776dfb00176de5e58b7;p=dbsrgits%2FSQL-Translator.git replaced by TT producer --- diff --git a/lib/SQL/Translator/Producer/Turnkey.pm b/lib/SQL/Translator/Producer/Turnkey.pm deleted file mode 100644 index 4faf08a..0000000 --- a/lib/SQL/Translator/Producer/Turnkey.pm +++ /dev/null @@ -1,690 +0,0 @@ -package SQL::Translator::Producer::Turnkey; - -# ------------------------------------------------------------------- -# $Id: Turnkey.pm,v 1.62 2004-12-21 01:28:38 grommit Exp $ -# ------------------------------------------------------------------- -# 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 -# published by the Free Software Foundation; version 2. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -# 02111-1307 USA -# ------------------------------------------------------------------- - -use strict; -use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.62 $ =~ /(\d+)\.(\d+)/; -$DEBUG = 1 unless defined $DEBUG; - -use SQL::Translator::Schema::Constants; -use SQL::Translator::Schema::Graph; -use SQL::Translator::Schema::Graph::HyperEdge; -use Log::Log4perl; Log::Log4perl::init('/etc/log4perl.conf'); -use Data::Dumper; -local $Data::Dumper::Maxdepth = 3; -use Template; - -my %producer2dsn = ( - MySQL => 'mysql', - PostgreSQL => 'Pg', - Oracle => 'Oracle', -); - -# ------------------------------------------------------------------- -sub produce { - - my $t = shift; - my $create = undef; - my $args = $t->producer_args; - my $no_comments = $t->no_comments; - my $baseclass = $args->{'main_pkg_name'} || $t->format_package_name('DBI'); - my $graph = SQL::Translator::Schema::Graph->new(translator => $t); - - my $parser_type = (split /::/, $t->parser_type)[-1]; - - local $DEBUG = $t->debug; - - my %meta = ( - concat => $args->{'concat'} || '', - format_fk => $t->format_fk_name, - format_package => $t->format_package_name, - format_table => $t->format_table_name, - template => $args->{'template'} || '', - baseclass => $baseclass, - db_dsn => $args->{'db_dsn'} || '', - db_user => $args->{'db_user'} || '', - db_pass => $args->{'db_pass'} || '', - db_str => $args->{'db_str'} || '', - parser => $t->parser_type, - producer => __PACKAGE__, - dsn => $args->{'dsn'} || sprintf( 'dbi:%s:_', $producer2dsn{ $parser_type } - ? $producer2dsn{ $parser_type } - : $parser_type - ) - ); - - foreach my $node ($graph->node()){ - $node->base($baseclass); - } - - $meta{"nodes"} = $graph->node; - return(translateForm($t, \%meta)); -} - -sub translateForm { - my $t = shift; - my $meta = shift; - - my $args = $t->producer_args; - my $type = $meta->{'template'}; - - my $template = Template->new({ - PRE_CHOMP => 1, - POST_CHOMP => 0, - EVAL_PERL => 1 - }); - - my $tt2; - $tt2 = template($type); - my $result; - - if ($type eq 'atomtemplate') { - my %result; - foreach my $node (values %{ $meta->{'nodes'} }) { - $result = ''; - my $param = { node => $node }; - $template->process(\$tt2, $param, \$result) || die $template->error(); - $result =~ s/^\s*(.+)\s*$/$1/s; - next unless $result; - $result{$node->table->name} = $result; - } - return \%result; - } else { - $template->process(\$tt2, $meta, \$result) || die $template->error(); - } - - #warn $result if $type eq 'dbi'; - - return($result); -} - -1; - -# ------------------------------------------------------------------- - -=pod - -=head1 NAME - -SQL::Translator::Producer::Turnkey - create Turnkey classes from schema - -=head1 SYNOPSIS - -Creates output for use with the Turnkey project. - -=head1 SEE ALSO - -L. - -=head1 AUTHORS - -Allen Day Eallenday@ucla.eduE -Brian O\'Connor Eboconnor@ucla.comE. - -=cut - -sub template { - my $type = shift; - -########################################### -# Here documents for the tt2 templates # -########################################### - - if($type eq 'dbi'){ - return <<'EOF'; -[% MACRO printPackage(node) BLOCK %] - -########[% node.table.name | ucfirst #node.name | replace("Turnkey${concat}::Model::", '') %]######## - -package [% node.name %]; -use base '[% node.base %]'; -use Class::DBI::Pager; -no warnings qw(redefine); - -[% node.name %]->set_up_table('[% node.table.name %]'); -[% printPKAccessors(node.primary_key, node.table.name) %] -[% printHasA(node.edges, node) %] -[% printHasMany(node.edges, node) %] -[% printHasCompound(node.compoundedges, node.hyperedges, node.name) %] -[% #printHasFriendly(node) %] -[% END %] -[% MACRO printPKAccessors(array, name) BLOCK %] -# -# Primary key accessors -# - -[% FOREACH item = array %] -[% IF item != "id" %]sub id { shift->[% item %] }[% END %] -[% IF item != name %]sub [% name %] { shift->[% item %] }[% END %] -[% END %] - -[% END %] -[% MACRO printHasA(edges, name) BLOCK %] -[% FOREACH edge = edges %] -[% IF loop.first() %] -# -# Has A -# - -[% END %] - [% IF edge.type == 'import' %] -[% node.name %]->has_a([% edge.thisfield.name %] => '[% edge.thatnode.name %]'); - [% IF node.has(edge.thatnode.name) < 2 %] -sub [% edge.thatnode.table.name %] { return shift->[% edge.thisfield.name %] } - [% ELSE %] -sub [% format_fk(edge.thisnode.table.name,edge.thisfield.name) %] { return shift->[% edge.thisfield.name %] } - [% END %] - [% END %] -[% END %] - -[% END %] - -[% MACRO printHasMany(edges, node) BLOCK %] -[% FOREACH edge = edges %] -[% IF loop.first() %] -# -# Has Many -# - -[% END %] - [% IF edge.type == 'export' %] -[% node.name %]->has_many('[% edge.thatnode.table.name %]_[% edge.thatfield.name %]', '[% edge.thatnode.name %]' => '[% edge.thatfield.name %]'); - [% IF node.via(edge.thatnode.name) >= 1 %] -sub [% edge.thatnode.table.name %]_[% format_fk(edge.thatnode.table.name,edge.thatfield.name) %]s { return shift->[% edge.thatnode.table.name %]_[% edge.thatfield.name %] } - [% ELSIF edge.thatnode.table.is_data %] - [% IF node.edgecount(edge.thatnode.name) > 1 %] -sub [% edge.thatnode.table.name %]_[% format_fk(edge.thatnode.name,edge.thatfield.name) %]s { return shift->[% edge.thatnode.table.name %]_[% edge.thatfield.name %] } - [% ELSE %] -sub [% edge.thatnode.table.name %]s { return shift->[% edge.thatnode.table.name %]_[% edge.thatfield.name %] } - [% END %] - [% END %] - - [% END %] -[% END %] - -[% END %] -[% MACRO printHasCompound(cedges,hedges,name) BLOCK %] -[% FOREACH cedge = cedges %] -[% IF loop.first() %] -# -# Has Compound Many -# -[% END %] -[% FOREACH edge = cedge.edges %] - [% NEXT IF edge.thisnode.name != name %] -sub [% cedge.via.table.name %]_[% format_fk(edge.thatnode.table.name,edge.thatfield.name) %]s { return shift->[% cedge.via.table.name %]_[% edge.thatfield.name %] } -[% END %] -[% END %] - -[% seen = 0 %] -[% FOREACH h = hedges %] - [% NEXT UNLESS h.type == 'one2one' %] -[% IF seen == 0 ; seen = 1 %]# one2one #[% END %] -sub [% h.thatnode.table.name %]s { my $self = shift; return map $_->[% h.thatviafield.name %], $self->[% h.vianode.table.name %]_[% h.thisviafield.name %] } -[% END %] - -[% seen = 0 %] -[% FOREACH h = hedges %] - [% NEXT UNLESS h.type == 'one2many' %] -[% IF seen == 0 ; seen = 1 %]# one2many #[% END %] - [% thisnode = h.thisnode_index(0) %] - [% i = 0 %] - [% FOREACH thatnode = h.thatnode %] - [% NEXT UNLESS h.thisviafield_index(i).name %] -#[% thisnode.name %]::[% h.thisfield_index(0).name %] -> [% h.vianode.name %]::[% h.thisviafield_index(i).name %] ... [% h.vianode.name %]::[% h.thatviafield_index(0).name %] <- [% h.thatnode_index(0).name %]::[% h.thatfield_index(0).name %] -sub [% h.vianode.table.name %]_[% format_fk(h.vianode,h.thatviafield_index(0).name) %]s { my $self = shift; return map $_->[% h.thatviafield_index(0).name %], $self->[% h.vianode.table.name %]_[% h.thisviafield_index(i).name %] } - [% i = i + 1 %] - [% END %] -[% END %] - -[% seen = 0 %] -[% FOREACH h = hedges %] - [% NEXT UNLESS h.type == 'many2one' %] -[% IF seen == 0 ; seen = 1 %]# many2one #[% END %] - [% i = 0 %] - [% FOREACH thisnode = h.thisnode %] -#[% thisnode.name %]::[% h.thisfield_index(0).name %] -> [% h.vianode.name %]::[% h.thisviafield_index(i).name %] ... [% h.vianode.name %]::[% h.thatviafield_index(0).name %] <- [% h.thatnode_index(0).name %]::[% h.thatfield_index(0).name %] -sub [% h.vianode.table.name %]_[% format_fk(h.vianode,h.thisviafield_index(i).name) %]_[% format_fk(h.vianode,h.thatviafield_index(0).name) %]s { my $self = shift; return map $_->[% h.thatviafield_index(0).name %], $self->[% h.vianode.table.name %]_[% h.thisviafield_index(i).name %] } - [% i = i + 1 %] - [% END %] -[% END %] - -[% seen = 0 %] -[% FOREACH h = hedges %] - [% NEXT UNLESS h.type == 'many2many' %] -[% IF seen == 0 ; seen = 1 %]# many2many #[% END %] - [% i = 0 %] - [% FOREACH thisnode = h.thisnode %] - [% j = 0 %] - [% FOREACH thatnode = h.thatnode %] -#[% thisnode.name %]::[% h.thisfield_index(i).name %] -> [% h.vianode.name %]::[% h.thisviafield_index(i).name %] ... [% h.vianode.name %]::[% h.thatviafield_index(j).name %] <- [% h.thatnode_index(j).name %]::[% h.thatfield_index(j).name %] -sub [% h.vianode.table.name %]_[% format_fk(h.vianode,h.thisviafield_index(i).name) %]_[% format_fk(h.vianode,h.thatviafield_index(j).name) %]s { my $self = shift; return map $_->[% h.vianode.table.name %]_[% format_fk(h.vianode,h.thatviafield_index(j).name) %]s, $self->[% h.vianode.table.name %]_[% format_fk(h.vianode,h.thisviafield_index(i).name) %]s } - [% j = j + 1 %] - [% END %] - [% i = i + 1 %] - [% END %] -[% END %] -1; -[% END %] -[% MACRO printHasFriendly(node) BLOCK %] -# -# Has Friendly -# -#FIXME, why aren't these being generated? - -[% END %] -[% MACRO printList(array) BLOCK %][% FOREACH item = array %][% item %] [% END %][% END %] - -########AutoDBI######## -use Turnkey[% concat %]::Model::DBI; -[% FOREACH node = nodes %] -use [% node.value.name %]; -[% END %] -1; - -########DBI######## -package [% baseclass %]; - -# Created by SQL::Translator::Producer::Turnkey -# Template used: classdbi - -use strict; -use Data::Dumper; -no warnings 'redefine'; -use base qw(Class::DBI::Pg); - -[% baseclass %]->set_db('Main', '[% db_dsn %]', '[% db_user %]', '[% db_pass %]'); -sub search_ilike { shift->_do_search(ILIKE => [% "\@\_" %] ) } -sub search_lower { - my $c = shift; - my %q = @_; - my %t; - foreach my $k (keys %q){ - $t{"lower($k)"} = lc($q{$k}); - } - $c->_do_search(LIKE => %t); -} - - -# debug method -sub dump { - my $self = shift; - my %arg = %{shift @_}; - $arg{'indent'} ||= 1; - $arg{'depth'} ||= 3; - local $Data::Dumper::Maxdepth = $arg{'depth'} if defined $arg{'depth'}; - local $Data::Dumper::Indent = $arg{'indent'} if defined $arg{'indent'}; - return(Dumper($arg{'object'})); -} - -1; - -[% FOREACH node = nodes %][% printPackage(node.value) %][% END %] -EOF -} - -elsif($type eq 'soap'){ - return <<'EOF'; -[% FOREACH node = nodes %][% node.value.name %], [%- END -%] -EOF -} - -elsif($type eq 'atom'){ - - return <<'EOF'; -[% # DOCUMENT START # %] - -########AutoAtom######## -[% FOREACH node = nodes %] -use [% node.value.name %]; -[% END %] -1; - -[% FOREACH node = nodes %] -[% IF !node.value.is_trivial_link %] - -########[% node.value.name | replace('.+::', '') %]######## - -package Turnkey[% concat %]::Atom::[% node.value.name FILTER replace '.+::', '' %]; - -[% pname = node.value.name FILTER replace '.+::', '' %] - -use base qw(Turnkey[% concat %]::Atom); -use Data::Dumper; - -sub can_render { - return 1; -} - -sub render { - my $self = shift; - my $dbobject = shift; - - # Assumption here that if it's not rendering on it's own dbobject - # then it's a list. This will be updated when AtomLists are implemented -boconnor - if(ref($dbobject) eq 'Turnkey[% concat %]::Model::[% pname %]') { - $self->focus('yes'); - return(_render_record($dbobject)); - } - else { return(_render_list($dbobject)); } -} - -sub _render_record { - my $dbobject = shift; - my @output = (); - my $row = {}; - my $field_hash = {}; - - #data - [% FOREACH value = node.value.data_fields %] - [% IF value != 1 %] - $field_hash->{[% value.key %]} = $dbobject->[% value.key %](); - [% END %] - [% END %] - - #keys - [% FOREACH value = node.value.edges %] - [% NEXT IF value.type != 'import' %] - $field_hash->{[% value.thisfield.name %]} = $dbobject->[% value.thisfield.name %](); - [% END %] - - $row->{data} = $field_hash; - $row->{id} = $dbobject->id(); - push @output, $row; - return(\@output); -} - -sub _render_list { - my $dbobject = shift; - my @output = (); - my @objects = $dbobject->[% node.key %]s; - foreach my $object (@objects){ - my $row = {}; - my $field_hash = {}; - - #data - [% FOREACH value = node.value.data_fields %] - [% IF value != 1 %] - $field_hash->{[% value.key %]} = $object->[% value.key %](); - [% END %] - [% END %] - - #keys - [% FOREACH value = node.value.edges %] - [% NEXT IF value.type != 'import' %] - $field_hash->{[% value.thisfield.name %]} = $object->[% value.thisfield.name %](); - [% END %] - - $row->{data} = $field_hash; - $row->{id} = $object->id(); - push @output, $row; - } - return(\@output); -} - -sub head { - return 1; -} - -1; -[% END %] -[% END %] -EOF - -} elsif($type eq 'xml'){ - return <<'EOF'; - - - - - - - - - - - - - -[% FOREACH node = nodes %] -[% IF !node.value.is_trivial_link %] - -[%- END -%] -[% END %] - - - - - - - - - -[% FOREACH focus_atom = nodes %] -[% IF !focus_atom.value.is_trivial_link %] - [% FOREACH link_atom = focus_atom.value.hyperedges %] - - [%- END -%] - [% previous = "" %] - [% FOREACH link_atom = focus_atom.value.edges %] - [% IF link_atom.type == 'export' && previous != link_atom.thatnode.table.name && link_atom.thatnode.table.name != "" %] - - [% previous = link_atom.thatnode.table.name %] - [% END %] - [%- END %] -[%- END -%] -[% END %] - - - -[% FOREACH focus_atom = nodes %] -[% IF !focus_atom.value.is_trivial_link %] - - [% FOREACH link_atom = focus_atom.value.hyperedges %] - - [%- END%] - [% previous = "" %] - [% FOREACH link_atom = focus_atom.value.edges %] - [% IF link_atom.type == 'export' && previous != link_atom.thatnode.table.name %] - - [% previous = link_atom.thatnode.table.name %] - [% END %] - [%- END %] - - - [%- END %] -[% END %] - - - - - - - - - - - - - - - - - - - - -[% FOREACH focus_atom = nodes %] -[% IF !focus_atom.value.is_trivial_link %] - -[%- END -%] -[% END %] - - - - - - - - -EOF - -} elsif($type eq 'template'){ - return <<'EOF'; -[% TAGS [- -] %] -[% MACRO renderpanel(panel,name,dbobject) BLOCK %] - - [% FOREACH p = panel.containers %] - [% IF p.can_render(panel) %] - [% IF p.type == 'Container' %] - [% renderpanel(p,name,dbobject) %] - [% ELSE %] - [% IF p.type == 'major' %] -
- [% IF name %] -
[% name %]
- [% END %] - - - [% renderatom(name,dbobject,p.containers[0]) %] - -
-
- [% ELSIF p.type == 'minor' %] -
- [% FOREACH atom = p.containers %] -
- [% IF name %] - [% linkname = ref(p.containers[0]) %] -
[% atom.name | replace("Turnkey${concat}::Atom::", '') %]
- [% END %] - - - [% renderatom(name,dbobject,atom) %] - -
- [% END %] -
- [% END %] - [% END %] - [% IF panel.orientation == 'vertical' %] - [% END %] - [% END %] - [% END %] - - - -[% END %] -[% BLOCK make_linked_dbobject %] - [% PERL %] - $stash->set(linked_dbobject => [% class %]->retrieve([% id %])); - [% END %] -[% END %] -[% MACRO obj2link(obj) SWITCH ref(obj) %] - [% CASE '' %] - [% obj %] - [% CASE DEFAULT %] - [% IF obj.name %] - [% obj.name %] - [% ELSE %] - [% obj %] - [% END %] -[% END %] -[% MACRO obj2url(obj) SWITCH obj %] - [% CASE DEFAULT %] - /db/[% ref(obj) | replace('.+::','') %]/[% obj %] -[% END %] - -[% MACRO obj2desc(obj) SWITCH ref(obj) %] - [% CASE '' %] - [% obj %] - [% CASE DEFAULT %] - [% IF obj.value %] - [% obj.value %] - [% ELSE %] - [% obj %] - [% END %] -[% END %] -[% MACRO renderatom(name, dbobject, atom) SWITCH name %] - [- FOREACH node = nodes -] - [- IF !node.value.is_trivial_link -] - [% CASE '[- format_table(node.key) -]' %] - [% INCLUDE [- format_table(node.key) | lower -].tt2 %] - [- END -] - [- END -] - [% CASE DEFAULT %] - [% renderlist(atom.render(dbobject)) %] -[% END %] -[% MACRO renderlist(lstArr) BLOCK %] -
-
    - [% FOREACH item = lstArr %] - [% class = ref(atom) | replace('::Atom::', '::Model::') %] - [% id = item.id %] - [% PROCESS make_linked_dbobject %] -
  • [% obj2link(linked_dbobject) %]
    • - [% END %] -
-
-[% END %] -EOF - -} elsif($type eq 'atomtemplate') { - return <<'EOF'; -[%- TAGS [- -] -%] -[-- IF !node.is_trivial_link --] -[% records = atom.render(dbobject) %] -[% rowcount = 0 %] -[% IF atom.focus == "yes" %] -[% FOREACH record = records %] -[% fields = record.data %] - - [- FOREACH field = node.data_fields -] - [- IF field != "1" -] - - [- END -] - [- END -] - [- FOREACH field = node.edges -] - [- NEXT IF field.type != 'import' -] - - [- END -] - [% IF (rowcount > 1) %] [% END %] - [% rowcount = rowcount + 1 %] -
[- field.key -][% obj2link(fields.[- field.key -]) %]
[- field.thisfield.name -][% obj2link(fields.[- field.thisfield.name -]) %]
-[% END %] -[% ELSE %] -
    - [% FOREACH record = atom.render(dbobject) %] - [% class = ref(atom) | replace('::Atom::', '::Model::') %] - [% id = record.id #needed by make_linked_dbobject macro %] - [% PROCESS make_linked_dbobject %] -
  • [% obj2link(linked_dbobject) %]
    • - [% END %] -
-[% END %] -[- END -] -EOF - -} -} - -1;