melbourne 1.0.0

data/lib/melbourne/ast/variables.rb

@@ -0,0 +1,251 @@
+module Melbourne
+
+  module AST
+
+    # A back reference as in:
+    #
+    #   $&
+    #
+    # or
+    #
+    #   $'
+    #
+    class BackRef < Node
+
+      # The kind of back reference
+      #
+      attr_accessor :kind
+
+      def initialize(line, ref) #:nodoc:
+        @line = line
+        @kind = ref
+      end
+
+    end
+
+    # A reference to the nth match in a regular expression match result as in:
+    #
+    #   $1
+    #
+    class NthRef < Node
+
+      # The number of the match that is referenced
+      #
+      attr_accessor :which
+
+      def initialize(line, ref) #:nodoc:
+        @line = line
+        @which = ref
+      end
+
+    end
+
+    class VariableAccess < Node #:nodoc:
+
+      attr_accessor :name
+
+      def initialize(line, name)
+        @line = line
+        @name = name
+      end
+
+    end
+
+    class VariableAssignment < Node #:nodoc:
+
+      attr_accessor :name, :value
+
+      def initialize(line, name, value)
+        @line = line
+        @name = name
+        @value = value
+      end
+
+    end
+
+    # Access of a class variable as in:
+    #
+    #   puts @@var
+    #
+    class ClassVariableAccess < VariableAccess
+
+    end
+
+    # An assignment to a class variable as in:
+    #
+    #   @@var = 1
+    #
+    class ClassVariableAssignment < VariableAssignment
+
+    end
+
+    class CVarDeclare < ClassVariableAssignment #:nodoc:
+
+    end
+
+    # Access of a global variable as in:
+    #
+    #   $stderr
+    #
+    class GlobalVariableAccess < VariableAccess
+
+    end
+
+    # Assignment to a global variable as in:
+    #
+    #   $x = 1
+    #
+    class GlobalVariableAssignment < VariableAssignment
+
+    end
+
+    # Assignment to a splat (<tt>*some</tt>) as in:
+    #
+    #   *c = *[1, 2]
+    #
+    class SplatAssignment < Node
+
+      # The value being assigned to the splat
+      #
+      attr_accessor :value
+
+      def initialize(line, value) #:nodoc:
+        @line = line
+        @value = value
+      end
+
+    end
+
+    class SplatArray < SplatAssignment #:nodoc:
+
+      def initialize(line, value, size)
+        @line = line
+        @value = value
+        @size = size
+      end
+
+    end
+
+    class SplatWrapped < SplatAssignment #:nodoc:
+
+    end
+
+    # An empty splat as in:
+    #
+    #   * = 1, 2
+    #
+    class EmptySplat < Node
+
+      def initialize(line, size) #:nodoc:
+        @line = line
+        @size = size
+      end
+
+    end
+
+    # Access of an instance variable as in:
+    #
+    #   puts @var
+    #
+    class InstanceVariableAccess < VariableAccess
+
+    end
+
+    # An assignment to an instance variable as in:
+    #
+    #   @var = 1
+    #
+    class InstanceVariableAssignment < VariableAssignment
+
+    end
+
+    # Access of a local variable as in:
+    #
+    #   puts var
+    #
+    class LocalVariableAccess < VariableAccess
+
+      include LocalVariable
+
+      def initialize(line, name) #:nodoc:
+        @line = line
+        @name = name
+        @variable = nil
+      end
+
+    end
+
+    # An assignment to an instance variable as in:
+    #
+    #   var = 1
+    #
+    class LocalVariableAssignment < VariableAssignment
+
+      include LocalVariable
+
+      def initialize(line, name, value) #:nodoc:
+        @line = line
+        @name = name
+        @value = value
+        @variable = nil
+      end
+
+    end
+
+    # An assignment of multiple values as in:
+    #
+    #   a, b = 1, 2
+    #
+    class MAsgn < Node
+
+      # The left side of the assignment
+      #
+      attr_accessor :left
+
+      # The right side of the assignment
+      #
+      attr_accessor :right
+
+      # TODO: document!
+      attr_accessor :splat #:nodoc:
+
+      # TODO: document!
+      attr_accessor :block #:nodoc:
+
+      def initialize(line, left, right, splat) #:nodoc:
+        @line = line
+        @left = left
+        @right = right
+        @splat = nil
+        @block = nil # support for |&b|
+
+        @fixed = right.kind_of?(ArrayLiteral) ? true : false
+
+        if splat.kind_of? Node
+          if @left
+            if right
+              @splat = SplatAssignment.new line, splat
+            else
+              @splat = SplatWrapped.new line, splat
+            end
+          elsif @fixed
+            @splat = SplatArray.new line, splat, right.body.size
+          elsif right.kind_of? SplatValue
+            @splat = splat
+          else
+            @splat = SplatWrapped.new line, splat
+          end
+        elsif splat and @fixed
+          @splat = EmptySplat.new line, right.body.size
+        end
+      end
+
+      def iter_arguments
+        @iter_arguments = true
+      end
+
+    end
+
+  end
+
+end

data/lib/melbourne/ast.rb

@@ -0,0 +1,22 @@
+base = File.dirname(__FILE__)
+
+module Melbourne
+
+  module AST #:nodoc:
+  end
+
+end
+
+require File.join(base, 'ast/node')
+require File.join(base, 'ast/self')
+require File.join(base, 'ast/constants')
+require File.join(base, 'ast/control_flow')
+require File.join(base, 'ast/definitions')
+require File.join(base, 'ast/exceptions')
+require File.join(base, 'ast/file')
+require File.join(base, 'ast/grapher')
+require File.join(base, 'ast/literals')
+require File.join(base, 'ast/operators')
+require File.join(base, 'ast/sends')
+require File.join(base, 'ast/values')
+require File.join(base, 'ast/variables')

data/lib/melbourne/parser.rb

@@ -0,0 +1,38 @@
+module Melbourne
+
+  class Parser #:nodoc:
+
+    def self.parse_string(string, name = '(eval)', line = 1)
+      new(name, line).parse_string(string)
+    end
+
+    def self.parse_file(name, line=1)
+      new(name, line).parse_file
+    end
+
+    def initialize(name, line, transforms=[])
+      @name = name
+      @line = line > 0 ? line : 1
+    end
+
+    def syntax_error
+      raise @exc if @exc
+    end
+
+    def parse_string(string)
+      syntax_error unless ast = string_to_ast(string, @name, @line)
+      ast
+    end
+
+    def parse_file
+      unless @name and File.exists?(@name)
+        raise Errno::ENOENT, @name.inspect
+      end
+      
+      syntax_error unless ast = file_to_ast(@name, @line)
+      ast
+    end
+
+  end
+
+end