poison 0.1.0.dev

data/lib/poison/bootstrap/compiler/node.rb

@@ -0,0 +1,11 @@
+module Poison
+  class Treetop::Runtime::SyntaxNode
+    def node
+      return unless elements
+      all = elements.map { |e| e.node if e }.compact
+      return if all.empty?
+      return all.first if all.size == 1
+      all
+    end
+  end
+end

data/lib/poison/bootstrap/compiler/parser.rb

@@ -0,0 +1,17 @@
+module Poison
+  class Parser
+    def initialize(machine, source)
+      @parser = machine.new
+      @source = source
+    end
+
+    def parse
+      @syntax = Syntax.new @parser.parse(@source)
+
+      unless @syntax
+        raise SyntaxError.new(@parser.failure_reason)
+      end
+      @syntax
+    end
+  end
+end

data/lib/poison/bootstrap/library.rb

@@ -0,0 +1 @@
+require 'poison/bootstrap/library/code_loader'

data/lib/poison/bootstrap/library/code_loader.rb

@@ -0,0 +1,16 @@
+module Poison
+  class CodeLoader
+    def self.execute_file(name)
+      source = File.read name
+      execute_script source
+    end
+
+    def self.execute_script(source)
+      compiler = Compiler.new source
+      ast = compiler.parse
+
+      # just give some output for now
+      ast.graph
+    end
+  end
+end

data/lib/poison/bootstrap/syntax.rb

@@ -0,0 +1,221 @@
+module Poison
+  class SyntaxError < Exception; end
+
+  class Syntax
+    def initialize(parse_tree)
+      @syntax = parse_tree.node
+    end
+
+    def to_sexp
+      @syntax.to_sexp
+    end
+
+    def graph
+      @syntax.graph
+    end
+
+    class Node
+      def to_sexp
+      end
+
+      def graph
+        Rubinius::AST::AsciiGrapher.new(self, Node).print
+      end
+    end
+
+    class Script < Node
+      attr_accessor :statements
+
+      def initialize(statements)
+        @statements = statements
+      end
+
+      def to_sexp
+        [:script, @statements.to_sexp]
+      end
+    end
+
+    class Statements < Node
+      def initialize(statements)
+        @statements = statements
+      end
+
+      def to_sexp
+        if @statements.size == 1
+          @statements.first.to_sexp
+        else
+          @statements.map { |s| s.to_sexp }
+        end
+      end
+    end
+
+    class Assign < Node
+      def initialize(left, right)
+        @left = left
+        @right = right
+      end
+
+      def to_sexp
+        [:assign, @left.to_sexp, @right.to_sexp]
+      end
+    end
+
+    class BinaryOperator
+      def initialize(left, right)
+        @left = left
+        @right = right
+      end
+
+      def to_sexp
+        [sexp_name, @left.to_sexp, @right.to_sexp]
+      end
+    end
+
+    class Or < BinaryOperator
+      def sexp_name
+        :or
+      end
+    end
+
+    class And < BinaryOperator
+      def sexp_name
+        :and
+      end
+    end
+
+    class Pipe < BinaryOperator
+      def sexp_name
+        :pipe
+      end
+    end
+
+    class Caret < BinaryOperator
+      def sexp_name
+        :caret
+      end
+    end
+
+    class Amp < BinaryOperator
+      def sexp_name
+        :amp
+      end
+    end
+
+    class Bitl < BinaryOperator
+      def sexp_name
+        :bitl
+      end
+    end
+
+    class Bitr < BinaryOperator
+      def sexp_name
+        :bitr
+      end
+    end
+
+    class Plus < BinaryOperator
+      def sexp_name
+        :plus
+      end
+    end
+
+    class Minus < BinaryOperator
+      def sexp_name
+        :minus
+      end
+    end
+
+    class Times < BinaryOperator
+      def sexp_name
+        :times
+      end
+    end
+
+    class Div < BinaryOperator
+      def sexp_name
+        :div
+      end
+    end
+
+    class Rem < BinaryOperator
+      def sexp_name
+        :rem
+      end
+    end
+
+    class Pow < BinaryOperator
+      def sexp_name
+        :pow
+      end
+    end
+
+    class Expression < Node
+      attr_accessor :expression
+
+      def initialize(expression)
+        @expression = expression
+      end
+
+      def to_sexp
+        [:expr].concat @expression.map { |e| e.to_sexp }
+      end
+    end
+
+    class Message < Node
+      attr_accessor :name
+
+      def initialize(name)
+        @name = name
+      end
+
+      def to_sexp
+        [:message, [@name, nil, nil]]
+      end
+    end
+
+    class Value < Node
+      attr_accessor :value
+
+      def initialize(value)
+        @value = value
+      end
+
+      def to_sexp
+        [:value, @value.to_sexp]
+      end
+    end
+
+    class Literal < Node
+      attr_accessor :value
+
+      def initialize(value)
+        @value = value
+      end
+
+      def to_sexp
+        [@value, nil, nil]
+      end
+    end
+
+    class NilKind < Literal
+      def initialize
+        @value = nil
+      end
+    end
+
+    class Boolean < Literal
+    end
+
+    class Integer < Literal
+    end
+
+    class Real < Literal
+    end
+
+    class Imaginary < Literal
+    end
+
+    class String < Literal
+    end
+  end
+end

data/lib/poison/version.rb

@@ -0,0 +1,14 @@
+module Poison
+  module VERSION
+    MAJOR = 0
+    MINOR = 1
+    TINY  = 0
+    BUILD = 'dev'
+
+    STRING = [MAJOR, MINOR, TINY, BUILD].join('.')
+  end
+
+  def VERSION.to_s
+    self::STRING
+  end
+end

data/spec/compiler/assign_spec.rb

@@ -0,0 +1,114 @@
+require 'spec/spec_helper'
+
+describe "The Assign node" do
+  relates "a = 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:expr, [:value, [1, nil, nil]]]]
+    end
+  end
+
+  relates "a ||= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:or, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a &&= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:and, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a |= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:pipe, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a ^= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:caret, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a &= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:amp, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a <<= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:bitl, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a >>= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:bitr, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a += 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:plus, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a -= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:minus, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a *= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:times, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a /= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:div, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a %= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:rem, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+
+  relates "a **= 1" do
+    parse do
+      [:assign, [:expr, [:message, ["a", nil, nil]]],
+        [:pow, [:expr, [:message, ["a", nil, nil]]],
+          [:expr, [:value, [1, nil, nil]]]]]
+    end
+  end
+end

data/spec/compiler/message_spec.rb

@@ -0,0 +1,41 @@
+require 'spec/spec_helper'
+
+describe "The Message node" do
+  relates "print" do
+    parse do
+      [:expr, [:message, ["print", nil, nil]]]
+    end
+  end
+
+  relates <<-ruby do
+      "hello" print
+    ruby
+
+    parse do
+      [:expr, [:value, ["hello", nil, nil]],
+        [:message, ["print", nil, nil]]]
+    end
+  end
+
+  relates <<-ruby do
+      1 string print
+    ruby
+
+    parse do
+      [:expr, [:value, [1, nil, nil]],
+        [:message, ["string", nil, nil]],
+        [:message, ["print", nil, nil]]]
+    end
+  end
+
+  relates <<-ruby do
+      name string print
+    ruby
+
+    parse do
+      [:expr, [:message, ["name", nil, nil]],
+        [:message, ["string", nil, nil]],
+        [:message, ["print", nil, nil]]]
+    end
+  end
+end

data/spec/compiler/value_spec.rb

@@ -0,0 +1,57 @@
+require 'spec/spec_helper'
+
+describe "The Value node" do
+  relates "1" do
+    parse do
+      [:expr, [:value, [1, nil, nil]]]
+    end
+  end
+
+  relates "2.4" do
+    parse do
+      [:expr, [:value, [2.4, nil, nil]]]
+    end
+  end
+
+  relates "3.2i" do
+    parse do
+      [:expr, [:value, ["3.2i", nil, nil]]]
+    end
+  end
+
+  relates "0x42" do
+    parse do
+      [:expr, [:value, [66, nil, nil]]]
+    end
+  end
+
+  relates "nil" do
+    parse do
+      [:expr, [:value, [nil, nil, nil]]]
+    end
+  end
+
+  relates "true" do
+    parse do
+      [:expr, [:value, [true, nil, nil]]]
+    end
+  end
+
+  relates "false" do
+    parse do
+      [:expr, [:value, [false, nil, nil]]]
+    end
+  end
+
+  relates '"hello"' do
+    parse do
+      [:expr, [:value, ["hello", nil, nil]]]
+    end
+  end
+
+  relates "'world'" do
+    parse do
+      [:expr, [:value, ["world", nil, nil]]]
+    end
+  end
+end