ontomde-java 2.0.0

data/lib/ontomde-java/crank/helper.rb

@@ -0,0 +1,46 @@
+
+
+module Muml_Classifier
+  #returns every type assignable to this classifier 
+  #(this includes self and any class deriving from it)
+  def umlx_ownedAndInheritedAttribute(ret=Set.new)
+    uml_ownedAttribute.each {|biz|
+      ret << biz
+    }
+    uml_generalization.each { |g|
+      next if g.kind_of?(Muml_Interface)
+      g.uml_general_one.umlx_ownedAndInheritedAttribute(ret)
+    }
+    return ret
+  end
+  
+  def crank_isTopCrankBean
+    uml_generalization.each { |g|
+      next if g.kind_of?(Muml_Interface)      
+      return false if !g.uml_general_one.db_isTransient?
+    }
+    return true;
+  end
+  
+  def crank_hasCrankBeanChild?
+    uml_general_inv.each { |g|
+      return true
+    }
+    return false
+  end
+
+ #Include the class too
+  def crank_subCrankBean(ret=Set.new, abstractIncluded=false)
+    umlx_assignableClassifier().sort{ |a,b| a <=> b}.each{ |c|
+       ret.add(c) if abstractIncluded || !c.uml_isAbstract?
+    }
+    return ret
+  end
+end
+
+module Muml_NamedElement
+  def <=>(other)
+     "#{self.java_Name}" <=> "#{other.java_Name}"
+  end
+  
+end

data/lib/ontomde-java/crank/main.rb

@@ -0,0 +1,51 @@
+module Mrdf_Repository
+  
+  def eachCrankBean(ret=Set.new)
+    uml_Class_all.each { |c|
+      next if c.kind_of?(Muml_Enumeration)
+      next if c.kind_of?(Muml_Interface)
+      next if c.java_ignoreMe?
+      next if c.db_isTransient?
+#      next if c.uml_isAbstract?
+      ret.add(c)
+    }
+    return ret.sort{ |a,b| a <=> b}
+  end
+  
+  
+  def crank_generate_ForEachBean
+    crank_generate_facesconfig
+    crank_generate_home
+    eachCrankBean.each { |c|
+      c.crank_generate_listing
+      c.crank_generate_form
+    }
+  end
+  
+  #Called after java transformation
+  def crank_generate_ForEachBeanAfterTransform
+    umlx_reserved_model.crank_generate_context
+    eachCrankBean.each { |c|
+      c.crank_generate_validation
+      c.java_generate_equalsAndHash
+    }
+  end
+
+  
+  def crank_generate_home
+    mtk_writeSession("#{context[:webContentDir]}/pages/Menu.xhtml") {
+      crank_home_header
+      crank_home_crankbean  
+      crank_home_footer
+    }
+  end
+  
+  def crank_generate_facesconfig
+    mtk_writeSession("#{context[:webContentDir]}/WEB-INF/faces-config.xml") {
+      crank_faces_header
+      crank_faces_crankbean  
+      crank_faces_footer
+    }
+  end  
+  
+end

data/lib/ontomde-java/crank/menu.rb

@@ -0,0 +1,39 @@
+
+module Mrdf_Model
+
+  
+
+  
+  def crank_home_header
+    write <<END
+<ui:composition xmlns:ui="http://java.sun.com/jsf/facelets"
+        xmlns:h="http://java.sun.com/jsf/html"
+>
+    <h:form>
+<div class="blocmenu">
+
+  <h2>Menu Principal</h2>
+  <ul>
+  
+END
+  end
+  
+ 
+  def crank_home_footer
+     write <<FOOTER
+  </ul>
+</div>
+</h:form>
+</ui:composition>
+FOOTER
+  end
+  
+  def crank_home_crankbean   
+    eachCrankBean.each { |c|
+    write <<BEAN
+    <li><h:commandLink action="#{c.java_Name.upcase}" value="#{c.java_Name}s" styleClass="titleCommandLink"/></li>
+BEAN
+    }
+  end
+
+end

data/lib/ontomde-java/crank/menu2.rb

@@ -0,0 +1,78 @@
+
+module Mrdf_Repository
+
+  
+  def crank_home_header
+    write <<END
+<ui:composition   xmlns:ui="http://java.sun.com/jsf/facelets"
+  xmlns:h="http://java.sun.com/jsf/html"
+  xmlns:f="http://java.sun.com/jsf/core"
+  xmlns:a4j="https://ajax4jsf.dev.java.net/ajax"
+  xmlns:rich="http://richfaces.ajax4jsf.org/rich"
+  xmlns:c="http://java.sun.com/jstl/core"
+  xmlns:crank="http://www.googlecode.com/crank"
+  >
+<h:form>
+   <rich:panelMenu>
+END
+  end
+  
+ 
+  def crank_home_footer
+     write <<FOOTER
+   </rich:panelMenu>     
+</h:form>
+</ui:composition>
+FOOTER
+  end
+  
+  def crank_home_crankbean
+    pkg=Hash.new
+    eachCrankBean.each {|c|
+      p=c.uml_ownedMember_inv_one
+      pkg[p]=Array.new if pkg[p].nil?
+      pkg[p] << c
+    }
+    pkg.keys.sort {|a,b| a.uml_name.to_s <=> b.uml_name.to_s }.each { |p|
+      write <<BEAN
+       <rich:panelMenuGroup label="#{p.java_qualifiedName}" iconExpanded="triangleDown" iconCollapsed="triangleUp">
+BEAN
+      clazz = pkg[p].sort { |a,b| a.uml_name.to_s <=> b.uml_name.to_s }
+      clazz.each {|c|
+        c.crank_class_submenu if c.crank_isTopCrankBean        
+      }
+      write <<BEAN
+       </rich:panelMenuGroup>
+BEAN
+    }    
+  end
+end
+
+module Muml_Class
+  def crank_class_submenu
+    subClazz = Set.new
+    crank_subCrankBean(subClazz, true)
+    if crank_isTopCrankBean && subClazz.length>1 
+      write <<BEAN
+       <rich:panelMenuGroup label="#{self.java_Name}" iconExpanded="triangleDown" iconCollapsed="triangleUp">
+BEAN
+      subClazz.sort { |a,b| a.uml_name.to_s <=> b.uml_name.to_s }.each{|c|
+        c.crank_menu_item
+      }
+      write <<BEAN
+       </rich:panelMenuGroup>
+BEAN
+    elsif
+      crank_menu_item
+    end
+  end
+  
+  def crank_menu_item
+    write <<BEAN
+          <rich:panelMenuItem submitMode="none">
+              <h:commandLink action="#{self.java_Name.upcase}" value="#{self.java_Name}" styleClass="titleCommandLink"/>
+          </rich:panelMenuItem>    
+BEAN
+  end
+end
+

data/lib/ontomde-java/crank/validation.rb

@@ -0,0 +1,34 @@
+
+
+module Muml_Classifier
+  
+  def crank_generate_validation    
+    uml_ownedAttribute.each { |a|    
+      #next if a.umlx_isComposite? 
+      #next unless a.umlx_isAttribute?
+      
+      if a.umlx_hasStereotype?('Required')
+          a.java_annotation_add("@org.crank.annotations.validation.Required")
+      end
+      if a.uml_type_one.kind_of?(Muml_DataType) && !a.uml_type_one.crank_validation_annotation.nil?
+        a.java_annotation_add(a.uml_type_one.crank_validation_annotation)
+      end
+    }
+  end
+  
+end
+
+module Muml_DataType
+
+  def crank_validation_annotation
+    tpl=DatatypeMapping.instance.getTemplate(self)
+    tpl.crank_validation_annotation
+  end
+
+end
+
+class DatatypeMapping
+  def crank_validation_annotation
+    return nil
+  end
+end

data/lib/ontomde-java/ejb2.rb

@@ -0,0 +1,3 @@
+require 'ontomde-java'
+require 'ontomde-java/ejb2/main-ejb2.rb'
+

data/lib/ontomde-java/ejb2/main-ejb2.rb

@@ -0,0 +1,194 @@
+# 
+# ejb2 generator
+#
+module Mrdf_Model
+	def ejb2_services
+		ca=Array.new
+		uml_Class_all.each { |c| 
+			next unless c.kind_of?(Muml_Class)
+			next unless c.umlx_hasStereotype?('Service')
+			ca << c
+		}
+		return ca
+	end
+
+	def ejb2_transform!
+		return unless context[:ejb2]
+		ejb2_services.each { |c|
+			c.ejb2_transform!
+		}
+		ejb2_generateConfig #TODO
+		ejb2_generateJonasConfig
+	end
+
+
+	def ejb2_target_ejbconf
+		return context[:target_ejbconf,"#{context[:build]}META-INF"]
+	end
+	def ejb2_generateConfig
+		mtk_writeSession(context[:ejbJarFile,"#{ejb2_target_ejbconf}/ejb-jar.xml"]) {
+			ejb2_writeConfig
+			}
+	end
+
+	def ejb2_writeConfig
+		write <<END
+<?xml version="1.0"?>
+<!DOCTYPE ejb-jar PUBLIC '-//Sun Microsystems, Inc.//DTD Enterprise JavaBeans 2.0//EN' 'http://java.sun.com/dtd/ejb-jar_2_0.dtd'>
+
+<ejb-jar>
+  <enterprise-beans>
+END
+		ejb2_services.each { |c|
+			write <<END
+     <!-- #{c.ejb_Name} -->
+     <session>
+        <ejb-name>#{c.ejb_Name}</ejb-name> 
+        <home>#{c.ejb_home_one.java_qualifiedName}</home>
+        <remote>#{c.ejb_remote_one.java_qualifiedName}</remote>
+        <ejb-class>#{c.ejb_bean_one.java_qualifiedName}</ejb-class>
+        <session-type>Stateless</session-type>
+        <transaction-type>Container</transaction-type>
+     </session>
+END
+		}
+		write <<END
+  </enterprise-beans>
+  <assembly-descriptor>
+END
+		ejb2_services.each { |c|
+			write <<END
+    <!-- #{c.ejb_Name} -->
+    <container-transaction>
+        <method>
+           <ejb-name>#{c.ejb_Name}</ejb-name> 
+           <method-name>*</method-name>
+        </method>
+        <trans-attribute>Required</trans-attribute>
+    </container-transaction>
+END
+		}
+	write <<END
+  </assembly-descriptor>
+</ejb-jar>
+END
+
+	end
+	def ejb2_generateJonasConfig
+		mtk_writeSession(context[:ejbJonasJarFile,"#{ejb2_target_ejbconf}/jonas-ejb-jar.xml"]) {
+			ejb2_writeJonasConfig
+			}
+	end
+
+	def ejb2_writeJonasConfig
+		write <<END
+<?xml version="1.0"?>
+<jonas-ejb-jar 
+	xmlns="http://www.objectweb.org/jonas/ns"
+	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+        xsi:schemaLocation="http://www.objectweb.org/jonas/ns http://www.objectweb.org/jonas/ns/jonas-ejb-jar_4_0.xsd" >
+END
+
+		ejb2_services.each { |c|
+			write <<END
+    <!-- #{c.ejb_Name} -->
+    <jonas-session>
+        <ejb-name>#{c.ejb_Name}</ejb-name> 
+        <jndi-name>odn.#{c.ejb_remote_one.java_Name}</jndi-name>
+        <session-timeout>60</session-timeout>
+    </jonas-session>
+END
+		}
+
+	write <<END
+</jonas-ejb-jar>
+END
+	end
+end
+
+module Muml_Class
+	#ejb_Home class related to this ejb service
+	rdf_safe_attr_reader_many :ejb_home
+	#
+	#ejb_remote interface related to this ejb service
+	rdf_safe_attr_reader_many :ejb_remote
+	#
+	#ejb_bean related to this ejb service
+	rdf_safe_attr_reader_many :ejb_bean
+
+	#process this java bean to :
+	#* generate the proper ejb interfaces, 
+	#* add required exceptions, 
+	#* add required interface implementations
+	#* ...
+	def ejb2_transform!
+		log.debug { "processing ejb service: #{self}" }
+		ejb2_createRemoteInterface!
+		ejb2_createHomeInterface!
+		ejb2_createBean!
+	end
+	
+	#Return an alias name for this class"
+	def ejb_Name
+		return "#{java_Name}EJB"
+	end
+	
+	#creates a bean class for this service class
+	#(this implementation just appends bean to the class name)
+	def ejb2_createBean!
+		self.ejb_bean=self
+		self.uml_name="#{self.uml_name}Bean"
+		ejb2_addOperationExceptions!(umlx_getOrCreateInterface("java.rmi.RemoteException"))
+	end
+	
+	#creates a home interface for this service class
+	def ejb2_createHomeInterface!
+		log.debug { "creating ejb home interface for: #{self}" }
+		h=self.umlx_owner_one.umlx_createAndAddInterface("#{self.rdf_uri}_ejbHome","#{uml_name}Home")
+		h.umlx_createAndAddGeneralization(umlx_getOrCreateInterface("javax.ejb.EJBHome"))
+		self.ejb_home=h
+
+		cr=h.umlx_createAndAddOperation("#{h.rdf_uri}_create","create")
+		cr.uml_raisedException_add(umlx_getOrCreateInterface("javax.ejb.CreateException"))
+		cr.uml_raisedException_add(umlx_getOrCreateInterface("java.rmi.RemoteException"))
+		crret=cr.umlx_createAndAddReturnParameter("#{cr.rdf_uri}_ret","return")
+		crret.uml_type=self.ejb_remote_one
+	end
+	
+	#creates a remote interface for this service class
+	def ejb2_createRemoteInterface!
+		log.debug { "creating ejb remote interface for: #{self}" }
+		r=self.umlx_owner_one.umlx_createAndAddInterface("#{self.rdf_uri}_ejbRemote","#{uml_name}")
+		r.umlx_createAndAddGeneralization(umlx_getOrCreateInterface("javax.ejb.EJBObject"))
+		self.ejb_remote=r
+		ejb2_copyMethodsTo!(ejb_remote_one,"ejbRemote",umlx_getOrCreateInterface("java.rmi.RemoteException"))
+	end
+
+	def ejb2_copyMethodsTo!(ejb,uri_suffix,exception)
+		uml_ownedOperation.each { |sop|
+			op=ejb.umlx_createAndAddOperation("#{sop.rdf_uri}_#{uri_suffix}","#{sop.uml_name}")
+			op.uml_raisedException_add(exception)	
+			sop.uml_ownedParameter.each { |sp|
+				p=op.umlx_createAndAddParameter("#{sp.rdf_uri}_#{uri_suffix}",sp.uml_name)
+				sp.umlx_copyToAttributeProperty(p)
+				p.uml_type=sp.uml_type
+				p.uml_direction=sp.uml_direction
+				p.uml_isUnique=sp.uml_isUnique
+				p.uml_isOrdered=sp.uml_isOrdered
+				p.java_use_Arrays=sp.java_use_Arrays
+				p.uml_upperValue=sp.uml_upperValue
+				p.uml_lowerValue=sp.uml_lowerValue
+				}
+		}
+	end
+	#adds exception to every operation
+	def ejb2_addOperationExceptions!(exception)
+		uml_ownedOperation.each { |op|
+			op.uml_raisedException_add(exception)	
+		}
+	end
+end
+
+
+
+