mutant-melbourne 2.0.1

data/lib/compiler/ast.rb

@@ -0,0 +1,20 @@
+# -*- encoding: us-ascii -*-
+
+base = File.expand_path "../", __FILE__
+
+require base + "/ast/node"
+require base + "/ast/self"
+require base + "/ast/constants"
+require base + "/ast/control_flow"
+require base + "/ast/data"
+require base + "/ast/definitions"
+require base + "/ast/encoding"
+require base + "/ast/exceptions"
+require base + "/ast/file"
+require base + "/ast/grapher"
+require base + "/ast/literals"
+require base + "/ast/operators"
+require base + "/ast/sends"
+require base + "/ast/values"
+require base + "/ast/variables"
+require base + "/ast/transforms"

data/lib/compiler/locals.rb

@@ -0,0 +1,109 @@
+# -*- encoding: us-ascii -*-
+
+module Rubinius
+  class Compiler
+    module LocalVariables
+      def variables
+        @variables ||= {}
+      end
+
+      def local_count
+        variables.size
+      end
+
+      def local_names
+        names = []
+        eval_names = []
+        variables.each_pair do |name, var|
+          case var
+          when EvalLocalVariable
+            eval_names << name
+          when LocalVariable
+            names[var.slot] = name
+          # We ignore NestedLocalVariables because they're
+          # tagged as existing only in their source scope.
+          end
+        end
+        names += eval_names
+      end
+
+      def allocate_slot
+        variables.size
+      end
+    end
+
+    class LocalVariable
+      attr_reader :slot
+
+      def initialize(slot)
+        @slot = slot
+      end
+
+      def reference
+        LocalReference.new @slot
+      end
+
+      def nested_reference
+        NestedLocalReference.new @slot
+      end
+    end
+
+    class NestedLocalVariable
+      attr_reader :depth, :slot
+
+      def initialize(depth, slot)
+        @depth = depth
+        @slot = slot
+      end
+
+      def reference
+        NestedLocalReference.new @slot, @depth
+      end
+
+      alias_method :nested_reference, :reference
+    end
+
+    class EvalLocalVariable
+      attr_reader :name
+
+      def initialize(name)
+        @name = name
+      end
+
+      def reference
+        EvalLocalReference.new @name
+      end
+
+      alias_method :nested_reference, :reference
+    end
+
+    class LocalReference
+      attr_reader :slot
+
+      def initialize(slot)
+        @slot = slot
+      end
+    end
+
+    class NestedLocalReference
+      attr_accessor :depth
+      attr_reader :slot
+
+      def initialize(slot, depth=0)
+        @slot = slot
+        @depth = depth
+      end
+    end
+
+    class EvalLocalReference
+
+      # Ignored, but simplifies duck-typing references
+      attr_accessor :depth
+
+      def initialize(name)
+        @name = name
+        @depth = 0
+      end
+    end
+  end
+end