ajlisp 0.0.0

data/test/test_primitive_add.rb

@@ -0,0 +1,26 @@
+
+require 'ajlisp'
+require 'test/unit'
+
+class TestPrimitiveAdd < Test::Unit::TestCase
+    def test_simple_apply
+        add = AjLisp::PrimitiveAdd.instance
+        result = add.apply(nil, [1, 2])
+        assert result.is_a? Fixnum
+        assert_equal 3, result
+    end
+
+    def test_simple_to_one_number
+        add = AjLisp::PrimitiveAdd.instance
+        result = add.apply(nil, [1])
+        assert result.is_a? Fixnum
+        assert_equal 1, result
+    end
+
+    def test_simple_to_no_number
+        add = AjLisp::PrimitiveAdd.instance
+        result = add.apply(nil, [])
+        assert result.is_a? Fixnum
+        assert_equal 0, result
+    end
+end

data/test/test_primitive_closure.rb

@@ -0,0 +1,29 @@
+require 'ajlisp'
+require 'test/unit'
+
+class TestPrimitiveClosure < Test::Unit::TestCase
+    def test_new_with_no_context
+        arguments = AjLisp::List.make [ :a, :b ]
+        body = AjLisp::List.make [[ :cons, :a, :b ]]
+        closure = AjLisp::PrimitiveClosure.new arguments, body
+        assert_equal arguments, closure.arguments
+        assert_equal body, closure.body
+        assert_nil closure.context
+    end
+
+    def test_evaluate_simple_body
+        arguments = AjLisp::List.make [ :a, :b ]
+        body = [ AjLisp::List.make([ :cons, :a, :b ])]
+        closure = AjLisp::PrimitiveClosure.new arguments, body
+        list = AjLisp::List.make [closure, "a", [:quote, [:b, :c]]]
+        
+        result = closure.evaluate(AjLisp::context, list)
+        
+        assert_not_nil result
+        assert result.is_a? AjLisp::List
+        assert_equal "a", result.first
+        assert_equal :b, result.rest.first.name
+        assert_equal :c, result.rest.rest.first.name
+        assert_nil result.rest.rest.rest
+    end
+end

data/test/test_primitive_cons.rb

@@ -0,0 +1,39 @@
+
+require 'ajlisp'
+require 'test/unit'
+
+class TestPrimitiveCons < Test::Unit::TestCase
+    def test_simple_apply
+        cons = AjLisp::PrimitiveCons.instance
+        result = cons.apply(nil, ["a", nil])
+        assert result.is_a? AjLisp::List
+        assert_equal "a", result.first
+        assert_nil result.rest
+    end
+
+    def test_apply
+        list = AjLisp::List.new "b"
+        cons = AjLisp::PrimitiveCons.instance
+        result = cons.apply(nil, ["a", list])
+        assert result.is_a? AjLisp::List
+        assert_equal "a", result.first
+        assert_equal "b", result.rest.first
+        assert_nil result.rest.rest
+    end
+    
+    def test_simple_evaluate
+        form = AjLisp::List.new(AjLisp::PrimitiveCons.instance, AjLisp::List.new("a"))		
+        result = form.evaluate(nil)
+        assert result.is_a? AjLisp::List
+        assert_equal "a", result.first
+        assert_nil result.rest 
+    end
+    
+    def test_simple_evaluate_using_name
+        form = AjLisp::List.new(AjLisp::NamedAtom.new("cons"), AjLisp::List.new("a"))		
+        result = form.evaluate(AjLisp::context)
+        assert result.is_a? AjLisp::List
+        assert_equal "a", result.first
+        assert_nil result.rest 
+    end
+end

data/test/test_primitive_eval.rb

@@ -0,0 +1,13 @@
+
+require 'ajlisp'
+require 'test/unit'
+
+class TestPrimitiveEval < Test::Unit::TestCase
+    def test_simple_apply
+        eval = AjLisp::PrimitiveEval.instance
+        add = AjLisp::PrimitiveAdd.instance
+        result = eval.apply(nil, [AjLisp::List.make([add, 1, 2])])
+        assert result.is_a? Fixnum
+        assert_equal 3, result
+    end
+end

data/test/test_primitive_first.rb

@@ -0,0 +1,25 @@
+
+require 'ajlisp'
+require 'test/unit'
+
+class TestPrimitiveFirst < Test::Unit::TestCase
+	def test_simple_apply
+		list = AjLisp::List.new("a")
+		first = AjLisp::PrimitiveFirst.instance
+		assert_equal("a", first.apply(nil, [list]))
+	end
+	
+	def test_simple_evaluate
+        quote = AjLisp::List.make [AjLisp::FPrimitiveQuote.instance, ["a"]]
+		form = AjLisp::List.make [AjLisp::PrimitiveFirst.instance, quote]
+		result = form.evaluate(nil)
+		assert_equal("a", result)
+	end
+	
+	def test_simple_evaluate_with_name
+        quote = AjLisp::List.make [AjLisp::FPrimitiveQuote.instance, ["a"]]
+		form = AjLisp::List.make [AjLisp::NamedAtom.new("first"), quote]
+		result = form.evaluate(AjLisp::context)
+		assert_equal("a", result)
+	end
+end

data/test/test_primitive_list.rb

@@ -0,0 +1,27 @@
+
+require 'ajlisp'
+require 'test/unit'
+
+module AjLisp
+
+class TestPrimitiveList < Test::Unit::TestCase
+    def test_simple_apply
+        list = PrimitiveList.instance
+        result = list.apply(nil, ["a", "b"])
+        assert result.is_a? List
+        assert_equal "a", result.first
+		assert_equal "b", result.rest.first
+        assert_nil result.rest.rest
+    end
+
+    def test_apply
+        list = PrimitiveList.instance
+        result = list.apply(nil, ["a", List.make(["b"])])
+        assert result.is_a? List
+        assert_equal "a", result.first
+        assert_equal "b", result.rest.first.first
+        assert_nil result.rest.rest
+    end
+end
+
+end

data/test/test_primitive_rest.rb

@@ -0,0 +1,29 @@
+
+require 'ajlisp'
+require 'test/unit'
+
+class TestPrimitiveRest < Test::Unit::TestCase
+	def test_simple_apply
+		list = AjLisp::List.new("a", AjLisp::List.new("b"))
+		rest = AjLisp::PrimitiveRest.instance
+		assert_equal("b", rest.apply(nil, [list]).first)
+	end
+	
+	def test_simple_evaluate
+		list = AjLisp::List.make [AjLisp::FPrimitiveQuote.instance, ["a", "b"]]
+		form = AjLisp::List.make [AjLisp::PrimitiveRest.instance, list]
+		result = form.evaluate(nil)
+        assert result.is_a? AjLisp::List
+		assert_equal "b", result.first
+        assert_nil result.rest
+	end
+	
+	def test_simple_evaluate_using_name
+		list = AjLisp::List.make [AjLisp::FPrimitiveQuote.instance, ["a", "b"]]
+		form = AjLisp::List.make [AjLisp::NamedAtom.new("rest"), list]
+		result = form.evaluate(AjLisp::context)
+        assert result.is_a? AjLisp::List
+		assert_equal "b", result.first
+        assert_nil result.rest
+	end
+end

data/test/test_string_source.rb

@@ -0,0 +1,10 @@
+
+require 'ajlisp'
+require 'test/unit'
+
+class TestStringSource < Test::Unit::TestCase
+	def test_next_char
+		source = AjLisp::StringSource.new "a"
+		assert 'a', source.nextChar
+	end
+end

data/test/test_token.rb

@@ -0,0 +1,14 @@
+require 'ajlisp'
+require 'test/unit'
+
+module AjLisp
+
+class TestToken < Test::Unit::TestCase
+	def test_create_token
+		token = Token.new "atom", TokenType::ATOM
+		assert_equal "atom", token.value
+		assert_equal TokenType::ATOM, token.type
+	end
+end
+
+end

metadata

@@ -0,0 +1,131 @@
+--- !ruby/object:Gem::Specification
+name: ajlisp
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Angel 'Java' Lopez
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-03-09 00:00:00.000000000 Z
+dependencies: []
+description: Lisp interpreter that can access and invoke Ruby libraries and classes
+email: webmaster@ajlopez.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- LICENSE
+- README.md
+- lib/ajlisp/at_constant_atom.rb
+- lib/ajlisp/context.rb
+- lib/ajlisp/dot_verb_atom.rb
+- lib/ajlisp/file_source.rb
+- lib/ajlisp/fprimitive.rb
+- lib/ajlisp/fprimitive_closure.rb
+- lib/ajlisp/fprimitive_define.rb
+- lib/ajlisp/fprimitive_definef.rb
+- lib/ajlisp/fprimitive_definem.rb
+- lib/ajlisp/fprimitive_do.rb
+- lib/ajlisp/fprimitive_flambda.rb
+- lib/ajlisp/fprimitive_if.rb
+- lib/ajlisp/fprimitive_lambda.rb
+- lib/ajlisp/fprimitive_let.rb
+- lib/ajlisp/fprimitive_macro_closure.rb
+- lib/ajlisp/fprimitive_mlambda.rb
+- lib/ajlisp/fprimitive_quote.rb
+- lib/ajlisp/input_source.rb
+- lib/ajlisp/lexer.rb
+- lib/ajlisp/list.rb
+- lib/ajlisp/named_atom.rb
+- lib/ajlisp/nil_atom.rb
+- lib/ajlisp/parser.rb
+- lib/ajlisp/primitive.rb
+- lib/ajlisp/primitive_add.rb
+- lib/ajlisp/primitive_closure.rb
+- lib/ajlisp/primitive_comparisons.rb
+- lib/ajlisp/primitive_cons.rb
+- lib/ajlisp/primitive_divide.rb
+- lib/ajlisp/primitive_eval.rb
+- lib/ajlisp/primitive_first.rb
+- lib/ajlisp/primitive_list.rb
+- lib/ajlisp/primitive_load.rb
+- lib/ajlisp/primitive_multiply.rb
+- lib/ajlisp/primitive_predicates.rb
+- lib/ajlisp/primitive_rest.rb
+- lib/ajlisp/primitive_subtract.rb
+- lib/ajlisp/string_source.rb
+- lib/ajlisp/token.rb
+- lib/ajlisp.rb
+- lib/core.lsp
+- ajlisp.gemspec
+- test/and.lsp
+- test/append.lsp
+- test/backquote.lsp
+- test/cond.lsp
+- test/define123.lsp
+- test/definem.lsp
+- test/dodefine123.lsp
+- test/mapcond.lsp
+- test/mapfirst.lsp
+- test/mycons.lsp
+- test/test.rb
+- test/test_at_constant_atom.rb
+- test/test_context.rb
+- test/test_dot_verb_atom.rb
+- test/test_evaluate.rb
+- test/test_evaluate_files.rb
+- test/test_file_source.rb
+- test/test_fprimitive_closure.rb
+- test/test_fprimitive_define.rb
+- test/test_fprimitive_definef.rb
+- test/test_fprimitive_definem.rb
+- test/test_fprimitive_do.rb
+- test/test_fprimitive_flambda.rb
+- test/test_fprimitive_if.rb
+- test/test_fprimitive_lambda.rb
+- test/test_fprimitive_let.rb
+- test/test_fprimitive_macro_closure.rb
+- test/test_fprimitive_mlambda.rb
+- test/test_fprimitive_quote.rb
+- test/test_lexer.rb
+- test/test_list.rb
+- test/test_load.rb
+- test/test_named_atom.rb
+- test/test_parser.rb
+- test/test_primitive_add.rb
+- test/test_primitive_closure.rb
+- test/test_primitive_cons.rb
+- test/test_primitive_eval.rb
+- test/test_primitive_first.rb
+- test/test_primitive_list.rb
+- test/test_primitive_rest.rb
+- test/test_string_source.rb
+- test/test_token.rb
+homepage: http://github.com/ajlopez/AjLispRuby
+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.11
+signing_key: 
+specification_version: 3
+summary: AjLisp Interpreter
+test_files: []