rtext 0.2.0

data/test/rtext_test.rb

@@ -0,0 +1,5 @@
+$:.unshift File.dirname(__FILE__)
+
+require 'serializer_test'
+require 'instantiator_test'
+

data/test/serializer_test.rb

@@ -0,0 +1,418 @@
+$:.unshift File.join(File.dirname(__FILE__),"..","lib")
+
+require 'test/unit'
+require 'rgen/environment'
+require 'rgen/metamodel_builder'
+require 'rtext/serializer'
+require 'rtext/language'
+
+class RTextSerializerTest < Test::Unit::TestCase
+
+  class StringWriter < String
+    alias write concat
+  end
+
+  module TestMM
+    extend RGen::MetamodelBuilder::ModuleExtension
+    SomeEnum = RGen::MetamodelBuilder::DataTypes::Enum.new(
+      :name => "SomeEnum", :literals => [:A, :B, :'non-word*chars'])
+    class TestNode < RGen::MetamodelBuilder::MMBase
+      has_attr 'text', String
+      has_attr 'integer', Integer
+      has_attr 'float', Float
+      has_attr 'enum', SomeEnum
+      contains_many 'childs', TestNode, 'parent'
+    end
+  end
+
+  def test_simple
+    testModel = TestMM::TestNode.new(:text => "some text", :childs => [
+      TestMM::TestNode.new(:text => "child")])
+
+    output = StringWriter.new
+    serialize(testModel, TestMM, output)
+
+    assert_equal %Q(\
+TestNode text: "some text" {
+  TestNode text: "child"
+}
+), output 
+  end
+
+  module TestMMFeatureProvider
+    extend RGen::MetamodelBuilder::ModuleExtension
+    class TestNode < RGen::MetamodelBuilder::MMBase
+      has_attr 'attr1', String
+      has_attr 'attr2', String
+      has_attr 'attr3', String
+      contains_many 'childs1', TestNode, 'parent1'
+      contains_many 'childs2', TestNode, 'parent2'
+      contains_many 'childs3', TestNode, 'parent3'
+    end
+  end
+
+  def test_feature_provider
+    testModel = TestMMFeatureProvider::TestNode.new(
+      :attr1 => "attr1",
+      :attr2 => "attr2",
+      :attr3 => "attr3",
+      :childs1 => [TestMMFeatureProvider::TestNode.new(:attr1 => "child1")],
+      :childs2 => [TestMMFeatureProvider::TestNode.new(:attr1 => "child2")],
+      :childs3 => [TestMMFeatureProvider::TestNode.new(:attr1 => "child3")])
+
+    output = StringWriter.new
+    serialize(testModel, TestMMFeatureProvider, output,
+      :feature_provider => proc {|clazz| 
+        clazz.eAllStructuralFeatures.reject{|f| f.name =~ /parent|2$/}.reverse})
+
+    assert_equal %Q(\
+TestNode attr3: "attr3", attr1: "attr1" {
+  childs3:
+    TestNode attr1: "child3"
+  childs1:
+    TestNode attr1: "child1"
+}
+), output 
+  end
+
+  module TestMMUnlabledUnquoted
+    extend RGen::MetamodelBuilder::ModuleExtension
+    class TestNode < RGen::MetamodelBuilder::MMBase
+      has_attr 'unlabled', String
+      has_attr 'unquoted', String
+      has_attr 'both', String
+      has_attr 'none', String
+    end
+  end
+
+  def test_unlabled_unquoted
+    testModel = [
+      TestMMUnlabledUnquoted::TestNode.new(:unlabled => "unlabled", :unquoted => "unquoted", :both => "both", :none => "none"),
+      TestMMUnlabledUnquoted::TestNode.new(:unquoted => "no identifier"),
+      TestMMUnlabledUnquoted::TestNode.new(:unquoted => "true"),
+      TestMMUnlabledUnquoted::TestNode.new(:unquoted => "333"),
+      TestMMUnlabledUnquoted::TestNode.new(:unquoted => "33.3"),
+      TestMMUnlabledUnquoted::TestNode.new(:unquoted => "5x"),
+      TestMMUnlabledUnquoted::TestNode.new(:unquoted => "//")
+    ]
+
+    output = StringWriter.new
+    serialize(testModel, TestMMUnlabledUnquoted, output,
+      :unlabled_arguments => proc {|clazz| ["unlabled", "both"]},
+      :unquoted_arguments => proc {|clazz| ["unquoted", "both"]}
+    )
+
+    assert_equal %Q(\
+TestNode "unlabled", both, unquoted: unquoted, none: "none"
+TestNode unquoted: "no identifier"
+TestNode unquoted: "true"
+TestNode unquoted: "333"
+TestNode unquoted: "33.3"
+TestNode unquoted: "5x"
+TestNode unquoted: "//"
+), output 
+  end
+  
+  module TestMMComment
+    extend RGen::MetamodelBuilder::ModuleExtension
+    class TestNode < RGen::MetamodelBuilder::MMBase
+      has_attr 'comment', String
+      contains_many 'childs', TestNode, 'parent'
+    end
+  end
+
+  def test_comment_provider
+    testModel = TestMMComment::TestNode.new(
+      :comment => "this is a comment",
+      :childs => [
+        TestMMComment::TestNode.new(:comment => "comment of a child node\n  multiline"),
+        TestMMComment::TestNode.new(:comment => "don't show")])
+
+    output = StringWriter.new
+    serialize(testModel, TestMMComment, output,
+      :comment_provider => proc { |e| 
+        if e.comment != "don't show"
+          c = e.comment
+          e.comment = nil
+          c
+        else
+          nil
+        end
+      })
+
+    assert_equal %Q(\
+#this is a comment
+TestNode {
+  #comment of a child node
+  #  multiline
+  TestNode
+  TestNode comment: "don't show"
+}
+), output 
+  end
+
+  def test_indent_string
+    testModel = TestMM::TestNode.new(:childs => [
+      TestMM::TestNode.new(:text => "child")])
+
+    output = StringWriter.new
+    serialize(testModel, TestMM, output, :indent_string => "____")
+
+    assert_equal %Q(\
+TestNode {
+____TestNode text: "child"
+}
+), output 
+  end
+
+  module TestMMRef
+    extend RGen::MetamodelBuilder::ModuleExtension
+    class TestNode < RGen::MetamodelBuilder::MMBase
+      has_attr 'name', String
+      contains_many 'childs', TestNode, 'parent'
+      has_many 'refMany', TestNode
+      has_one 'refOne', TestNode
+      one_to_many 'refManyBi', TestNode, 'refManyBack'
+      one_to_one 'refOneBi', TestNode, 'refOneBack'
+      many_to_many 'refManyMany', TestNode, 'refManyManyBack'
+    end
+  end
+
+  def test_identifier_provider
+    testModel = [
+      TestMMRef::TestNode.new(:name => "Source"),
+      TestMMRef::TestNode.new(:name => "Target")]
+    testModel[0].refOne = testModel[1]
+
+    output = StringWriter.new
+    serialize(testModel, TestMMRef, output,
+      :identifier_provider => proc{|e, context| 
+        assert_equal testModel[0], context
+        "/target/ref"
+      }
+    )
+
+    assert_equal %Q(\
+TestNode name: "Source", refOne: /target/ref
+TestNode name: "Target"
+),output
+  end
+
+  def test_references
+    testModel = [ 
+      TestMMRef::TestNode.new(:name => "Source"),
+      TestMMRef::TestNode.new(:name => "Target",
+        :childs => [
+          TestMMRef::TestNode.new(:name => "A",
+          :childs => [
+            TestMMRef::TestNode.new(:name => "A1")
+          ]),
+          TestMMRef::TestNode.new(:name => "B"),
+        ])
+    ]
+    testModel[0].refOne = testModel[1].childs[0].childs[0]
+    testModel[0].refOneBi = testModel[1].childs[0].childs[0]
+    testModel[0].refMany = [testModel[1].childs[0], testModel[1].childs[1]]
+    testModel[0].refManyBi = [testModel[1].childs[0], testModel[1].childs[1]]
+    testModel[0].refManyMany = [testModel[1].childs[0], testModel[1].childs[1]]
+    testModel[0].addRefMany(RGen::MetamodelBuilder::MMProxy.new("/some/ref"))
+
+    output = StringWriter.new
+    serialize(testModel, TestMMRef, output)
+
+    assert_equal %Q(\
+TestNode name: "Source", refMany: [/Target/A, /Target/B, /some/ref], refOne: /Target/A/A1, refOneBi: /Target/A/A1
+TestNode name: "Target" {
+  TestNode name: "A", refManyBack: /Source, refManyManyBack: /Source {
+    TestNode name: "A1"
+  }
+  TestNode name: "B", refManyBack: /Source, refManyManyBack: /Source
+}
+), output
+  end
+
+  module TestMMChildRole
+    extend RGen::MetamodelBuilder::ModuleExtension
+    class TestNodeA < RGen::MetamodelBuilder::MMBase
+      has_attr 'text', String
+    end
+    class TestNodeB < RGen::MetamodelBuilder::MMBase
+      has_attr 'text', String
+    end
+    class TestNodeC < RGen::MetamodelBuilder::MMBase
+      has_attr 'text', String
+    end
+    class TestNodeD < RGen::MetamodelBuilder::MMBase
+      has_attr 'text', String
+    end
+    class TestNodeE < RGen::MetamodelBuilder::MMMultiple(TestNodeC, TestNodeD)
+      has_attr 'text2', String
+    end
+    class TestNode < RGen::MetamodelBuilder::MMBase
+      has_attr 'text', String
+      contains_one 'child1', TestNode, 'parent1'
+      contains_many 'childs2', TestNode, 'parent2'
+      contains_one 'child3', TestNodeA, 'parent3'
+      contains_many 'childs4', TestNodeB, 'parent4'
+      contains_one 'child5', TestNodeC, 'parent5'
+      contains_many 'childs6', TestNodeD, 'parent6'
+      contains_one 'child7', TestNodeE, 'parent7'
+    end
+  end
+
+  def test_child_role
+    testModel = TestMMChildRole::TestNode.new(
+      :child1 => TestMMChildRole::TestNode.new(:text => "child1"),
+      :childs2 => [
+        TestMMChildRole::TestNode.new(:text => "child2a"),
+        TestMMChildRole::TestNode.new(:text => "child2b")
+      ],
+      :child3 => TestMMChildRole::TestNodeA.new(:text => "child3"),
+      :childs4 => [TestMMChildRole::TestNodeB.new(:text => "child4")],
+      :child5 => TestMMChildRole::TestNodeC.new(:text => "child5"),
+      :childs6 => [TestMMChildRole::TestNodeD.new(:text => "child6")],
+      :child7 => TestMMChildRole::TestNodeE.new(:text2 => "child7")
+      )
+
+    output = StringWriter.new
+    serialize(testModel, TestMMChildRole, output)
+
+    assert_equal %Q(\
+TestNode {
+  child1:
+    TestNode text: "child1"
+  childs2: [
+    TestNode text: "child2a"
+    TestNode text: "child2b"
+  ]
+  TestNodeA text: "child3"
+  TestNodeB text: "child4"
+  TestNodeC text: "child5"
+  TestNodeD text: "child6"
+  child7:
+    TestNodeE text2: "child7"
+}
+), output 
+  end
+
+  def test_escapes
+    testModel = TestMM::TestNode.new(:text => %Q(some " \\ \\" text \r xx \n xx \r\n xx \t xx \b xx \f))
+    output = StringWriter.new
+    serialize(testModel, TestMM, output) 
+
+    assert_equal %q(TestNode text: "some \" \\\\ \\\\\" text \r xx \n xx \r\n xx \t xx \b xx \f")+"\n", output
+  end
+
+  def test_integer
+    testModel = TestMM::TestNode.new(:integer => 7)
+    output = StringWriter.new
+    serialize(testModel, TestMM, output) 
+    assert_equal %q(TestNode integer: 7)+"\n", output
+  end
+
+  def test_integer_format_spec
+    testModel = TestMM::TestNode.new(:integer => 10)
+    output = StringWriter.new
+    serialize(testModel, TestMM, output, :argument_format_provider => proc {|a|
+      if a.name == "integer"
+        "0x%02X"
+      else
+        nil
+      end}) 
+    assert_equal %q(TestNode integer: 0x0A)+"\n", output
+  end
+
+  def test_float
+    testModel = TestMM::TestNode.new(:float => 1.23)
+    output = StringWriter.new
+    serialize(testModel, TestMM, output) 
+    assert_equal %q(TestNode float: 1.23)+"\n", output 
+  end
+
+  def test_float2
+    testModel = TestMM::TestNode.new(:float => 1.23e-08)
+    output = StringWriter.new
+    serialize(testModel, TestMM, output) 
+    assert output =~ /TestNode float: 1.23e-0?08\n/ 
+  end
+
+  def test_float_format_spec
+    testModel = TestMM::TestNode.new(:float => 1.23)
+    output = StringWriter.new
+    serialize(testModel, TestMM, output, :argument_format_provider => proc {|a|
+      if a.name == "float"
+        "%1.1f"
+      else
+        nil
+      end}) 
+    assert_equal %q(TestNode float: 1.2)+"\n", output
+  end
+
+  def test_enum
+    testModel = [
+      TestMM::TestNode.new(:enum => :A),
+      TestMM::TestNode.new(:enum => :B),
+      TestMM::TestNode.new(:enum => :'non-word*chars')
+    ]
+    output = StringWriter.new
+    serialize(testModel, TestMM, output) 
+    assert_equal %Q(\
+TestNode enum: A
+TestNode enum: B
+TestNode enum: "non-word*chars"
+), output
+  end
+
+  module TestMMData
+    extend RGen::MetamodelBuilder::ModuleExtension
+    # class "Data" exists in the standard Ruby namespace
+    class Data < RGen::MetamodelBuilder::MMBase
+      has_attr 'notTheBuiltin', String
+    end
+  end
+
+  module TestMMSubpackage
+    extend RGen::MetamodelBuilder::ModuleExtension
+    module SubPackage
+      extend RGen::MetamodelBuilder::ModuleExtension
+      class Data < RGen::MetamodelBuilder::MMBase
+        has_attr 'notTheBuiltin', String
+      end
+      class Data2 < RGen::MetamodelBuilder::MMBase
+        has_attr 'data2', String
+      end
+    end
+  end
+
+  def test_subpackage
+    testModel = TestMMSubpackage::SubPackage::Data2.new(:data2 => "xxx")
+    output = StringWriter.new
+    serialize(testModel, TestMMSubpackage, output) 
+    assert_equal %q(Data2 data2: "xxx")+"\n", output
+  end
+
+  def test_command_name_provider
+    testModel = TestMM::TestNode.new(:text => "some text", :childs => [
+      TestMM::TestNode.new(:text => "child")])
+
+    output = StringWriter.new
+    serialize(testModel, TestMM, output, :command_name_provider => proc do |c|
+      c.name + "X"
+    end)
+
+    assert_equal %Q(\
+TestNodeX text: "some text" {
+  TestNodeX text: "child"
+}
+), output 
+  end
+
+  def serialize(model, mm, output, options={})
+    lang = RText::Language.new(mm.ecore, options)
+    ser = RText::Serializer.new(lang)
+    ser.serialize(model, output)
+  end
+
+
+end
+

metadata

@@ -0,0 +1,84 @@
+--- !ruby/object:Gem::Specification
+name: rtext
+version: !ruby/object:Gem::Version
+  version: 0.2.0
+  prerelease: 
+platform: ruby
+authors:
+- Martin Thiede
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-07-30 00:00:00.000000000Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rgen
+  requirement: &24349776 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 0.6.0
+  type: :runtime
+  prerelease: false
+  version_requirements: *24349776
+description: RText can be used to derive textual languages from an RGen metamodel
+  with very little effort.
+email: martin dot thiede at gmx de
+executables: []
+extensions: []
+extra_rdoc_files:
+- README
+- CHANGELOG
+- MIT-LICENSE
+- RText_Users_Guide
+- RText_Plugin_Implementation_Guide
+files:
+- lib/rtext/completer.rb
+- lib/rtext/context_element_builder.rb
+- lib/rtext/default_loader.rb
+- lib/rtext/default_service_provider.rb
+- lib/rtext/instantiator.rb
+- lib/rtext/language.rb
+- lib/rtext/parser.rb
+- lib/rtext/serializer.rb
+- lib/rtext/service.rb
+- lib/rtext_plugin/connection_manager.rb
+- test/instantiator_test.rb
+- test/rtext_test.rb
+- test/serializer_test.rb
+- README
+- CHANGELOG
+- MIT-LICENSE
+- RText_Users_Guide
+- RText_Plugin_Implementation_Guide
+- Rakefile
+homepage: http://ruby-gen.org
+licenses: []
+post_install_message: 
+rdoc_options:
+- --main
+- README
+- -x
+- test
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.7.2
+signing_key: 
+specification_version: 3
+summary: Ruby Textual Modelling
+test_files: []