#*
## ???? Add standard header
## 
## UML/SysML to OWL schema generator
## 
## 
## 
## 
## ???? generate one schema file per package, to properly support viewpoints
## $file.silentCreate(template, outputFileName, importObject)
##
*#<?xml version="1.0" encoding="ISO-8859-1" ?>

#set ($namespace = "http://projects.baesystems.com/META/ontology/2011/8/")
#set ($package = $importer)  
#set ($attrHash = $map.createHashMap())

## XML shortcuts
<!DOCTYPE rdf:RDF [
    <!ENTITY owl "http://www.w3.org/2002/07/owl#" >
    <!ENTITY xsd "http://www.w3.org/2001/XMLSchema#" >
    <!ENTITY rdfs "http://www.w3.org/2000/01/rdf-schema#" >
    <!ENTITY rdf "http://www.w3.org/1999/02/22-rdf-syntax-ns#" >
    <!ENTITY amil "http://projects.baesystems.com/META/ontology/2011/8/amil#" >
    <!ENTITY ${package.name} "http://projects.baesystems.com/META/ontology/2011/8/${package.name}#" >
]>

##???? compute import dependencies?

<rdf:RDF xmlns="http://projects.baesystems.com/META/ontology/2011/8/$package.name#"
     xml:base="http://projects.baesystems.com/META/ontology/2011/8/$package.name"
     xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
     xmlns:amil="http://projects.baesystems.com/META/ontology/2011/8/amil#"
     xmlns:${package.name}="http://projects.baesystems.com/META/ontology/2011/8/${package.name}#"
##     xmlns:meta="http://projects.baesystems.com/META/ontology/2011/8/meta#"
     xmlns:owl="http://www.w3.org/2002/07/owl#"
     xmlns:xsd="http://www.w3.org/2001/XMLSchema#"
     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">

  <owl:Ontology rdf:about="http://projects.baesystems.com/META/ontology/2011/8/$package.name">
##  <owl:Ontology rdf:about="http://projects.baesystems.com/META/ontology/2011/8/meta">
        <owl:imports rdf:resource="http://projects.baesystems.com/META/ontology/2011/8/meta"/>
        <owl:imports rdf:resource="http://projects.baesystems.com/META/ontology/2011/8/amil"/>
##        <owl:versionInfo rdf:datatype="&rdf;PlainLiteral">http://projects.baesystems.com/META/ontology/2011/8/$package.name</owl:versionInfo>
  </owl:Ontology>
#foreach ($class in $package.ownedType)
#if ($class.elementType == "block")
  <owl:Class rdf:about="&${package.name};$class.name">
    <rdfs:label>$class.name</rdfs:label>
#set($baseClassifier = $class.baseClassifier)
#set($size = $baseClassifier.size())
#if($baseClassifier.size() > 0)
    <!-- supertypes -->
#foreach($super in $sorter.humanSort($baseClassifier))
#set ($superPack = "")
#if ($super.owner != $package)
#set ($superPack = $namespace + $super.owner.name + "#")
#end
    <rdfs:subClassOf rdf:resource="$superPack$super.name"/>
#end
#else
## default supertype
##     <rdfs:subClassOf rdf:resource="http://projects.baesystems.com/META/ontology/2011/8/amil#Component"/>
#end## has supertypes
    <!-- association constraints -->
#foreach ($attr in $class.attribute)
#if($attr.association)
#set($association = $attribute.association)
#foreach($member in $attr.association.memberEnd)
##    <!-- etype=$attr.elementType ID=$member.type.ID name=$member.type.name multiplicity=[$member.multiplicity] -->
#end
##
## generate default role names - myClassName
##
#set($roleName = $attr.name)
#if ($attr.name == "")
#set($roleName = "my" + ${attr.type.name})
#end
    <rdfs:subClassOf>
      <owl:Restriction>
        <owl:onProperty rdf:resource="&${package.name};$roleName"/>
##	## 0..1 0..* 1 1..*
#if($attr.multiplicity == "0..1")
        <owl:minCardinality rdf:datatype="&xsd;#nonNegativeInteger">0</owl:minCardinality>
##????        <owl:maxCardinality rdf:datatype="&xsd;#nonNegativeInteger">1</owl:maxCardinality>
#elseif ($attr.multiplicity == "0..*" || $attr.multiplicity == "")
        <owl:minCardinality rdf:datatype="&xsd;#nonNegativeInteger">0</owl:minCardinality>
#elseif ($attr.multiplicity == "1")
        <owl:cardinality rdf:datatype="&xsd;#nonNegativeInteger">1</owl:cardinality>
#elseif ($attr.multiplicity == "1..*")
        <owl:minCardinality rdf:datatype="&xsd;#nonNegativeInteger">1</owl:minCardinality>
#end
      </owl:Restriction>
    </rdfs:subClassOf>
#end## if attr association
#end## foreach class attributes
##
## add hasFeature for each attribute
##
#foreach ($attr in $class.attribute)
#if(!$attr.association && ($attr.elementType == "property" || $attr.elementType == "attribute" || $attr.elementType == "valueproperty"))
    <amil:hasFeature rdf:resource="&${package.name};$attr.name"/>
## add to hash set
#set ($tmp = $attrHash.put($attr.name,  $attr))
#end
#end## foreach class attributes
  </owl:Class> <!-- $class.name -->

#*
    <!-- $class.name attributes -->
## factor out ports - only want descriptive properties in the schema
#foreach ($attr in $class.attribute)
#if(!$attr.association && ($attr.elementType == "property" || $attr.elementType == "attribute" || $attr.elementType == "valueproperty"))
    <owl:DatatypeProperty rdf:about="${class.name}_$attr.name">
      <rdfs:domain rdf:resource="$class.name"/>
      <rdfs:range rdf:resource="#gen_type($attr.type)"/>
    </owl:DatatypeProperty>
#end
#end##attributes
*#

    <!-- $class.name associations -->
#foreach ($attr in $class.attribute)
#if($attr.association)
#set($association = $attribute.association)
#foreach($member in $attr.association.memberEnd)
##    <!-- etype=$attr.elementType ID=$member.type.ID name=$member.type.name multiplicity=[$member.multiplicity] -->
#end
##
## generate default role names - myClassName
##
#set($roleName = $attr.name)
#if ($attr.name == "")
#set($roleName = "my" + ${attr.type.name})
#end
    <owl:ObjectProperty rdf:about = "&${package.name};$roleName">
      <rdfs:domain rdf:resource="&${package.name};$class.name"/>
      <rdfs:range rdf:resource="&${package.name};$attr.type.name"/>
    </owl:ObjectProperty>
#end
#end## end Block

#end## endif type is block
#end## end foreach type in package

#set ($kindHash2 = $map.createHashMap())
#set ($kindHash = $array.createArray())
    <!-- ALL attributes -->
#foreach ($attr in $attrHash)
    <owl:Class rdf:about="&${package.name};$attr.name">
        <rdfs:subClassOf rdf:resource="&amil;Feature"/>
    </owl:Class>
#if (! ($attr.type && $attr.type.quantityKind) )
#set ($kind = "UNKNOWN")
#set ($kind = $attr.type.quantityKind)
#else
#set ($kind = $attr.type.quantityKind)
#end
#if(!$kindHash.contains($kind))
#set ($tmp = $kindHash.add($kind))
#end
#gen_kind($attr.type, $attr.type.quantityKind, $attr.type.unit)
#if(!$kindHash2.containsKey( $gen_kind_out))
#set ($tmp = $kindHash2.put( $gen_kind_out,  $gen_kind_out))
#end
#gen_kind($attr.type, $attr.type.quantityKind, $attr.type.unit)
    <!-- $attr.name  $attr.type.name $attr.type.quantityKind.name $attr.type.unit.name $gen_kind_out $kindHash.size() -->
#end

#foreach ($k in $kindHash2)
    <owl:DatatypeProperty rdf:about="${namespace}meta#$k">
#foreach ($attr in $attrHash)## attHash may need to change to array
#gen_kind($attr.type, $attr.type.quantityKind, $attr.type.unit)
#if ($k == $gen_kind_out)
#set ($t = $attr.type)
        <rdfs:domain rdf:resource="&${package.name};$attr.name"/>
#end
#end## attrs
        <rdfs:range rdf:resource="#gen_type ($t)"/>
    </owl:DatatypeProperty>

#end## kinds

</rdf:RDF>


###########################################################
##			gen_kind
##
#*
  SysML 
QK units		  existing types from meta.owl, for backward compatibility  (in <owl:DatatypeProperty rdf:about="http://projects.baesystems.com/META/ontology/2011/8/meta#???? >
areaQK_squareMeter        area_squaremetre
lengthQK_metre		  distance_metre
massQK_kilogram 	  mass_kilogram
powerQK_watt        	  power_watt
velocityQK_metrePerSecond        speed_metre_per_second
timeQK_second  			 time_second
volumeQK_cubicMeter        	 volume_cubicmetre
				 monetary_usdollar
        			 torque_newton_metre
*#
#*
   Sets up a mapping from SysML qualityKind_units to preexisting OWL properties
   If match, use pre-existing
   If no match, but a non-empty string for qualityKind_units, use string
   Else use data type (a base or flat data type
*#
#macro (gen_kind $type $qk $unit)## output in $gen_kind_out
#set ($kindMap = $map.createHashMap())
#set ($tmp = $kindMap.put("areaQK_squareMeter",		"area_squaremetre"))
#set ($tmp = $kindMap.put("lengthQK_metre",	  	"distance_metre"))
#set ($tmp = $kindMap.put("massQK_kilogram", 	  	"mass_kilogram"))
#set ($tmp = $kindMap.put("powerQK_watt",        	"power_watt"))
#set ($tmp = $kindMap.put("velocityQK_metrePerSecond",  "speed_metre_per_second"))
#set ($tmp = $kindMap.put("timeQK_second",  		"time_second"))
#set ($tmp = $kindMap.put("volumeQK_cubicMeter",        "volume_cubicmetre"))
#set ($qkName = $qk.name + "_" + $unit.name)
#if ($kindMap.containsKey($qkName))
#set ($gen_kind_out = $kindMap.get($qkName))
##elseif (! $qkName.equals("\$qk.name_\$unit.name"))
#elseif ($type.quantityKind)
#set ($gen_kind_out = $qkName)
#else
#set ($gen_kind_out = "meta" + $type.name)
#end
#end##end gen_kind macro
###########################################################
###########################################################
##			gen_type
##
## generates the base OWL data type for the model type
## ???? enumerations, base data types, filter out Classes
## ???? May need Java support to support hash lookup to map
## SysML unit extensions to OWL data types
#macro (gen_type $type)
#set ($typeMap = $map.createHashMap())
#set ($tmp = $typeMap.put("Integer",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("integer",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("long",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("short",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("void",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("int",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("byte",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("char",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("Number",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("Complex",  "http://www.w3.org/2001/XMLSchema#string"))
#set ($tmp = $typeMap.put("String",  "http://www.w3.org/2001/XMLSchema#string"))
#set ($tmp = $typeMap.put("date",  "http://www.w3.org/2001/XMLSchema#string"))
#set ($tmp = $typeMap.put("Quantity",  "http://www.w3.org/2001/XMLSchema#doube"))
#set ($tmp = $typeMap.put("Rational",  "http://www.w3.org/2001/XMLSchema#double"))
#set ($tmp = $typeMap.put("Boolean",  "http://www.w3.org/2001/XMLSchema#boolean"))
#set ($tmp = $typeMap.put("boolean",  "http://www.w3.org/2001/XMLSchema#boolean"))
#set ($tmp = $typeMap.put("Real",  "http://www.w3.org/2001/XMLSchema#double"))
#set ($tmp = $typeMap.put("double",  "http://www.w3.org/2001/XMLSchema#double"))
#set ($tmp = $typeMap.put("float",  "http://www.w3.org/2001/XMLSchema#double"))
#set ($tmp = $typeMap.put("UnlimitedNatural",  "http://www.w3.org/2001/XMLSchema#integer"))
#set ($tmp = $typeMap.put("",      "http://www.w3.org/2001/XMLSchema#string"))
## Assume any type with a QuantityKind is a double
#if ($type.quantityKind)
#set ($otype = "http://www.w3.org/2001/XMLSchema#double")
#else
#if ($typeMap.containsKey($type.name))
#set ($otype = $typeMap.get($type.name))
#elseif ($type)
#set ($otype = $type.name)
debug2 <$otype>
#else
#set ($otype = "http://www.w3.org/2001/XMLSchema#string")
#end
#end
$otype#end

##<!-- 
##base types               OWL type
##string              http://www.w3.org/2001/XMLSchema#string
##integer            http://www.w3.org/2001/XMLSchema#integer
##double            http://www.w3.org/2001/XMLSchema#double
##boolean            http://www.w3.org/2001/XMLSchema#boolean
## -->