lisp 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 1cf99f338dad8c4b0c1a7c3b9495bb34c8afbdf8
+  data.tar.gz: 7f01cbd73045d4926fb1243afda90cc2c7b0b0b4
+SHA512:
+  metadata.gz: 05a8a58b45328fd3e20c2dfb53be58040dd17962195bd15695d0530ab0425dfcdd437aa9378d640b5d39c399d7958519a96c6875909c3827495ede68b5293bc7
+  data.tar.gz: b3964b63d8e79e3ccf5f64b89615c184b3579a1e6b96c95eba1d4c89b58bdde10da15a7b98b822efda97625f852eadcb25167b62282af11e1678f71986d5144d

data/.gitignore

@@ -0,0 +1,2 @@
+env
+pkg

data/Gemfile

@@ -0,0 +1,7 @@
+source "https://rubygems.org"
+
+group :development do
+  gem "codeclimate-test-reporter", require: nil
+end
+
+gemspec

data/Gemfile.lock

@@ -0,0 +1,35 @@
+PATH
+  remote: .
+  specs:
+    lisp (1.0.0)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    codeclimate-test-reporter (0.3.0)
+      simplecov (>= 0.7.1, < 1.0.0)
+    coderay (1.1.0)
+    docile (1.1.3)
+    method_source (0.8.2)
+    multi_json (1.10.1)
+    pry (0.9.12.6)
+      coderay (~> 1.0)
+      method_source (~> 0.8)
+      slop (~> 3.4)
+    rake (10.3.1)
+    simplecov (0.8.2)
+      docile (~> 1.1.0)
+      multi_json
+      simplecov-html (~> 0.8.0)
+    simplecov-html (0.8.0)
+    slop (3.5.0)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  bundler (~> 1.6)
+  codeclimate-test-reporter
+  lisp!
+  pry
+  rake

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 James Moriarty
+
+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,51 @@
+lisp-rb
+=======
+
+[![Code Climate](https://codeclimate.com/github/jamesmoriarty/lisp-rb.png)](https://codeclimate.com/github/jamesmoriarty/lisp-rb) [![Code Climate](https://codeclimate.com/github/jamesmoriarty/lisp-rb/coverage.png)](https://codeclimate.com/github/jamesmoriarty/lisp-rb)
+
+Lisp Interpreter in Ruby. Inspired by [Lis.py](http://norvig.com/lispy.html).
+
+```
+> (define pi 3.14)
+3.14
+> (* pi 2)
+6.28
+> (define area (lambda (r) (* 3.141592653 (* r r))))
+#<Proc:0x007f8af9c59ff0@./lisp.rb:44>
+> (area 3)
+28.274333877
+> (define fact (lambda (n) (if (<= n 1) 1 (* n (fact (- n 1))))))
+#<Proc:0x007f9a4cc4acf0@./lisp.rb:63 (lambda)>
+> (fact 10)
+3628800.0
+```
+
+Install
+-------
+[![Gem Version](https://badge.fury.io/rb/lisp.svg)](http://badge.fury.io/rb/lisp)
+
+```
+gem install lisp
+```
+
+Features
+--------
+
+- [x] __constant literal number__ -	A number evaluates to itself. _Example: 12 or -3.45e+6_
+
+- [x] __procedure call__ - (proc exp...)	If proc is anything other than one of the symbols if, set!, define, lambda, begin, or quote then it is treated as a procedure. It is evaluated using the same rules defined here. All the expressions are evaluated as well, and then the procedure is called with the list of expressions as arguments. _Example: (square 12) ⇒ 144_
+
+- [x] __variable reference__ - var	A symbol is interpreted as a variable name; its value is the variable's value. _Example: x_
+
+- [x] __definition__	- (define var exp)	Define a new variable and give it the value of evaluating the expression exp. _Examples: (define r 3) or (define square (lambda (x) (* x x)))._
+
+- [x] __procedure__	- (lambda (var...) exp)	Create a procedure with parameter(s) named var... and the expression as the body. _Example: (lambda (r) (* 3.141592653 (* r r)))_
+
+- [x] __conditional__ -	(if test conseq alt)	Evaluate test; if true, evaluate and return conseq; otherwise evaluate and return alt. _Example: (if (< 10 20) (+ 1 1) (+ 3 3)) ⇒ 2_
+
+- [ ] __quotation__	- (quote exp) Return the exp literally; do not evaluate it. _Example: (quote (a b c)) ⇒ (a b c)_
+
+- [ ] __assignment__ -	(set! var exp)	Evaluate exp and assign that value to var, which must have been previously defined (with a define or as a parameter to an enclosing procedure). _Example: (set! x2 (* x x))_
+
+
+- [ ] __sequencing__ -	(begin exp...)	 Evaluate each of the expressions in left-to-right order, and return the final value. _Example: (begin (set! x 1) (set! x (+ x 1)) (* x 2)) ⇒ 4_

data/Rakefile

@@ -0,0 +1,7 @@
+require "bundler/gem_tasks"
+
+require 'rake/testtask'
+
+task :default do
+  Dir.glob('./test/*.rb').each { |file| require file}
+end

data/lib/lisp.rb

@@ -0,0 +1,94 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "lisp/version"
+require "lisp/scope"
+
+module Lisp
+  def self.repl
+    puts "ctrl-c to exit"
+    catch(:exit) do
+      loop do
+        print "> "
+        puts begin
+          eval gets
+        rescue Exception => e
+          e.message
+        end
+      end
+    end
+  end
+
+  def self.eval(string)
+    execute(parse(tokenize(string)))
+  end
+
+  def self.tokenize(string)
+    string.gsub("("," ( ").gsub(")"," ) ").split
+  end
+
+  def self.parse(tokens, tree = [])
+    raise "unexpected: eof" if tokens.size.zero?
+    token = tokens.shift
+    case token
+    when "("
+      while tokens[0] != ")" do
+        tree.push parse(tokens)
+      end
+      tokens.shift
+      tree
+    when ")"
+      raise "unexpected: )"
+    else
+      evaluator(token)
+    end
+  end
+
+  def self.evaluator(token)
+    case token
+    when /\d/
+      token.to_f
+    else
+      token.to_sym
+    end
+  end
+
+  def self.execute(exp, scope = global)
+    case exp
+    when Array
+      case exp[0]
+      when :define
+        _, var, exp = exp
+        scope[var] = execute(exp, scope)
+      when :lambda
+        _, params, exp = exp
+        lambda { |*args| execute(exp, Scope.new(params, args, scope)) }
+      when :if
+        _, test, conseq, alt = exp
+        exp = execute(test, scope) ? conseq : alt
+        execute(exp, scope)
+      else
+        func, *args = exp.map { |exp| execute(exp, scope) }
+        func.call(*args)
+      end
+    when Symbol
+      scope[exp]
+    else
+      exp
+    end
+  end
+
+  def self.global
+    @scope ||= begin
+      methods = [:==, :"!=", :"<", :"<=", :">", :">=", :+, :-, :*, :/]
+      methods.inject(Scope.new) do |scope, method|
+        scope.merge(method => lambda { |*args| args.inject(&method) })
+      end
+    end
+  end
+end
+
+if __FILE__ == $0
+   trap("SIGINT") { throw :exit }
+   Lisp.repl
+end

data/lib/lisp/scope.rb

@@ -0,0 +1,14 @@
+module Lisp
+  class Scope < Hash
+    attr_accessor :outer
+
+    def initialize(params = [], args = [], outer = nil)
+      update(Hash[params.zip(args)])
+      self.outer = outer
+    end
+
+    def [](name)
+      super or outer[name]
+    end
+  end
+end

data/lib/lisp/version.rb

@@ -0,0 +1,3 @@
+module Lisp
+  VERSION = "1.0.0"
+end

data/lisp.gemspec

@@ -0,0 +1,24 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'lisp/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "lisp"
+  spec.version       = Lisp::VERSION
+  spec.authors       = ["James Moriarty"]
+  spec.email         = ["jamespaulmoriarty@gmail.com"]
+  spec.summary       = %q{Lisp Interpreter in Ruby.}
+  spec.description   = ""
+  spec.homepage      = ""
+  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.6"
+  spec.add_development_dependency "rake"
+  spec.add_development_dependency "pry"
+end

data/test/test_lisp.rb

@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+require "bundler/setup"
+require "codeclimate-test-reporter"
+CodeClimate::TestReporter.start
+require "minitest/autorun"
+require "pry"
+
+require_relative "../lib/lisp"
+
+class TestLisp < MiniTest::Unit::TestCase
+
+  # parser
+
+  def test_tokenize
+    assert_equal ["(", "+", "1", "1", ")"], Lisp.tokenize("(+ 1 1)")
+  end
+
+  def test_parse
+    assert_raises(RuntimeError) { Lisp.parse(Lisp.tokenize("(")) }
+    assert_raises(RuntimeError) { Lisp.parse(Lisp.tokenize(")")) }
+  end
+
+  # representation
+
+  def test_representation
+    assert_equal [:*, 2, [:+, 1, 0]],                              Lisp.parse(Lisp.tokenize("(* 2 (+ 1 0) )"))
+    assert_equal [:lambda, [:r], [:*, 3.141592653, [:*, :r, :r]]], Lisp.parse(Lisp.tokenize("(lambda (r) (* 3.141592653 (* r r)))"))
+  end
+
+  # execution
+
+  def test_execution
+    assert_equal 1, Lisp.execute(1)
+    assert_equal 2, Lisp.execute([:*, 2, [:+, 1, 0]])
+  end
+
+  def test_eval
+    assert_equal 2, Lisp.eval("(* 2 (+ 1 0) )")
+  end
+
+  def test_define
+    Lisp.eval("(define pi 3.141592653)")
+    assert_equal 6.283185306, Lisp.eval("(* pi 2)")
+  end
+
+  def test_if
+    assert_equal 2, Lisp.eval("(if(== 1 2) 1 2)")
+    assert_equal 1, Lisp.eval("(if(!= 1 2) 1 2)")
+  end
+
+  def test_lambda
+    Lisp.eval("(define area (lambda (r) (* 3.141592653 (* r r))))")
+    assert_equal 28.274333877, Lisp.eval("(area 3)")
+    Lisp.eval("(define fact (lambda (n) (if (<= n 1) 1 (* n (fact (- n 1))))))")
+    assert_equal 3628800, Lisp.eval("(fact 10)")
+  end
+
+  def test_repl
+    assert_output "ctrl-c to exit\n> " do
+      thread = Thread.new { Lisp.repl }
+      sleep 1.0/10.0
+      thread.terminate
+    end
+  end
+end

metadata

@@ -0,0 +1,98 @@
+--- !ruby/object:Gem::Specification
+name: lisp
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- James Moriarty
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-06-09 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.6'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.6'
+- !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: pry
+  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'
+description: ''
+email:
+- jamespaulmoriarty@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- README.md
+- Rakefile
+- lib/lisp.rb
+- lib/lisp/scope.rb
+- lib/lisp/version.rb
+- lisp.gemspec
+- test/test_lisp.rb
+homepage: ''
+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.0
+signing_key: 
+specification_version: 4
+summary: Lisp Interpreter in Ruby.
+test_files:
+- test/test_lisp.rb