code-ruby 0.5.5 → 0.6.0

data/lib/code/node/operation.rb

@@ -1,38 +0,0 @@
-class Code
-  class Node
-    class Operation < Node
-      class Operator < Node
-        attr_reader :operator, :statement
-
-        def initialize(parsed)
-          @operator = parsed.delete(:operator)
-          @statement = Node::Statement.new(parsed.delete(:statement))
-        end
-      end
-
-      def initialize(parsed)
-        @first = Node::Statement.new(parsed.delete(:first))
-        @others =
-          parsed
-            .delete(:others)
-            .map { |operator| Node::Operation::Operator.new(operator) }
-
-        super(parsed)
-      end
-
-      def evaluate(**args)
-        first = @first.evaluate(**args)
-
-        @others.reduce(first) do |left, right|
-          statement = right.statement.evaluate(**args)
-
-          left.call(
-            operator: right.operator,
-            arguments: [::Code::Object::Argument.new(statement)],
-            **args
-          )
-        end
-      end
-    end
-  end
-end

data/lib/code/node/power.rb

@@ -1,20 +0,0 @@
-class Code
-  class Node
-    class Power < Node
-      def initialize(parsed)
-        @operator = parsed.delete(:operator)
-        @left = Node::Statement.new(parsed.delete(:left))
-        @right = Node::Statement.new(parsed.delete(:right))
-        super(parsed)
-      end
-
-      def evaluate(**args)
-        @left.evaluate(**args).call(
-          operator: @operator,
-          arguments: [::Code::Object::Argument.new(@right.evaluate(**args))],
-          **args
-        )
-      end
-    end
-  end
-end

data/lib/code/node/rescue.rb

@@ -1,17 +0,0 @@
-class Code
-  class Node
-    class Rescue < Node
-      def initialize(parsed)
-        @left = Node::Statement.new(parsed.delete(:left))
-        @right = Node::Statement.new(parsed.delete(:right))
-        super(parsed)
-      end
-
-      def evaluate(**args)
-        @left.evaluate(**args)
-      rescue ::Code::Error
-        @right.evaluate(**args)
-      end
-    end
-  end
-end

data/lib/code/object/dictionnary.rb

@@ -1,96 +0,0 @@
-class Code
-  class Object
-    class Dictionnary < ::Code::Object
-      attr_reader :raw
-
-      def initialize(raw = {})
-        @raw = raw
-      end
-
-      def call(**args)
-        operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
-        globals = multi_fetch(args, *::Code::GLOBALS)
-        value = arguments.first&.value
-
-        if operator == "values"
-          sig(arguments)
-          values
-        elsif operator == "keys"
-          sig(arguments)
-          keys
-        elsif operator == "each"
-          sig(arguments) { ::Code::Object::Function }
-          each(value, **globals)
-        elsif key?(operator)
-          result = fetch(operator)
-
-          if result.is_a?(::Code::Object::Function)
-            result.call(**args.merge(operator: nil))
-          else
-            sig(arguments)
-            result
-          end
-        else
-          super
-        end
-      end
-
-      def merge(other)
-        ::Code::Object::Dictionnary.new(raw.merge(other.raw))
-      end
-
-      def fetch(key)
-        raw.fetch(key)
-      end
-
-      def [](key)
-        raw[key]
-      end
-
-      def []=(key, value)
-        raw[key] = value
-      end
-
-      def key?(key)
-        raw.key?(key)
-      end
-
-      def deep_dup
-        ::Code::Object::Dictionnary.new(raw.deep_dup)
-      end
-
-      def to_s
-        "{#{raw.map { |key, value| "#{key.inspect} => #{value.inspect}" }.join(", ")}}"
-      end
-
-      def inspect
-        to_s
-      end
-
-      private
-
-      def keys
-        ::Code::Object::List.new(raw.keys)
-      end
-
-      def values
-        ::Code::Object::List.new(raw.values)
-      end
-
-      def each(argument, **globals)
-        raw.each do |key, value|
-          argument.call(
-            arguments: [
-              ::Code::Object::Argument.new(key),
-              ::Code::Object::Argument.new(value)
-            ],
-            **globals
-          )
-        end
-
-        self
-      end
-    end
-  end
-end

data/lib/code/parser/equality_lower.rb

@@ -1,9 +0,0 @@
-class Code
-  class Parser
-    class EqualityLower < Equality
-      def statement
-        ::Code::Parser::Greater
-      end
-    end
-  end
-end

data/lib/code/parser/operation.rb

@@ -1,35 +0,0 @@
-class Code
-  class Parser
-    class Operation < Language
-      def statement
-        raise NotImplementedError
-      end
-
-      def whitespace
-        ::Code::Parser::Whitespace
-      end
-
-      def whitespace?
-        whitespace.maybe
-      end
-
-      def operator
-        raise NotImplementedError
-      end
-
-      def root
-        (
-          statement.aka(:first) <<
-            (
-              whitespace? << operator.aka(:operator) << whitespace? <<
-                statement.aka(:statement)
-            ).repeat(1).aka(:others).maybe
-        )
-          .aka(:operation)
-          .then do |output|
-            output[:operation][:others] ? output : output[:operation][:first]
-          end
-      end
-    end
-  end
-end

data/lib/language/atom.rb

@@ -1,342 +0,0 @@
-class Language
-  class Atom
-    class Rule < Atom
-      def initialize(name:)
-        @name = name
-      end
-
-      def parse(parser)
-        parser.find_rule!(@name).parse(parser)
-      end
-
-      def to_s
-        "rule(#{@name.inspect})"
-      end
-    end
-
-    class Any < Atom
-      def parse(parser)
-        parser.consume(1)
-      end
-
-      def to_s
-        "any"
-      end
-    end
-
-    class Then < Atom
-      def initialize(parent:, block:)
-        @parent = parent
-        @block = block
-      end
-
-      def parse(parser)
-        @parent.parse(parser)
-        parser.output = Output.from_raw(@block.call(parser.output.to_raw))
-      end
-
-      def to_s
-        "(#{@parent}).then {}"
-      end
-    end
-
-    class Repeat < Atom
-      def initialize(parent: nil, min: 0, max: nil)
-        @parent = parent
-        @min = min
-        @max = max
-      end
-
-      def parse(parser)
-        return unless @parent
-
-        if @max.nil?
-          @min.times { match(parser) }
-
-          begin
-            loop { match(parser) }
-          rescue Parser::Interuption
-          end
-        else
-          @min.times { match(parser) }
-
-          begin
-            (@max - @min).times { match(parser) }
-          rescue Parser::Interuption
-          end
-        end
-      end
-
-      def to_s
-        min = @min.zero? ? "" : @min.to_s
-        max = @max.nil? ? "" : ", #{@max}"
-        parenthesis = min.empty? && max.empty? ? "" : "(#{min}#{max})"
-
-        @parent ? "(#{@parent}).repeat#{parenthesis}" : "repeat#{parenthesis}"
-      end
-
-      private
-
-      def match(parser)
-        clone =
-          Parser.new(
-            root: self,
-            input: parser.input,
-            cursor: parser.cursor,
-            buffer: parser.buffer
-          )
-
-        @parent.parse(clone)
-
-        parser.cursor = clone.cursor
-        parser.buffer = clone.buffer
-        parser.output << clone.output
-      end
-    end
-
-    class Str < Atom
-      def initialize(string:)
-        @string = string
-      end
-
-      def parse(parser)
-        if parser.next?(@string)
-          parser.consume(@string.size)
-        else
-          raise Parser::Str::NotFound.new(parser, @string)
-        end
-      end
-
-      def to_s
-        "str(#{@string.inspect})"
-      end
-    end
-
-    class Absent < Atom
-      def initialize(parent: nil)
-        @parent = parent
-      end
-
-      def parse(parser)
-        clone =
-          Parser.new(
-            root: self,
-            input: parser.input,
-            cursor: parser.cursor,
-            buffer: parser.buffer
-          )
-        @parent.parse(clone) if @parent
-      rescue Parser::Interuption
-      else
-        raise Parser::Interuption.new(parser, self)
-      end
-
-      def to_s
-        @parent ? "(#{@parent}).absent" : "absent"
-      end
-    end
-
-    class Ignore < Atom
-      def initialize(parent: nil)
-        @parent = parent
-      end
-
-      def parse(parser)
-        clone =
-          Parser.new(
-            root: self,
-            input: parser.input,
-            cursor: parser.cursor,
-            buffer: parser.buffer
-          )
-        @parent.parse(clone) if @parent
-        parser.cursor = clone.cursor
-      end
-
-      def to_s
-        @parent ? "#{@parent}.ignore" : "ignore"
-      end
-    end
-
-    class Maybe < Atom
-      def initialize(parent:)
-        @parent = parent
-      end
-
-      def parse(parser)
-        clone =
-          Parser.new(
-            root: self,
-            input: parser.input,
-            cursor: parser.cursor,
-            buffer: parser.buffer
-          )
-
-        @parent.parse(clone)
-      rescue Parser::Interuption
-      else
-        parser.cursor = clone.cursor
-        parser.output = clone.output
-      end
-
-      def to_s
-        @parent ? "#{@parent}.maybe" : "maybe"
-      end
-    end
-
-    class Aka < Atom
-      def initialize(name:, parent:)
-        @name = name
-        @parent = parent
-      end
-
-      def parse(parser)
-        clone =
-          Parser.new(root: self, input: parser.input, cursor: parser.cursor)
-
-        @parent.parse(clone)
-
-        if clone.output?
-          parser.output = Output.new(@name => clone.output)
-        else
-          parser.output[@name] = Output.new(clone.buffer)
-          parser.buffer = ""
-        end
-
-        parser.cursor = clone.cursor
-      end
-
-      def to_s
-        @parent ? "#{@parent}.aka(#{@name.inspect})" : "aka(#{@name.inspect})"
-      end
-    end
-
-    class Or < Atom
-      def initialize(left:, right:)
-        @left = left
-        @right = right
-      end
-
-      def parse(parser)
-        left_clone =
-          Parser.new(
-            root: self,
-            input: parser.input,
-            cursor: parser.cursor,
-            buffer: parser.buffer
-          )
-
-        right_clone =
-          Parser.new(
-            root: self,
-            input: parser.input,
-            cursor: parser.cursor,
-            buffer: parser.buffer
-          )
-
-        begin
-          @left.parse(left_clone)
-          parser.cursor = left_clone.cursor
-          parser.buffer = left_clone.buffer
-          parser.output.merge(left_clone.output)
-        rescue Parser::Interuption
-          @right.parse(right_clone)
-          parser.cursor = right_clone.cursor
-          parser.buffer = right_clone.buffer
-          parser.output.merge(right_clone.output)
-        end
-      end
-
-      def to_s
-        "((#{@left}) | (#{@right}))"
-      end
-    end
-
-    class And < Atom
-      def initialize(left:, right:)
-        @left = left
-        @right = right
-      end
-
-      def parse(parser)
-        @left.parse(parser)
-        right_clone =
-          Parser.new(
-            root: self,
-            input: parser.input,
-            cursor: parser.cursor,
-            buffer: parser.buffer
-          )
-        @right.parse(right_clone)
-        parser.cursor = right_clone.cursor
-        parser.buffer = right_clone.buffer
-
-        parser.output.merge(right_clone.output)
-      end
-
-      def to_s
-        "#{@left} >> #{@right}".to_s
-      end
-    end
-
-    def any
-      Any.new
-    end
-
-    def str(string)
-      Str.new(string: string)
-    end
-
-    def absent
-      Absent.new(parent: self)
-    end
-
-    def ignore
-      Ignore.new(parent: self)
-    end
-
-    def maybe
-      Maybe.new(parent: self)
-    end
-
-    def repeat(min = 0, max = nil)
-      Repeat.new(parent: self, min: min, max: max)
-    end
-
-    def aka(name)
-      Aka.new(parent: self, name: name)
-    end
-
-    def |(other)
-      Or.new(left: self, right: other)
-    end
-
-    def >>(other)
-      And.new(left: self, right: other)
-    end
-
-    def <<(other)
-      And.new(left: self, right: other)
-    end
-
-    def then(&block)
-      Then.new(parent: self, block: block)
-    end
-
-    def rule(name)
-      Rule.new(name: name)
-    end
-
-    def parse(parser)
-      raise NotImplementedError.new("#{self.class}#parse")
-    end
-
-    def to_s
-      ""
-    end
-
-    def inspect
-      to_s
-    end
-  end
-end

data/lib/language/output.rb

@@ -1,130 +0,0 @@
-class Language
-  class Output
-    attr_reader :raw
-
-    def initialize(raw = nil)
-      @raw = raw
-    end
-
-    def self.from_raw(raw)
-      if raw.is_a?(Array)
-        new(raw.map { |element| from_raw(element) })
-      elsif raw.is_a?(Hash)
-        new(raw.map { |key, value| [key, from_raw(value)] }.to_h)
-      else
-        new(raw)
-      end
-    end
-
-    def to_raw
-      if raw.is_a?(Array)
-        raw.map(&:to_raw)
-      elsif raw.is_a?(Hash)
-        raw.map { |key, value| [key, value.to_raw] }.to_h
-      else
-        raw
-      end
-    end
-
-    def clone
-      Output.new(@raw.clone)
-    end
-
-    def present?
-      @raw != nil
-    end
-
-    def ==(other)
-      other.is_a?(Output) ? raw == other.raw : raw == other
-    end
-
-    def to_s
-      raw.to_s
-    end
-
-    def inspect
-      raw.inspect
-    end
-
-    def []=(key, value)
-      case @raw
-      when NilClass
-        @raw = { key => value }
-      when String
-        @raw = { key => value }
-      when Array
-        @raw << Output.new({ key => value })
-      when Hash
-        @raw[key] = value
-      end
-    end
-
-    def merge(other)
-      case @raw
-      when NilClass
-        @raw = other.raw
-      when String
-        case other.raw
-        when String
-          @raw = @raw + other.raw
-        when Array
-          @raw = other.raw
-        when Hash
-          @raw = other.raw
-        end
-      when Array
-        case other.raw
-        when String
-          return
-        when Array
-          @raw = @raw + other.raw
-        when Hash
-          @raw << other
-        end
-      when Hash
-        case other.raw
-        when String
-          return
-        when Array
-          return
-        when Hash
-          @raw.merge!(other.raw)
-        end
-      end
-    end
-
-    def <<(other)
-      case @raw
-      when NilClass
-        case other.raw
-        when String
-          @raw = [other]
-        when Array
-          @raw = [other]
-        when Hash
-          @raw = [other]
-        end
-      when String
-        case other.raw
-        when String
-          @raw = @raw + other.raw
-        when Array
-          @raw = [other]
-        when Hash
-          @raw = [other]
-        end
-      when Array
-        @raw << other
-      when Hash
-        case other.raw
-        when String
-          return
-        when Array
-          return
-        when Hash
-          @raw.merge!(other.raw)
-        end
-      end
-    end
-  end
-end

data/lib/language/parser/absent/present.rb

@@ -1,8 +0,0 @@
-class Language
-  class Parser
-    class Absent
-      class Present < Interuption
-      end
-    end
-  end
-end

data/lib/language/parser/absent.rb

@@ -1,6 +0,0 @@
-class Language
-  class Parser
-    class Absent
-    end
-  end
-end

data/lib/language/parser/end_of_input.rb

@@ -1,6 +0,0 @@
-class Language
-  class Parser
-    class EndOfInput < Interuption
-    end
-  end
-end