ontomde-java 2.0.0

data/lib/ontomde-java/frontend/steps.rb

@@ -0,0 +1,287 @@
+
+# default generation workflow
+# used by default implemetation of #getGenerationChain
+#Default steps:
+# #step_initComponent, #step_load, #step_addTenant, #step_generateKb, #step_generateCustomDTO, #step_bpm, #step_generate_tests , #step_transform10 ,
+# #step_transform20,  #step_transform30,  #step_transform40,  #step_generate_java, #step_generate_xsd,
+# #step_generate_struts,  #step_generate_crank,  #step_generate_misc,  #step_generate_flex, #step_clean
+DEFAULT_GENERATION_CHAIN=[
+  [:load , :step_load],
+  [:tenant , :step_addTenant],  
+  [:kb , :step_generateKb],  
+  [:bpm , :step_bpm],
+  [:tests , :step_generate_tests],
+  [:mda1 , :step_transform10],
+  [:mda2 , :step_transform20],
+  [:initComponent, :step_initComponent],
+  [:dto , :step_generateCustomDTO ],
+  [:mda3 , :step_transform30],
+  [:mda4 , :step_transform40],
+  [:java , :step_generate_java],
+  [:xsd , :step_generate_xsd],
+  [:jsp , :step_generate_struts],
+  [:crank , :step_generate_crank],
+  [:misc , :step_generate_misc],
+  [:flex , :step_generate_flex],
+  [:clean, :step_clean]]
+
+# returns generation workflow as an array of steps.
+# a step is an array of a label and a method name.
+# 
+#Example:
+# [[:load,: #step_load ],[:java,: #step_generate_java ]]
+def getGenerationChain
+  return DEFAULT_GENERATION_CHAIN
+end
+
+#calls a generation step name stepMethodName on model 
+
+#Examples of stepMethodName include #step_load, #step_bpm.
+def callStep(model, stepMethodName)
+  cmd="#{stepMethodName}(model)"
+  eval(cmd)
+end
+
+
+# load meta-model(s) and model(s)
+def step_load(model)
+  if model.context[:bpm]
+    say "loading bpm meta-model"
+    model.bpm_loadBPM
+  end
+  say "loading UML2 meta-model"
+  model.loadUml2
+  i=0
+  model.context[:nt].each { |f|
+    i=i+1
+    say "loading uml data from '#{f}'" if model.context[:verbose]
+    model.loadModelFromFile(f)
+  }
+  
+  model.umlx_processUnrootedElements! # required for EA incremental loading
+  model.umlx_processShortcuts!
+
+  model.context[:jpdl].each { |f|
+    i=i+1
+    say "loading bpm data from'#{f}'" if model.context[:verbose]
+    model.bpm_loadJPDL(f)
+  }
+  say "# Loaded #{i} model(s)." if model.context[:verbose]
+  model.inspector_start_daemon(model.context[:startupFile]) if model.context[:inspectorAfterLoad]
+end
+
+#add tenant information to model
+def step_addTenant(model)
+  return unless model.context[:multiTenant]
+  puts "adding tenants"
+  model.java_addTenantClass!
+  model.java_addTenantFields!
+  #tenant is added before generateKb to be available in kb.
+end
+
+# Generate protege 2000 knowlege base
+def step_generateKb(model) 
+  
+  # Pre-generation  
+  #model.umlx_autoImplementProperty! if model.context[:withAutoImplementProperty]
+  #model.umlx_autoImplementOperation! if model.context[:withAutoImplementOperation]
+  
+  if model.context[:updateTestDataProject]
+    say "generating KB project and schema"
+    model.generateRDFS(model.context[:testDataProject])
+  end
+  
+  if model.context[:enableTestData] || model.context[:webservice]
+    say "loading KB project data"
+    ignoreheader=true
+    data_model=Crdf_ProtegeDataModel.new
+    data_model.loadMetaModelFromFile(model.context[:testDataRDFS],ignoreheader)
+    data_model.loadModelFromFile(model.context[:testDataRDF],ignoreheader)
+    data_model.kbjava_umlSourceModel = model
+    model[:dataModel]=data_model
+  end
+end
+
+# Process bpm enhancement.
+def step_bpm(model)
+  return unless model.context[:bpm]
+  say "processing bpm"
+  model.bpm_addPingNode!
+  model.bpm_handleProcessMethods!
+  model.bpm_transform!
+  #model.bpm_graphGen_dot
+end
+
+# generate custom DTO based on business objects 
+# and setup from protege.
+def step_generateCustomDTO(model)
+  model.dto_generateCustomDTO()
+end
+
+# Enhance UML model
+def step_transform10(model)
+  say "processing UML model structure"
+  model.umlx_tryToSalvageErrors!
+  model.struts_createDataTypeHelpers! if model.context[:struts]
+
+  model.java_addJavaEnumInterface!
+  model.umlx_makeCompositionNavigable!
+  model.java_contextualizeStaticProperties! if model.context[:contextualizeStaticProperties]
+  model.umlx_mapMultipleInheritanceToInterface! if model.context[:withMultipleInheritance]
+
+  model.umlx_checkAbstractAndInheritance
+
+  model.umlx_generateCompositonDotDiagram
+  if model.context[:ejb2]
+    model.ejb2_transform!
+  end
+  #Should be placed before autoImplementoperation: otherwise autoImplementedMethod are not considered as business method
+  model.umlx_MarkAllAsbusinessMethod!
+  
+  model.java_addEnumAssignable! if model.context[:withEnumAssignable]
+  model.umlx_autoImplementProperty! if model.context[:withAutoImplementProperty]
+  model.umlx_autoImplementOperation! if model.context[:withAutoImplementOperation]
+  
+  
+  model.java_processComponents! if model.context[:webservice]
+
+  model.java_addGroovyImplementations! if model.context[:groovyExperimental]
+  model.java_addStateMachine! if model.context[:statemachine]
+  
+  model.struts_addAllOperationAggregateParameterClass!
+  model.java_addEnumCompatibilityLayerProperties! if model.context[:withEnumAsString]
+  model.db_addDAO! if model.context[:db]
+  model.java_transform!
+end
+def step_transform20(model)
+  
+  
+
+  model.db_addPersistence! if model.context[:db]
+
+  model.struts_addActionLocaleForm! if model.context[:struts]
+  model.struts_addPerClassElement! if model.context[:struts]
+
+  model.db_addTestImplementations! if model.context[:simulateNotImplementedMethods]
+  # model.struts_installRessources if model.context[:installRessources ]
+  model.struts_getFunctionalException if model.context[:struts]
+end
+def step_transform30(model)
+  model.struts_getExceptionHandlerClass if model.context[:struts]
+  model.uml_addVersionSignature
+
+  if model.context[:crank]
+    model.crank_generate_context
+    model.crank_generate_validation
+  end
+  model.umlx_populateSecuredMethodEnumeration if model.context[:security]
+  model.umlx_populateScriptedMethodEnumeration if model.context[:script]
+end
+def step_transform40(model)
+  model.umlx_populateSecuredPropertyEnumeration if model.context[:security]
+  model.umlx_processSecuredElements if model.context[:security]
+  
+  model.umlx_processScriptedElements if model.context[:script]
+  model.umlx_pruneEmptyEnums! if model.context[:pruneEmptyEnums]
+end
+
+#process tests loaded from protege/2000 and generate test artefacts.
+def step_generate_tests(model)
+  if(model.context[:enableTestData])
+    say "processing tests"
+    data_model=model[:dataModel]
+    data_model.kbjava_generateJavaJunit!
+    data_model.mtk_context(:build=>%{#{model.context[:testRelativeDir]}}) {
+      data_model.kbjava_generate
+    }
+  end
+end
+
+#write java files to disk
+def step_generate_java(model)
+  if model.context[:hasGlobalReverse]
+    say "Reversing java files"
+    model.java_addJavaAnnotationOntoMDE!
+    
+    model.context[:reverseGlobalMap]={}
+    model.context[:reversedFiles]=[]
+    model.context[:requireReverseExtensions]=[]
+    if model.context[:readGlobalReverseFile]
+      if !(model.mtk_retrieveProtected(model.context[:globalReverseFile],FileTypeJava.instance))
+        raise Warning.new,"#{model.context[:globalReverseFile]} doesn't exist. Add --no-readGlobalReverseFile option if it's normal."
+      end
+    end
+  end
+  say "Generating/Updating java files"
+  model.java_generateRepository
+end
+#write java files to disk
+def step_generate_xsd(model)
+  return unless model.context[:generateXSD]
+  say "processing xsd"
+  model.xsd_generateSchemaElements!
+  model.xsd_generate_all
+end
+
+#write struts files to disk
+def step_generate_struts(model)
+  return if model.context[:excludeNonTestFiles]
+  if(model.context[:struts])
+    say "processing struts"
+    model.struts_generate_webxml
+    model.struts_struts_config_generate
+    model.struts_validator_generate
+    model.struts_validation_generate
+    model.struts_copyReloadDefinitionsActionClass
+
+    model.struts_index_generate
+    model.struts_edit_generate
+    model.struts_messageResources_generate
+    model.struts_generateSpringApplicationContext
+  end
+end
+
+#generate misc. artefacts
+def step_generate_misc(model)
+  return if model.context[:excludeNonTestFiles]
+  say "processing misc."
+  model.db_saveDB_DISCRIMINATOR if model.context[:db]
+  model.db_generateConfiguration if model.context[:db]
+  model.java_generateAntBuildFile
+  model.java_generatePackageDoc
+
+end
+
+#generate flex artefacts
+def step_generate_flex(model)
+  return unless model.context[:flex]
+  say "processing flex"
+  model.mtk_context(:javaDir => "#{model.context[:flexDir]}/src/", :javaFilePathRegexp => nil) {
+    model.flex_generateVO
+    model.flex_generateMXML
+  }
+  model.mtk_context(:javaDir => "#{model.context[:flexDir]}/script/", :javaFilePathRegexp => nil) {
+    model.flex_generateImportationAS
+  }
+end
+
+def step_generate_crank(model)
+  return if model.context[:excludeNonTestFiles]
+  if(model.context[:crank])
+    model.crank_generate_facesconfig
+    model.crank_generate_facelets
+    model.crank_generate_home
+    
+  end
+end
+
+def step_initComponent(model)
+  model.java_autoGenerateCrudComponents! if model.context[:webservice]
+  model.umlx_autoCreateImplicitComponent! if model.context[:withGenerateImplicitComponent]
+end
+
+# cleanup temporary files
+def step_clean(model)
+  mtk_deleteTempFiles
+end
+

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

@@ -0,0 +1,528 @@
+module Muml_Classifier
+  
+  # returns access method access to current element 
+  # (empty if static context, this otherwise)
+  def java_this(oa)
+    return "" if oa.uml_isStatic?
+    return "this."
+  end
+  
+  # returns default suggester body code.
+  # (this method is often overwritten, especially by persistence module).
+  def java_writeSuggesterBody(oa)
+    #TODO: recherche du composite commun
+    write("return null;\n")
+  end
+
+  # Write code for a composition createAndAdd suggester
+  #see: #java_writeSuggesterBodyEnumWithType
+  def java_writeSuggesterTypeBodyEnum(oa,isCreateAndAdd=false)
+    java_writeSuggesterBodyEnumWithType(oa,oa.uml_type_one.java_enumAssignableDataType_one,isCreateAndAdd)
+  end
+
+  # Write code for a suggester for a parameter enum
+  #see: #java_writeSuggesterBodyEnumWithType
+  def java_writeSuggesterBodyEnum(oa)
+    java_writeSuggesterBodyEnumWithType(oa,oa.uml_type_one)
+  end
+  
+  # Write code for a suggester returning enum given has parameter
+  #Note: if lowerValue is zero, null is also added (except if createAndAdd)
+  def java_writeSuggesterBodyEnumWithType(oa,enum,isCreateAndAddSuggester=false)
+    write <<END
+	java.util.ArrayList<#{enum.java_qualifiedName}> ret=new java.util.ArrayList<#{enum.java_qualifiedName}>();
+	#{ (oa.umlx_lowerValueIsZero? && (!isCreateAndAddSuggester))  ? %{ret.add(null);} : %{} }
+	for(int i=java.lang.reflect.Array.getLength(#{enum.java_qualifiedName}.values())-1; i>=0 ; i--){
+		ret.add(#{enum.java_qualifiedName}.values()[i]);
+		}
+	return ret;
+END
+  end
+
+  # Returns an UML LiteralInteger initialized with val value.
+  # 
+  #Example:
+  # * umlx_literal(45)
+  # * umlx_literal("45")
+  def umlx_literal(val)
+    r=Cuml_LiteralInteger.new(rdf_Repository,nil)
+    r.uml_value=val
+    return r
+  end
+
+  #Adds a remover for parameter oa using a model transformation.
+  #
+  #NOTE:
+  #* A new operation is added to the UML model. The operation then generated using standard operation generator.
+  #* Remover is only generated for multi-valued property
+  #* If property is part of a *bidirectional* association, code is generated to update automaticaly the other side of the association.
+  def java_addRemover!(oa)
+    return unless context[:java_addRemover,true]
+    return if oa.umlx_upperValueIsOne?
+    return if oa.java_isSuggester?
+    return if oa.uml_isReadOnly?
+    set=java_createAndAddMethodFromProperty(oa,"remove",true)
+
+    if oa.uml_qualifier.empty?
+      qualCall=""
+      qualInit=""
+      qualCheckRemove=""
+    else
+      qualCall=".get(#{oa.uml_qualifier_one.java_Name})"
+      qualInit="//#{java_this(oa)}#{oa.java_NameProperty}.put(#{oa.uml_qualifier_one.java_Name},new java.util.HashSet<#{oa.uml_qualifier_one.uml_type_one}>);"
+      qualCheckRemove="==null"
+    end
+
+    ip=Cuml_Parameter.new(rdf_Repository,set.rdf_uri+"_in")
+    ip.uml_name=getterParameterName(oa)
+    ip.uml_direction=Cuml_ParameterDirectionKind::In
+    ip.uml_upperValue=umlx_literal(1)
+    ip.uml_lowerValue=umlx_literal(1)
+    ip.uml_type=oa.uml_type
+    set.uml_ownedParameter_add(ip)
+    oe=oa.umlx_otherEnd
+    if oa.uml_isDerived?
+      #no code when derived
+    elsif oe.nil? || !oe.umlx_isNavigable?
+      set.java_code=<<END
+	#{java_this(oa)}#{oa.java_NameProperty}.remove(#{getterParameterName(oa)});
+END
+    elsif oe.umlx_upperValueIsOne?
+      set.java_code=<<END
+  #{qualInit}
+  if(#{java_this(oa)}#{oa.java_NameProperty}.remove(#{getterParameterName(oa)})#{qualCheckRemove}) {
+		#{getterParameterName(oa)}#{qualCall}.set#{oe.java_NameBean}(null);
+	}
+END
+    else
+      set.java_code=<<END
+	if(#{java_this(oa)}#{oa.java_NameProperty}.remove(#{getterParameterName(oa)})) {
+		#{getterParameterName(oa)}#{qualCall}.remove#{oe.java_NameBean}(this);
+	}
+END
+    end
+
+    if set.java_use_Arrays?
+      set.java_code=nil # TODO: implement
+    end
+
+  end
+
+  #return a warning text to be included in java method if incorrect model is found.
+  def java_qualifierNavigabilityWarning(oa)
+    oe=oa.umlx_otherEnd
+    return "" if oe.nil?
+    return "" if oe.umlx_isNavigable?
+    return <<END
+/*TODO: association other end is navigable (#{oe.uml_name}).
+  Because extrinsic qualifier key is not computable, there is no way a computer program can guess it.
+  Check your model !
+  If your key is intrisic, you should reconsider your model as it is a redundant functional qualifier.
+  You should take appropriate action or your data model could be corrupted
+  as association other end will not be updated.
+*/
+END
+  end
+
+  def java_addQualifiedRemover!(oa)
+  end
+
+  def java_addQualifiedAppender!(oa)
+  end
+
+
+
+  def java_writeQualifiedPutterBody(oa)
+    j=""
+    sep=""
+    oa.uml_qualifier.each { |key|
+      j=j+sep+key.java_Name
+      sep=","
+    }
+    write <<END
+{
+#{java_qualifierNavigabilityWarning(oa)}
+if(#{getterParameterName(oa)}==null) {
+    #{java_this(oa)}#{oa.java_NameProperty}.remove(#{j});
+  } else {
+    #{java_this(oa)}#{oa.java_NameProperty}.put(#{j},#{getterParameterName(oa)});
+  }
+}
+END
+  end
+
+
+
+  def java_addAppenderQualifier!(oa)
+    return unless context[:java_addAppenderQualifier,true]
+    return if oa.umlx_upperValueIsOne?
+    return if oa.uml_qualifier.empty?
+    return if oa.umlx_isComposite?
+    return if oa.uml_isReadOnly?
+    add=java_createAndAddMethodFromProperty(oa,"add",true)
+
+    ip=Cuml_Parameter.new(rdf_Repository,add.rdf_uri+"_in")
+    ip.uml_name=getterParameterName(oa)
+    ip.uml_direction=Cuml_ParameterDirectionKind::In
+    ip.uml_upperValue=umlx_literal(1);
+    ip.uml_lowerValue=umlx_literal(1);
+    ip.uml_type=oa.uml_type
+    add.uml_ownedParameter_add(ip)
+    oe=oa.umlx_otherEnd
+
+    qualCall=".get(#{oa.uml_qualifier_one.java_Name})"
+    qualInit="//#{java_this(oa)}#{oa.java_NameProperty}.put(#{oa.uml_qualifier_one.java_Name},new java.util.HashSet<#{oa.uml_qualifier_one.uml_type_one}>);"
+
+    if oa.uml_isDerived?
+      # no code when derived
+    elsif true #TODO:remetre le test oe.nil? || !oe.umlx_isNavigable?
+      add.java_code=<<END
+	//TODO:
+	if(#{ip.java_Name}==null) { return; }
+	#{qualInit}
+	#{java_this(oa)}#{oa.java_NameProperty}#{qualCall}.add(#{ip.java_Name});
+END
+    elsif oe.umlx_upperValueIsOne?
+      #*-1
+      add.java_code=<<END
+	if(#{ip.java_Name}==null) { return; }
+	if(#{java_this(oa)}#{oa.java_NameProperty}#{qualCall}.add(#{ip.java_Name})){
+		#{ip.java_Name}.set#{oe.java_NameBean}(this);
+		}
+END
+    else
+      #*-*
+      add.java_code=<<END
+	if(#{ip.java_Name}==null) { return; }
+	if(#{java_this(oa)}#{oa.java_NameProperty}#{qualCall}.add(#{ip.java_Name})) {
+		#{ip.java_Name}.remove#{oe.java_NameBean}(this);
+		}
+END
+    end
+  end
+
+  #Adds a creater for parameter oa using a model transformation.
+  #
+  #NOTE:
+  #* A new operation is added to the UML model. The operation then generated using standard operation generator.
+  #--
+  #TODO: implementer methodes
+  def java_addCreater!(oa)
+    return unless context[:java_addCreater,true]
+    return if oa.umlx_upperValueIsOne?
+    #return unless oa.uml_qualifier.empty?
+    return unless oa.umlx_isComposite?
+    get=java_createAndAddMethodFromProperty(oa,"create",false)
+
+    tenantClause=""
+    if context[:multiTenant]
+      #call constructor with tenant
+      tenantClause="(#{TENANT_FIELD_NAME})"
+    end
+    
+    rp=Cuml_Parameter.new(rdf_Repository,get.rdf_uri+"_p1")
+    rp.uml_name="return"
+    rp.uml_direction=Cuml_ParameterDirectionKind::Return
+    rp.uml_upperValue=oa.uml_upperValue
+    rp.uml_lowerValue=oa.uml_lowerValue
+    rp.uml_type=oa.uml_type
+    rp.uml_qualifier=oa.uml_qualifier
+    get.uml_ownedParameter_add(rp)
+    if oa.umlx_upperValueIsOne?  || !oa.uml_qualifier.empty?
+      j="{ new return #{oa.java_NameProperty}#{tenantClause}"
+      sep_next=".get("
+      sep_end=""
+      j=j+sep_end  +";}"
+      #get.java_code=j
+    else
+      #on ne peut pas permetre la modification de la liste en direct
+      #get.java_code="{ return new java.util.HashSet<#{oa.uml_type_one.java_qualifiedName}>(#{oa.java_NameProperty}); }"
+    end
+  end
+
+  #Adds a createAndAdd method for parameter oa using a model transformation.
+  #
+  #NOTE:
+  #* A new operation is added to the UML model. The operation then generated using standard operation generator.
+  #* operation is only generated for multi-valued property
+  #* operation is only generated for a composite association end.
+  def java_addCreateAndAppender!(oa)
+    #method cannot be generated if required enum assignable is not on.
+    return unless context[:withEnumAssignable]
+    return unless context[:java_addAppender,true]
+    #return if oa.umlx_upperValueIsOne?
+    return unless oa.uml_qualifier.empty?
+    return unless oa.umlx_isComposite?
+    return if oa.java_isSuggester?
+
+    add=umlx_createAndAddOperation(rdf_uri+"_createAndAdd#{oa.java_NameBean}","createAndAdd#{oa.java_NameBean}")
+
+    rp=add.umlx_createAndAddReturnParameter(add.rdf_uri+"_ret")
+    rp.uml_upperValue=umlx_literal(1);
+    rp.uml_lowerValue=umlx_literal(1);
+    rp.uml_type=oa.uml_type
+
+    #ip=add.umlx_createAndAddParameter(add.rdf_uri+"_type")
+    #ip.uml_name="type"
+    #ip.uml_upperValue=umlx_literal(1);
+    #ip.uml_lowerValue=umlx_literal(1);
+    #ip.uml_type=oa.uml_type
+
+
+    tp=add.umlx_createAndAddParameter(oa.rdf_uri+"_reqType","requestedType")
+    tp.uml_type=oa.uml_type_one.java_enumAssignableDataType_one
+
+    #if  oa.uml_type_one.uml_isAbstract?
+    # ******************************
+    # TODO: implement type selector
+    # ******************************
+    # no java code generated
+
+    #TODO: factorize in helper class
+    add.java_code=%{
+		if (requestedType==null) {
+			return null;
+		}
+		String qname=requestedType.name().replaceAll("#{JAVA_MAGIC_DOT_STRING}",".");
+		try {
+			// c=#{java_this(oa)}getClass().getClassLoader().loadClass(requestedType.name());
+    Class<?> t = Class.forName(qname);
+    Class<?>[] p = new Class[0];
+    Object[]initArgs =new Object[0];
+    java.lang.reflect.Constructor<?>  c=t.getConstructor(p);
+    #{oa.uml_type_one.java_qualifiedName} ret=(#{oa.uml_type_one.java_qualifiedName})c.newInstance(initArgs);
+    #{%{ret.setTenantOwner(getTenantOwner());} if context[:multiTenant]}
+    #{oa.umlx_upperValueIsOne? ? "set" : "add"}#{oa.java_NameBean}(ret);
+    return ret;
+		} catch (ClassNotFoundException e) {
+			e.printStackTrace();
+			throw new RuntimeException("Missing type "+qname,e);
+		} catch (NoSuchMethodException e) {
+			e.printStackTrace();
+			throw new RuntimeException("Missing default constructor for"+qname,e);
+		} catch (IllegalAccessException e) {
+			e.printStackTrace();
+			throw new RuntimeException("Illegal access Exception on "+qname,e);
+		} catch (InstantiationException e) {
+			e.printStackTrace();
+			throw new RuntimeException("Instantiation exception on "+qname,e);
+		} catch (java.lang.reflect.InvocationTargetException e) {
+			e.printStackTrace();
+			throw new RuntimeException("Invocation Target Exception on "+qname,e);
+		}}
+  end
+
+  # Adds an appender for parameter oa using a model transformation.
+  #
+  #NOTE:
+  # * A new operation is added to the UML model. The operation then generated using standard operation generator.
+  # * operation is only generated for multi-valued property
+  # * If property is part of a *bidirectional* association, code is generated to update automaticaly the other side of the association.
+  def java_addAppender!(oa)
+    return unless context[:java_addAppender,true]
+    return if oa.umlx_upperValueIsOne?
+    return unless oa.uml_qualifier.empty?
+    return if oa.java_isSuggester?
+    #return if oa.umlx_isComposite?
+    return if oa.uml_isReadOnly?
+    add=java_createAndAddMethodFromProperty(oa,"add",true)
+
+    ip=Cuml_Parameter.new(rdf_Repository,add.rdf_uri+"_in")
+    ip.uml_name=getterParameterName(oa)
+    ip.uml_direction=Cuml_ParameterDirectionKind::In
+    ip.uml_upperValue=umlx_literal(1);
+    ip.uml_lowerValue=umlx_literal(1);
+    ip.uml_type=oa.uml_type
+    add.uml_ownedParameter_add(ip)
+    oe=oa.umlx_otherEnd
+
+    if oa.uml_isDerived?
+      # no code generated
+    elsif (oe.nil? || !oe.umlx_isNavigable?) && !oa.java_use_Arrays?
+      add.java_code=<<END
+	if(#{getterParameterName(oa)}==null) { return; }
+	#{java_this(oa)}#{oa.java_NameProperty}.add(#{getterParameterName(oa)});
+END
+    elsif (oe.nil? || !oe.umlx_isNavigable?) && oa.java_use_Arrays?
+      add.java_code=<<END
+	if(#{getterParameterName(oa)}==null) { return; }
+	#{oa.uml_type_one.java_qualifiedName}[] newArray=null;
+	if (#{java_this(oa)}#{oa.java_NameProperty}==null) {
+		newArray=new #{oa.uml_type_one.java_qualifiedName}[1];
+		newArray[0]=#{getterParameterName(oa)};
+	} else {
+		newArray=new #{oa.uml_type_one.java_qualifiedName}[1+#{java_this(oa)}#{oa.java_NameProperty}.length];
+		System.arraycopy(#{java_this(oa)}#{oa.java_NameProperty}, 0, newArray,0, #{java_this(oa)}#{oa.java_NameProperty}.length);
+		newArray[#{java_this(oa)}#{oa.java_NameProperty}.length]=#{getterParameterName(oa)};
+	}
+	#{java_this(oa)}#{oa.java_NameProperty}=newArray;
+END
+
+
+    elsif oe.umlx_upperValueIsOne?
+      #*-1
+      add.java_code=<<END
+	if(#{getterParameterName(oa)}==null) { return; }
+	if(#{java_this(oa)}#{oa.java_NameProperty}.add(#{getterParameterName(oa)})){
+		#{getterParameterName(oa)}.set#{oe.java_NameBean}(this);
+		}
+END
+    else
+      #*-*
+      # second test avoids loop
+      add.java_code=<<END
+	if(#{getterParameterName(oa)}==null) { return; }
+	if(#{java_this(oa)}#{oa.java_NameProperty}.add(#{getterParameterName(oa)})) {
+		#{getterParameterName(oa)}.add#{oe.java_NameBean}(this);
+		}
+END
+    end
+
+  end
+
+
+  def java_addWithIndexAppenderBody(oa,oe,ip,ip2)
+    if oe.nil? || !oe.umlx_isNavigable?
+      write <<END
+	if(#{getterParameterName(oa)}==null) { return; }
+	#{oa.java_NameProperty}.add(#{ip2.java_Name}, #{ip.java_Name});
+END
+    end
+  end
+
+  # writes to current output global getter body which return the variable directly (not a subset).
+  # 
+  #Example:
+  #  return myVariable;
+  #Reference:
+  # * #getterParameterName
+  # * #java_isEnumStringMapping 
+  # * #java_writeEnumStringMappingGetterCode
+  # * #java_getCollectionMapping
+  def java_writeGlobalGetterBody(oa)
+    return if oa.uml_isDerived?  && oa.umlx_stringMappingForEnum.empty?
+
+    if java_isEnumStringMapping?(oa)
+      java_writeEnumStringMappingGetterCode(oa)
+
+    elsif oa.umlx_upperValueIsOne?  || !oa.uml_qualifier.empty?
+      j="return #{oa.java_NameProperty}"
+      sep_next=".get("
+      sep_end=""
+      #oa.uml_qualifier.each { |key|
+      #	j=j+sep_next+key.uml_name_one
+      #	sep_next=","
+      #	sep_end=")"
+      #}
+      j=j+sep_end  +";"
+      write j
+    else
+      #on ne peut pas permettre la modification de la liste en direct
+      write %{
+if(#{oa.java_NameProperty}!=null){
+	return #{oa.java_NameProperty};
+} else {
+	return #{oa.java_getCollectionMapping.addNew(oa.uml_type_one.java_qualifiedName)};
+}}
+    end
+  end
+
+  # writes to current output global setter body which return the variable directly (not a subset).
+  # 
+  #Example:
+  #  return myVariable;
+  #Reference:
+  # * #getterParameterName
+  # * #java_isEnumStringMapping 
+  # * #java_writeEnumStringMappingSetterCode
+  # * #java_getCollectionMapping
+  def java_writeGlobalSetterBody(oa)
+    return if oa.uml_isDerived?  && oa.umlx_stringMappingForEnum.empty?
+
+    oe=oa.umlx_otherEnd
+    if java_isEnumStringMapping?(oa)
+      java_writeEnumStringMappingSetterCode(oa)
+    elsif  !oa.uml_qualifier.empty? || (!oe.nil? && oe.umlx_isNavigable? && !oe.uml_qualifier.empty?)
+      #TODO: gerer bi-nav et qualifier
+      write "//TODO: bi-navigability\n #{oa.java_NameProperty}=#{getterParameterName(oa)};"
+    elsif (oe.nil?) ||  (!oe.umlx_isNavigable?)
+      # other end is non navigable.
+      #begin
+      #if oa.uml_qualifier.empty?
+      write "#{java_this(oa)}#{oa.java_NameProperty}=#{getterParameterName(oa)};"
+      #else
+      #	j="{ #{oa.java_NameProperty}.put("
+      #	sep=""
+      #	oa.uml_qualifier.each { |qual|
+      #		j=j+sep+qual.java_NameProperty
+      #		sep=","
+      #		}
+      #	j=j+sep+"#{ip.uml_name});}"
+      #	set.java_code=j
+      #end
+      #end
+    elsif oa.umlx_upperValueIsOne? && oe.umlx_upperValueIsOne?
+      # 1<->1
+      #Ne pas enlver le =null (bloque la recursion)
+      write <<END
+		if(#{java_this(oa)}#{oa.java_NameProperty}==#{getterParameterName(oa)}) { return ;}
+		#{oa.uml_type_one.java_qualifiedName} previous=#{java_this(oa)}#{oa.java_NameProperty};
+
+		#{java_this(oa)}#{oa.java_NameProperty}=null;
+		if(previous!=null) { previous.set#{oe.java_NameBean}(null); }
+
+		#{java_this(oa)}#{oa.java_NameProperty}=#{getterParameterName(oa)};
+		if(#{getterParameterName(oa)}!=null) { #{getterParameterName(oa)}.set#{oe.java_NameBean}(this); }
+END
+
+    elsif oa.umlx_upperValueIsOne? && (!oe.umlx_upperValueIsOne?)
+      # 1<->*
+      write <<END
+		if(#{oa.java_NameProperty}!=null && #{oa.java_NameProperty}.equals(#{getterParameterName(oa)})) { return ;}
+		#{oa.uml_type_one.java_qualifiedName} previous=#{oa.java_NameProperty};
+		
+		#{oa.java_NameProperty}=null;
+		if(previous!=null) { previous.remove#{oe.java_NameBean}(this); }
+
+		#{java_this(oa)}#{oa.java_NameProperty}=#{getterParameterName(oa)};
+		if(#{getterParameterName(oa)}!=null) { #{getterParameterName(oa)}.add#{oe.java_NameBean}(this); }
+END
+    else # *<->1 and *<->*
+      write <<END
+		#{oa.java_propertyAssociationType} toBeRemoved=new #{oa.java_propertyAssociationConcreteType}();
+		for(#{oa.uml_type_one.java_qualifiedName} item:#{oa.java_NameProperty}) {
+			if(#{getterParameterName(oa)}!=null && #{getterParameterName(oa)}.contains(item)) { continue;}
+			toBeRemoved.add(item);
+		}
+		for(#{oa.uml_type_one.java_qualifiedName} item:toBeRemoved) {
+			#{java_this(oa)}remove#{oa.java_NameBean}(item);
+		}
+		if(#{getterParameterName(oa)}==null) { return ; }
+		for(#{oa.uml_type_one.java_qualifiedName} item:#{getterParameterName(oa)}) {
+			#{java_this(oa)}add#{oa.java_NameBean}(item);
+		}
+END
+    end
+  end
+
+  # writes to current output getter body when a qualifier (~hashtable) is used.
+  # Qualifier parameters are used as parameter.
+  # 
+  #Example:
+  #  return myVariable;
+  #Reference:
+  # * #getterParameterName
+  # * #java_isEnumStringMapping 
+  # * #java_writeEnumStringMappingSetterCode
+  # * #java_getCollectionMapping
+  def java_writeQualifiedGetterBody(oa)
+    write("return   #{oa.java_NameProperty}.get(")
+    sep=""
+    oa.uml_qualifier.each { |key|
+      write(sep)
+      sep=","
+      write(key.java_Name)
+    }
+    write(");\n")
+  end
+end