shen-ruby 0.1.0

data/spec/kl/lexer_spec.rb

@@ -0,0 +1,149 @@
+require 'spec_helper'
+
+describe Kl::Lexer do
+  def lexer(str)
+    Kl::Lexer.new(StringIO.new(str))
+  end
+
+  describe 'syntax tokens' do
+    it 'reads ( as a Kl::Lexer::OpenParen' do
+      lexer("(").next.should be_kind_of Kl::Lexer::OpenParen
+    end
+
+    it 'reads ) as a Kl::Lexer::CloseParen' do
+      lexer(")").next.should be_kind_of Kl::Lexer::CloseParen
+    end
+  end
+
+  describe 'string tokens' do
+    it 'reads double-quoted strings' do
+      lexer('"Fred"').next.should == "Fred"
+    end
+
+    it 'throws Kl::Error on unterminated strings' do
+      expect {
+        lexer('"Fred').next
+      }.to raise_error(Kl::Error, "unterminated string")
+    end
+  end
+
+  describe 'symbols' do
+    it 'reads sign characters not followed by digits as symbols' do
+      lexer('-').next.should == '-'.to_sym
+      lexer('+').next.should == '+'.to_sym
+      lexer('--+-').next.should == '--+-'.to_sym
+    end
+
+    it 'reads double decimal points followed by digits as symbols' do
+      lexer('..77').next.should == '..77'.to_sym
+    end
+
+    it "accepts =-*/+_?$!@~><&%'#`;:{} in symbols" do
+      all_punctuation = "=-*/+_?$!@~><&%'#`;:{}"
+      sym = lexer(all_punctuation).next
+      sym.should be_kind_of Symbol
+      sym.to_s.should == all_punctuation
+    end
+  end
+
+  describe 'numbers' do
+    it 'reads integers as Fixnums' do
+      num = lexer("37").next
+      num.should be_kind_of Fixnum
+      num.should == 37
+    end
+    
+    it 'reads floating points as Floats' do
+      num = lexer("37.42").next
+      num.should be_kind_of Float
+      num.should == 37.42
+    end
+
+    it 'with an odd number of leading minuses are negative' do
+      lexer('-1').next.should == -1
+      lexer('---1').next.should == -1
+    end
+
+    it 'with an even number of leading minuses are positive' do
+      lexer('--1').next.should == 1
+      lexer('----1').next.should == 1
+    end
+
+    it 'with leading + does not change sign' do
+      lexer('+-1').next.should == -1
+      lexer('-+--1').next.should == -1
+      lexer('-+-+1').next.should == 1
+      lexer('+-+-+-+-+1').next.should == 1
+    end
+
+    it 'allows leading decimal points' do
+      lexer('.9').next.should == 0.9
+      lexer('-.9').next.should == -0.9
+    end
+
+    it 'treats a trailing decimal followed by EOF as a symbol' do
+      l = lexer('7.')
+      num = l.next
+      num.should be_kind_of Fixnum
+      num.should == 7
+
+      sym = l.next
+      sym.should be_kind_of Symbol
+      sym.to_s.should == '.'
+    end
+
+    it 'treats a trailing decimal followed by non-digit as a symbol' do
+      l = lexer('7.a')
+      num = l.next
+      num.should be_kind_of Fixnum
+      num.should == 7
+
+      sym = l.next
+      sym.should be_kind_of Symbol
+      sym.to_s.should == '.a'
+    end
+
+    it 'handles multiple decimal points like shen does' do
+      l = lexer('7.8.9')
+      l.next.should == 7.8
+      l.next.should == 0.9
+    end
+  end
+
+  describe 'booleans' do
+    it 'reads true as boolean true' do
+      lexer('true').next.should be_kind_of TrueClass
+    end
+
+    it 'reads false as boolean false' do
+      lexer('false').next.should be_kind_of FalseClass
+    end
+  end
+
+  describe 'whitespace' do
+    it 'is ignored between tokens' do
+      l = lexer("     (\n\t)   ")
+      l.next.should be_kind_of Kl::Lexer::OpenParen
+      l.next.should be_kind_of Kl::Lexer::CloseParen
+      l.next.should be_nil
+    end
+
+    it 'is left intact in strings' do
+      lexer('     "one two"   ').next.should == "one two"
+    end
+  end
+
+  it 'works with these all together' do
+    l = lexer('(12 quick m-*$ RAN `fast\' -.7) "oh 12 yeah!"  ')
+    l.next.should be_kind_of Kl::Lexer::OpenParen
+    l.next.should == 12
+    l.next.should == :quick
+    l.next.should == 'm-*$'.to_sym
+    l.next.should == :RAN
+    l.next.should == "`fast'".to_sym
+    l.next.should == -0.7
+    l.next.should be_kind_of Kl::Lexer::CloseParen
+    l.next.should == "oh 12 yeah!"
+    l.next.should be_nil
+  end
+end

data/spec/kl/primitives/generic_functions_spec.rb

@@ -0,0 +1,29 @@
+require 'spec_helper'
+require 'kl/primitives/generic_functions'
+
+describe Kl::Primitives::GenericFunctions do
+  include Kl::Primitives::GenericFunctions
+
+  describe '=' do
+    it 'works as expected for numbers' do
+      self.send("=", 1, 1).should be_true
+      self.send("=", 1, 1.0).should be_true
+      self.send("=", 1, 2).should be_false
+    end
+
+    it 'works as expected for symbols' do
+      self.send("=", :a, :a).should be_true
+      self.send("=", :"big-bad!", :"big-bad!").should be_true
+      self.send("=", :"big-bad!", :wolf).should be_false
+    end
+
+    it 'works as expected for lists' do
+      self.send("=", Kl::Cons.list([1, 2]), Kl::Cons.list([1, 2])).
+        should be_true
+      self.send("=", Kl::EmptyList.instance, Kl::EmptyList.instance).
+        should be_true
+      self.send("=", Kl::Cons.list([1, 3]), Kl::Cons.list([1, 2])).
+        should be_false
+    end
+  end
+end

data/spec/kl/primitives/symbols_spec.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+require 'kl/primitives/symbols'
+
+describe Kl::Primitives::Symbols do
+  include Kl::Primitives::Symbols
+
+  describe "intern" do
+    it "returns boolean true for 'true'" do
+      intern("true").should == true
+    end
+
+    it "returns boolean false for 'false'" do
+      intern("false").should == false
+    end
+
+    it "returns the symbol corresponding to the string otherwise" do
+      intern("abc-123").should == :"abc-123"
+    end
+  end
+end
+

data/spec/kl/reader_spec.rb

@@ -0,0 +1,36 @@
+require 'spec_helper'
+
+describe Kl::Reader do
+  def reader(str)
+    Kl::Reader.new(StringIO.new(str))
+  end
+
+  describe 'Reading lists' do
+    it 'reads () as an empty list' do
+      reader('()').next.should be_kind_of Kl::EmptyList
+    end
+
+    it 'reads a list as a single expression' do
+      list = reader('(1 2 3)').next
+      list.should == Kl::Cons.list([1, 2, 3])
+    end
+
+    it 'supports nested lists' do
+      list = reader('(1 (2 (3) ()))').next
+      list.should == Kl::Cons.list([1, 
+                                    Kl::Cons.list([2, 
+                                                   Kl::Cons.list([3]),
+                                                   Kl::EmptyList.instance])])
+    end
+  end
+
+  describe 'Reading booleans' do
+    it 'reads true as true' do
+      reader('true').next.should == true
+    end
+
+    it 'reads false as false' do
+      reader('false').next.should == false
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,2 @@
+require 'kl'
+require 'stringio'

metadata

@@ -0,0 +1,189 @@
+--- !ruby/object:Gem::Specification
+name: shen-ruby
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Greg Spurrier
+- Mark Tarver
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-12-31 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.12'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.12'
+description: ShenRuby is a port of the Shen programming language to Ruby. It currently
+  supports Shen version 7.1.
+email:
+- greg@sourcematters.org
+executables:
+- srrepl
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- Gemfile
+- Gemfile.lock
+- MIT_LICENSE.txt
+- README.md
+- bin/shen_test_suite.rb
+- bin/srrepl
+- lib/kl.rb
+- lib/kl/absvector.rb
+- lib/kl/compiler.rb
+- lib/kl/cons.rb
+- lib/kl/empty_list.rb
+- lib/kl/environment.rb
+- lib/kl/error.rb
+- lib/kl/internal_error.rb
+- lib/kl/lexer.rb
+- lib/kl/primitives/arithmetic.rb
+- lib/kl/primitives/assignments.rb
+- lib/kl/primitives/booleans.rb
+- lib/kl/primitives/error_handling.rb
+- lib/kl/primitives/generic_functions.rb
+- lib/kl/primitives/lists.rb
+- lib/kl/primitives/streams.rb
+- lib/kl/primitives/strings.rb
+- lib/kl/primitives/symbols.rb
+- lib/kl/primitives/time.rb
+- lib/kl/primitives/vectors.rb
+- lib/kl/reader.rb
+- lib/kl/trampoline.rb
+- lib/shen_ruby.rb
+- lib/shen_ruby/version.rb
+- shen-ruby.gemspec
+- shen/README.txt
+- shen/lib/shen_ruby/shen.rb
+- shen/license.txt
+- shen/release/benchmarks/N_queens.shen
+- shen/release/benchmarks/README.shen
+- shen/release/benchmarks/benchmarks.shen
+- shen/release/benchmarks/bigprog
+- shen/release/benchmarks/br.shen
+- shen/release/benchmarks/einstein.shen
+- shen/release/benchmarks/heatwave.gif
+- shen/release/benchmarks/interpreter.shen
+- shen/release/benchmarks/picture.jpg
+- shen/release/benchmarks/plato.jpg
+- shen/release/benchmarks/powerset.shen
+- shen/release/benchmarks/prime.shen
+- shen/release/benchmarks/short.shen
+- shen/release/benchmarks/text.txt
+- shen/release/k_lambda/core.kl
+- shen/release/k_lambda/declarations.kl
+- shen/release/k_lambda/load.kl
+- shen/release/k_lambda/macros.kl
+- shen/release/k_lambda/prolog.kl
+- shen/release/k_lambda/reader.kl
+- shen/release/k_lambda/sequent.kl
+- shen/release/k_lambda/sys.kl
+- shen/release/k_lambda/t-star.kl
+- shen/release/k_lambda/toplevel.kl
+- shen/release/k_lambda/track.kl
+- shen/release/k_lambda/types.kl
+- shen/release/k_lambda/writer.kl
+- shen/release/k_lambda/yacc.kl
+- shen/release/test_programs/Chap13/problems.txt
+- shen/release/test_programs/README.shen
+- shen/release/test_programs/TinyLispFunctions.txt
+- shen/release/test_programs/TinyTypes.shen
+- shen/release/test_programs/binary.shen
+- shen/release/test_programs/bubble_version_1.shen
+- shen/release/test_programs/bubble_version_2.shen
+- shen/release/test_programs/calculator.shen
+- shen/release/test_programs/cartprod.shen
+- shen/release/test_programs/change.shen
+- shen/release/test_programs/classes-defaults.shen
+- shen/release/test_programs/classes-inheritance.shen
+- shen/release/test_programs/classes-typed.shen
+- shen/release/test_programs/classes-untyped.shen
+- shen/release/test_programs/depth_.shen
+- shen/release/test_programs/einstein.shen
+- shen/release/test_programs/fruit_machine.shen
+- shen/release/test_programs/interpreter.shen
+- shen/release/test_programs/metaprog.shen
+- shen/release/test_programs/minim.shen
+- shen/release/test_programs/mutual.shen
+- shen/release/test_programs/n_queens.shen
+- shen/release/test_programs/newton_version_1.shen
+- shen/release/test_programs/newton_version_2.shen
+- shen/release/test_programs/parse.prl
+- shen/release/test_programs/parser.shen
+- shen/release/test_programs/powerset.shen
+- shen/release/test_programs/prime.shen
+- shen/release/test_programs/proof_assistant.shen
+- shen/release/test_programs/proplog_version_1.shen
+- shen/release/test_programs/proplog_version_2.shen
+- shen/release/test_programs/qmachine.shen
+- shen/release/test_programs/red-black.shen
+- shen/release/test_programs/search.shen
+- shen/release/test_programs/semantic_net.shen
+- shen/release/test_programs/spreadsheet.shen
+- shen/release/test_programs/stack.shen
+- shen/release/test_programs/streams.shen
+- shen/release/test_programs/strings.shen
+- shen/release/test_programs/structures-typed.shen
+- shen/release/test_programs/structures-untyped.shen
+- shen/release/test_programs/tests.shen
+- shen/release/test_programs/types.shen
+- shen/release/test_programs/whist.shen
+- shen/release/test_programs/yacc.shen
+- spec/kl/cons_spec.rb
+- spec/kl/environment_spec.rb
+- spec/kl/lexer_spec.rb
+- spec/kl/primitives/generic_functions_spec.rb
+- spec/kl/primitives/symbols_spec.rb
+- spec/kl/reader_spec.rb
+- spec/spec_helper.rb
+homepage: https://github.com/gregspurrier/shen-ruby
+licenses:
+- Shen License and MIT License. See README.md for details.
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+- shen/lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.9.3
+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: ShenRuby is a Ruby port of the Shen programming language
+test_files:
+- spec/kl/cons_spec.rb
+- spec/kl/environment_spec.rb
+- spec/kl/lexer_spec.rb
+- spec/kl/primitives/generic_functions_spec.rb
+- spec/kl/primitives/symbols_spec.rb
+- spec/kl/reader_spec.rb
+- spec/spec_helper.rb