ontomde-java 2.0.0

data/lib/ontomde-java/java/xsdCollectionMapping.rb

@@ -0,0 +1,112 @@
+# Java collection mapping rules for UML property and UML parameter.
+
+module Muml_MultiplicityElement
+  #returns a XSD_collectionMaping object containing mapping rules to java collection element
+  #
+  #Examples:
+  # * Array
+  # * List
+  # * Set
+  #
+  #Reference:
+  # * #xsd_use_Arrays?
+  def xsd_getCollectionMapping
+    if self.umlx_upperValueIsOne?
+      return XSD_collectionMapping_None.instance
+    elsif xsd_use_Arrays?
+      return XSD_collectionMapping_Array.instance
+    elsif uml_isOrdered?
+      # this mapping is used wether or not isUnique
+      return XSD_collectionMapping_List_ArrayList.instance
+    elsif uml_isUnique
+      return XSD_collectionMapping_Set_HashSet.instance
+    else
+      return XSD_collectionMapping_Collection_ArrayList.instance
+    end
+  end
+end
+
+# Helper class for wrapping a base type in ad-hoc collection.
+class XSD_collectionMapping_None
+  include Singleton
+  #return type enclosed in collection interface declaration
+  def addCollectionInterface(type)
+    return type
+  end
+  #return type enclosed in collection implementation declaration
+  def addCollectionImplem(type)
+    return type
+  end
+end
+
+# Helper class for wrapping a base type in ad-hoc collection.
+class XSD_collectionMapping_base
+  # return type enclosed in collection interface declaration
+  def addCollectionInterface(type)
+    return "#{getInterface}<#{type}>"
+  end
+  # return type enclosed in collection implementation declaration
+  def addCollectionImplem(type)
+    return "#{getImplem}<#{type}>"
+  end
+  # return new element type collection creator
+  def addNew(type)
+    return "new #{getImplem}<#{type}>()"
+  end
+end
+
+# Helper class for wrapping a base type in ad-hoc collection.
+class XSD_collectionMapping_Collection_ArrayList < XSD_collectionMapping_base
+  include Singleton
+  # returns interface type for this collection
+  def getInterface
+    return "Collection"
+  end
+  # returns implementation class for this collection
+  def getImplem
+    return "java.util.ArrayList"
+  end
+end
+
+# Helper class for wrapping a base type in ad-hoc collection.
+class XSD_collectionMapping_List_ArrayList < XSD_collectionMapping_base
+  include Singleton
+  # returns interface type for this collection
+  def getInterface
+    return "java.util.List"
+  end
+  # returns implementation class for this collection
+  def getImplem
+    return "java.util.ArrayList"
+  end
+end
+
+# Helper class for wrapping a base type in ad-hoc collection.
+class XSD_collectionMapping_Set_HashSet < XSD_collectionMapping_base
+  include Singleton
+  # returns interface type for this collection
+  def getInterface
+    return "java.util.Set"
+  end
+  # returns implementation class for this collection
+  def getImplem
+    return "java.util.HashSet"
+  end
+end
+
+# Helper class for wrapping a base type in ad-hoc collection.
+class XSD_collectionMapping_Array
+  include Singleton
+  # return type enclosed in collection interface declaration
+  def addCollectionInterface(type)
+    return "#{type}[]"
+  end
+  # return type enclosed in collection implementation declaration
+  def addCollectionImplem(type)
+    return "#{type}[]"
+  end
+  # return new element type collection creator
+  def addNew(type)
+    return "new #{type}[0]"
+  end
+end

data/lib/ontomde-java/java/xsdDatatypeMapping.rb

@@ -0,0 +1,103 @@
+class DatatypeMapping
+    def xsd_getType
+    # inheriting class should redefine this method
+    log.error %{xsd_getType not implemented for #{self.class}}
+    return %{/* TODO: implement ruby xsd_getType for #{self.class}*/}
+  end
+end
+class DatatypeMappingText < DatatypeMapping
+  def xsd_getType
+    return "xsd:string"
+  end
+end
+
+class DatatypeMappingLargeText < DatatypeMappingText
+end
+
+class DatatypeMappingMimeType < DatatypeMappingText
+end
+
+class DatatypeMappingOrdinal < DatatypeMappingText
+end
+
+class DatatypeMappingInteger < DatatypeMappingOrdinal
+  def xsd_getType
+    return "xsd:int"
+  end
+end
+
+class DatatypeMappingLong < DatatypeMappingOrdinal
+  def xsd_getType
+    return "xsd:long"
+  end
+end
+
+class DatatypeMappingLongObject < DatatypeMappingOrdinal
+  def xsd_getType
+    return "xsd:long"
+  end
+end
+class DatatypeMappingFile < DatatypeMapping
+  def xsd_getType
+    return "xsd:???"
+  end
+end
+
+class DatatypeMappingBoolean < DatatypeMapping
+  #name of the key used by struts to referece
+  #current bean in session.
+  def xsd_getType
+    return "xsd:boolean"
+  end
+end
+
+class DatatypeMappingTimeStamp < DatatypeMapping
+  def xsd_getType
+    return "xsd:datetime"
+  end
+end
+
+class DatatypeMappingCalendar < DatatypeMapping
+  def xsd_getType
+    return "xsd:date"
+  end
+end
+
+
+
+
+class DatatypeMappingGenericClass < DatatypeMapping
+  def xsd_getType
+    return "java.lang.Object"
+  end
+end
+
+class DatatypeMappingGenericEnum < DatatypeMapping
+  def xsd_getType
+    return "java.lang.Object"
+  end
+end
+
+
+class DatatypeMappingURL < DatatypeMappingText
+end
+
+class DatatypeMappingBLOB < DatatypeMapping
+  def xsd_getType
+    return "xsd:base64Binary"
+  end
+end
+
+class DatatypeMappingIMG < DatatypeMappingBLOB
+end
+
+class DatatypeMappingGRAPHVIZ < DatatypeMappingLargeText
+end
+
+class DatatypeMappingPassword < DatatypeMappingText
+end
+
+class DatatypeMappingEmailAddress < DatatypeMappingText
+end
+
+

data/lib/ontomde-java/jpa.rb

@@ -0,0 +1,17 @@
+
+#:include: ontomde-uml2-jpa/jpa.rdoc
+
+# this constant is defined in every db module
+# multiple db module inclusion will trigger a warning
+DB_PERSISTENCE_MODULE="ontomde-uml2_jpa"
+
+require 'ontomde-java'
+
+require 'ontomde-java/jpa/jpa.rb'
+require 'ontomde-java/jpa/finder.rb'
+require 'ontomde-java/jpa/configuration.rb'
+require 'ontomde-java/jpa/mapping.rb'
+require 'ontomde-java/jpa/redefined.rb'
+require 'ontomde-java/jpa/simulationAutoImplement.rb'
+require 'ontomde-java/jpa/locking.rb'
+

data/lib/ontomde-java/jpa/configuration.rb

@@ -0,0 +1,176 @@
+module Mrdf_Repository
+
+  #Generates persistence configuration file
+  def db_generateConfiguration
+    jpa_generateConfiguration
+  end
+
+  #Generates hibernate configuration file
+  def jpa_generateConfiguration
+    if context[:struts_useSpring]
+      mtk_writeSession("#{context[:jpaConfigDir,context[:javaDir]]}/META-INF/persistence.xml") {
+        jpa_writeConfigurationForSpring
+      }
+    else
+      # empty
+    end
+
+  end
+
+  def jpa_writeConfigurationForSpring
+    write %{<?xml version="1.0" encoding="UTF-8"?>
+<!-- This configuration file is for a spring enabled application. -->
+<!-- For database settings, please see ApplicationContext-jpa.xml -->
+
+<persistence xmlns="http://java.sun.com/xml/ns/persistence"
+	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+	xsi:schemaLocation="http://java.sun.com/xml/ns/persistence http://java.sun.com/xml/ns/persistence/persistence_1_0.xsd"
+	version="1.0">
+	#{mtk_stss{jpa_writeWebAppConfiguration}}
+
+	#{mtk_stss{jpa_writeDeploymentConfiguration}}
+</persistence>
+    }
+  end
+
+  def jpa_writeWebAppConfiguration
+    write %{
+	<persistence-unit name="persistence-unit-test"
+		transaction-type="RESOURCE_LOCAL">
+		<provider>org.hibernate.ejb.HibernatePersistence</provider>
+		#{mtk_stss{jpa_writeConfigurationPersistentClasses}}
+		<properties>
+			#{mtk_stss{jpa_writeOptimizedHibernateProperties}}
+		</properties>
+	</persistence-unit>
+    }
+  end
+
+  def jpa_writeDeploymentConfiguration
+    write %{
+	<!-- This persistence unit is used only by hibernateTools in "deployBD.xml"
+		 to generate tables. -->
+	<persistence-unit name="deployment-persistence-unit"
+		transaction-type="RESOURCE_LOCAL">
+		<provider>org.hibernate.ejb.HibernatePersistence</provider>
+		#{mtk_stss{jpa_writeConfigurationPersistentClasses}}
+		<properties>
+			#{mtk_stss{jpa_writeDBConnectionParameters}}
+		</properties>
+	</persistence-unit>
+    }
+  end
+
+
+
+  #writes jpa configuration file to current
+  def jpa_writeConfigurationStandard
+    write %{<?xml version="1.0" encoding="UTF-8"?>
+<persistence
+  xmlns="http://java.sun.com/xml/ns/persistence"
+  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+  xsi:schemaLocation="http://java.sun.com/xml/ns/persistence http://java.sun.com/xml/ns/persistence/persistence_1_0.xsd"
+  version="1.0">
+<persistence-unit
+  name="persistence-unit-test"
+  transaction-type="RESOURCE_LOCAL"
+>
+    }
+    jpa_writeConfigurationPersistentClasses
+
+    write %{<properties>\n}
+    jpa_writeDBConnectionParameters
+    jpa_writeConnectionPool
+    write %{
+<!-- Echo all executed SQL to stdout -->
+<property name="hibernate.show_sql" value="false"/>
+<!-- recreate schema ? validate | update | create | create-drop -->
+	<property name="hibernate.hbm2ddl.auto" value="#{context[:jpa_ddl_mode,"update"]}"/>
+    }
+
+    write %{</properties>\n</persistence-unit>\n</persistence>\n}
+  end
+
+  #writes configuration parameter for hibernate sgbd connection.
+  #Some parameter are extracted from context.
+  def jpa_default_db_url
+    #name=umlx_model.uml_name_one.tr('^a-zA-Z0-9','_')
+    return %{jdbc:mysql:///#{context[:db_schema_name,"testschema"]}}
+  end
+  def jpa_writeDBConnectionParameters
+    write %{
+<property name="hibernate.dialect" value="#{context[:hib_dialect,"org.hibernate.dialect.MySQL5InnoDBDialect"]}"/>
+<property name="hibernate.connection.driver_class" value="#{context[:hib_connection_driver_class,"com.mysql.jdbc.Driver"]}"/>
+<property name="hibernate.connection.url" value="#{context[:hib_connection_url,jpa_default_db_url]}"/>
+<property name="hibernate.connection.username" value="#{context[:hib_connection_username,"testuser"]}"/>
+<property name="hibernate.connection.password" value="#{context[:hib_connection_password,"testpwd"]}"/>
+<!--
+  <property name="hibernate.connection.driver_class" value="org.hsqldb.jdbcDriver"/>
+  <property name="hibernate.connection.username" value="sa"/>
+  <property name="hibernate.connection.password" value=""/>
+  <property name="hibernate.connection.url" value="jdbc:hsqldb:hsql://localhost:1701"/>
+  <property name="hibernate.hbm2ddl.auto" value="update"/>
+  <property name="hibernate.cache.provider_class" value="org.hibernate.cache.HashtableCacheProvider"/>
+-->
+    }
+  end
+
+
+  def jpa_writeOptimizedHibernateProperties
+    write %{
+			<property name="hibernate.show_sql" value="false" />
+			<property name="hibernate.hbm2ddl.auto" value="update" />
+
+			<!-- Set a maximum "depth" for the outer join fetch tree for single-ended associations (one-to-one, many-to-one) -->
+			<property name="hibernate.max_fetch_depth" value="0" />
+
+			<!-- determines the JDBC fetch size (calls Statement.setFetchSize()) -->
+			<property name="hibernate.jdbc.fetch_size" value="4" />
+
+			<!-- makes Hibernate start faster (it does not try to build cglib-enhanced objects to access getter/setters) -->
+			<property name="hibernate.bytecode.use_reflection_optimizer" value="false" />
+    }
+  end
+
+  #writes configuration parameter for hibernate connection pool.
+  def jpa_writeConnectionPool
+    write %{
+<!-- connection pool -->
+<!-- cf: http://www.hibernate.org/214.html -->
+<property name="hibernate.c3p0.min_size" value="5"/>
+<property name="hibernate.c3p0.max_size" value="20"/>
+<property name="hibernate.c3p0.timeout" value="1800"/> <!-- seconds -->
+<property name="hibernate.c3p0.idle_test_period" value="100"/> <!-- seconds -->
+<property name="hibernate.c3p0.max_statement" value="50"/>
+    }
+  end
+
+  #writes jpa configuration list of persistent class
+  def jpa_writeConfigurationPersistentClasses
+    write %{<!-- begin Persistent classes declaration -->\n}
+    uml_Class_all.each {|c|
+      next unless c.kind_of?(Muml_Class) && c.umlx_isReallyAClass?
+      c.jpa_writeConfiguration
+    }
+    #TODO: remove hack
+    #	context[:db_additionalPersistentClass,["com.jbpm.wrapper.process.Process"]].each { |cl|
+    #		write %{<class>#{cl}</class>\n}
+    #	}
+    write %{<exclude-unlisted-classes>true</exclude-unlisted-classes>\n}
+    write %{<!--  end Persistent classes declaration -->\n}
+  end
+end
+
+module Muml_Class
+  #
+  #writes jpa entry for this class if this class is persistent.
+  def jpa_writeConfiguration()
+    ignoreExternal=false
+    return if java_ignoreMe?(ignoreExternal)
+    return unless umlx_owner_one.kind_of?(Muml_Package)
+    return unless jpa_isPersistent?
+    return if db_isTransient?
+    write %{<class>#{java_qualifiedName}</class>\n}
+  end
+end
+

data/lib/ontomde-java/jpa/finder.rb

@@ -0,0 +1,102 @@
+module Muml_Class
+  #adds a finder to eao
+  #self is supposed to be the bean and eao the "dao".
+  def jpa_addFindAll!(eao)
+    # java_NameBean is added to avoid name clash with inheritance
+    m=eao.umlx_createAndAddOperation(rdf_uri+"_findAll","findAll")#+self.java_NameBean)
+    m.uml_isStatic=RDF_TRUE
+    #m.uml_class=self
+    m.uml_visibility=Cuml_VisibilityKind::Public
+    #m.uml_isStatic=RDF_TRUE
+
+    #em=m.umlx_createAndAddParameter(m.rdf_uri+"_entityManager","entityManager")
+    #em.uml_type=umlx_getOrCreateClass(JPA::EntityManager)
+    #em.uml_direction=Cuml_ParameterDirectionKind::In
+    #em.uml_upperValue=umlx_literal(1)
+    #em.uml_lowerValue=umlx_literal(1)
+
+    rp=m.umlx_createAndAddParameter(m.rdf_uri+"_ret_param","return")
+    rp.uml_direction=Cuml_ParameterDirectionKind::Return
+    rp.uml_upperValue=umlx_literal(-1)
+    rp.uml_lowerValue=umlx_literal(0)
+    rp.uml_type=self
+    rp.uml_isOrdered=RDF_TRUE
+
+    #m.java_code="return  (#{self.java_qualifiedName})entityManager.find( #{self.java_qualifiedName}.class, #{ip.uml_name});"
+
+    basicQuery=<<END
+  javax.persistence.Query q=getEntityManager().createQuery( "select Object(c) from  #{java_Name} as c");
+  return (java.util.List<#{self.java_qualifiedName}>) q.getResultList();
+END
+
+    
+    if !context[:multiTenant]
+      m.java_code=basicQuery
+    else
+      
+      ip=m.umlx_createAndAddParameter(m.rdf_uri+"_tenant","tenant")
+      ip.uml_type=rdf_Repository.java_getTenantClass
+      ip.umlx_createAndAddComment(ip.rdf_uri+"comment","Restrict query to this tenant")
+            
+      m.java_code=<<END
+if(#{ip.java_Name}!=null) {
+  javax.persistence.Query q=getEntityManager().createQuery( "select Object(c) from  #{java_Name} as c  where c.#{TENANT_FIELD_NAME}= :tenantQP");
+  q.setParameter("tenantQP",#{ip.java_Name});
+  return (java.util.List<#{self.java_qualifiedName}>) q.getResultList();
+} else {
+//TODO: disable in production code
+  System.out.println("DEBUG MODE");
+  #{basicQuery}
+}
+
+END
+      
+    end
+    
+
+    m.java_annotation_add(%{@SuppressWarnings("unchecked")})
+
+    # because A<-B is not Set<A> <- Set<B>
+    # we need to have an extra parameter
+    # so method overloading is OK.
+    # (this is not necessary when A is return)
+
+    if context[:db_useExtraTypeParameterForFindAll]
+      t=m.umlx_createAndAddParameter(m.rdf_uri+"_class","nullCast")
+      t.uml_type=self
+    end
+    
+    return m
+  end
+  def jpa_addFindByPrimaryKey!(eao)
+    m=eao.umlx_createAndAddOperation(rdf_uri+"_finderop","find")
+    m.uml_isStatic=RDF_TRUE
+    #m.uml_class=self
+    m.uml_visibility=Cuml_VisibilityKind::Public
+    #m.uml_isStatic=RDF_TRUE
+
+    #em=m.umlx_createAndAddParameter(m.rdf_uri+"_entityManager","entityManager")
+    #em.uml_type=umlx_getOrCreateClass(JPA::EntityManager)
+    #em.uml_direction=Cuml_ParameterDirectionKind::In
+    #em.uml_upperValue=umlx_literal(1)
+    #em.uml_lowerValue=umlx_literal(1)
+
+    ip=m.umlx_createAndAddParameter(m.rdf_uri+"_id_param","primaryKey")
+    ip.uml_direction=Cuml_ParameterDirectionKind::In
+    ip.uml_upperValue=umlx_literal(1)
+    ip.uml_lowerValue=umlx_literal(1)
+    ip.uml_type=umlx_dataType_long
+    #ip.uml_isOrdered=RDF_FALSE
+
+    rp=m.umlx_createAndAddParameter(m.rdf_uri+"_ret_param","return")
+    rp.uml_direction=Cuml_ParameterDirectionKind::Return
+    rp.uml_upperValue=umlx_literal(1)
+    rp.uml_lowerValue=umlx_literal(0)
+    rp.uml_type=self
+    #rp.uml_isOrdered=RDF_FALSE
+
+    m.java_code="return  (#{self.java_qualifiedName})getEntityManager().find( #{self.java_qualifiedName}.class, #{ip.uml_name});"
+
+    return m
+  end
+end