[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / XMI / Parser / V12.pm

package SQL::Translator::XMI::Parser::V12;

# -------------------------------------------------------------------
# $Id$
# -------------------------------------------------------------------
# Copyright (C) 2003 Mark Addison <mark.addison@itn.co.uk>,
#
# 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
# -------------------------------------------------------------------

=pod

=head1 NAME

SQL::Translator::XMI::Parser::V12 - Version 1.2 parser.

=cut

use strict;
use 5.006_001;
use vars qw/$VERSION/;
$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/;

use base qw(SQL::Translator::XMI::Parser);

my $spec12 = {};

$spec12->{taggedValue} = {
    name   => "taggedValue",
    plural => "taggedValues",
    default_path => '//UML:TaggedValue[@xmi.id]',
    attrib_data  => [qw/isSpecification/],
    path_data => [
        { 
            name  => "dataValue",
            path  => 'UML:TaggedValue.dataValue/text()',
        },
        { 
            name  => "name",
            path  => 'xmiDeref(UML:TaggedValue.type/UML:TagDefinition)/@name',
        },
    ],
};

$spec12->{class} = {
    name    => "class",
    plural  => "classes",
	isRoot  => 1,
    default_path => '//UML:Class[@xmi.id]',
    attrib_data => 
        [qw/name visibility isSpecification isRoot isLeaf isAbstract isActive/],
    path_data => [
        { 
            name  => "stereotype",
            path  => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
            default => "",
        },
    ],
    kids => [
        { 
            name  => "attributes",
            # name in data returned
            path  => "UML:Classifier.feature/UML:Attribute",
            class => "attribute", 
            # Points to class in spec. get_attributes() called to parse it and
            # adds filter_attributes to the args for get_classes().
            multiplicity => "*",
            # How many we get back. Use '1' for 1 and '*' for lots.
			# TODO If not set then decide depening on the return?
        },
        {
            name  => "operations",
            path  => "UML:Classifier.feature/UML:Operation",
            class => "operation", 
            multiplicity => "*",
        },
        {
            name  => "taggedValues",
            path  => 'UML:ModelElement.taggedValue/UML:TaggedValue',
            class => "taggedValue",
            multiplicity => "*",
			map => "name",
        	# Add a _map_taggedValues to the data. Its a hash of the name data
			# which refs the normal list of kids
		},
		{
            name  => "associationEnds",
			path  => '//UML:AssociationEnd.participant/UML:Class[@xmi.idref="${xmi.id}"]/../..',
			# ${xmi.id} is a variable sub from the data defined for this thing.
			# Not standard XPath! Done in the get sub
			class => "AssociationEnd",
            multiplicity => "*",
        },
    ],
};

$spec12->{attribute} = {
    name => "attribute",
    plural => "attributes",
    default_path => '//UML:Classifier.feature/UML:Attribute[@xmi.id]',
    attrib_data => 
        [qw/name visibility isSpecification ownerScope/],
    path_data => [
        { 
            name  => "stereotype",
            path  => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
            default => "",
        },
        { 
            name  => "initialValue",
            path  => 'UML:Attribute.initialValue/UML:Expression/@body',
        },
    ],
    kids => [
        { 
            name  => "taggedValues",
            path  => 'UML:ModelElement.taggedValue/UML:TaggedValue',
            class => "taggedValue", 
            multiplicity => "*",
			map => "name",
        },
        { 
            name  => "dataType",
            path  => 'xmiDeref(UML:StructuralFeature.type/UML:DataType)',
            class => "dataType", 
            multiplicity => "1",
        },
    ],
};

$spec12->{dataType} = {
    name   => "datatype",
    plural => "datatypes",
	isRoot => 1,
    default_path => '//UML:DataType[@xmi.id]',
    attrib_data  =>
        [qw/name visibility isSpecification isRoot isLeaf isAbstract/],
    path_data => [
        { 
            name  => "stereotype",
            path  => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
            default => "",
        },
    ],
    kids => [
        { 
            name  => "taggedValues",
            path  => 'UML:ModelElement.taggedValue/UML:TaggedValue',
            class => "taggedValue", 
            multiplicity => "*",
			map => "name",
        },
    ],
};


$spec12->{operation} = {
    name => "operation",
    plural => "operations",
    default_path => '//UML:Classifier.feature/UML:Operation[@xmi.id]',
    attrib_data => 
        [qw/name visibility isSpecification ownerScope isQuery
            concurrency isRoot isLeaf isAbstract/],
    path_data => [
        { 
            name  => "stereotype",
            path  => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
            default => "",
        },
    ],
    kids => [
        { 
            name  => "parameters",
            path  => "UML:BehavioralFeature.parameter/UML:Parameter",
            class => "parameter", 
            multiplicity => "*",
        },
        { 
            name  => "taggedValues",
            path  => 'UML:ModelElement.taggedValue/UML:TaggedValue',
            class => "taggedValue", 
            multiplicity => "*",
			map => "name",
        },
    ],
};

$spec12->{parameter} = {
    name   => "parameter",
    plural => "parameters",
    default_path => '//UML:Parameter[@xmi.id]',
    attrib_data  => [qw/name isSpecification kind/],
    path_data => [
        { 
            name  => "stereotype",
            path  => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
            default => "",
        },
        { 
            name  => "datatype",
            path  => 'xmiDeref(UML:StructuralFeature.type/UML:DataType)/@name',
        },
    ],
};

$spec12->{association} = {
    name   => "association",
    plural => "associations",
	isRoot => 1,
    default_path => '//UML:Association[@xmi.id]',
    attrib_data  => [qw/name visibility isSpecification isNavigable ordering aggregation targetScope changeability/],
    path_data => [
        {
            name  => "stereotype",
            path  => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
            default => "",
        },
	],
	kids => [
        {
            name  => "associationEnds",
            path  => "UML:Association.connection/UML:AssociationEnd",
            class => "AssociationEnd", 
            multiplicity => "*",
        },
    ],
};

$spec12->{AssociationEnd} = {
    name   => "End",
    plural => "Ends",
    default_path => '//UML:AssociationEnd',
    attrib_data  => [qw/name visibility isSpecification isNavigable ordering aggregation targetScope changeability/],
    path_data => [
        {
            name  => "stereotype",
            path  => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
            default => "",
        },
        {
            name  => "className",
            path  => 'xmiDeref(UML:AssociationEnd.participant/UML:Class)/@name',
            default => "",
        },
	],
    kids => [
		{
            name  => "association",
            path  => "../..",
            class => "association", 
            multiplicity => "1",
        },
        {
            name  => "participant",
            path  => "xmiDeref(UML:AssociationEnd.participant/UML:Class)",
            class => "class", 
            multiplicity => "1",
        },
        {
            name  => "multiplicity",
            #path  => "xmiDeref(UML:AssociationEnd.multiplicity/UML:Multiplicity)",
            path  => 'UML:AssociationEnd.multiplicity/UML:Multiplicity',
            class => "multiplicity", 
            multiplicity => "1",
        },
    ],
};

$spec12->{multiplicity} = {
    name   => "multiplicity",
    plural => "multiplicities",
    default_path => '//UML:Multiplicity[@xmi.id]',
    attrib_data  => [qw//],
    path_data => [
        { 
            name  => "rangeLower",
            path  => 'xmiDeref(UML:Multiplicity.range/UML:MultiplicityRange)/@lower',
        },
        { 
            name  => "rangeUpper",
            path  => 'xmiDeref(UML:Multiplicity.range/UML:MultiplicityRange)/@upper',
        },
    ],
};

# Set the spec and have the get_* methods generated
__PACKAGE__->XmiSpec($spec12);


1; #===========================================================================

__END__

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 SEE ALSO

perl(1).

=head1 TODO

=head1 BUGS

=head1 VERSION HISTORY

=head1 AUTHOR

grommit <mark.addison@itn.co.uk>

=cut
Commit	Line	Data
93f4a354	1	package SQL::Translator::XMI::Parser::V12;
	2
	3	# -------------------------------------------------------------------
821a0fde	4	# $Id$
93f4a354	5	# -------------------------------------------------------------------
	6	# Copyright (C) 2003 Mark Addison <mark.addison@itn.co.uk>,
	7	#
	8	# This program is free software; you can redistribute it and/or
	9	# modify it under the terms of the GNU General Public License as
	10	# published by the Free Software Foundation; version 2.
	11	#
	12	# This program is distributed in the hope that it will be useful, but
	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	15	# General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with this program; if not, write to the Free Software
	19	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
	20	# 02111-1307 USA
	21	# -------------------------------------------------------------------
	22
	23	=pod
	24
	25	=head1 NAME
	26
	27	SQL::Translator::XMI::Parser::V12 - Version 1.2 parser.
	28
	29	=cut
	30
	31	use strict;
	32	use 5.006_001;
	33	use vars qw/$VERSION/;
821a0fde	34	$VERSION = sprintf "%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/;
93f4a354	35
	36	use base qw(SQL::Translator::XMI::Parser);
	37
	38	my $spec12 = {};
	39
6c77f25f	40	$spec12->{taggedValue} = {
	41	name => "taggedValue",
	42	plural => "taggedValues",
	43	default_path => '//UML:TaggedValue[@xmi.id]',
	44	attrib_data => [qw/isSpecification/],
	45	path_data => [
	46	{
	47	name => "dataValue",
	48	path => 'UML:TaggedValue.dataValue/text()',
	49	},
	50	{
	51	name => "name",
	52	path => 'xmiDeref(UML:TaggedValue.type/UML:TagDefinition)/@name',
	53	},
	54	],
	55	};
	56
93f4a354	57	$spec12->{class} = {
	58	name => "class",
	59	plural => "classes",
	60	isRoot => 1,
	61	default_path => '//UML:Class[@xmi.id]',
	62	attrib_data =>
	63	[qw/name visibility isSpecification isRoot isLeaf isAbstract isActive/],
	64	path_data => [
	65	{
	66	name => "stereotype",
	67	path => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
	68	default => "",
	69	},
	70	],
	71	kids => [
	72	{
	73	name => "attributes",
	74	# name in data returned
	75	path => "UML:Classifier.feature/UML:Attribute",
	76	class => "attribute",
	77	# Points to class in spec. get_attributes() called to parse it and
	78	# adds filter_attributes to the args for get_classes().
	79	multiplicity => "*",
	80	# How many we get back. Use '1' for 1 and '*' for lots.
	81	# TODO If not set then decide depening on the return?
	82	},
	83	{
	84	name => "operations",
	85	path => "UML:Classifier.feature/UML:Operation",
	86	class => "operation",
	87	multiplicity => "*",
	88	},
	89	{
	90	name => "taggedValues",
	91	path => 'UML:ModelElement.taggedValue/UML:TaggedValue',
	92	class => "taggedValue",
	93	multiplicity => "*",
	94	map => "name",
	95	# Add a _map_taggedValues to the data. Its a hash of the name data
	96	# which refs the normal list of kids
	97	},
	98	{
	99	name => "associationEnds",
	100	path => '//UML:AssociationEnd.participant/UML:Class[@xmi.idref="${xmi.id}"]/../..',
	101	# ${xmi.id} is a variable sub from the data defined for this thing.
	102	# Not standard XPath! Done in the get sub
	103	class => "AssociationEnd",
	104	multiplicity => "*",
	105	},
	106	],
	107	};
	108
93f4a354	109	$spec12->{attribute} = {
	110	name => "attribute",
	111	plural => "attributes",
	112	default_path => '//UML:Classifier.feature/UML:Attribute[@xmi.id]',
	113	attrib_data =>
	114	[qw/name visibility isSpecification ownerScope/],
	115	path_data => [
	116	{
	117	name => "stereotype",
	118	path => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
	119	default => "",
	120	},
	121	{
93f4a354	122	name => "initialValue",
	123	path => 'UML:Attribute.initialValue/UML:Expression/@body',
	124	},
	125	],
	126	kids => [
	127	{
	128	name => "taggedValues",
	129	path => 'UML:ModelElement.taggedValue/UML:TaggedValue',
	130	class => "taggedValue",
	131	multiplicity => "*",
	132	map => "name",
	133	},
5365ac89	134	{
	135	name => "dataType",
	136	path => 'xmiDeref(UML:StructuralFeature.type/UML:DataType)',
	137	class => "dataType",
	138	multiplicity => "1",
	139	},
93f4a354	140	],
	141	};
	142
5365ac89	143	$spec12->{dataType} = {
	144	name => "datatype",
	145	plural => "datatypes",
6c77f25f	146	isRoot => 1,
5365ac89	147	default_path => '//UML:DataType[@xmi.id]',
	148	attrib_data =>
	149	[qw/name visibility isSpecification isRoot isLeaf isAbstract/],
	150	path_data => [
	151	{
	152	name => "stereotype",
	153	path => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
	154	default => "",
	155	},
	156	],
ef879f14	157	kids => [
	158	{
	159	name => "taggedValues",
	160	path => 'UML:ModelElement.taggedValue/UML:TaggedValue',
	161	class => "taggedValue",
	162	multiplicity => "*",
	163	map => "name",
	164	},
	165	],
5365ac89	166	};
	167
	168
	169
93f4a354	170	$spec12->{operation} = {
	171	name => "operation",
	172	plural => "operations",
	173	default_path => '//UML:Classifier.feature/UML:Operation[@xmi.id]',
	174	attrib_data =>
	175	[qw/name visibility isSpecification ownerScope isQuery
	176	concurrency isRoot isLeaf isAbstract/],
	177	path_data => [
	178	{
	179	name => "stereotype",
	180	path => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
	181	default => "",
	182	},
	183	],
	184	kids => [
	185	{
	186	name => "parameters",
	187	path => "UML:BehavioralFeature.parameter/UML:Parameter",
	188	class => "parameter",
	189	multiplicity => "*",
	190	},
	191	{
	192	name => "taggedValues",
	193	path => 'UML:ModelElement.taggedValue/UML:TaggedValue',
	194	class => "taggedValue",
	195	multiplicity => "*",
	196	map => "name",
	197	},
	198	],
	199	};
	200
	201	$spec12->{parameter} = {
	202	name => "parameter",
	203	plural => "parameters",
	204	default_path => '//UML:Parameter[@xmi.id]',
	205	attrib_data => [qw/name isSpecification kind/],
	206	path_data => [
	207	{
	208	name => "stereotype",
	209	path => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
	210	default => "",
	211	},
	212	{
	213	name => "datatype",
	214	path => 'xmiDeref(UML:StructuralFeature.type/UML:DataType)/@name',
	215	},
	216	],
	217	};
	218
	219	$spec12->{association} = {
	220	name => "association",
	221	plural => "associations",
	222	isRoot => 1,
	223	default_path => '//UML:Association[@xmi.id]',
	224	attrib_data => [qw/name visibility isSpecification isNavigable ordering aggregation targetScope changeability/],
	225	path_data => [
	226	{
	227	name => "stereotype",
	228	path => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
	229	default => "",
	230	},
	231	],
	232	kids => [
	233	{
4e238172	234	name => "associationEnds",
93f4a354	235	path => "UML:Association.connection/UML:AssociationEnd",
	236	class => "AssociationEnd",
	237	multiplicity => "*",
	238	},
	239	],
	240	};
	241
	242	$spec12->{AssociationEnd} = {
	243	name => "End",
	244	plural => "Ends",
	245	default_path => '//UML:AssociationEnd',
	246	attrib_data => [qw/name visibility isSpecification isNavigable ordering aggregation targetScope changeability/],
	247	path_data => [
	248	{
	249	name => "stereotype",
	250	path => 'xmiDeref(UML:ModelElement.stereotype/UML:Stereotype)/@name',
	251	default => "",
	252	},
	253	{
	254	name => "className",
	255	path => 'xmiDeref(UML:AssociationEnd.participant/UML:Class)/@name',
	256	default => "",
	257	},
	258	],
	259	kids => [
42b5b9b6	260	{
	261	name => "association",
	262	path => "../..",
	263	class => "association",
	264	multiplicity => "1",
	265	},
93f4a354	266	{
	267	name => "participant",
	268	path => "xmiDeref(UML:AssociationEnd.participant/UML:Class)",
	269	class => "class",
	270	multiplicity => "1",
	271	},
6c77f25f	272	{
	273	name => "multiplicity",
	274	#path => "xmiDeref(UML:AssociationEnd.multiplicity/UML:Multiplicity)",
	275	path => 'UML:AssociationEnd.multiplicity/UML:Multiplicity',
	276	class => "multiplicity",
	277	multiplicity => "1",
	278	},
	279	],
	280	};
	281
	282	$spec12->{multiplicity} = {
	283	name => "multiplicity",
	284	plural => "multiplicities",
	285	default_path => '//UML:Multiplicity[@xmi.id]',
	286	attrib_data => [qw//],
	287	path_data => [
	288	{
	289	name => "rangeLower",
	290	path => 'xmiDeref(UML:Multiplicity.range/UML:MultiplicityRange)/@lower',
	291	},
	292	{
	293	name => "rangeUpper",
	294	path => 'xmiDeref(UML:Multiplicity.range/UML:MultiplicityRange)/@upper',
	295	},
93f4a354	296	],
	297	};
	298
	299	# Set the spec and have the get_* methods generated
	300	__PACKAGE__->XmiSpec($spec12);
	301
93f4a354	302
	303	1; #===========================================================================
	304
	305	__END__
	306
	307	=head1 SYNOPSIS
	308
	309	=head1 DESCRIPTION
	310
	311	=head1 SEE ALSO
	312
	313	perl(1).
	314
	315	=head1 TODO
	316
	317	=head1 BUGS
	318
	319	=head1 VERSION HISTORY
	320
	321	=head1 AUTHOR
	322
	323	grommit <mark.addison@itn.co.uk>
	324
	325	=cut