ontomde-uml2-crank 1.0.6

data/lib/ontomde-uml2-crank/crankJpa.rb

@@ -0,0 +1,103 @@
+module Muml_Property
+  
+  def jpa_addRelationCascadeType(isIncludeType=true)
+    if crank_isMasterFromMasterDetail?
+      self.java_annotation_add("@xmda.jpa.annotations.MasterDetail")
+      self.umlx_owner_one.java_import_add("org.hibernate.annotations.Cascade");
+      self.java_annotation_add("@Cascade({org.hibernate.annotations.CascadeType.DELETE_ORPHAN})")
+      if (isIncludeType)
+        return ",cascade={CascadeType.ALL}"
+      else
+        return "(cascade={CascadeType.ALL})"
+      end       
+    elsif crank_isDetailFromMasterDetail?
+      self.java_annotation_add("@xmda.jpa.annotations.Detail")
+    end
+
+    if (isIncludeType)
+      return CRANK_DEFAULT_CASCADE_I
+    else
+      return CRANK_DEFAULT_CASCADE
+    end     
+  end
+  
+  CRANK_DEFAULT_CASCADE="(cascade={CascadeType.MERGE, CascadeType.PERSIST, CascadeType.REFRESH})"
+  CRANK_DEFAULT_CASCADE_I=",cascade={CascadeType.MERGE, CascadeType.PERSIST, CascadeType.REFRESH}"
+
+  alias super_jpa_addPersistenceToAssociation! jpa_addPersistenceToAssociation!
+  def jpa_addPersistenceToAssociation!(ah)
+    super_jpa_addPersistenceToAssociation!(ah)
+  end
+  
+  def crank_isMasterFromMasterDetail?
+    return true if self.umlx_isComposite?
+    return false 
+  end
+  def crank_isDetailFromMasterDetail?
+    oe=umlx_otherEnd
+    binav=(!oe.nil?) && oe.umlx_isNavigable?
+    return false if !binav
+    return oe.crank_isMasterFromMasterDetail?
+  end
+    
+end
+
+
+
+module DAO
+  DAOInterface="GenericDao"
+  DAOQualifiedInterface="org.crank.crud.GenericDao"
+    
+  alias super_jpa_addDAO! jpa_addDAO!
+  def jpa_addDAO!
+    
+    if !context[:crank]
+      super_jpa_addDAO!
+      return
+    end
+    
+    log.debug { "adding dao for #{self}" }
+    p=umlx_package    
+    
+    p_dao=p.umlx_getOrCreatePackage(context[:dbDAOsubPackage,"dao"],p)
+    c=p_dao.umlx_createAndAddInterface(rdf_uri+"_dao")
+    c.db_isDAO=RDF_TRUE
+    c.db_isTransient=RDF_TRUE
+    self.java_DAOClass=c
+    c.java_persistentClass=self
+    c.uml_name=uml_name_one+"DAO"
+    
+    i = umlx_getOrCreateClass("#{DAO::DAOInterface}<#{uml_name_one},Long>");
+    i.db_isTransient=RDF_TRUE
+    i.java_isGeneric=RDF_TRUE
+    c.umlx_createAndAddGeneralization(i)
+    
+    self.jpa_addNamedQuery
+    
+    log.debug { "DAO added: #{c.uml_name} in #{c.umlx_package.uml_name}"}
+    c.java_import_add(DAO::DAOQualifiedInterface)
+    c.java_import_add("#{self.java_qualifiedName}")
+  end
+  
+  def jpa_addNamedQuery
+    namedQuery = "@javax.persistence.NamedQueries( {\n"
+    namedQuery << "    @javax.persistence.NamedQuery( name = \"#{self.java_Name}.readPopulated\",\n"
+    namedQuery << "      query = \"select distinct #{self.java_Name.downcase} from #{self.java_Name} #{self.java_Name.downcase} "
+    umlx_ownedAndInheritedAttribute.each { |a|
+      next if a.uml_type_one.db_isTransient? 
+      next if a.uml_isDerived?
+      if !a.umlx_isAttribute? 
+        namedQuery << jpa_addNamedQueryToAssociation!(a)
+      end
+    }
+    namedQuery <<  " where #{self.java_Name.downcase}.id=?\" )"
+    
+    namedQuery += "})"    
+    self.java_annotation_add(namedQuery)
+  end
+  
+  def jpa_addNamedQueryToAssociation!(a)
+     return "left outer join fetch #{self.java_Name.downcase}.#{a.java_Name} "
+  end
+
+end

data/lib/ontomde-uml2-crank/equals.rb

@@ -0,0 +1,83 @@
+module Muml_Classifier
+  
+  def java_generate_equalsAndHash
+    ret=Set.new
+    uml_ownedAttribute.each {|biz|
+      ret << biz if biz.umlx_hasStereotype?("EqualsValue")
+    }
+    if !ret.empty?
+      java_generateEquals(ret, !crank_isTopCrankBean)
+      java_generateHashCode(ret)
+    end
+  end
+  
+  
+  def java_generateEquals(ret, callSuperEquals)
+      me=self.umlx_createAndAddOperation(self.rdf_uri+"_equals")
+      me.uml_name="equals"
+#      me.uml_class=self
+      me.uml_visibility=Cuml_VisibilityKind::Public
+      rme=me.umlx_createAndAddReturnParameter("#{me.rdf_uri}_ret")
+      rme.uml_type=umlx_getOrCreateDataType("boolean")
+      rpe=me.umlx_createAndAddParameter("#{me.rdf_uri}_par", "o")
+      rpe.uml_type=umlx_getOrCreateClass("Object")
+      me.java_annotation_add("@Override")
+      meCode = <<CODE
+  if(this == o) {
+      return true;
+  }
+  if(o==null || !(o instanceof #{self.java_Name})) {
+      return false;
+  }
+CODE
+    if callSuperEquals
+      meCode << <<CODE
+  if !super.equals(o) {
+      return false;  
+  }
+CODE
+    end
+    meCode << <<CODE
+  final #{self.java_Name} _o = (#{self.java_Name}) o;
+CODE
+    ret.each { |a|
+    meCode << <<CODE
+  if (#{a.java_Name} != null ?
+        !#{a.java_Name}.equals(_o.#{a.java_Name}) :
+        _o.#{a.java_Name} != null) {
+        return false;
+  }
+CODE
+  }
+    meCode << <<CODE
+  return true;
+CODE
+    me.java_code = meCode
+  end
+
+
+  def java_generateHashCode(ret)
+      me=self.umlx_createAndAddOperation(self.rdf_uri+"_hash")
+      me.uml_name="hashCode"
+      me.uml_class=self
+      me.uml_visibility=Cuml_VisibilityKind::Public
+      rme=me.umlx_createAndAddReturnParameter("#{me.rdf_uri}_ret")
+      rme.uml_type=umlx_getOrCreateDataType("int")
+      me.java_annotation_add("@Override")
+      meCode = <<CODE
+  final int prime = 31;
+  int result = 1;
+CODE
+    ret.each { |a|
+    meCode << <<CODE
+  result = prime * result + ((#{a.java_Name} == null) ? 0 : #{a.java_Name}.hashCode());
+CODE
+  }
+    meCode << <<CODE
+  return result;
+CODE
+   me.java_code = meCode
+   
+  end
+
+end

data/lib/ontomde-uml2-crank/facelets.rb

@@ -0,0 +1,243 @@
+
+
+module Muml_Classifier
+  
+  def crank_generate_listing
+    mtk_writeSession("#{context[:webContentDir]}/pages/crud/#{self.java_Name}/Listing.xhtml") {
+      write <<END
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"
+  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"
+  >
+<ui:composition template="/templates/layout.xhtml">
+  <ui:define name="javascript">
+    <script type="text/javascript" src="${request.contextPath}/js/jquery.js"/>
+    <script type="text/javascript" src="${request.contextPath}/js/messages.js"/>
+    <script type="text/javascript" src="${request.contextPath}/js/details.js"/>
+  </ui:define>
+  <ui:define name="content">
+
+    <h:outputText value="#{self.java_Name}s" styleClass="pageTitle"/>
+
+    <a4j:region renderRegionOnly="false"> 
+      <a4j:form id="${daoName}ListForm">
+        <crank:listing 
+          paginator="${paginators['#{self.java_Name}']}" 
+          jsfCrudAdapter="${cruds['#{self.java_Name}']}" 
+          propertyNames="#{self.crank_listingProperties}"
+          pageTitle="${daoName}"
+          parentForm="${daoName}ListForm"
+          reRender="${daoName}ListForm"
+          crud="${cruds['#{self.java_Name}'].controller}"         
+END
+      if crank_hasCrankBeanChild?
+          write <<END
+
+          clazzs="
+END
+          isFirstSubclazz = true
+          crank_subCrankBean.each{|c|
+             if isFirstSubclazz
+               isFirstSubclazz = false
+             elsif
+               write ","
+             end
+             write "#{c.java_Name}"
+          }
+          write "\""
+      end
+      
+      write <<END
+ />
+      </a4j:form>
+    </a4j:region>
+        
+    
+  </ui:define>
+</ui:composition>
+</html>
+END
+    }
+  end
+  
+  
+  def crank_generate_form
+    mtk_writeSession("#{context[:webContentDir]}/pages/crud/#{self.java_Name}/Form.xhtml") {
+      write <<END
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"
+  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"
+  xmlns:validation="http://code.google.com/p/krank/validation"
+  >
+  
+<ui:composition template="/templates/layout.xhtml">
+  <ui:define name="content">
+  
+    <c:set var="adapter" value="${#{self.java_Name.downcase}Crud}" />
+    <c:set var="crud" value="${adapter.controller}" />
+    
+    <span class="pageTitle">#{self.java_Name} Entry Form</span>
+  
+    <a4j:region renderRegionOnly="false"> 
+      <a4j:form
+        id="#{self.java_Name.downcase}Form">
+        
+        <crank:form
+          crud="${crud}" 
+          parentForm="#{self.java_Name.downcase}Form"
+          propertyNames="#{self.crank_editSimpleProperties}"
+          readOnlyProperties="#{self.crank_readOnlyProperties}">
+          #{crank_crud_relationship}
+        </crank:form>
+      </a4j:form>
+    </a4j:region>
+
+  </ui:define>
+</ui:composition>
+</html>
+END
+    }
+  end
+  
+  
+  def crank_crud_relationship
+    rel = ""
+    rels = eachCrankBeanRelations
+    rels.each { |a|
+       if !a.umlx_isComposite? && !a.java_isManyAssociation?
+          rel << crank_simpleRelationHelper(a)
+       end
+    }
+    bManyAsociation = false
+    rels.each { |a|
+       if !a.umlx_isComposite? && a.java_isManyAssociation?
+          if !bManyAsociation
+            rel << "<rich:tabPanel width=\"100%\">\n"
+            bManyAsociation = true
+          end
+          rel << "   <rich:tab label=\"${crud:createLabel('#{a.java_Name}')}\">\n"
+          rel << crank_simpleRelationHelper(a)
+          rel << "   </rich:tab>\n"
+       end
+    }   
+    if bManyAsociation
+       rel << "</rich:tabPanel>\n"
+    end
+    bManyAsociation = false
+    rels.each { |a|
+       if a.crank_isMasterFromMasterDetail?
+          if !bManyAsociation
+            rel << "<rich:tabPanel width=\"100%\">\n"
+            bManyAsociation = true
+          end
+          rel << "   <rich:tab label=\"${crud:createLabel('#{a.java_Name}')}\">\n"
+          rel << crank_masterDetailRelationHelper(a)
+          rel << "   </rich:tab>\n"
+       end
+    }
+    if bManyAsociation
+       rel << "</rich:tabPanel>\n"
+    end
+    return rel
+  end
+  
+  def crank_simpleRelationHelper(a)
+    rel=""
+    if a.java_isManyAssociation?
+      rel += "      <crank:selectManyExtended jsfSelectManyController="
+    elsif
+      rel += "      <crank:selectOneListing jsfSelectOneController="
+    end
+    rel +=<<CODE
+ "${#{a.java_Name.downcase}From#{java_Name}To#{a.uml_type_one.java_Name}Controller}"
+            propertyNames="#{a.uml_type_one.crank_listingProperties}"
+            parentForm="#{self.java_Name.downcase}Form" editRelation="${true}"
+            />
+            
+CODE
+    return rel    
+  end
+  
+  def crank_masterDetailRelationHelper(a)
+    rel=<<CODE
+     <crank:detailListingExtended detailController="${#{a.java_Name.downcase}From#{java_Name}To#{a.uml_type_one.java_Name}Controller}"
+                                        propertyNames="#{a.uml_type_one.crank_listingProperties}" editRelation="${true}"
+CODE
+      if a.uml_type_one.crank_hasCrankBeanChild?
+          rel << " clazzs=\""
+          isFirstSubclazz = true
+          a.uml_type_one.crank_subCrankBean.each{|c|
+             if isFirstSubclazz
+               isFirstSubclazz = false
+             elsif
+               rel <<  ","
+             end
+             rel <<  "#{c.java_Name}"
+          }
+          rel <<  "\""
+      end
+    rel << " />\n"
+    return rel    
+  end
+  
+  def crank_listingProperties
+    attributes = nil
+    umlx_ownedAndInheritedAttribute.each { |a|    
+      next if a.umlx_isComposite? 
+      next unless a.umlx_isAttribute?
+      #next if a.uml_type_one.db_isTransient?
+      next if a.uml_isStatic?
+      next if a.uml_isReadOnly?
+      next if "id" == "#{a.java_Name}" #TODO Faire mieux
+      next if "objectVersion" == "#{a.java_Name}" #TODO Faire mieux
+      if attributes.nil?
+        attributes = "#{a.java_Name}"
+      else
+        attributes << ",#{a.java_Name}"
+      end
+    }
+    if (attributes.nil?)
+      attributes = ""
+    end
+    return attributes
+  end
+  
+  def crank_readOnlyProperties
+    attributes = nil
+    umlx_ownedAndInheritedAttribute.each { |a|    
+      next if a.umlx_isComposite? 
+      next unless a.umlx_isAttribute?
+      #next if a.uml_type_one.db_isTransient?
+      next if a.uml_isStatic?
+      next if !a.uml_isReadOnly?
+      next if "id" == "#{a.java_Name}" #TODO Faire mieux
+      next if "objectVersion" == "#{a.java_Name}" #TODO Faire mieux
+      if attributes.nil?
+        attributes = "#{a.java_Name}"
+      else
+        attributes << ",#{a.java_Name}"
+      end      
+    }
+    if (attributes.nil?)
+      attributes = ""
+    end
+    return attributes
+  end
+
+  def crank_editSimpleProperties
+    return crank_listingProperties
+  end
+  
+end

data/lib/ontomde-uml2-crank/facesconfig.rb

@@ -0,0 +1,113 @@
+
+module Mrdf_Model
+
+  
+
+  
+  def crank_faces_header
+    write <<END
+<?xml version="1.0"?>
+<faces-config xmlns="http://java.sun.com/xml/ns/javaee"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xsi:schemaLocation="http://java.sun.com/xml/ns/javaee http://java.sun.com/xml/ns/javaee/web-facesconfig_1_2.xsd"
+    version="1.2">
+
+<!-- 
+  <lifecycle>
+    <phase-listener>org.crank.jsf.support.DebugPhaseListener</phase-listener>
+  </lifecycle>
+ -->
+    
+  <application>
+    <action-listener>org.crank.crud.jsf.support.JsfMessageActionListener</action-listener>
+    <variable-resolver>org.springframework.web.jsf.DelegatingVariableResolver</variable-resolver>
+    <message-bundle>messages</message-bundle>
+  </application>
+  
+  <!-- 
+  <component>
+    <component-type>org.crank.javax.faces.SelectOne</component-type>
+    <component-class>org.crank.javax.faces.component.UISelectOne</component-class>
+  </component>
+  <render-kit>
+      <renderer>
+      <component-family>javax.faces.SelectOne</component-family>
+      <renderer-type>org.crank.javax.faces.Listbox</renderer-type>
+      <renderer-class>
+      org.crank.javax.faces.component.ListboxRenderer
+      </renderer-class>
+    </renderer>
+  
+  </render-kit>
+   -->
+  
+  <navigation-rule>
+    <navigation-case>
+      <from-outcome>HOME</from-outcome>
+      <to-view-id>/pages/Home.xhtml</to-view-id>
+    </navigation-case>
+  </navigation-rule>
+END
+  end
+  
+ 
+  def crank_faces_footer
+    if context[:crankXmdaNav]    
+      write <<END
+      <navigation-rule>
+    <from-view-id>/pages/crud/*</from-view-id>
+    <navigation-case>
+      <from-outcome>LISTING</from-outcome>
+      <to-view-id>\#{%sCrudProxy.crudViewHandler.calculateListingViewId}</to-view-id>
+    </navigation-case>
+    <navigation-case>
+      <from-outcome>FORM</from-outcome>
+      <to-view-id>\#{%sCrudProxy.crudViewHandler.calculateFormViewId}</to-view-id>
+    </navigation-case>    
+  </navigation-rule>    
+END
+    end
+    write <<END
+
+</faces-config>
+END
+end
+  
+  def crank_faces_crankbean   
+    eachCrankBean.each { |c|
+    write <<BEAN
+  <navigation-rule>
+    <navigation-case>
+      <from-outcome>#{c.java_Name.upcase}</from-outcome>
+      <to-view-id>/pages/crud/#{c.java_Name}/Listing.xhtml</to-view-id>
+    </navigation-case>
+  </navigation-rule>
+
+  <navigation-rule>
+    <navigation-case>
+      <from-outcome>#{c.java_Name.upcase}_FORM</from-outcome>
+      <to-view-id>/pages/crud/#{c.java_Name}/Form.xhtml</to-view-id>
+    </navigation-case>
+  </navigation-rule>
+  
+BEAN
+if !context[:crankXmdaNav]
+      write <<BEAN
+  <navigation-rule>
+    <from-view-id>/pages/crud/#{c.java_Name}/*</from-view-id>
+    <navigation-case>
+      <from-outcome>LISTING</from-outcome>
+      <to-view-id>/pages/crud/#{c.java_Name}/Listing.xhtml</to-view-id>
+    </navigation-case>
+    <navigation-case>
+      <from-outcome>FORM</from-outcome>
+      <to-view-id>/pages/crud/#{c.java_Name}/Form.xhtml</to-view-id>
+    </navigation-case>    
+  </navigation-rule>
+
+BEAN
+    end
+    }
+  end
+
+end