ql 0.0.2

data/lib/q/scope.rb

@@ -0,0 +1,94 @@
+module Q
+  class Scope
+    def initialize parents = nil
+      @map = {}
+      @args = []
+      @parents = [ parents ].flatten.compact
+      @this = nil
+    end
+
+    def [] name
+      return @map[name] if has_own? name
+
+      @parents.each do |parent|
+        if parent.has? name
+          return parent[name]
+        end
+      end
+
+      return nil
+    end
+
+    def []= name, value
+      return @map[name] = value if has_own? name
+
+      @parents.each do |parent|
+        if parent.has? name
+          return parent[name] = value
+        end
+      end
+
+      @map[name] = value
+    end
+
+    def has? name
+      if has_own? name
+        return true
+      end
+
+      @parents.each do |parent|
+        if parent.has? name
+          return true
+        end
+      end
+
+      return false
+    end
+
+    def has_own? name
+      @map.has_key? name
+    end
+
+    def args= args
+      @args = [args].flatten
+    end
+
+    def args
+      @args
+    end
+
+    def this= th
+      if has_own? '@'
+        return @map['@'] = @this = th
+      end
+
+      @this = th
+    end
+
+    def this
+      if has_own? '@'
+        return @this = @map['@']
+      end
+
+      @this
+    end
+
+    def inspect
+      str = "Q::Scope --\n"
+
+      @map.each do |key, value|
+        str += "  #{key} => #{value}\n"
+      end
+
+      if not @parents.empty?
+        str += "\n  parents:\n"
+
+        @parents.each do |parent|
+          str += "  #{parent.inspect}\n"
+        end
+      end
+
+      str
+    end
+  end
+end

data/lib/q/syntax.rb

@@ -0,0 +1,51 @@
+require 'treetop'
+
+module Q
+  module Syntax
+
+    class Function < Treetop::Runtime::SyntaxNode
+      def eval prefscope
+        defargs = args
+
+        prefscope['_'] = this = lambda { |scope|
+            argscope = Q::Scope.new
+
+            defargs.each_with_index do |arg, i|
+              argscope[arg] = scope.args[i]
+            end
+
+            fscope = Q::Scope.new [argscope, scope, prefscope]
+            fscope.this = this
+
+            fscope['_'] = statements.eval fscope
+
+            return fscope.this
+          }
+      end
+
+      def args
+        arguments.elements.map do |argument|
+          argument.identifier.text_value
+        end
+      end
+    end
+
+    class Conditional < Treetop::Runtime::SyntaxNode
+      def eval scope
+        if condition.eval(scope) == true
+          return consequence.eval(scope)
+        end
+
+        if has_otherwise?
+          return otherwise.consequence.eval(scope)
+        end
+
+        false
+      end
+
+      def has_otherwise?
+        not otherwise.elements.nil?
+      end
+    end
+  end
+end

data/lib/q/version.rb

@@ -0,0 +1,3 @@
+module Q
+  VERSION = "0.0.2"
+end

data/lib/q/vm.rb

@@ -0,0 +1,72 @@
+require 'q/scope'
+require 'q/parser'
+
+module Q
+  class ParsingException < StandardError
+    def initialize input, failure_line, failure_index, failure_reason
+      @input = input
+      @failure_line = failure_line
+      @failure_index = failure_index
+      @failure_reason = failure_reason
+    end
+
+    def to_s
+      @failure_reason
+    end
+
+    def reason
+      [
+        point,
+        @failure_reason
+      ] * '\n'
+    end
+
+    private
+    def line
+      @failure_line = @input.split('\n')[@failure_line - 1] if @failure_line.kind_of? Fixnum
+
+      @failure_line
+    end
+
+    def point
+      [
+        line,
+        " " * (@failure_index + 1) + "^"
+      ] * '\n'
+    end
+  end
+
+  class ToplevelScope < Q::Scope
+    def initialize
+      super()
+
+      self['puts'] = lambda { |scope|
+        puts scope.args
+      }
+    end
+  end
+
+  class VM
+    def initialize
+      Q.load
+
+      @scope  = ToplevelScope.new
+      @parser = QParser.new
+    end
+
+    def eval input
+      parsed = @parser.parse input
+
+      if parsed.nil?
+        raise ParsingException.new input, @parser.failure_line, @parser.failure_index, @parser.failure_reason
+      end
+
+      parsed.eval @scope
+    end
+
+    def reset with_scope = false
+      @parser = QParser.new
+      @scope  = Q::Scope.new if with_scope
+    end
+  end
+end

data/ql.gemspec

@@ -0,0 +1,26 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'q/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "ql"
+  spec.version       = Q::VERSION
+  spec.authors       = ["Stojan Dimitrovski"]
+  spec.email         = ["s.dimitrovski@gmail.com"]
+  spec.summary       = %q{Q, a simple programming language.}
+  spec.description   = %q{Q is a simple programming language implemented on top of Ruby with Treetop.}
+  spec.homepage      = "https://github.com/hf/q"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.5"
+  spec.add_development_dependency "rspec"
+  spec.add_development_dependency "rake"
+
+  spec.add_dependency "treetop", "~> 1.4"
+end

data/spec/binomial_spec.rb

@@ -0,0 +1,45 @@
+require 'q/scope'
+require 'q/parser'
+
+describe "Binomial" do
+  before do
+    @scope = Q::Scope.new
+  end
+
+  it "should be a number" do
+    expect(eval "3378;").to eq 3378
+    expect(eval "-3378;").to eq -3378
+    expect(eval "18.;").to eq 18.0
+    expect(eval "-18.;").to eq -18.0
+    expect(eval "18.789;").to eq 18.789
+    expect(eval "-18.232;").to eq -18.232
+  end
+
+  it "should do addition" do
+    expect(eval "30 + 21;").to eq 30 + 21
+    expect(eval "30 + -21;").to eq 30 + (-21)
+
+    @scope['a'] = 15
+    @scope['b'] = 30
+
+    expect(eval "a + b;").to eq @scope['a'] + @scope['b']
+  end
+
+  it "should do subtraction" do
+    expect(eval "30 - 15;").to eq 30 - 15
+    expect(eval "-10 - 15;").to eq -10 - 15
+
+    @scope['a'] = -15
+    @scope['b'] = 80
+
+    expect(eval "a - b;").to eq @scope['a'] - @scope['b']
+  end
+
+  def eval input
+    if not input.end_with? ";"
+      input = input + ";"
+    end
+
+    QParser.new.parse(input).eval(@scope)
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,8 @@
+require 'rubygems'
+require 'bundler/setup'
+# our gem
+require 'doctor_toons'
+
+RSpec.configure do |config|
+
+end

metadata

@@ -0,0 +1,122 @@
+--- !ruby/object:Gem::Specification
+name: ql
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+platform: ruby
+authors:
+- Stojan Dimitrovski
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-03-01 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.5'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.5'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: treetop
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.4'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.4'
+description: Q is a simple programming language implemented on top of Ruby with Treetop.
+email:
+- s.dimitrovski@gmail.com
+executables:
+- q
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- Gemfile.lock
+- LICENSE
+- LICENSE.txt
+- README
+- Rakefile
+- bin/q
+- examples/factorial.q
+- lib/q.rb
+- lib/q.treetop
+- lib/q/parser.rb
+- lib/q/scope.rb
+- lib/q/syntax.rb
+- lib/q/version.rb
+- lib/q/vm.rb
+- ql.gemspec
+- spec/binomial_spec.rb
+- spec/spec_helper.rb
+homepage: https://github.com/hf/q
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Q, a simple programming language.
+test_files:
+- spec/binomial_spec.rb
+- spec/spec_helper.rb