myco 0.1.1 → 0.1.2

data/lib/myco/parser/ast/to_ruby/array_assembly.rb

@@ -1,15 +0,0 @@
-
-class CodeTools::AST::ArrayAssembly
-  def to_ruby g
-    if @body.empty?
-      g.add("[]")
-    else
-      g.add("[")
-      g.push_indent
-        @body[0...-1].each { |item| g.line(item); g.add(",") }
-        @body.last.tap     { |item| g.line(item) }
-      g.pop_indent
-      g.line("]")
-    end
-  end
-end

data/lib/myco/parser/ast/to_ruby/block.rb

@@ -1,14 +0,0 @@
-
-class CodeTools::AST::Block
-  def to_ruby g
-    if @array.empty?
-      g.add("()")
-    else
-      g.add("(")
-      g.push_indent
-        @array.each { |item| g.line(item) }
-      g.pop_indent
-      g.line(")")
-    end
-  end
-end

data/lib/myco/parser/ast/to_ruby/block_pass.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::BlockPass
-  def to_ruby g
-    g.add("&"); g.add(@body)
-  end
-end

data/lib/myco/parser/ast/to_ruby/branch_operator.rb

@@ -1,9 +0,0 @@
-
-class CodeTools::AST::BranchOperator
-  def to_ruby g
-    g.add('::Myco.branch_op(');
-      g.add(@type.inspect); g.add(', ');
-      g.add(@left); g.add(') {');
-      g.add(@right); g.add('}')
-  end
-end

data/lib/myco/parser/ast/to_ruby/constant_access.rb

@@ -1,10 +0,0 @@
-
-class CodeTools::AST::ConstantAccess
-  def to_ruby g
-    g.add("::Myco.find_constant(#{@name.inspect})")
-  end
-  
-  def to_ruby_assign g, value
-    g.add("::Myco.cscope.for_method_definition.const_set(#{@name.inspect}, "); g.add(value); g.add(")")
-  end
-end

data/lib/myco/parser/ast/to_ruby/constant_assignment.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::ConstantAssignment
-  def to_ruby g
-    @constant.to_ruby_assign(g, @value)
-  end
-end

data/lib/myco/parser/ast/to_ruby/constant_define.rb

@@ -1,9 +0,0 @@
-
-class CodeTools::AST::ConstantDefine
-  def to_ruby g
-    g.add(implementation)
-    g.line(".tap { |__c__| __c__.__name__ = ")
-      g.add(@name.name.inspect)
-    g.add(" }")
-  end
-end

data/lib/myco/parser/ast/to_ruby/constant_reopen.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::ConstantReopen
-  def to_ruby g
-    g.add(@name); g.add(".component_eval {"); g.add(@body); g.add("}")
-  end
-end

data/lib/myco/parser/ast/to_ruby/declare_category.rb

@@ -1,7 +0,0 @@
-
-class CodeTools::AST::DeclareCategory
-  def to_ruby g
-    g.add("__category__(#{@name.value.inspect})")
-      g.add(".component_eval {"); g.add(@body); g.add("}")
-  end
-end

data/lib/myco/parser/ast/to_ruby/declare_decorator.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::DeclareDecorator
-  def to_ruby g
-    g.add("[#{@name.value.inspect}, "); g.add(@arguments); g.add("]")
-  end
-end

data/lib/myco/parser/ast/to_ruby/declare_file.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::DeclareFile
-  def to_ruby g
-    implementation.to_ruby(g)
-  end
-end

data/lib/myco/parser/ast/to_ruby/declare_meme.rb

@@ -1,16 +0,0 @@
-
-class CodeTools::AST::DeclareMeme
-  def to_ruby g
-    g.with_nested_var_scope(body_implementation) {
-      g.var_scope_declare_locals(@arguments.names)
-      
-      g.add("declare_meme(")
-      g.add("#{@name.inspect}, ")
-      g.add(@decorations); g.add(", nil, ::Myco.cscope.dup)")
-      g.add(" { ");
-        g.add(@arguments); g.add(" ")
-        g.add(@body);
-      g.add("}")
-    }
-  end
-end

data/lib/myco/parser/ast/to_ruby/declare_object.rb

@@ -1,8 +0,0 @@
-
-class CodeTools::AST::DeclareObject
-  def to_ruby g
-    g.add("::Myco::Component.new("); g.add(@types); g.add(", ::Myco.cscope.for_method_definition, __FILE__, __LINE__)")
-    g.line(".tap { |__c__| __c__.__last__ = __c__.component_eval {"); g.add(scope_implementation); g.add("}}")
-    g.add(".instance") if @create
-  end
-end

data/lib/myco/parser/ast/to_ruby/declare_string.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::DeclareString
-  def to_ruby g
-    g.add(implementation)
-  end
-end

data/lib/myco/parser/ast/to_ruby/dynamic_string.rb

@@ -1,14 +0,0 @@
-
-class CodeTools::AST::DynamicString
-  def to_ruby g
-    inspect_escape = Proc.new { |str| str.inspect[1...-1] }
-    
-    g.add('"')
-      g.add(inspect_escape.call(@string))
-      @array.each_slice(2) { |interpolated, inner_string|
-        g.add('#{'); g.add(interpolated.value); g.add('}')
-        g.add(inspect_escape.call(inner_string.value))
-      }
-    g.add('"')
-  end
-end

data/lib/myco/parser/ast/to_ruby/dynamic_symbol.rb

@@ -1,7 +0,0 @@
-
-class CodeTools::AST::DynamicSymbol
-  def to_ruby g
-    g.add(':') # prefix with ':', but...
-    super # delegate to DynamicString implementation
-  end
-end

data/lib/myco/parser/ast/to_ruby/eval_expression.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::EvalExpression
-  def to_ruby g
-    g.add(@body)
-  end
-end

data/lib/myco/parser/ast/to_ruby/false_literal.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::FalseLiteral
-  def to_ruby g
-    g.add("false")
-  end
-end

data/lib/myco/parser/ast/to_ruby/hash_literal.rb

@@ -1,16 +0,0 @@
-
-class CodeTools::AST::HashLiteral
-  def to_ruby g
-    list = @array.each_slice(2).to_a
-    if list.empty?
-      g.add("{}")
-    else
-      g.add("{")
-      g.push_indent
-        list[0...-1].each { |key, value| g.line(key); g.add(" => "); g.add(value); g.add(",") }
-        list.last.tap     { |key, value| g.line(key); g.add(" => "); g.add(value) }
-      g.pop_indent
-      g.line("}")
-    end
-  end
-end

data/lib/myco/parser/ast/to_ruby/invoke.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::Invoke
-  def to_ruby g
-    g.add(implementation)
-  end
-end

data/lib/myco/parser/ast/to_ruby/invoke_method.rb

@@ -1,35 +0,0 @@
-
-module CodeTools::AST
-  class InvokeMethod
-    def to_ruby g
-      list = @arguments ? @arguments.body.dup : []
-      list.push(@arguments.block) if @arguments.block.is_a?(BlockPass)
-      
-      g.add(@receiver)
-      
-      if g.easy_ident?(@name)
-        g.add(".#{@name}")
-      else
-        g.add(".__send__")
-        list.unshift(SymbolLiteral.new(@line, @name))
-      end
-      
-      if list.empty?
-        g.add("")
-      elsif list.size == 1
-        g.add("("); g.add(list.first); g.add(")")
-      else
-        g.add("(")
-        g.push_indent
-          list[0...-1].each { |item| g.line(item); g.add(",") }
-          list.last.tap     { |item| g.line(item) }
-        g.pop_indent
-        g.line(")")
-      end
-      
-      if @arguments.block.is_a?(Iter)
-        (g.add(" {"); g.add(@arguments.block); g.add("}"))
-      end
-    end
-  end
-end

data/lib/myco/parser/ast/to_ruby/iter.rb

@@ -1,10 +0,0 @@
-
-class CodeTools::AST::Iter
-  def to_ruby g
-    g.with_nested_var_scope(self) {
-      g.var_scope_declare_locals(@arguments.names)
-      
-      g.add(" "); g.add(@arguments); g.add(" "); g.add(@body)
-    }
-  end
-end

data/lib/myco/parser/ast/to_ruby/local_variable_access_ambiguous.rb

@@ -1,16 +0,0 @@
-
-class CodeTools::AST::LocalVariableAccessAmbiguous
-  def to_ruby g
-    if g.var_scope_has_local?(@name)
-      g.add(@name.to_s)
-    else
-      g.add("self")
-      
-      if g.easy_ident?(@name)
-        g.add(".#{@name}")
-      else
-        g.add(".__send__(#{name.inspect})")
-      end
-    end
-  end
-end

data/lib/myco/parser/ast/to_ruby/local_variable_assignment.rb

@@ -1,8 +0,0 @@
-
-class CodeTools::AST::LocalVariableAssignment
-  def to_ruby g
-    g.var_scope_declare_local(@name)
-    g.var_scope.variables[@name] = true
-    g.add(@name.to_s); g.add(" = "); g.add(value)
-  end
-end

data/lib/myco/parser/ast/to_ruby/myco_module_scope.rb

@@ -1,8 +0,0 @@
-
-class CodeTools::AST::MycoModuleScope
-  def to_ruby g
-    g.with_nested_var_scope(self) {
-      g.add(@body)
-    }
-  end
-end

data/lib/myco/parser/ast/to_ruby/null_literal.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::NullLiteral
-  def to_ruby g
-    g.add("nil")
-  end
-end

data/lib/myco/parser/ast/to_ruby/parameters.rb

@@ -1,60 +0,0 @@
-
-module CodeTools::AST
-  class Parameters
-    def to_ruby g
-      list = []
-      list_add = Proc.new { |&blk| list.push(Proc.new(&blk)) }
-      
-      @required.each { |item| list_add.call { g.add(item.to_s) } }
-      
-      if @defaults
-        @defaults.arguments.each { |asgn|
-          name = asgn.name
-          value = asgn.value
-          list_add.call {
-            g.add("#{name}=")
-            g.add(value) unless value.is_a?(SymbolLiteral) and value.value==:*
-          }
-        }
-      end
-      
-      if @splat == :*
-        list_add.call { g.add("*") }
-      elsif @splat
-        list_add.call { g.add("*#{@splat}") }
-      end
-      
-      if @keywords
-        @keywords.arguments.each { |asgn|
-          name = asgn.name
-          value = asgn.value
-          list_add.call {
-            g.add("#{name}:")
-            g.add(value) unless value.is_a?(SymbolLiteral) and value.value==:*
-          }
-        }
-        
-        if @keywords.kwrest == true
-          list_add.call { g.add("**") }
-        elsif @keywords.kwrest
-          list_add.call { g.add("**#{@keywords.kwrest.name}") }
-        end
-      end
-      
-      if @block_arg
-        list_add.call { g.add("&#{@block_arg.name}") }
-      end
-      
-      if list.empty?
-        g.add("||")
-      else
-        g.add("|")
-        g.push_indent
-          list[0...-1].each { |proc| proc.call; g.add(", ") }
-          list.last.tap     { |proc| proc.call }
-        g.pop_indent
-        g.add("|")
-      end
-    end
-  end
-end

data/lib/myco/parser/ast/to_ruby/quest.rb

@@ -1,13 +0,0 @@
-
-class CodeTools::AST::Quest
-  def to_ruby g
-    associated_questable = @questable.dup
-    associated_questable.receiver = @receiver
-    
-    g.add("(")
-      g.add(@receiver); g.add(".respond_to?(#{@questable.name.inspect}).false?")
-      g.add(" ? ::Myco::Void : ")
-      g.add(associated_questable)
-    g.add(")")
-  end
-end

data/lib/myco/parser/ast/to_ruby/return.rb

@@ -1,7 +0,0 @@
-
-class CodeTools::AST::Return
-  def to_ruby g
-    g.add("return ")
-    g.add(@value)
-  end
-end

data/lib/myco/parser/ast/to_ruby/scoped_constant.rb

@@ -1,11 +0,0 @@
-
-class CodeTools::AST::ScopedConstant
-  def to_ruby g
-    g.add(@parent); g.add("::#{@name}")
-  end
-  
-  def to_ruby_assign g, value
-    to_ruby(g)
-    g.add(" = "); g.add(value)
-  end
-end

data/lib/myco/parser/ast/to_ruby/self.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::Self
-  def to_ruby g
-    g.add("self")
-  end
-end

data/lib/myco/parser/ast/to_ruby/splat_value.rb

@@ -1,33 +0,0 @@
-
-class CodeTools::AST::SplatValue
-  def to_ruby g
-    if @value.is_a?(self.class)
-      @value.to_ruby(g)
-    else
-      g.add("*")
-      @value.to_ruby(g)
-    end
-  end
-end
-
-module CodeTools::AST
-  class CollectSplat
-    def to_ruby g
-      # TODO
-    end
-  end
-end
-
-module CodeTools::AST
-  class ConcatArgs
-    def to_ruby g
-      # TODO
-    end
-  end
-end
-
-class CodeTools::AST::PushArgs
-  def to_ruby g
-    # TODO
-  end
-end

data/lib/myco/parser/ast/to_ruby/string_literal.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::StringLiteral
-  def to_ruby g
-    g.add(@string.inspect)
-  end
-end

data/lib/myco/parser/ast/to_ruby/symbol_literal.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::SymbolLiteral
-  def to_ruby g
-    g.add(@value.inspect)
-  end
-end

data/lib/myco/parser/ast/to_ruby/toplevel_constant.rb

@@ -1,11 +0,0 @@
-
-class CodeTools::AST::ToplevelConstant
-  def to_ruby g
-    g.add("::#{@name}")
-  end
-  
-  def to_ruby_assign g, value
-    to_ruby(g)
-    g.add(" = "); g.add(value)
-  end
-end

data/lib/myco/parser/ast/to_ruby/true_literal.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::TrueLiteral
-  def to_ruby g
-    g.add("true")
-  end
-end

data/lib/myco/parser/ast/to_ruby/void_literal.rb

@@ -1,6 +0,0 @@
-
-class CodeTools::AST::VoidLiteral
-  def to_ruby g
-    g.add("::Myco::Void")
-  end
-end

data/lib/myco/parser/ast/to_ruby.rb

@@ -1,138 +0,0 @@
-
-module CodeTools::AST
-  class ToRuby
-    def initialize
-      @lines = []
-      @indents = [""]
-      
-      @var_scopes = []
-    end
-    
-    # The currently held string of generated ruby code
-    def to_s
-      @lines.join("\n")
-    end
-    
-    # Start a new line, optionally adding a string
-    # or an object that responds to :to_ruby
-    def line string=""
-      if string.is_a?(String)
-        @lines.push(@indents.last + string)
-      else
-        line
-        string.to_ruby(self)
-      end
-    end
-    
-    # Add to the current line a string
-    # or an object that responds to :to_ruby
-    def add string
-      if string.is_a?(String)
-        (@lines.last || @lines[0]="").concat(string)
-      else
-        string.to_ruby(self)
-      end
-    end
-    
-    ##
-    # Stack of indent levels (as strings to be prefixed)
-    #
-    def push_indent amount=2
-      @indents.push(@indents.last + " "*2)
-    end
-    
-    def pop_indent
-      @indents.pop
-    end
-    
-    ##
-    # Stack of every AST node in hierarchy that can hold local variables
-    #
-    def var_scope
-      @var_scopes.last
-    end
-    
-    def with_nested_var_scope node
-      @var_scopes.push(node)
-      yield
-    ensure
-      @var_scopes.pop
-    end
-    
-    def var_scope_has_local? name
-      @var_scopes.reverse.each { |scope|
-        return true if scope.variables.has_key?(name)
-      }
-      return false
-    end
-    
-    def var_scope_declare_local name
-      var_scope.variables[name] = true
-    end
-    
-    def var_scope_declare_locals names
-      names.each { |name| var_scope_declare_local(name) }
-    end
-    
-    ##
-    # Helper methods
-    
-    # TODO: make comprehensive
-    # Return false if the given indent might be problematic in generated Ruby
-    def easy_ident? sym
-      str = sym.to_s
-      return false if !(str=~/^[a-z_][A-Za-z_]*$/)
-      return false if %i(
-        if unless and or def do class module end break begin rescue ensure
-      ).include?(sym)
-      return true
-    end
-  end
-  
-  class Node
-    def to_ruby_code
-      g = ToRuby.new
-      to_ruby(g)
-      g.to_s
-    end
-  end
-end
-
-
-require_relative "to_ruby/self"
-require_relative "to_ruby/null_literal"
-require_relative "to_ruby/void_literal"
-require_relative "to_ruby/true_literal"
-require_relative "to_ruby/false_literal"
-require_relative "to_ruby/string_literal"
-require_relative "to_ruby/symbol_literal"
-require_relative "to_ruby/hash_literal"
-require_relative "to_ruby/dynamic_string"
-require_relative "to_ruby/dynamic_symbol"
-require_relative "to_ruby/scoped_constant"
-require_relative "to_ruby/toplevel_constant"
-require_relative "to_ruby/constant_access"
-require_relative "to_ruby/constant_assignment"
-require_relative "to_ruby/constant_define"
-require_relative "to_ruby/constant_reopen"
-require_relative "to_ruby/myco_module_scope"
-require_relative "to_ruby/declare_file"
-require_relative "to_ruby/declare_object"
-require_relative "to_ruby/declare_string"
-require_relative "to_ruby/declare_category"
-require_relative "to_ruby/declare_meme"
-require_relative "to_ruby/declare_decorator"
-require_relative "to_ruby/parameters"
-require_relative "to_ruby/block"
-require_relative "to_ruby/invoke"
-require_relative "to_ruby/invoke_method"
-require_relative "to_ruby/local_variable_assignment"
-require_relative "to_ruby/local_variable_access_ambiguous"
-require_relative "to_ruby/splat_value"
-require_relative "to_ruby/block_pass"
-require_relative "to_ruby/iter"
-require_relative "to_ruby/quest"
-require_relative "to_ruby/branch_operator"
-require_relative "to_ruby/return"
-require_relative "to_ruby/array_assembly"
-require_relative "to_ruby/eval_expression"

data/lib/myco/toolset.rb

@@ -1,13 +0,0 @@
-
-require "rubinius/toolset"
-
-module Myco
-  ToolSet = Rubinius::ToolSets.create :myco do
-    require "rubinius/melbourne"
-    require "rubinius/processor"
-    require "rubinius/compiler"
-    require "rubinius/ast"
-    
-    require_relative 'parser'
-  end
-end