ontomde-java 2.0.0

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

@@ -0,0 +1,80 @@
+
+module Mrdf_Resource
+	#returns directory containing compiled
+	#java classes and other ressources in classpath.
+	def java_ClassRelativeDir
+		p="#{context[:javaDir]}"
+		p="#{context[:webContentRelativeDir,p]}"
+		p="#{p}/WEB-INF/classes"
+		p="#{context[:javaClassDir,p]}"
+		return p
+	end
+end
+module Mrdf_Repository
+	#returns directory containing compiled
+	#java classes and other ressources in classpath.
+	def java_ClassRelativeDir
+		p="#{context[:javaDir]}"
+		p="#{context[:webContentRelativeDir,p]}"
+		p="#{p}/WEB-INF/classes"
+		p="#{context[:javaClassDir,p]}"
+		return p
+	end
+end
+
+module Mrdf_Repository
+def java_generateAntBuildFile
+	return unless context[:generateAntBuildFile,false]
+
+mtk_writeSession("#{context[:targetDir]}/build.xml") {
+	write  %{
+<project name="demo" default="all">
+
+<target name="all" depends="compile,log4j" />
+
+<target name="compile">
+	<mkdir dir="#{java_ClassRelativeDir}" />
+	<sync todir="#{java_ClassRelativeDir}">
+		<fileset dir="#{context[:javaRelativeDir]}">
+			<include name="**/*"/>
+			<exclude name="**/*.java"/>
+		</fileset>
+		<!-- only supported if ant >=1.7
+		<preserveintarget>
+			<include name="**/*.class"/>
+		</preserveintarget>
+		-->
+	</sync>
+	<javac srcdir="#{context[:javaRelativeDir]}" destdir="#{java_ClassRelativeDir}" debug="yes">
+		<classpath>
+			<!-- catch-all -->
+			<fileset dir="." includes="**/*.jar" />
+		</classpath>
+		<compilerarg value="-Xlint:deprecation"/>
+		<compilerarg value="-Xlint:unchecked"/>
+	</javac>
+</target>
+<target name="log4j">
+	<concat destfile="#{java_ClassRelativeDir}/log4j.properties">
+      		<header filtering="no" trimleading="yes">
+			# ---------------------------------------
+			# Changes to this file will be deleted
+			# on next ant build because
+			# this file is the concatenation of
+			# file matching log4j*.properties
+			# in #{context[:javaRelativeDir]}"
+			# ---------------------------------------
+      		</header>
+
+		<fileset dir="#{context[:javaRelativeDir]}" includes="log4j*.properties"/>
+	</concat>
+</target>
+<target name="clean" />
+
+</project>
+}
+	}
+end
+end
+
+

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

@@ -0,0 +1,112 @@
+# Java collection mapping rules for UML property and UML parameter.
+
+module Muml_MultiplicityElement
+  #returns a Java_collectionMaping object containing mapping rules to java collection element
+  #
+  #Examples:
+  # * Array
+  # * List
+  # * Set
+  #
+  #Reference:
+  # * #java_use_Arrays?
+  def java_getCollectionMapping
+    if self.umlx_upperValueIsOne?
+      return Java_collectionMapping_None.instance
+    elsif java_use_Arrays?
+      return Java_collectionMapping_Array.instance
+    elsif uml_isOrdered?
+      # this mapping is used wether or not isUnique
+      return Java_collectionMapping_List_ArrayList.instance
+    elsif uml_isUnique
+      return Java_collectionMapping_Set_HashSet.instance
+    else
+      return Java_collectionMapping_Collection_ArrayList.instance
+    end
+  end
+end
+
+# Helper class for wrapping a base type in ad-hoc collection.
+class Java_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 Java_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 Java_collectionMapping_Collection_ArrayList < Java_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 Java_collectionMapping_List_ArrayList < Java_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 Java_collectionMapping_Set_HashSet < Java_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 Java_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/component.rb

@@ -0,0 +1,446 @@
+
+module Mrdf_Repository
+  #process every component 
+  
+  def java_autoGenerateCrudComponents!
+    uml_Class_all.each { |c|
+      next unless c.kind_of?(Cuml_Class)
+      c.java_createCrudComponent!
+    }
+  end
+  def java_processComponents!
+    
+    
+    
+    uml_Component_all.each { |c|
+      c.java_processComponent!
+    }
+    
+    mtk_writeSession("#{context[:webContentDir]}/WEB-INF/jwsContext.xml") {
+      jws_config_write
+    }
+    
+  end
+  
+  def jws_config_write
+    write <<JWS
+<?xml version="1.0" encoding="UTF-8"?>
+
+<beans xmlns="http://www.springframework.org/schema/beans"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:context="http://www.springframework.org/schema/context"
+    xmlns:cxf="http://cxf.apache.org/core"
+    xmlns:jaxws="http://cxf.apache.org/jaxws"
+    xsi:schemaLocation="http://www.springframework.org/schema/beans
+        http://www.springframework.org/schema/beans/spring-beans-2.5.xsd
+        http://www.springframework.org/schema/context
+        http://www.springframework.org/schema/context/spring-context-2.5.xsd
+        http://cxf.apache.org/core
+        http://cxf.apache.org/schemas/core.xsd
+        http://cxf.apache.org/jaxws
+        http://cxf.apache.org/schemas/jaxws.xsd"
+    default-autowire="byName">
+
+    <!-- Load CXF modules from cxf.jar -->
+    <import resource="classpath:META-INF/cxf/cxf.xml" />
+    <import resource="classpath:META-INF/cxf/cxf-extension-soap.xml" />
+    <import resource="classpath:META-INF/cxf/cxf-servlet.xml" />
+    
+    <!-- Enable message logging using the CXF logging feature -->
+    <cxf:bus>
+        <cxf:features>
+            <cxf:logging/>
+        </cxf:features>
+    </cxf:bus>
+    
+    <!-- Aegis data binding -->
+    <bean id="aegisBean"
+        class="org.apache.cxf.aegis.databinding.AegisDatabinding"
+        scope="prototype"/> 
+    <bean id="jaxws-and-aegis-service-factory"
+        class="org.apache.cxf.jaxws.support.JaxWsServiceFactoryBean"
+        scope="prototype">
+        <property name="dataBinding" ref="aegisBean"/>
+        <property name="serviceConfigurations">
+            <list>
+              <bean class="org.apache.cxf.jaxws.support.JaxWsServiceConfiguration"/>
+              <bean class="org.apache.cxf.aegis.databinding.AegisServiceConfiguration"/>
+              <bean class="org.apache.cxf.service.factory.DefaultServiceConfiguration"/> 
+            </list>
+        </property>
+    </bean>
+JWS
+
+    uml_Component_all.each { |c|
+      c.writeJWSConfig
+    }
+  
+    
+    write <<JWS 
+</beans>
+JWS
+    
+  end
+end
+
+module Muml_Component
+  def umlx_isStatelessComponent?
+    return uml_ownedAttribute.empty?
+  end
+  
+  def writeJWSConfig
+    write <<CONFIG
+    <!-- Service endpoint -->
+    <bean id="#{self.java_Name}" class="#{self.java_qualifiedName}"/>
+    <jaxws:endpoint id="#{self.java_Name}EndPoint"
+            implementorClass="#{self.java_qualifiedName}"
+            implementor="##{self.java_Name}"
+            address="/#{self.java_Name}">
+        <jaxws:serviceFactory>
+            <ref bean="jaxws-and-aegis-service-factory"/>
+        </jaxws:serviceFactory>
+    </jaxws:endpoint>    
+CONFIG
+  end
+  
+
+  
+  def java_processComponent!
+    #    if umlx_isStatelessComponent?
+    #      java_annotation_add("@javax.ejb.Stateless")
+    #      java_annotation_add("@javax.jws.WebService")
+    #    else
+    #      java_annotation_add("@javax.ejb.Statefull")
+    #    end
+    java_annotation_add("@javax.jws.WebService")
+    
+    uml_ownedOperation.each { |op|
+      op.java_annotation_add("@javax.jws.WebMethod")
+      op.uml_ownedParameter.each{|p|
+        next if p.uml_direction_one==Cuml_ParameterDirectionKind::Return
+        p.java_annotation_add("@javax.jws.WebParam(name=\"#{p.java_Name}\")")
+      }
+    }
+       
+  end
+end
+
+module Muml_TypedElement
+  #mode requested for soa 
+  rdf_attr :soa_requestedMode,[::Mrdfs_Literal]
+end
+module Muml_Class
+  
+  
+  # create a CRUD component associated to this class
+  # for exposing CRUD services on this object.
+  def java_createCrudComponent!
+    
+    return if umlx_hasStereotype?('DTO')
+    return if db_isDAO?
+    return unless umlx_businessMethod?
+    
+    base=self
+    p=base.umlx_owner_one
+    p=p.umlx_getOrCreatePackage(base.context[:crudComponentPackage,"ws"],p)
+    
+    c=p.umlx_createAndAddComponent("#{self.rdf_uri}_crudc","#{uml_name} CRUD")
+    #puts "component created: #{c}"
+    #struts_addCreateAndAddActions!
+      
+    create=c.umlx_createAndAddOperation("#{c.rdf_uri}_create","create")
+    ret=create.umlx_createAndAddReturnParameter("#{create.rdf_uri}")
+    ret.uml_type=base
+    ret.soa_requestedMode="ID"
+    
+    update=c.umlx_createAndAddOperation("#{c.rdf_uri}_update","update")
+    p1=update.umlx_createAndAddParameter("#{update.rdf_uri}","updateData")
+    p1.uml_type=base
+    p1.soa_requestedMode="FULL"
+  end
+end
+
+module Mrdf_Repository
+  def dto_generateCustomDTO()
+    data_model=self[:dataModel]
+    return if data_model.nil?
+    cdfs=Set.new
+    data_model.each { |k,v|
+      next unless v.kind_of?(Msoa_customDataFilter)
+      cdfs.add(v)
+    }
+    
+    dto_autoPopulate!
+    
+    
+    uml_Class_all.each { |c|
+      next unless c.kind_of?(Muml_Class)
+      next if c.umlx_hasStereotype?('DTO')
+      next if c.db_isDAO?
+      next unless c.umlx_businessMethod?
+      
+      cdfs.each { |v|
+        #next unless v.kind_of?(Msoa_customDataFilter)
+        #puts "v --> #{v.class}"
+        v.dto_getFilteredClass(c)
+      }
+    }
+    
+    #puts "!!!!!!!!!!!!!!!!!!!!!!!!!!! Proc "
+    
+    s=Set.new
+    data_model.each_value { |rule|
+      next unless rule.kind_of?(Msoa_dataParameterFilterRule)
+      s.add(rule)
+    }
+    s.each{|rule|
+#      puts "°°°°°Processing filter #{rule}"
+#      puts "??? #{rule.soa_filteredProperty_one}"
+#      puts "??? #{rule.soa_useDataFilter_one}"
+#      
+      prop=rule.soa_filteredProperty_one
+      prop_uml=self[prop.rdf_uri]
+#      puts "prop_uml: #{prop_uml}:#{prop_uml.class}"
+      filter=rule.soa_useDataFilter_one
+      fc_uml=filter.dto_getFilteredClass(prop_uml.uml_type_one)
+#      puts "fc_uml: #{fc_uml}:#{fc_uml.class}"
+      
+      # Replacing core type by filtered type
+#      puts "#{__LINE__} changing #{prop_uml.uml_type} to #{fc_uml} in #{prop_uml}"
+      prop_uml.uml_type=fc_uml
+    }
+    
+    each_value { |prop_uml|
+      next unless prop_uml.kind_of?(Muml_TypedElement)
+      next if prop_uml.soa_requestedMode.empty?
+      
+      filter=dto_findFilterByName(prop_uml.soa_requestedMode.to_s)
+      fc_uml=filter.dto_getFilteredClass(prop_uml.uml_type_one)
+#      puts "!!!@@@!!! soa_requestedMode : #{prop_uml.soa_requestedMode} --> #{filter}"
+#      puts "#{__LINE__} changing #{prop_uml.uml_type} to #{fc_uml}"
+      prop_uml.uml_type=fc_uml
+    }
+    
+    
+    
+  end
+  attr_reader :soa_IgnoreDataFilter #, [::Mrdf_Resource ]
+  attr_writer :soa_IgnoreDataFilter #, [::Mrdf_Resource ]
+  
+  # automatically add missing predefined mappings
+  # to repository.
+  def dto_autoPopulate!
+    data_model=self[:dataModel]
+    found=Set.new
+    data_model.each_value { |rule|
+      next unless rule.kind_of?(Msoa_predefinedDataFilter)
+      found.add(rule.soa_dataFilterName.to_s)
+    }
+    ["FULL","ID","debug","INCLUDE"].each {|s|
+      next if found.include?(s)
+      #puts "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ creating #{s}"
+      pdf=Csoa_predefinedDataFilter.new(data_model,"predefinedDataFilter:#{s}")
+      pdf.soa_dataFilterName=s
+    }
+  end
+  
+  def dto_findFilterByName(filterName)
+    data_model=self[:dataModel]
+    data_model.each_value { |rule|
+      next unless rule.kind_of?(Msoa_dataFilter)
+      next unless rule.soa_dataFilterName.to_s==filterName
+      return rule
+    }
+    return soa_getPredefinedDataFilter(filterName) if ["IGNORE","FULL","ID"].include?(filterName) 
+    raise Exception.new("soa filter not found with name='#{filterName}'")
+  end
+  
+  def dto_addFilter!(typedElement, filterName)
+    data_model=self[:dataModel]
+    filter=dto_findFilterByName(filterName)
+    
+    dpfr=Csoa_dataParameterFilterRule(data_model,"#{typeElement}_filter")
+    dpfr.soa_filteredProperty=typedElement
+    dpfr.soa_useDataFilter=filter
+  end
+end
+
+module Muml_Class
+  rdf_attr :dto_isPopulated, [ ::Mrdfs_Literal ]
+end
+
+module Msoa_dataFilter
+  #return predefinedFilterRule none
+  def soa_getIgnoreDataFilter()
+    return soa_getPredefinedDataFilter('IGNORE', self.rdf_Repository.soa_IgnoreDataFilter) { |v|
+      self.rdf_Repository.soa_IgnoreDataFilter=v
+    }
+  end
+  #return predefinedFilterRule none
+  def soa_getIdDataFilter()
+    return soa_getPredefinedDataFilter('ID')
+  end
+  def soa_getFullDataFilter()
+    return soa_getPredefinedDataFilter('FULL')
+  end
+  
+  def soa_getPredefinedDataFilter(name,suggestion=nil)
+    ret=suggestion 
+    if ret.nil?
+      rdf_Repository.each {|k,v|
+        next unless v.kind_of?(Msoa_predefinedDataFilter)
+        next unless v.soa_dataFilterName.to_s==name
+        ret=v
+        break
+      }
+      if ret.nil?
+        ret=Csoa_predefinedDataFilter.new(rdf_Repository,"uri://soa_filter_#{name}")     
+        ret.soa_dataFilterName=name
+      end
+      yield(ret)
+    end
+    #puts "!!! #{name} filter"
+    return ret
+  end
+  
+  
+  
+  
+  def dto_findFilterByName(filterName)
+    data_model=rdf_Repository #self[:dataModel]
+    data_model.each_value { |rule|
+      next unless rule.kind_of?(Msoa_dataFilter)
+      next unless rule.soa_dataFilterName.to_s==filterName
+      return rule
+    }
+    raise Exception.new("soa filter not found with name='#{filterName}'")
+  end
+  
+  def dto_getDataFilter(sourceField)
+    if self.soa_dataFilterName.to_s=="ID"
+      return (sourceField.uml_name.to_s=="id") ? dto_findFilterByName("INCLUDE")  : soa_getIgnoreDataFilter()
+    end 
+    if self.soa_dataFilterName.to_s=="FULL"
+      return dto_findFilterByName("ID")
+    end 
+    
+    filterRule=dto_getFilterRule(sourceField)
+    if filterRule.nil?
+      #puts "field ignored :#{sourceField} (#{sourceField.umlx_owner_one})"
+      return soa_getIgnoreDataFilter
+    end
+    filter=filterRule.soa_useDataFilter_one0
+    return soa_getIgnoreDataFilter if filter.nil?
+    return filter
+  end
+  
+  def dto_getFilterRule(field)
+    raise Exception.new("field nil") if field.nil?
+    r=nil
+    soa_sourceDataFilter_inv.each { |f|
+      #puts "f --> #{f.class} #{f.soa_filteredProperty.class}:[#{f.soa_filteredProperty}] #{field.rdf_uri} "
+      found=false
+      f.soa_filteredProperty.each {|z|
+        # z is a Ckb_UML_SLOT
+        #puts "z---->  #{z.to_s} #{field.rdf_uri}"
+        next unless z.to_s==field.rdf_uri.to_s
+        found=true
+        break
+      } 
+      next unless found
+      #next unless f.soa_filteredProperty.include?(field)
+      
+      #puts "f --> OK "
+      unless r.nil?
+        puts "TODO: error multiple source data filter for field #{f}"
+      end
+      r=f
+    }
+    return r
+  end
+  
+  def dto_getFilteredClass(umlClass)
+    #puts "dto_getFilteredClass(#{umlClass}:#{umlClass.class})"
+
+    if umlClass.kind_of?(Muml_PrimitiveType) || umlClass.kind_of?(Muml_DataType)
+      return umlClass
+      #tpl=DatatypeMapping.instance.getMapping(umlClass)
+      #return tpl.getFormType(umlClass) #Note: class instead of field
+    end
+    return umlClass if self.soa_dataFilterName.to_s=="INCLUDE"
+    #puts "#{__LINE__} #{umlClass.class}  #{umlClass.java_Name}  #{umlClass.java_qualifiedName}"
+    return umlClass if umlClass.java_qualifiedName.to_s.index("java.")==0
+    
+    
+    dto=umlClass.umlx_getOrCreateClass("filter."+self.soa_dataFilterName.to_s+"."+umlClass.java_qualifiedName.to_s+"_"+self.soa_dataFilterName.to_s)
+    return dto if dto.dto_isPopulated?
+    dto.dto_isPopulated=RDF_TRUE
+    dto.umlx_external=RDF_FALSE
+    dto.db_isTransient=RDF_TRUE
+    dto.umlx_businessMethod=RDF_FALSE
+    
+    #puts "dto=#{dto}"   
+    umlClass.uml_generalization.each {|g|
+      #adds generalization from element in same mode as current.
+      clazz=dto_getFilteredClass(g.uml_general_one)
+      #puts "generalization for #{umlClass} : #{g.uml_general_one} --> #{clazz}"
+      if clazz.nil?
+        puts "No filter #{self} for #{g.uml_general_one}. Class ignore in inheritance"
+        next
+      end
+      dto.umlx_createAndAddGeneralization(clazz)  
+    }
+    
+    umlClass.uml_ownedAttribute.each { |sourceField|
+      #      puts "p-->#{p}"
+      #      f=dto_getFilterRule(p)
+      next if sourceField.uml_isStatic?
+      #next if sourceField.uml_isFinal?
+      dto_createAssociatedField(dto,sourceField)
+    }
+    return dto
+  end
+  
+  # create a field in dto class associated to sourceField.
+  def dto_createAssociatedField(dtoClass,sourceField)
+    #log.debug { %{add form field #{self} to #{form}} }
+    
+    #return unless sourceField.umlx_businessMethod?
+    
+    #puts "adding field for #{sourceField} in dto #{dtoClass}"
+    
+    filter=dto_getDataFilter(sourceField)
+    #    if filter.nil?
+    #      puts "missing useDataFilter for filterRule #{filterRule}"
+    #      return
+    #    end
+    
+    if filter.soa_dataFilterName.to_s=="IGNORE"
+      #puts "IGNORE data filter"
+      return 
+    end 
+    
+#    puts "filter=#{filter.soa_dataFilterName}"
+    targetType=filter.dto_getFilteredClass(sourceField.uml_type_one)
+    if targetType.nil?
+      puts "nil filtered type returned for #{sourceField}"
+      return
+    end
+    
+    
+    a2=dtoClass.umlx_createAndAddProperty(sourceField.rdf_uri+"_dtoField")
+    a2.uml_name=sourceField.uml_name
+    a2.uml_upperValue=sourceField.uml_upperValue
+    a2.uml_lowerValue=sourceField.uml_lowerValue
+    a2.java_use_Arrays=RDF_TRUE
+    #    a2.struts_sourceProperty=self
+    
+    a2.uml_type=targetType
+    a2.uml_type=a2.umlx_owner_one.umlx_dataType_string if a2.uml_type_one0.nil?
+    return a2
+  end
+end
+
+
+
+