atomy 0.1.1 → 0.6.3

data/lib/ast/internal/class.rb

@@ -1,30 +0,0 @@
-module Atomy
-  module AST
-    class Class < Node
-      children :name, :body, [:superclass, "Primitive.new(0, :nil)"]
-      generate
-
-      def class_name
-        case @name
-        when Constant
-          Rubinius::AST::ClassName.new @line, @name.name, @superclass
-        when ToplevelConstant
-          Rubinius::AST::ToplevelModuleName.new @line, @name, @superclass
-        when ScopedConstant
-          Rubinius::AST::ScopedClassName.new @line, @name, @superclass
-        else
-          @name
-        end
-      end
-
-      def class_body
-        Rubinius::AST::ClassScope.new @line, class_name, @body
-      end
-
-      def bytecode(g)
-        class_name.bytecode(g)
-        class_body.bytecode(g)
-      end
-    end
-  end
-end

data/lib/ast/internal/class_variable.rb

@@ -1,23 +0,0 @@
-module Atomy
-  module AST
-    class ClassVariable < Node
-      attributes :identifier
-      generate
-
-      def name
-        ("@@" + @identifier).to_sym
-      end
-
-      def bytecode(g)
-        pos(g)
-        if g.state.scope.module?
-          g.push :self
-        else
-          g.push_scope
-        end
-        g.push_literal name
-        g.send :class_variable_get, 1
-      end
-    end
-  end
-end

data/lib/ast/internal/define.rb

@@ -1,174 +0,0 @@
-module Atomy
-  module AST
-    class Define < Node
-      children :pattern, :body
-      slots :namespace?
-      generate
-
-      def arguments
-        return @arguments if @arguments
-
-        case pattern
-        when BinarySend
-          args = [pattern.rhs]
-        when Variable, Unary
-          args = []
-        else
-          args = pattern.arguments
-        end
-
-        @arguments = args.collect(&:to_pattern)
-      end
-
-      def receiver
-        return @receiver if @receiver
-
-        case pattern
-        when BinarySend
-          recv = pattern.lhs
-        when Variable
-          recv = Primitive.new(pattern.line, :self)
-        else
-          recv = pattern.receiver
-        end
-
-        @receiver = recv.to_pattern
-      end
-
-      def method_name
-        case pattern
-        when Variable
-          pattern.name
-        else
-          pattern.method_name
-        end
-      end
-
-      def ns_method_name(g)
-        if method_name == "initialize"
-          g.push_literal :initialize
-          return
-        end
-
-        if @namespace
-          g.push_literal(
-            Atomy.namespaced(@namespace, method_name).to_sym
-          )
-          return
-        end
-
-        no_ns = g.new_label
-        done = g.new_label
-
-        g.push_cpath_top
-        g.find_const :Atomy
-        g.push_cpath_top
-        g.find_const :Atomy
-        g.find_const :Namespace
-        g.send :get, 0
-        g.dup
-        g.gif no_ns
-
-        g.send :name, 0
-        g.send :to_s, 0
-        g.push_literal method_name
-        g.send :namespaced, 2
-        g.goto done
-
-        no_ns.set!
-        g.pop
-        g.pop
-        g.push_literal method_name
-
-        done.set!
-      end
-
-      def bytecode(g)
-        pos(g)
-
-        defn = receiver.kind_of?(Patterns::Match) && receiver.value == :self
-
-        if defn
-          g.push_rubinius
-          ns_method_name(g)
-          g.send :to_sym, 0
-          g.dup
-          g.push_cpath_top
-          g.find_const :Atomy
-          g.swap
-        else
-          g.push_cpath_top
-          g.find_const :Atomy
-          receiver.target(g)
-          ns_method_name(g)
-          g.send :to_sym, 0
-        end
-
-        create = g.new_label
-        added = g.new_label
-        receiver.construct(g)
-        arguments.each do |p|
-          p.construct(g)
-        end
-        g.make_array arguments.size
-        g.make_array 2
-        @body.construct(g, nil)
-        g.make_array 2
-
-        receiver.target(g)
-        g.push_literal "@atomy::"
-        ns_method_name(g)
-        g.string_build 2
-        g.send :to_sym, 0
-        g.send :instance_variable_get, 1
-        g.dup
-        g.gif create
-
-        g.push_cpath_top
-        g.find_const :Atomy
-        g.move_down 2
-        g.send :insert_method, 2
-        g.goto added
-
-        create.set!
-        g.pop
-        g.make_array 1
-        receiver.target(g)
-        g.swap
-        g.push_literal "@atomy::"
-        ns_method_name(g)
-        g.string_build 2
-        g.send :to_sym, 0
-        g.swap
-        g.send :instance_variable_set, 2
-
-        added.set!
-
-        if defn
-          g.push_false
-          g.push_scope
-          g.send :active_path, 0
-          g.push_int @line
-          g.send :build_method, 5
-          g.push_scope
-          g.push_variables
-          g.send :method_visibility, 0
-          g.send :add_defn_method, 4
-        else
-          g.push_scope
-          g.send :add_method, 4
-        end
-      end
-
-      def local_count
-        local_names.size
-      end
-
-      def local_names
-        arguments.inject(receiver.local_names) do |acc, a|
-          acc + a.local_names
-        end
-      end
-    end
-  end
-end

data/lib/ast/internal/ensure.rb

@@ -1,135 +0,0 @@
-module Atomy
-  module AST
-    class Ensure < Node
-      children :body, :ensure
-      generate
-
-      def bytecode(g)
-        pos(g)
-
-        ok = g.new_label
-        ex = g.new_label
-        g.setup_unwind ex, Rubinius::AST::EnsureType
-
-        # TODO: ?
-        g.new_label.set!
-
-        g.push_exception_state
-        outer_exc_state = g.new_stack_local
-        g.set_stack_local outer_exc_state
-        g.pop
-
-        old_break = g.break
-        new_break = g.new_label
-        g.break = new_break
-
-        old_next = g.next
-        new_next = g.new_label
-        g.next = new_next
-
-        g.state.push_ensure
-        @body.compile(g)
-        g.state.pop_ensure
-
-        g.break = old_break
-        g.next = old_next
-
-        g.pop_unwind
-        g.goto ok
-
-        check_break = nil
-
-        if new_break.used?
-          used_break_local = g.new_stack_local
-          check_break = g.new_label
-
-          new_break.set!
-          g.pop_unwind
-
-          g.push :true
-          g.set_stack_local used_break_local
-          g.pop
-
-          g.goto check_break
-        end
-
-        check_next = nil
-
-        if new_next.used?
-          used_next_local = g.new_stack_local
-          check_next = g.new_label
-
-          new_next.set!
-          g.pop_unwind
-
-          g.push :true
-          g.set_stack_local used_next_local
-          g.pop
-
-          g.goto check_next
-        end
-
-        ex.set!
-
-        g.push_exception_state
-
-        g.state.push_rescue(outer_exc_state)
-        @ensure.compile(g)
-        g.state.pop_rescue
-        g.pop
-
-        g.restore_exception_state
-
-        # Re-raise the exception
-        g.reraise
-
-        ok.set!
-
-        if check_break
-          g.push :false
-          g.set_stack_local used_break_local
-          g.pop
-
-          check_break.set!
-        end
-
-        if check_next
-          g.push :false
-          g.set_stack_local used_next_local
-          g.pop
-
-          check_next.set!
-        end
-
-        # Now, re-emit the code for the ensure which will run if there was no
-        # exception generated.
-        @ensure.compile(g)
-        g.pop
-
-        if check_break
-          post = g.new_label
-
-          g.push_stack_local used_break_local
-          g.gif post
-
-          if g.break
-            g.goto g.break
-          else
-            g.raise_break
-          end
-          post.set!
-        end
-
-        if check_next
-          post = g.new_label
-
-          g.push_stack_local used_next_local
-          g.gif post
-
-          g.next ? g.goto(g.next) : g.ret
-          post.set!
-        end
-      end
-    end
-  end
-end

data/lib/ast/internal/file.rb

@@ -1,14 +0,0 @@
-module Atomy
-  module AST
-    class File < Node
-      generate
-
-      def bytecode(g)
-        pos(g)
-        g.push_scope
-        g.send :active_path, 0
-      end
-    end
-  end
-end
-

data/lib/ast/internal/global_variable.rb

@@ -1,20 +0,0 @@
-module Atomy
-  module AST
-    class GlobalVariable < Node
-      attributes :identifier
-      generate
-
-      def name
-        ("$" + @identifier).to_sym
-      end
-
-      def bytecode(g)
-        pos(g)
-        g.push_rubinius
-        g.find_const :Globals
-        g.push_literal name
-        g.send :[], 1
-      end
-    end
-  end
-end

data/lib/ast/internal/if_then_else.rb

@@ -1,24 +0,0 @@
-module Atomy
-  module AST
-    class IfThenElse < Node
-      children :condition, :then, :else
-      generate
-
-      def bytecode(g)
-        done = g.new_label
-        nope = g.new_label
-
-        @condition.compile(g)
-        g.gif nope
-
-        @then.compile(g)
-        g.goto done
-
-        nope.set!
-        @else.compile(g)
-
-        done.set!
-      end
-    end
-  end
-end

data/lib/ast/internal/instance_variable.rb

@@ -1,17 +0,0 @@
-module Atomy
-  module AST
-    class InstanceVariable < Node
-      attributes :identifier
-      generate
-
-      def name
-        ("@" + @identifier).to_sym
-      end
-
-      def bytecode(g)
-        pos(g)
-        g.push_ivar name
-      end
-    end
-  end
-end