#!/usr/bin/perl

use strict;
use warnings;

#############
# HERE DOCS #
#############

my %type = (
	boolean		=> 1,
	integer		=> 2,
	float		=> 3,
	string		=> 4,
	array		=> 5,
	object		=> 6,
	void		=> 7
);

sub xmi_type
{
	unless (@_ >= 1) {
		die ("\nxmi_type requires type name parameter.\n");
	}
	my $name = shift;
	my $id   = shift;

	(my $t = <<"	QUOTE") =~ s/^\t\t//gm;
		        <Foundation.Core.DataType xmi.id="xmi.$id">
		          <Foundation.Core.ModelElement.name>$name</Foundation.Core.ModelElement.name>
		          <Foundation.Core.ModelElement.isSpecification xmi.value="false"/>
		          <Foundation.Core.GeneralizableElement.isRoot xmi.value="false"/>
		          <Foundation.Core.GeneralizableElement.isLeaf xmi.value="false"/>
		          <Foundation.Core.GeneralizableElement.isAbstract xmi.value="false"/>
		          <Foundation.Core.ModelElement.namespace>
		            <Foundation.Core.Namespace xmi.idref="xmi.1"/>
		          </Foundation.Core.ModelElement.namespace>
		        </Foundation.Core.DataType>
	QUOTE
	return $t;

} # type

while ((my $key, my $value) = each (%type)) {
	print xmi_type($key, $value);
}