obtuse 0.0.1

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--format documentation

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in obtuse.gemspec
+gemspec

data/Guardfile

@@ -0,0 +1,3 @@
+guard 'rspec' do
+  watch(/^(lib|spec)/) { "spec" }
+end

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Utkarsh Kukreti
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,29 @@
+# Obtuse
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'obtuse'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install obtuse
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/bin/obtuse

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+require 'obtuse'
+
+Obtuse::CLI.new ARGV

data/lib/obtuse.rb

@@ -0,0 +1,9 @@
+require "parslet"
+
+require "obtuse/parser"
+require "obtuse/transform"
+require "obtuse/evaluator"
+
+require "obtuse/cli"
+
+require "obtuse/version"

data/lib/obtuse/cli.rb

@@ -0,0 +1,42 @@
+module Obtuse
+  class CLI
+    def initialize(argv)
+      repl # Just start the REPL for now
+    end
+
+    def repl
+      require "readline"
+      puts "Obtuse Programming Language"
+      puts 'Type "stack" or "s" to print the complete stack.'
+      puts 'Type "exit" or hit Ctrl-D to exit'
+      prompt = "> "
+
+      evaluator = Evaluator.new
+      loop do
+        line = Readline::readline(prompt)
+
+        if line.nil? or line == "exit"
+          puts if line.nil?
+          puts "Bye!"
+          exit 0
+        end
+
+        next if line.empty?
+
+        Readline::HISTORY << line
+
+        begin
+          if line == "s" || line == "stack"
+            p evaluator.stack
+          else
+            evaluator.eval line
+            p evaluator.peek
+          end
+        rescue Exception => e
+          puts e.message
+          puts e.backtrace
+        end
+      end
+    end
+  end
+end

data/lib/obtuse/evaluator.rb

@@ -0,0 +1,40 @@
+module Obtuse
+  class Evaluator
+    attr_reader :stack
+
+    def initialize
+      @stack     = []
+      @parser    = Parser.new
+      @transform = Transform.new
+    end
+
+    def eval(input)
+      @transform.apply(@parser.parse(input)).each do |atom|
+        case atom
+        when Integer, String
+          push atom
+        when :+, :-, :*, :/, :%, :^
+          atom = :** if atom == :^
+          y, x = pop, pop
+          if Integer === x && Integer === y ||
+            String === x && String === y
+            push x.send(atom, y)
+          else
+          end
+        end
+      end
+    end
+
+    def push(object)
+      @stack << object
+    end
+
+    def pop
+      @stack.pop
+    end
+
+    def peek
+      @stack.last
+    end
+  end
+end

data/lib/obtuse/parser.rb

@@ -0,0 +1,28 @@
+module Obtuse
+  class Parser < Parslet::Parser
+    rule(:spaces)  { match['\s'].repeat(1)  }
+    rule(:spaces?) { spaces.maybe           }
+    rule(:digit)   { match["0-9"]           }
+    rule(:digits)  { match["0-9"].repeat(1) }
+
+    rule :integer do
+      digits.as(:integer) >> spaces?
+    end
+
+    rule :string do
+      str('"') >> (str('"').absent? >> (str('\\"') | any)).repeat.as(:string) >>
+      str('"') >> spaces?
+    end
+
+    rule :function do
+      %w{+ - * / % ^}.map { |name| str name }.reduce(:|).
+        as(:function) >> spaces?
+    end
+
+    rule :expression do
+      spaces? >> (string | integer | function).repeat >> spaces?
+    end
+
+    root :expression
+  end
+end

data/lib/obtuse/transform.rb

@@ -0,0 +1,9 @@
+module Obtuse
+  class Transform < Parslet::Transform
+    rule(integer:  simple(:x)) { x.to_i        }
+    rule(function: simple(:x)) { x.to_s.to_sym }
+    rule(string:   simple(:x)) do
+      x.to_s.gsub('\\t', "\t").gsub('\\n', "\n").gsub('\\"', '"')
+    end
+  end
+end

data/lib/obtuse/version.rb

@@ -0,0 +1,3 @@
+module Obtuse
+  VERSION = "0.0.1"
+end

data/obtuse.gemspec

@@ -0,0 +1,27 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'obtuse/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "obtuse"
+  gem.version       = Obtuse::VERSION
+  gem.authors       = ["Utkarsh Kukreti"]
+  gem.email         = ["utkarshkukreti@gmail.com"]
+  gem.description   = "A Stack-oriented programming language, optimized for " +
+                      "brevity."
+  gem.summary       = "A Stack-oriented programming language, optimized for " +
+                      "brevity."
+  gem.homepage      = "https://github.com/utkarshkukreti/obtuse"
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+
+  gem.add_dependency "parslet"
+
+  %w{rspec guard-rspec simplecov pry}.each do |name|
+    gem.add_development_dependency name
+  end
+end

data/spec/obtuse_spec.rb

@@ -0,0 +1,35 @@
+require "spec_helper"
+
+describe Obtuse do
+  it "should have a VERSION" do
+    Obtuse::VERSION.should be_a String
+  end
+
+  describe "Integer Integer (+|-|*|/|%|^)" do
+    e "2 1+", 3
+    e "10 20 +", 30
+    e "2 3-", -1
+    e "10 20 -", -10
+    e "2 3*", 6
+    e "10 20 *", 200
+    e "2 3/", 0
+    e "10 20 /", 0
+    e "2 3%", 2
+    e "10 20 %", 10
+    e "2 3^", 8
+    e "10 20 ^", 10 ** 20
+
+    e "1 2+3-", 0
+    e "5 1 4 5 2 3 4 +-+-+-", 0
+  end
+
+  describe "String" do
+    e %q{"a \n b \n c \t\td\na"}, "a \n b \n c \t\td\na"
+  end
+
+  describe "String String +" do
+    e '"foo""bar"+', "foobar"
+    e '"foo" "bar"+', "foobar"
+    e '"foo\\"" "bar"+', 'foo"bar'
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,16 @@
+require "bundler/setup"
+require "simplecov"
+SimpleCov.start do
+  add_group "Libraries", "/lib"
+end
+require "obtuse"
+
+RSpec.configure do |config|
+  def e(input, output)
+    it "should evaluate #{input.inspect} to #{output.inspect}" do
+      evaluator = Obtuse::Evaluator.new
+      evaluator.eval(input)
+      evaluator.peek.should eq output
+    end
+  end
+end

metadata

@@ -0,0 +1,146 @@
+--- !ruby/object:Gem::Specification
+name: obtuse
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Utkarsh Kukreti
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-12-17 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: parslet
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: guard-rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: simplecov
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: pry
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: A Stack-oriented programming language, optimized for brevity.
+email:
+- utkarshkukreti@gmail.com
+executables:
+- obtuse
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- Gemfile
+- Guardfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/obtuse
+- lib/obtuse.rb
+- lib/obtuse/cli.rb
+- lib/obtuse/evaluator.rb
+- lib/obtuse/parser.rb
+- lib/obtuse/transform.rb
+- lib/obtuse/version.rb
+- obtuse.gemspec
+- spec/obtuse_spec.rb
+- spec/spec_helper.rb
+homepage: https://github.com/utkarshkukreti/obtuse
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: A Stack-oriented programming language, optimized for brevity.
+test_files:
+- spec/obtuse_spec.rb
+- spec/spec_helper.rb
+has_rdoc: