flea 0.1.0

data/spec/flea/standard_library/list_predicate_spec.rb

@@ -0,0 +1,25 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "list?" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should should return true for an empty list" do
+      result = @interpreter.run("(list? '())")
+      result.should == true
+    end
+    
+    it "return true for a populated list" do
+      result = @interpreter.run("(list? '(a b c))")
+      result.should == true
+    end
+    
+    it "should return false for an atom" do
+      result = @interpreter.run("(list? 'a)")
+      result.should == false
+    end
+    
+  end
+end

data/spec/flea/standard_library/list_spec.rb

@@ -0,0 +1,24 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "list" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should create a list from it's arguments" do
+      result = @interpreter.run('(list 9 2 2)')
+      result.should == [9, 2, 2]
+    end
+    
+    it "should evaluate its arguments before creating the list" do
+      result = @interpreter.run('
+        (define a 2)
+        (define b 9)
+        (list b a a)
+      ')
+      result.should == [9, 2, 2]
+    end
+    
+  end
+end

data/spec/flea/standard_library/list_tail_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "list-tail" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should return trailing subset of list" do
+      result = @interpreter.run('
+        (list-tail (quote (1 2 3 4 5)) 2)
+      ')
+      result.should == [3, 4, 5]
+    end
+    
+  end
+end

data/spec/flea/standard_library/mutiplication_operator_spec.rb

@@ -0,0 +1,23 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "multiplication operator" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should multiply several numbers" do
+      result = @interpreter.run('(* 2 2 2)')
+      result.should == 8
+    end
+    
+    it "should evaluate its arguments before multiplying them" do
+      result = @interpreter.run('
+        (define a 2)
+        (* a a a)
+      ')
+      result.should == 8
+    end
+    
+  end
+end

data/spec/flea/standard_library/null_spec.rb

@@ -0,0 +1,26 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "null?" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+  
+    it "should return true for an empty list" do
+      result = @interpreter.run('
+        (null? \'())
+      ')
+      result.should == true
+    end
+    
+    ["1", '"abc"', "(1 2 3)"].each do |value|
+      it "should return false for #{value}" do
+        result = @interpreter.run("
+          (null? (quote #{value}))
+        ")
+        result.should == false
+      end
+    end
+    
+  end
+end

data/spec/flea/standard_library/quote_spec.rb

@@ -0,0 +1,20 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "quote" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should quote a list" do
+      result = @interpreter.run('(quote (1 2 3))')
+      result.should == [1, 2, 3]
+    end
+    
+    it "should quote a single literal" do
+      result = @interpreter.run('(quote 1)')
+      result.should == 1
+    end
+    
+  end
+end

data/spec/flea/standard_library/rand_spec.rb

@@ -0,0 +1,25 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "rand" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    10.times do
+      it "should return a random number lower than or equal to 10" do
+        result = @interpreter.run('(rand 10)')
+        result.should < 11
+      end
+      
+      it "should evaluate its arguments" do
+        result = @interpreter.run('
+          (define a 10)
+          (rand a)
+        ')
+        result.should < 11
+      end
+    end
+  
+  end
+end

data/spec/flea/standard_library/read_spec.rb

@@ -0,0 +1,23 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "read" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+      @old_stdin = $stdin
+      @buffer = StringIO.new
+      $stdin = @buffer
+    end
+    
+    it "should read data structure from STDIN" do
+      @buffer.string = "(1 2.0 test (1 2 3))\n"
+      result = @interpreter.run('(read)')
+      result.should == [[1, 2.0, :test, [1, 2, 3]]]
+    end
+    
+    after :each do
+      $stdin = @old_stdin
+    end
+    
+  end
+end

data/spec/flea/standard_library/set_spec.rb

@@ -0,0 +1,23 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "set!" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should change the value of an existing variable" do
+      @interpreter.run('
+        (define test 1)
+        (set! test 2)')
+      @interpreter.base_environment.find(:test).should == 2
+    end
+    
+    it "should raise error when attempting to set unbound variable" do
+      lambda {
+        @interpreter.run('(set! test 1)')
+      }.should raise_error
+    end
+    
+  end
+end

data/spec/flea/standard_library/string_to_num_spec.rb

@@ -0,0 +1,28 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "string-to-num" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should convert string to integer" do
+      result = @interpreter.run('(string-to-num "10")')
+      result.should == 10
+    end
+    
+    it "should convert string to float" do
+      result = @interpreter.run('(string-to-num "23.0")')
+      result.should == 23.0
+    end
+    
+    it "should evaluate its arguments" do
+      result = @interpreter.run('
+        (define a 2)
+        (string-to-num a)
+      ')
+      result.should == 2
+    end
+    
+  end
+end

data/spec/flea/standard_library/subtraction_operator_spec.rb

@@ -0,0 +1,24 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe "Standard Library" do
+  describe "subtraction operator" do
+    before :each do
+      @interpreter = Flea::Interpreter.new
+    end
+    
+    it "should subtract several numbers" do
+      result = @interpreter.run('(- 9 2 2)')
+      result.should == 5
+    end
+    
+    it "should evaluate its arguments before subtracting them" do
+      result = @interpreter.run('
+        (define a 2)
+        (define b 9)
+        (- b a a)
+      ')
+      result.should == 5
+    end
+    
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'rspec'
+require 'stringio'
+
+require_files = []
+require_files << File.join(File.dirname(__FILE__), '..', 'lib',  'flea.rb')
+
+require_files.each do |file|
+  require File.expand_path(file)
+end

metadata

@@ -0,0 +1,231 @@
+--- !ruby/object:Gem::Specification 
+name: flea
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- Aaron Gough
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-03-13 00:00:00 -05:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: sexpistol
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: any-spec
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id002
+description: Flea is an extremely simple, but extremely extensible Lisp interpreter written in Ruby.
+email: aaron@aarongough.com
+executables: 
+- flea
+- flea
+extensions: []
+
+extra_rdoc_files: 
+- MIT-LICENSE
+- README.rdoc
+files: 
+- .gitignore
+- MIT-LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/flea
+- examples/guess-the-number.scm
+- flea-language-spec/README.rdoc
+- flea-language-spec/flea-language-spec.yaml
+- flea-language-spec/test-cases/01-display-and-basic-literals/01-display-string-literal.scm
+- flea-language-spec/test-cases/01-display-and-basic-literals/02-display-integer-literal.scm
+- flea-language-spec/test-cases/01-display-and-basic-literals/03-display-boolean-true-literal.scm
+- flea-language-spec/test-cases/01-display-and-basic-literals/04-display-boolean-false-literal.scm
+- flea-language-spec/test-cases/01-display-and-basic-literals/05-display-list-literal-using-quote.scm
+- flea-language-spec/test-cases/01-display-and-basic-literals/06-display-identifier-quoted.scm
+- flea-language-spec/test-cases/02-variables/01-define-with-string.scm
+- flea-language-spec/test-cases/02-variables/02-define-with-integer.scm
+- flea-language-spec/test-cases/02-variables/03-define-with-boolean-true.scm
+- flea-language-spec/test-cases/02-variables/04-define-with-boolean-false.scm
+- flea-language-spec/test-cases/02-variables/05-define-with-list.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/01-addition.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/02-subtraction.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/03-multiplication.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/04-division.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/05-equality-true-integer.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/06-equality-false-integer.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/01-equal?-true-integer.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/02-equal?-false-integer.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/03-equal?-true-string.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/04-equal?-false-string.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/05-equal?-true-boolean.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/06-equal?-false-boolean.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/07-equal?-true-list.scm
+- flea-language-spec/test-cases/03-basic-built-in-procedures/07-equal?/08-equal?-false-list.scm
+- flea-language-spec/test-cases/04-comma-quoting/01-comma-quoting.scm
+- flea-language-spec/test-cases/05-lambda/01-lambda.scm
+- flea-language-spec/test-cases/05-lambda/02-call-in-place-lambda.scm
+- flea-language-spec/test-cases/05-lambda/03-define-with-lambda.scm
+- flea-language-spec/test-cases/05-lambda/04-define-and-call-lambda.scm
+- flea-language-spec/test-cases/05-lambda/05-lambda-repeated-argument.scm
+- flea-language-spec/test-cases/05-lambda/06-lambda-list-argument.scm
+- flea-language-spec/test-cases/05-lambda/07-lambda-n-or-more-arguments.scm
+- flea-language-spec/test-cases/05-lambda/08-lambda-should-return-last-result.scm
+- flea-language-spec/test-cases/06-if/01-if-true-single-arg.scm
+- flea-language-spec/test-cases/06-if/02-if-false-single-arg.scm
+- flea-language-spec/test-cases/06-if/03-if-true-two-args.scm
+- flea-language-spec/test-cases/06-if/04-if-false-two-args.scm
+- flea-language-spec/test-cases/07-set/01-should-not-set-undefined-variable.scm
+- flea-language-spec/test-cases/07-set/02-set-previously-defined-variable.scm
+- flea-language-spec/test-cases/08-derived-expressions/01-begin/01-begin.scm
+- flea-language-spec/test-cases/09-list-manipulation/01-car.scm
+- flea-language-spec/test-cases/09-list-manipulation/02-cdr.scm
+- flea-language-spec/test-cases/09-list-manipulation/03-list-tail.scm
+- flea-language-spec/test-cases/09-list-manipulation/04-append.scm
+- flea-language-spec/test-cases/09-list-manipulation/05-list.scm
+- flea-language-spec/test-cases/10-functional-examples/countdown.scm
+- lib/flea.rb
+- lib/flea/environment.rb
+- lib/flea/interpreter.rb
+- lib/flea/standard_library/addition_operator.scm
+- lib/flea/standard_library/append.scm
+- lib/flea/standard_library/begin.scm
+- lib/flea/standard_library/car.scm
+- lib/flea/standard_library/cdr.scm
+- lib/flea/standard_library/cons.scm
+- lib/flea/standard_library/display.scm
+- lib/flea/standard_library/division_operator.scm
+- lib/flea/standard_library/equality_operator.scm
+- lib/flea/standard_library/gets.scm
+- lib/flea/standard_library/greater_than.scm
+- lib/flea/standard_library/if.scm
+- lib/flea/standard_library/lambda.scm
+- lib/flea/standard_library/less_than.scm
+- lib/flea/standard_library/list.scm
+- lib/flea/standard_library/list_predicate.scm
+- lib/flea/standard_library/list_tail.scm
+- lib/flea/standard_library/multiplication_operator.scm
+- lib/flea/standard_library/null.scm
+- lib/flea/standard_library/quote.scm
+- lib/flea/standard_library/rand.scm
+- lib/flea/standard_library/read.scm
+- lib/flea/standard_library/set.scm
+- lib/flea/standard_library/string_to_num.scm
+- lib/flea/standard_library/subtraction_operator.scm
+- spec/flea/environment_spec.rb
+- spec/flea/interpreter_spec.rb
+- spec/flea/standard_library/addition_operator_spec.rb
+- spec/flea/standard_library/append_spec.rb
+- spec/flea/standard_library/begin_spec.rb
+- spec/flea/standard_library/car_spec.rb
+- spec/flea/standard_library/cdr_spec.rb
+- spec/flea/standard_library/cons_spec.rb
+- spec/flea/standard_library/display_spec.rb
+- spec/flea/standard_library/division_operator_spec.rb
+- spec/flea/standard_library/equality_operator_spec.rb
+- spec/flea/standard_library/gets_spec.rb
+- spec/flea/standard_library/greater_than_spec.rb
+- spec/flea/standard_library/if_spec.rb
+- spec/flea/standard_library/lambda_spec.rb
+- spec/flea/standard_library/less_than_spec.rb
+- spec/flea/standard_library/list_predicate_spec.rb
+- spec/flea/standard_library/list_spec.rb
+- spec/flea/standard_library/list_tail_spec.rb
+- spec/flea/standard_library/mutiplication_operator_spec.rb
+- spec/flea/standard_library/null_spec.rb
+- spec/flea/standard_library/quote_spec.rb
+- spec/flea/standard_library/rand_spec.rb
+- spec/flea/standard_library/read_spec.rb
+- spec/flea/standard_library/set_spec.rb
+- spec/flea/standard_library/string_to_num_spec.rb
+- spec/flea/standard_library/subtraction_operator_spec.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://github.com/aarongough/flea
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+- --line-numbers
+- --inline-source
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: A tiny but flexible Lisp interpreter written in Ruby
+test_files: 
+- spec/flea/environment_spec.rb
+- spec/flea/interpreter_spec.rb
+- spec/flea/standard_library/addition_operator_spec.rb
+- spec/flea/standard_library/append_spec.rb
+- spec/flea/standard_library/begin_spec.rb
+- spec/flea/standard_library/car_spec.rb
+- spec/flea/standard_library/cdr_spec.rb
+- spec/flea/standard_library/cons_spec.rb
+- spec/flea/standard_library/display_spec.rb
+- spec/flea/standard_library/division_operator_spec.rb
+- spec/flea/standard_library/equality_operator_spec.rb
+- spec/flea/standard_library/gets_spec.rb
+- spec/flea/standard_library/greater_than_spec.rb
+- spec/flea/standard_library/if_spec.rb
+- spec/flea/standard_library/lambda_spec.rb
+- spec/flea/standard_library/less_than_spec.rb
+- spec/flea/standard_library/list_predicate_spec.rb
+- spec/flea/standard_library/list_spec.rb
+- spec/flea/standard_library/list_tail_spec.rb
+- spec/flea/standard_library/mutiplication_operator_spec.rb
+- spec/flea/standard_library/null_spec.rb
+- spec/flea/standard_library/quote_spec.rb
+- spec/flea/standard_library/rand_spec.rb
+- spec/flea/standard_library/read_spec.rb
+- spec/flea/standard_library/set_spec.rb
+- spec/flea/standard_library/string_to_num_spec.rb
+- spec/flea/standard_library/subtraction_operator_spec.rb
+- spec/spec_helper.rb