maroon 0.7.1 → 0.8.0

data/lib/DependencyGraph.rb

@@ -0,0 +1,76 @@
+class DependencyGraph
+      def initialize(context_name,roles,interactions,dependencies) @context_name = context_name
+@roles = roles
+@interactions = interactions
+@dependencies = dependencies
+ end
+ def create!() self_roles_dependencies
+self_interactions_dependencies
+dependencies
+ end
+     private
+
+def self_roles_dependencies() roles.each do |r, methods|
+  temp____role_name = @role_name
+  @role_name = r
+  role_dependencies = dependencies[r] ||= {}
+  methods.each do |name, method_sources|
+    temp____dependency = @dependency
+    @dependency = role_dependencies
+    temp____method = @method
+    @method = method_sources
+    self_method_get_dependencies
+    @method = temp____method
+    @dependency = temp____dependency
+  end
+  @role_name = temp____role_name
+end end
+   def self_interactions_dependencies() interactions.each do |name, interact|
+  role_dependencies = dependencies[:interactions] ||= {}[name] ||= {}
+  interact.each do |m|
+    temp____dependency = @dependency
+    @dependency = role_dependencies
+    temp____method = @method
+    @method = m
+    self_method_get_dependencies
+    @method = temp____method
+    @dependency = temp____dependency
+  end
+end end
+   def self_dependency_add(dependent_role_name,method_name) if dependent_role_name and dependent_role_name.!=(role_name) then
+  dependency[dependent_role_name] ||= {}
+  unless dependency[dependent_role_name].has_key?(method_name) then
+    dependency[dependent_role_name][method_name] = 0
+  end
+  dependency[dependent_role_name][method_name] += 1
+end end
+   def self_method_body() args = self_method_definition.detect { |d| (d[0] == :args) }
+index = (self_method_definition.index(args) + 1)
+if (self_method_definition.length > (index + 1)) then
+  body = self_method_definition[(index..-1)]
+  body.insert(0, :block)
+  body
+else
+  self_method_definition[index]
+end
+ end
+   def self_method_ast() AbstractSyntaxTree.new(self_method_body, InterpretationContext.new(roles, {}, {}, role_name, {})) end
+   def self_method_definition() method.instance_of?(Array) ? (method[0]) : (method) end
+   def self_method_get_dependencies() self_method_ast.each_production do |production|
+  name = nil
+  method_name = nil
+  case production.type
+  when Tokens.rolemethod_call then
+    data = production.data
+    name = data[1]
+    method_name = data[0]
+  when Tokens.role then
+    name = production.data[0]
+  else
+    # do nothing
+  end
+  self_dependency_add(name, method_name) if name.!=(nil)
+end end
+attr_reader :roles, :interactions, :dependencies, :dependency, :role_name, :method
+
+           end

data/lib/ImmutableQueue.rb

@@ -1,43 +1,32 @@
 class ImmutableQueue
-  def push(element)
-    b = (back or ImmutableStack.empty)
-    ImmutableQueue.new(front, b.push(element))
+      def push(element) b = (back or ImmutableStack.empty)
+ImmutableQueue.new(front, b.push(element))
+ end
+ def pop() f, b = front, back
+if (f == ImmutableStack.empty) then
+  until (b == ImmutableStack.empty) do
+    (e, b = b.pop
+    f = f.push(e))
   end
+end
+head, f = f.pop
+if (f == b) then
+  [head, ImmutableQueue.empty]
+else
+  [head, ImmutableQueue.new(f, b)]
+end
+ end
+ def self.empty() @empty ||= ImmutableQueue.new(ImmutableStack.empty, ImmutableStack.empty) end
+ def push_array(arr) q = self
+arr.each { |i| q = q.push(i) } if arr
+q
+ end
+     private
+def initialize(front,back) @front = (front or ImmutableStack.empty)
+@back = (back or ImmutableStack.empty)
+self.freeze
+ end
 
-  def pop()
-    f, b = front, back
-    if (f == ImmutableStack.empty) then
-      until (b == ImmutableStack.empty) do
-        (e, b = b.pop
-        f = f.push(e))
-      end
-    end
-    head, f = f.pop
-    if (f == b) then
-      [head, ImmutableQueue.empty]
-    else
-      [head, ImmutableQueue.new(f, b)]
-    end
-  end
-
-  def self.empty()
-    @@empty ||= ImmutableQueue.new(ImmutableStack.empty, ImmutableStack.empty)
-  end
-
-  def push_array(arr)
-    q = self
-    arr.each { |i| q = q.push(i) } if arr
-    q
-  end
-
-  private
-  def initialize(front, back)
-    @front = (front or ImmutableStack.empty)
-    @back = (back or ImmutableStack.empty)
-    self.freeze
-  end
-
-  attr_reader :front
-  attr_reader :back
+attr_reader :front, :back
 
-end
+           end

data/lib/ImmutableStack.rb

@@ -1,35 +1,21 @@
 class ImmutableStack
-  def pop()
-    [@head, @tail]
-  end
-
-  def push(element)
-    ImmutableStack.new(element, self)
-  end
-
-  def self.empty()
-    @@empty ||= self.new(nil, nil)
-  end
-
-  def each()
-    yield(head)
-    t = tail
-    while t.!=(ImmutableStack.empty) do
-      h, t = t.pop
-      yield(h)
-    end
-  end
-
-  def initialize(h, t)
-    @head = h
-    @tail = t
-    self.freeze
-  end
-
-  private
-
-
-  attr_reader :head
-  attr_reader :tail
-
-end
+      def pop() [@head, @tail] end
+ def push(element) ImmutableStack.new(element, self) end
+ def self.empty() @empty ||= self.new(nil, nil) end
+ def each() yield(head)
+t = tail
+while t.!=(ImmutableStack.empty) do
+  h, t = t.pop
+  yield(h)
+end
+ end
+ def initialize(h,t) @head = h
+@tail = t
+self.freeze
+ end
+     private
+
+
+attr_reader :head, :tail
+
+           end

data/lib/Tokens.rb

@@ -1,6 +1,11 @@
 class Tokens
   def self.define_token(name)
-    class_eval("@@#{name} = Tokens.new :#{name};def Tokens.#{name};@@#{name};end")
+    class_eval %{
+      @#{name} = Tokens.new :#{name};
+      def Tokens.#{name}
+        @#{name}
+      end
+    }
   end
 
   def to_s
@@ -21,4 +26,61 @@ class Tokens
   define_token :indexer
   define_token :block
   define_token :block_with_bind
-end
+  define_token :initializer
+  define_token :const
+end
+
+class DependencyGraphModel
+
+  def initialize(dependencies)
+    @dependencies = dependencies
+  end
+
+  def to_hash
+    @dependecies
+  end
+
+  def to_s
+    print_dependencies @dependencies,0
+  end
+
+  def to_dot
+    res = ''
+    dependencies = denormalize @dependencies
+    dependencies.each{|d| res << d.reverse.join('->') << '
+'}
+    'digraph g{
+    ' + res + '}'
+  end
+
+  private
+  def print_dependencies(dependencies,indent)
+    res = ''
+    dependencies.each do |key,value|
+        res << key.to_s
+        if value.instance_of? Hash
+          res << '->' << (print_dependencies value,indent != nil ? indent+4 : nil)
+        elsif
+          res << ':' << value.to_s + '
+          '
+          indent.times {res << ' '} unless indent == nil
+        end
+        res << '
+  '
+      end
+    res
+  end
+
+  def denormalize(dependencies)
+    res = []
+    dependencies.each do |key,value|
+      if value.instance_of? Hash
+        res = denormalize value
+        res.each{|a| a << key}
+      else
+        res << [key]
+      end
+    end
+    res
+  end
+end

data/lib/Transformer.rb

@@ -1,174 +1,134 @@
 class Transformer
-  def initialize(context_name, roles, interactions, private_interactions, base_class, default_interaction)
-    @context_name = context_name
-    @roles = roles
-    @interactions = interactions
-    @base_class = base_class
-    @default_interaction = default_interaction
-    @private_interactions = private_interactions
-    @definitions = {}
+      def initialize(context_name,roles,interactions,private_interactions,base_class,default_interaction) @context_name = context_name
+@roles = roles
+@interactions = interactions
+@base_class = base_class
+@default_interaction = default_interaction
+@private_interactions = private_interactions
+@definitions = {}
+ end
+ def transform(file_path,with_contracts) code = (self_interactions_generated_source + self_roles_generated_source)
+if file_path then
+  name = context_name.to_s
+  complete = ((((("class " + name) + (@base_class ? (("<< " + @base_class.name)) : (""))) + "\n      ") + code.to_s) + "\n           end")
+  File.open((((("./" + file_path.to_s) + "/") + name) + ".rb"), "w") do |f|
+    f.write(complete)
   end
-
-  def transform(file_path, with_contracts)
-    code = (self_interactions_generated_source + self_roles_generated_source)
-    if file_path then
-      name = context_name.to_s
-      complete = ((((("class " + name) + (@base_class ? (("<< " + @base_class.name)) : (""))) + "\n      ") + code.to_s) + "\n           end")
-      File.open((((("./" + file_path.to_s) + "/") + name) + ".rb"), "w") do |f|
-        f.write(complete)
-      end
-      complete
-    else
-      c = @base_class ? (Class.new(base_class)) : (Class.new)
-      if with_contracts then
-        c.class_eval("def self.assert_that(obj)\n  ContextAsserter.new(self.contracts,obj)\nend\ndef self.refute_that(obj)\n  ContextAsserter.new(self.contracts,obj,false)\nend\ndef self.contracts\n  @@contracts\nend\ndef self.contracts=(value)\n  @@contracts = value\nend")
-        c.contracts = contracts
-      end
-      Kernel.const_set(context_name, c)
-      begin
-        temp = c.class_eval(code)
-      rescue SyntaxError
-        p(("error: " + code))
-      end
-      (temp or c)
-    end
+  complete
+else
+  c = @base_class ? (Class.new(base_class)) : (Class.new)
+  if with_contracts then
+    c.class_eval("def self.assert_that(obj)\n  ContextAsserter.new(self.contracts,obj)\nend\ndef self.refute_that(obj)\n  ContextAsserter.new(self.contracts,obj,false)\nend\ndef self.contracts\n  @contracts\nend\ndef self.contracts=(value)\n  @contracts = value\nend")
+    c.contracts = contracts
   end
-
-  private
-  def contracts()
-    @contracts ||= {}
+  Kernel.const_set(context_name, c)
+  begin
+    temp = c.class_eval(code)
+  rescue SyntaxError
+    p(("error: " + code))
   end
-
-  def role_aliases()
-    @role_aliases ||= {}
+  (temp or c)
+end
+ end
+     private
+def contracts() @contracts ||= {} end
+ def role_aliases() @role_aliases ||= {} end
+ def interpretation_context() InterpretationContext.new(roles, contracts, role_aliases, defining_role, @private_interactions) end
+def self_roles_generated_source() impl = ""
+getters = []
+roles.each do |role, methods|
+  (getters << role.to_s)
+  methods.each do |name, method_sources|
+    temp____defining_role = @defining_role
+    @defining_role = role
+    temp____method_name = @method_name
+    @method_name = name
+    temp____method = @method
+    @method = method_sources
+    definition = self_method_generated_source
+    (impl << ("   " + definition)) if definition
+    @method = temp____method
+    @method_name = temp____method_name
+    @defining_role = temp____defining_role
   end
-
-  def interpretation_context()
-    InterpretationContext.new(roles, contracts, role_aliases, defining_role, @private_interactions)
+end
+((((impl.strip! or "") + "\n") + ((getters.length > 0) ? (("attr_reader :" + getters.join(", :"))) : (""))) + "\n")
+ end
+   def self_interactions_generated_source() internal_methods = ""
+external_methods = self_interactions_default
+interactions.each do |name, interact|
+  interact.each do |m|
+    temp____method_name = @method_name
+    @method_name = name
+    temp____method = @method
+    @method = m
+    @defining_role = nil
+    code = self_method_generated_source
+    (((self_method_is_private? ? (internal_methods) : (external_methods)) << " ") << code)
+    @method = temp____method
+    @method_name = temp____method_name
   end
-
-  def self_roles_generated_source()
-    impl = ""
-    getters = ""
-    roles.each do |role, methods|
-      (getters << (("attr_reader :" + role.to_s) + "\n         "))
-      methods.each do |name, method_sources|
-        temp____defining_role = @defining_role
-        @defining_role = role
-        temp____method_name = @method_name
-        @method_name = name
-        temp____method = @method
-        @method = method_sources
-        definition = self_method_generated_source
-        (impl << ("   " + definition)) if definition
-        @method = temp____method
-        @method_name = temp____method_name
-        @defining_role = temp____defining_role
-      end
-    end
-    ((((impl.strip! or "") + "\n") + (getters.strip! or "")) + "\n")
+end
+((((external_methods.strip! or "") + "\n     private\n") + (internal_methods.strip! or "")) + "\n")
+ end
+   def self_interactions_default() if @default then
+  (((((((((("\n               def self.call(*args)\n             arity = " + name.to_s) + ".method(:new).arity\n             newArgs = args[0..arity-1]\n             obj = ") + name.to_s) + ".new *newArgs\n             if arity < args.length\n                 methodArgs = args[arity..-1]\n                 obj.") + default.to_s) + " *methodArgs\n             else\n                obj.") + default.to_s) + "\n                             end\n         end\n            def call(*args);") + default.to_s) + " *args; end\n")
+else
+  ""
+end end
+   def self_method_is_private?() (defining_role.!=(nil) or private_interactions.has_key?(self_method_name)) end
+   def self_method_definition() key = ((@defining_role ? (@defining_role.to_s) : ("")) + method_name.to_s)
+return @definitions[key] if @definitions.has_key?(key)
+unless method.instance_of?(Sexp) then
+  unless method.instance_of?(Array) and (method.length < 2) then
+    raise((((("Duplicate definition of " + method_name.to_s) + "(") + method.to_s) + ")"))
   end
-
-  def self_interactions_generated_source()
-    internal_methods = ""
-    external_methods = self_interactions_default
-    interactions.each do |name, interact|
-      interact.each do |m|
-        temp____method_name = @method_name
-        @method_name = name
-        temp____method = @method
-        @method = m
-        @defining_role = nil
-        code = self_method_generated_source
-        (((self_method_is_private? ? (internal_methods) : (external_methods)) << " ") << code)
-        @method = temp____method
-        @method_name = temp____method_name
-      end
-    end
-    ((((external_methods.strip! or "") + "\n     private\n") + (internal_methods.strip! or "")) + "\n")
+  unless method.instance_of?(Array) and (method.length > 0) then
+    raise(("No source for " + method_name.to_s))
   end
+end
+d = method.instance_of?(Array) ? (method[0]) : (method)
+raise("Sexp require") unless d.instance_of?(Sexp)
+@definitions[key] = d
+ end
+   def self_method_body() args = self_method_definition.detect { |d| (d[0] == :args) }
+index = (self_method_definition.index(args) + 1)
+if (self_method_definition.length > (index + 1)) then
+  body = self_method_definition[(index..-1)]
+  body.insert(0, :block)
+  body
+else
+  self_method_definition[index]
+end
+ end
+   def self_method_arguments() args = self_method_definition.detect { |d| (d[0] == :args) }
+args and (args.length > 1) ? (args[(1..-1)]) : ([])
+ end
+   def self_method_name() name = if self_method_definition[1].instance_of?(Symbol) then
+  self_method_definition[1].to_s
+else
+  ((self_method_definition[1].select { |e| e.instance_of?(Symbol) }.map do |e|
+    e.to_s
+  end.join(".") + ".") + self_method_definition[2].to_s)
+end
+(if defining_role then
+  ((("self_" + @defining_role.to_s) + "_") + name.to_s)
+else
+  name
+end).to_sym
+ end
+   def self_method_generated_source() AstRewritter.new(self_method_body, interpretation_context).rewrite!
+body = Ruby2Ruby.new.process(self_method_body)
+raise("Body is undefined") unless body
+args = self_method_arguments
+if args and args.length then
+  args = (("(" + args.join(",")) + ")")
+else
+  args = ""
+end
+header = (("def " + self_method_name.to_s) + args)
+(((header + " ") + body) + " end\n")
+ end
+attr_reader :private_interactions, :context_name, :roles, :interactions, :method_name, :defining_role, :method
 
-  def self_interactions_default()
-    if @default then
-      (((((((((("\n               def self.call(*args)\n             arity = " + name.to_s) + ".method(:new).arity\n             newArgs = args[0..arity-1]\n             obj = ") + name.to_s) + ".new *newArgs\n             if arity < args.length\n                 methodArgs = args[arity..-1]\n                 obj.") + default.to_s) + " *methodArgs\n             else\n                obj.") + default.to_s) + "\n                             end\n         end\n            def call(*args);") + default.to_s) + " *args; end\n")
-    else
-      ""
-    end
-  end
-
-  def self_method_is_private?()
-    (defining_role.!=(nil) or private_interactions.has_key?(self_method_name))
-  end
-
-  def self_method_definition()
-    key = ((@defining_role ? (@defining_role.to_s) : ("")) + method_name.to_s)
-    return @definitions[key] if @definitions.has_key?(key)
-    unless method.instance_of?(Sexp) then
-      unless method.instance_of?(Array) and (method.length < 2) then
-        raise((((("Duplicate definition of " + method_name.to_s) + "(") + method.to_s) + ")"))
-      end
-      unless method.instance_of?(Array) and (method.length > 0) then
-        raise(("No source for " + method_name.to_s))
-      end
-    end
-    d = method.instance_of?(Array) ? (method[0]) : (method)
-    raise("Sexp require") unless d.instance_of?(Sexp)
-    @definitions[key] = d
-  end
-
-  def self_method_body()
-    args = self_method_definition.detect { |d| (d[0] == :args) }
-    index = (self_method_definition.index(args) + 1)
-    if (self_method_definition.length > (index + 1)) then
-      body = self_method_definition[(index..-1)]
-      body.insert(0, :block)
-      body
-    else
-      self_method_definition[index]
-    end
-  end
-
-  def self_method_arguments()
-    args = self_method_definition.detect { |d| (d[0] == :args) }
-    args and (args.length > 1) ? (args[(1..-1)]) : ([])
-  end
-
-  def self_method_name()
-    name = if self_method_definition[1].instance_of?(Symbol) then
-             self_method_definition[1].to_s
-           else
-             ((self_method_definition[1].select { |e| e.instance_of?(Symbol) }.map do |e|
-               e.to_s
-             end.join(".") + ".") + self_method_definition[2].to_s)
-           end
-    (
-    if defining_role then
-      ((("self_" + @defining_role.to_s) + "_") + name.to_s)
-    else
-      name
-    end).to_sym
-  end
-
-  def self_method_generated_source()
-    AstRewritter.new(self_method_body, interpretation_context).rewrite!
-    body = Ruby2Ruby.new.process(self_method_body)
-    raise("Body is undefined") unless body
-    args = self_method_arguments
-    if args and args.length then
-      args = (("(" + args.join(",")) + ")")
-    else
-      args = ""
-    end
-    header = (("def " + self_method_name.to_s) + args)
-    (((header + " ") + body) + " end\n")
-  end
-
-  attr_reader :private_interactions
-  attr_reader :context_name
-  attr_reader :roles
-  attr_reader :interactions
-  attr_reader :method_name
-  attr_reader :defining_role
-  attr_reader :method
-
-end
+           end