ontomde-java 2.0.0

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

@@ -0,0 +1,41 @@
+
+module Mrdf_Repository
+
+  # returns a list of classifier which are "viewable"
+  # (for which a GUI should be created)
+  def struts_viewableClassifier(ignoreAbstract=true)
+    ret=Array.new
+    uml_Class_all.each { |c|
+      next unless (c.kind_of?(Muml_Class) && c.umlx_isReallyAClass?) #TODO: for jdo || c.kind_of?(Muml_Interface)
+      next if c.java_ignoreMe?
+      next if c.struts_isForm?
+      #next if c.java_isATestFile?
+
+      #TODO: Hack for  human task (bug if MPC in name)!
+      if context[:db_useStereotypeMarker] && !"#{c.uml_name}".include?("MPC")
+        next if c.db_isTransient?
+      end
+      
+      next if c.umlx_hasStereotype?('DTO')
+
+      next if c.db_isDAO?
+      next unless c.umlx_businessMethod?
+      #no struts for abstract classes
+      next if c.uml_isAbstract? && ignoreAbstract
+      ret<< c
+    }
+    return ret
+  end
+
+  # adds struts forms and struts action classes for each #struts_viewableClassifier.
+  def struts_addPerClassElement!
+    struts_viewableClassifier.each { |c|
+      c.struts_addActionForm!
+    }
+    struts_viewableClassifier.each { |c|
+      next if c.struts_actionForm_one0.nil?
+      c.struts_addAction!
+    }
+  end
+
+end

data/lib/ontomde-java/struts/mappingForBean.rb

@@ -0,0 +1,132 @@
+#defines mapping between struts bean types (string,boolean,...) and strings
+
+
+class DatatypeMapping
+  #returns code to be inserted in struts form copyTo
+  #def getFormCopyTo(field)
+  #	# inheriting class should redefine this method
+  #	log.error %{getFormCopyTo not implemented for #{self.class}}
+  #	return %{/* TODO: implement ruby getFormCopyTo for #{self.class}*/}
+  #end
+  #returns code to be inserted in struts form initFrom
+  #def getFormInitFrom(field)
+  #	# inheriting class should redefine this method
+  #	log.error %{getFormInitFrom not implemented for #{self.class}}
+  #	return %{/* TODO: implement ruby getFormInitFrom for #{self.class}*/}
+  #end
+  def getFormCopyTo(field)
+    return %{_to.set#{field.java_NameBean}(#{java_getJavaParse(%{this.get#{field.java_NameBean}()})});\n}
+  end
+  def getFormInitFrom(field)
+    return %{this.set#{field.java_NameBean}(#{java_getJavaToString(%{_from.get#{field.java_NameBean}()})});\n}
+  end
+  def getFormType(field)
+    return field.umlx_dataType_string
+  end
+end
+
+
+class DatatypeMappingText < DatatypeMapping
+  def java_getJavaToString(jsrc)
+    return jsrc
+  end
+  def java_getJavaParse(jsrc)
+    return jsrc
+  end
+end
+
+class DatatypeMappingInteger < DatatypeMappingOrdinal
+  def java_getJavaToString(jsrc)
+    return "Integer.toString(#{jsrc})"
+  end
+  def java_getJavaParse(jsrc)
+    return "Integer.parseInt(#{jsrc})"
+  end
+end
+
+class DatatypeMappingLong < DatatypeMappingOrdinal
+  def java_getJavaToString(jsrc)
+    return "Long.toString(#{jsrc})"
+  end
+  def java_getJavaParse(jsrc)
+    return "Long.parseLong(#{jsrc})"
+  end
+end
+
+class DatatypeMappingLongObject < DatatypeMappingOrdinal
+  def java_getJavaToString(jsrc)
+    # cast is to make sure we have a Long and avoid difficult debugging
+    return "((Long)#{jsrc}).toString()"
+  end
+  def java_getJavaParse(jsrc)
+    return "((Long)Long.parseLong(#{jsrc}))"
+  end
+end
+
+class DatatypeMappingFile < DatatypeMapping
+  def getFormCopyTo(field)
+    "/* not implemented #{field} */\n"
+    #super # TODO
+    # /*TPL:9004*/"
+  end
+  def getFormInitFrom(field)
+    "/* not implemented #{field} */\n"
+    #super # TODO
+    # /*TPL:9004*/"
+  end
+end
+
+class DatatypeMappingBoolean < DatatypeMapping
+  def java_getJavaToString(jsrc)
+    return %{((#{jsrc}) ? "true" : "false")}
+  end
+  def java_getJavaParse(jsrc)
+    return %{((#{jsrc}).compareTo("true")==0)}
+  end
+end
+
+class DatatypeMappingTimeStamp < DatatypeMapping
+  def getFormCopyTo(field)
+    return %{
+        if(get#{field.java_NameBean}().length()>0) { try {
+            java.util.Date local=#{::Muml_Classifier::STRUTS_TIMESTAMP_FORMATER_INSTANCE}.parse(get#{field.java_NameBean}());
+    java.util.Date gmt = xmda.struts.FormHelper.transformFromCurrentTZToGMT(currentTimeZone, local);
+    // the date is saved in the GMT timeZone
+    _to.set#{field.java_NameBean}(gmt);
+    } catch(java.text.ParseException e) { log.error(e);}\n
+    }}
+  end
+
+  def getFormInitFrom(field)
+    return "this.set#{field.java_NameBean}(_from.get#{field.java_NameBean}()==null?null:#{::Muml_Classifier::STRUTS_TIMESTAMP_FORMATER_INSTANCE}.format(xmda.struts.FormHelper.transformFromGMTToCurrentTZ(currentTimeZone,_from.get#{field.java_NameBean}())));\n"
+  end
+end
+
+class DatatypeMappingCalendar < DatatypeMapping
+  def getFormCopyTo(field)
+    return "if(get#{field.java_NameBean}().length()>0){try {_to.set#{field.java_NameBean}(#{::Muml_Classifier::STRUTS_DATE_FORMATER_INSTANCE}.parse(get#{field.java_NameBean}()));\n} catch(java.text.ParseException e) {log.error(e);}}\n"
+  end
+
+  def getFormInitFrom(field)
+    return "this.set#{field.java_NameBean}(_from.get#{field.java_NameBean}()==null?null:#{::Muml_Classifier::STRUTS_DATE_FORMATER_INSTANCE}.format(_from.get#{field.java_NameBean}()));\n"
+  end
+end
+
+class DatatypeMappingBLOB < DatatypeMapping
+  def getFormType(field)
+    return field.umlx_getOrCreateClass("org.apache.struts.upload.FormFile")
+  end
+  def getFormCopyTo(field)
+    return "try {_to.set#{field.java_NameBean}(get#{field.java_NameBean}().getFileData());\n} catch(java.io.FileNotFoundException e) {log.error(e);} catch(java.io.IOException e2){log.error(e2);}\n"
+  end
+
+  def getFormInitFrom(field)
+    return ""
+    #return "this.set#{field.java_NameBean}(_from.get#{field.java_NameBean}()==null?null:#{::Muml_Classifier::STRUTS_DATE_FORMATER_INSTANCE}.format(_from.get#{field.java_NameBean}()));\n"
+  end
+end
+
+class DatatypeMappingGRAPHVIZ < DatatypeMappingLargeText
+end
+
+

data/lib/ontomde-java/struts/mappingForJsp.rb

@@ -0,0 +1,272 @@
+# JSP mapping for data types, enums and classes
+
+
+class DatatypeMapping
+  #returns true if this templates applies to datatype
+  def getJSP(datatype,field,owner)
+    # inheriting class should redefine this method
+    log.error %{getJSP not implemented for #{self.class}}
+    return %{<!-- TODO: implement ruby getJSP for #{self.class} --!>}
+  end
+
+  #adds special action for this type
+  def addActionFieldMethod!(field,action,form)
+  end
+
+end
+
+
+class DatatypeMappingText < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    n=datatype.java_Name.downcase #TODO
+    return %{<html:text property="#{field.java_Name}" size="20%" maxlength="#{self.maxStringLength}" styleId="#{n}" #{::Muml_DataType::STRUTS_ERROR_STYLE}/>}
+  end
+end
+
+class DatatypeMappingLargeText < DatatypeMappingText
+  def getJSP(datatype,field,owner)
+    n=datatype.java_Name.downcase #TODO
+    #maxlength not supported by textarea
+    return %{<html:textarea property="#{field.java_Name}" styleId="#{n}" #{::Muml_DataType::STRUTS_ERROR_STYLE}/>}
+  end
+end
+
+class DatatypeMappingURL < DatatypeMappingText
+  def getJSP(datatype,field,owner)
+    # cf: http://www.osix.net/modules/article/?id=586
+    n=datatype.java_Name.downcase #TODO
+    return <<END
+		 <html:text property="#{field.java_Name}" size="20%" maxlength="#{self.maxStringLength}" styleId="#{n}" #{::Muml_DataType::STRUTS_ERROR_STYLE}  disabled="true"/>
+
+		<a onclick="javascript:document.getElementById('#{n}').disabled=false;document.getElementById('#{n}').value='';;">
+		<img  src="res//orange/image/edit.gif" />
+		</a>&nbsp;<a onclick="javascript:window.open(document.forms[0].#{field.java_Name}.value);return false">
+		<img  src="res//orange/image/go.gif" />
+		</a>
+END
+  end
+end
+
+
+class DatatypeMappingInteger < DatatypeMappingOrdinal
+  def getJSP(datatype,field,owner)
+    super
+  end
+end
+
+class DatatypeMappingLong < DatatypeMappingOrdinal
+  def getJSP(datatype,field,owner)
+    super
+  end
+end
+
+class DatatypeMappingFile < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    n=datatype.java_Name.downcase #TODO
+    return %{<html:file property="#{field.java_Name}" size="20%" maxlength="30" styleId="#{n}" #{::Muml_DataType::STRUTS_ERROR_STYLE}/>}
+  end
+end
+
+class DatatypeMappingBoolean < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    if field.context[:jspUseXmdaTaglib]
+      return %{<xmda:checkbox property="#{field.java_Name}"/>\n}
+    else
+      return %{
+<html:hidden property="#{field.java_Name}" />
+<logic:equal value="true" property="#{field.java_Name}" name="#{STRUTS_BEAN_KEY}" >
+	<input type="checkbox" name="#{field.java_Name}_tmp" onClick='document.forms[0].#{field.java_Name}.value=this.checked;' checked />
+</logic:equal>
+<logic:notEqual value="true" property="#{field.java_Name}" name="#{STRUTS_BEAN_KEY}" >
+	<input type="checkbox" name="#{field.java_Name}_tmp" onClick='document.forms[0].#{field.java_Name}.value=this.checked;' />
+</logic:notEqual>
+      }
+    end
+  end
+end
+
+class DatatypeMappingTimeStamp < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    n="string"
+    #TODO: provide nicer html template
+    #xmda:dateText isCalendar defaults to "false"
+    return <<END
+ <xmda:dateText property="#{field.java_Name}" size="20%" maxlength="30" styleId="#{field.java_Name}Id" #{::Muml_DataType::STRUTS_ERROR_STYLE}/>
+ <script type="text/javascript">
+    function formatDate(cal) {
+        var date = cal.date;
+        var field = document.getElementById("#{field.java_Name}");
+        var locale = document.getElementById("#{field.java_Name}Locale").value;
+        field.value = transformToServerFormat(date, field, locale);
+
+    }
+	 Calendar.setup(\{
+		 inputField     :    "#{field.java_Name}Id",   // id of the input field
+		 localeField	  :	   "#{field.java_Name}Locale", //field containing locale (hidden)
+		 showsTime      :    true,
+		 timeFormat     :    "24",
+		 onUpdate       :    formatDate
+	 \});
+ </script>
+END
+
+  end
+end
+
+class DatatypeMappingCalendar < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    n="string"
+    #TODO: provide nicer html template
+    #isCalendar="true"
+    return <<END
+ <xmda:dateText isCalendar="true" property="#{field.java_Name}" size="20%" maxlength="#{self.maxStringLength}" styleId="#{field.java_Name}Id" #{::Muml_DataType::STRUTS_ERROR_STYLE}/>
+ <script type="text/javascript">
+  function formatDate(cal) {
+        var date = cal.date;
+        var field = document.getElementById("#{field.java_Name}");
+        var locale = document.getElementById("#{field.java_Name}Locale").value;
+        field.value = transformToServerFormat(date, field, locale);
+    }
+	 Calendar.setup(\{
+		 inputField     :    "#{field.java_Name}Id",  // id of the input field
+		 localeField    :	   "#{field.java_Name}Locale", //field containing locale (hidden)
+		 onUpdate       :    formatDate
+	 \});
+ </script>
+END
+  end
+end
+
+#Template used when no correct was found.
+class DatatypeMappingerror # <
+  include Singleton
+  def getJSP(datatype,field,owner)
+    return %{<!-- TODO: fallback template used for datatype #{datatype} -->}
+  end
+end
+
+class DatatypeMappingGenericClass < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    return "<!-- TODO:JSP #{self.class.name} -->"
+  end
+end
+
+class DatatypeMappingGenericEnum < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    if field.context[:jspUseXmdaTaglib]
+      return getJSP_XmdaTagLib(datatype,field,owner)
+    else
+      return getJSP_StrutsOnly(datatype,field,owner)
+    end
+  end
+
+  def getJSP_XmdaTagLib(datatype,field,owner)
+    return %{
+<html:select property="#{field.java_Name}" >
+  <xmda:i18noptionsCollection name="#{owner.java_Name}StrutsForm" property="#{field.java_Name}Sug" label="label" value="value"/>
+</html:select>
+    }
+  end
+
+  def getJSP_StrutsOnly(datatype,field,owner)
+    return <<END
+<html:select property="#{field.java_Name}" >
+ <logic:iterate id="_#{field.java_Name}" name="#{owner.java_Name}StrutsForm" property="#{field.java_Name}Sug" >
+  <option value="<bean:write name="_#{field.java_Name}" property="value" />" >
+   <bean:define id="_id">
+     <bean:write name="_#{field.java_Name}" property="label" />
+   </bean:define>
+   <%-- TODO: eviter entrelacement balises XML --%>
+   <bean:message key="<%= _id %>"/>
+  </option>
+ </logic:iterate>
+</html:select>
+<SCRIPT> <%-- TODO : supprimer javascript --%>
+document.forms[0].#{field.java_Name}.value="<bean:write name="#{owner.java_Name}StrutsForm" property="#{field.java_Name}" />";
+</SCRIPT>
+END
+  end
+end
+
+
+class DatatypeMappingBLOB < DatatypeMapping
+  def getJSP(datatype,field,owner)
+    n=datatype.java_Name.downcase #TODO
+    return %{<html:file property="#{field.java_Name}" size="20%" maxlength="30" styleId="#{n}" #{::Muml_DataType::STRUTS_ERROR_STYLE}/>}
+  end
+end
+class DatatypeMappingIMG < DatatypeMappingBLOB
+  def getJSP(datatype,field,owner)
+    n=datatype.java_Name.downcase #TODO
+    return %{
+#{super}
+<br/>
+<html:img action="#{owner.context[:strutsActionName]}?#{Muml_Classifier::STRUTS_DISPATCH_FIELD_NAME}=#{actionMethName(field)}" /> &nbsp;
+    }
+
+  end
+
+  def actionMethName(field)
+    return "#{field.java_Name}_img"
+  end
+
+
+  #adds special action for this type
+  def addActionFieldMethod!(field,action,form)
+    # generate method returning gif image
+    m=action.struts_createAndAddExecuteOperation(actionMethName(field))
+    m.java_code=<<END
+       #{action.struts_formCastJavaCode(form)}
+       return #{action.struts_getActionHelper.java_qualifiedName}.writeGif(mapping,response, form.getReference().get#{field.java_NameBean}());
+END
+
+
+  end
+end
+
+class DatatypeMappingGRAPHVIZ < DatatypeMappingLargeText
+  def actionMethName(field)
+    return "#{field.java_Name}_img"
+  end
+  def actionMapMethName(field)
+    return "#{field.java_Name}_map"
+  end
+  def actionMapUrl(datatype,field,owner)
+    return "/webapp/GraphVizDemoall-submit.do?#{Muml_Classifier::STRUTS_DISPATCH_FIELD_NAME}=#{actionMapMethName(field)}#myMap"
+  end
+  def getJSP(datatype,field,owner)
+    s=field.uml_isReadOnly? ? "" : super(datatype,field,owner)
+
+    return %{#{s}#{s.empty? ? "" : "<br>" }<html:img action="#{owner.context[:strutsActionName]}?#{Muml_Classifier::STRUTS_DISPATCH_FIELD_NAME}=#{actionMethName(field)}" usemap="#{actionMapUrl(datatype,field,owner)}"/>}
+  end
+
+  #adds special action for this type
+  def addActionFieldMethod!(field,action,form)
+    m=action.struts_createAndAddExecuteOperation(actionMethName(field))
+    m.java_code=<<END
+       #{action.struts_formCastJavaCode(form)}
+       return #{action.struts_getActionHelper.java_qualifiedName}.writeGraphviz(mapping,response, form.getReference().get#{field.java_NameBean}());
+END
+
+    # generate method returning map (clickable zones)
+    m2=action.struts_createAndAddExecuteOperation(actionMapMethName(field))
+    m2.java_code=<<END
+       #{action.struts_formCastJavaCode(form)}
+       return #{action.struts_getActionHelper.java_qualifiedName}.writeGraphvizMap(mapping,response, form.getReference().get#{field.java_NameBean}());
+END
+  end
+
+end
+class DatatypeMappingEmailAddress < DatatypeMappingText
+end
+
+class DatatypeMappingPassword < DatatypeMappingText
+  def getJSP(datatype,field,owner)
+    n=datatype.java_Name.downcase #TODO
+    return %{<html:password property="#{field.java_Name}" size="20%" maxlength="#{self.maxStringLength}" styleId="#{n}" #{::Muml_DataType::STRUTS_ERROR_STYLE}/>}
+  end
+end
+
+
+
+

data/lib/ontomde-java/struts/mappingToJavaHierarchy.rb

@@ -0,0 +1,87 @@
+
+
+module Mrdf_Repository
+	def struts_createDataTypeHelpers!
+		DatatypeMapping.instance.getMappings.each { |m|
+			m.struts_generateHelper(self)
+		}
+	end
+end
+
+class DatatypeMapping
+	def java_Name
+		return self.class.name
+	end
+	def java_qualifiedName
+		return rdf_uri
+	end
+	def rdf_uri
+		return "xmda.datatypes.#{java_Name}"
+	end
+	def struts_generateHelper(model)
+		return unless self.respond_to?("java_getType")
+		c=model.umlx_reserved_model.umlx_getOrCreateClass(java_qualifiedName)
+		return c unless c.umlx_external?
+		c.umlx_external=RDF_FALSE
+		c.db_isTransient=RDF_TRUE
+		c.struts_isForm=RDF_FALSE
+		c.umlx_businessMethod=RDF_FALSE
+
+		c.umlx_createAndAddGeneralization(self.class.superclass.instance.struts_generateHelper(model)) if self.class.superclass.respond_to?("instance")
+		c.java_customCode=java_helper_customCode
+		java_helper_addMethods!(c)
+		return c
+	end
+	def java_helper_customCode
+		return if self.class==DatatypeMapping
+		return <<END
+protected #{java_Name}() {};
+private static #{java_Name} instance=new #{java_Name}();
+public #{java_Name} getInstance() {
+	return instance;
+	}
+
+public #{java_getType} parse(final String str,final #{java_getType} nullCast ) {
+	#{if respond_to?(:java_getJavaParse)
+	 	"return #{java_getJavaParse("str")};"
+	else
+		%{throw new java.lang.RuntimeException("Method not implemented");}
+	end
+	}
+}
+
+public String toString(final #{java_getType} elt) {
+	#{if respond_to?(:java_getJavaToString)
+	 	"return #{java_getJavaToString("elt")};"
+	else
+		%{throw new java.lang.RuntimeException("Method not implemented");}
+	end
+	}
+}
+
+END
+	end
+
+	def java_helper_addMethods!(c)
+		return
+		m=c.umlx_createAndAddOperation(self.rdf_uri+"_parse","parse")
+		r=m.umlx_createAndAddReturnParameter(m.rdf_uri+"ret")
+		r.uml_type=c.umlx_getOrCreateClass("java.lang.Object") #TODO
+
+		r=m.umlx_createAndAddParameter(m.rdf_uri+"tr","tr")
+		r.uml_type=c.umlx_dataType_string
+
+		m=c.umlx_createAndAddOperation(self.rdf_uri+"_parse","to_s")
+		r=m.umlx_createAndAddReturnParameter(m.rdf_uri+"ret")
+		r.uml_type=c.umlx_getOrCreateClass("java.lang.Object") #TODO
+
+		r=m.umlx_createAndAddParameter(m.rdf_uri+"elt","elt")
+		r.uml_type=c.umlx_dataType_string
+
+	end
+
+end
+
+class DatatypeMapping
+end
+