puppet 4.10.0 → 5.0.0

data/lib/puppet/vendor/rgen/lib/ea_support/uml13_ea_metamodel_generator.rb

@@ -1,43 +0,0 @@
-require 'metamodels/uml13_metamodel'
-require 'mmgen/metamodel_generator'
-require 'rgen/transformer'
-require 'rgen/environment'
-require 'rgen/ecore/ecore'
-
-include MMGen::MetamodelGenerator
-
-class ECoreCopyTransformer < RGen::Transformer
-  copy_all RGen::ECore
-end
-
-eaMMRoot = ECoreCopyTransformer.new.trans(UML13.ecore)
-
-eaMMRoot.name = "UML13EA"
-eaMMRoot.eClassifiers.find{|c| c.name == "ActivityGraph"}.name = "ActivityModel"
-eaMMRoot.eClassifiers.find{|c| c.name == "Pseudostate"}.name = "PseudoState"
-
-compositeState = eaMMRoot.eClassifiers.find{|c| c.name == "CompositeState"}
-compositeState.eReferences.find{|r| r.name == "subvertex"}.name = "substate"
-
-generalization = eaMMRoot.eClassifiers.find{|c| c.name == "Generalization"}
-generalization.eReferences.find{|r| r.name == "parent"}.name = "supertype"
-generalization.eReferences.find{|r| r.name == "child"}.name = "subtype"
-
-assocEnd = eaMMRoot.eClassifiers.find{|c| c.name == "AssociationEnd"}
-assocEnd.eAttributes.find{|r| r.name == "ordering"}.name = "isOrdered"
-assocEnd.eAttributes.find{|r| r.name == "changeability"}.name = "changeable"
-assocEnd.eAttributes.find{|r| r.name == "isOrdered"}.eType = RGen::ECore::EBoolean
-assocEnd.eAttributes.find{|r| r.name == "changeable"}.eType.eLiterals.find{|l| l.name == "frozen"}.name = "none"
-multRef = assocEnd.eStructuralFeatures.find{|f| f.name == "multiplicity"}
-multRef.eType = nil
-assocEnd.removeEStructuralFeatures(multRef)
-assocEnd.addEStructuralFeatures(RGen::ECore::EAttribute.new(:name => "multiplicity", :eType => RGen::ECore::EString))
-
-xmiIdProvider = RGen::ECore::EClass.new(:name => "XmiIdProvider", :ePackage => eaMMRoot)
-eaMMRoot.eClassifiers.each do |c|
-  if %w(Package Class Generalization Association AssociationEnd StateVertex).include?(c.name)
-    c.addESuperTypes(xmiIdProvider)
-  end
-end
-
-generateMetamodel(eaMMRoot, File.dirname(__FILE__)+"/uml13_ea_metamodel.rb")

data/lib/puppet/vendor/rgen/lib/ea_support/uml13_ea_to_uml13.rb

@@ -1,103 +0,0 @@
-require 'rgen/transformer'
-require 'metamodels/uml13_metamodel'
-require 'ea_support/uml13_ea_metamodel'
-
-class UML13EAToUML13 < RGen::Transformer
-  include UML13EA
-  
-  def transform
-    trans(:class => Package)
-    trans(:class => Class)
-    @env_out.find(:class => UML13::Attribute).each do |me|
-      # remove tagged vales internally used by EA which have been converted to UML
-      me.taggedValue = me.taggedValue.reject{|tv| ["lowerBound", "upperBound"].include?(tv.tag)}
-    end
-  end
-  
-  def cleanModel
-    @env_out.find(:class => UML13::ModelElement).each do |me|
-      me.taggedValue = []
-    end
-  end
-  
-  copy_all UML13EA, :to => UML13, :except => %w(
-    XmiIdProvider
-    AssociationEnd AssociationEndRole
-    StructuralFeature
-    Attribute
-    Generalization
-    ActivityModel 
-    CompositeState 
-    PseudoState
-    Dependency
-  )  
-    
-  transform AssociationEndRole, :to => UML13::AssociationEndRole do
-    copyAssociationEnd
-  end
-
-  transform AssociationEnd, :to => UML13::AssociationEnd do
-    copyAssociationEnd
-  end
-  
-  def copyAssociationEnd
-    copy_features :except => [:isOrdered, :changeable] do
-      {:ordering => isOrdered ? :ordered : :unordered,
-       :changeability => {:none => :frozen}[changeable] || changeable,
-       :aggregation => {:shared => :aggregate}[aggregation] || aggregation,
-       :multiplicity => UML13::Multiplicity.new(
-        :range => [UML13::MultiplicityRange.new(
-          :lower => multiplicity && multiplicity.split("..").first,
-          :upper => multiplicity && multiplicity.split("..").last)])}
-    end
-  end
-
-  transform StructuralFeature, :to => UML13::StructuralFeature, 
-    :if => lambda{|c| !@current_object.is_a?(UML13EA::Attribute)} do
-    copy_features :except => [:changeable] do
-      {:changeability => {:none => :frozen}[changeable] }
-    end
-  end
-
-  transform StructuralFeature, :to => UML13::Attribute, 
-    :if => lambda{|c| @current_object.is_a?(UML13EA::Attribute)} do
-    _lowerBound = taggedValue.find{|tv| tv.tag == "lowerBound"}
-    _upperBound = taggedValue.find{|tv| tv.tag == "upperBound"}
-    if _lowerBound || _upperBound
-      _multiplicity = UML13::Multiplicity.new(
-        :range => [UML13::MultiplicityRange.new(
-          :lower => (_lowerBound && _lowerBound.value) || "0",
-          :upper => (_upperBound && _upperBound.value) || "1"
-        )])
-    end
-    copy_features :except => [:changeable] do
-      {:changeability => {:none => :frozen}[changeable],
-       :multiplicity => _multiplicity }
-    end
-  end
-
-  transform Generalization, :to => UML13::Generalization do
-    copy_features :except => [:subtype, :supertype] do 
-      { :child => trans(subtype),
-        :parent => trans(supertype) }
-    end
-  end
-  
-  copy ActivityModel, :to => UML13::ActivityGraph
-
-  transform CompositeState, :to => UML13::CompositeState do
-    copy_features :except => [:substate] do
-      { :subvertex => trans(substate) }
-    end
-  end
-  
-  copy PseudoState, :to => UML13::Pseudostate
-
-  transform Dependency, :to => UML13::Dependency do
-    _name_tag = taggedValue.find{|tv| tv.tag == "dst_name"}
-    copy_features do
-      { :name => (_name_tag && _name_tag.value) || "Anonymous" }
-    end
-  end
-  
-end

data/lib/puppet/vendor/rgen/lib/ea_support/uml13_to_uml13_ea.rb

@@ -1,89 +0,0 @@
-require 'rgen/transformer'
-require 'metamodels/uml13_metamodel'
-require 'ea_support/uml13_ea_metamodel'
-require 'ea_support/uml13_ea_metamodel_ext'
-
-class UML13ToUML13EA < RGen::Transformer
-  include UML13
-  
-  def transform
-    trans(:class => Package)
-    trans(:class => Class)
-  end
-  
-  copy_all UML13, :to => UML13EA, :except => %w(
-    ActivityGraph 
-    CompositeState SimpleState
-    Class 
-    Association AssociationEnd AssociationEndRole
-    Generalization
-    Pseudostate    
-    Attribute
-  )  
-  
-  copy ActivityGraph, :to => UML13EA::ActivityModel
-  
-  copy Pseudostate, :to => UML13EA::PseudoState
-  
-  transform CompositeState, :to => UML13EA::CompositeState do
-    copy_features :except => [:subvertex] do
-      { :substate => trans(subvertex) }
-    end
-  end
-  
-  transform SimpleState, :to => UML13EA::SimpleState do
-    copy_features :except => [:container] do
-      { :taggedValue => trans(taggedValue) + 
-        [@env_out.new(UML13EA::TaggedValue, :tag => "ea_stype", :value => "State")] +
-        (container ? [ @env_out.new(UML13EA::TaggedValue, :tag => "owner", :value => trans(container)._xmi_id)] : []) }
-    end
-  end
-  
-  transform Class, :to => UML13EA::Class do
-    copy_features do
-      { :taggedValue => trans(taggedValue) + [@env_out.new(UML13EA::TaggedValue, :tag => "ea_stype", :value => "Class")]}
-    end
-  end
-  
-  transform Association, :to => UML13EA::Association do
-    copy_features do
-      { :connection => trans(connection[1].isNavigable ? [connection[0], connection[1]] : [connection[1], connection[0]]),
-        :taggedValue => trans(taggedValue) + [
-          @env_out.new(UML13EA::TaggedValue, :tag => "ea_type", :value => "Association"),
-          @env_out.new(UML13EA::TaggedValue, :tag => "direction", :value => 
-            connection.all?{|c| c.isNavigable} ? "Bi-Directional" : "Source -&gt; Destination")] }
-    end
-  end
-  
-  transform AssociationEnd, :to => UML13EA::AssociationEnd do 
-    copyAssociationEnd
-  end
-  
-  transform AssociationEndRole, :to => UML13EA::AssociationEndRole do 
-    copyAssociationEnd
-  end
-  
-  def copyAssociationEnd
-    _lower = multiplicity && multiplicity.range.first.lower
-    _upper = multiplicity && multiplicity.range.first.upper
-    copy_features :except => [:multiplicity, :ordering, :changeability] do
-      { :multiplicity => _lower == _upper ? _lower : "#{_lower}..#{_upper}",
-        :isOrdered => ordering == :ordered,
-        :changeable => :none } #{:frozen => :none}[changeability] || changeability}
-    end
-  end
-
-  transform Attribute, :to => UML13EA::Attribute do
-    copy_features :except => [:changeability] do
-      { :changeable => {:frozen => :none}[changeability] }
-    end
-  end
-
-  transform Generalization, :to => UML13EA::Generalization do
-    copy_features :except => [:child, :parent] do
-      { :taggedValue => trans(taggedValue) + [@env_out.new(UML13EA::TaggedValue, :tag => "ea_type", :value => "Generalization")],
-        :subtype => trans(child),
-        :supertype => trans(parent)}
-    end
-  end
-end