klam 0.0.1

data/spec/unit/klam/primitives/error_handling_spec.rb

@@ -0,0 +1,19 @@
+require 'spec_helper'
+
+describe Klam::Primitives::ErrorHandling do
+  include Klam::Primitives::ErrorHandling
+
+  describe '#simple-error' do
+    it 'raises an error having the supplied message' do
+      expect {
+        send(:"simple-error", 'oops!')
+      }.to raise_error(Klam::Error, 'oops!')
+    end
+  end
+
+  describe '#error-to-string' do
+    it 'extracts the message from the given error' do
+      expect(send(:"error-to-string", Klam::Error.new('oops!'))).to eq('oops!')
+    end
+  end
+end

data/spec/unit/klam/primitives/lists_spec.rb

@@ -0,0 +1,49 @@
+require 'spec_helper'
+
+describe Klam::Primitives::Lists do
+  include Klam::Primitives::Lists
+
+  before(:each) do
+    @head = :head
+    @tail = :tail
+    @cons = cons(@head, @tail)
+    @empty_list = Klam::Primitives::Lists::EMPTY_LIST
+  end
+
+  describe '.cons' do
+    it 'returns an object recognized by the cons? predicate' do
+      expect(cons?(@cons)).to be true
+    end
+  end
+
+  describe '.hd' do
+    it 'returns the head of the list' do
+      expect(hd(@cons)).to eq(@head)
+    end
+
+    it 'raises an exception when applied to the empty list' do
+      expect { hd(@empty_list) }.to raise_error
+    end
+  end
+
+  describe '.tl' do
+    it 'returns the tail of the list' do
+      expect(tl(@cons)).to eq(@tail)
+    end
+
+    it 'raises an exception when applied to the empty list' do
+      expect { tl(@empty_list) }.to raise_error
+    end
+  end
+
+  describe '.cons?' do
+    it 'returns false for the empty list' do
+      expect(cons?(@emtpy_list)).to be false
+    end
+
+    it 'returns false for atoms' do
+      applications = [true, false, 37, :symbol, 'string'].map { |a| cons?(a) }
+      expect(applications.uniq).to eq([false])
+    end
+  end
+end

data/spec/unit/klam/primitives/strings_spec.rb

@@ -0,0 +1,53 @@
+require 'spec_helper'
+
+describe Klam::Primitives::Strings do
+  include Klam::Primitives::Strings
+
+  describe '(pos Str N)' do
+    it 'returns the character at zero-based index N' do
+      expect(pos('howdy', 1)).to eq('o')
+    end
+
+    it 'raises an error if N is negative' do
+      expect {
+        pos('howdy', -1)
+      }.to raise_error(Klam::Error, 'index out of bounds: -1')
+    end
+
+    it 'raises an error if N is beyond the end of the string' do
+      expect {
+        pos('howdy', 5)
+      }.to raise_error(Klam::Error, 'index out of bounds: 5')
+    end
+  end
+
+  describe '(tlstr Str)' do
+    it 'returns a string containing all but the first character of S' do
+      expect(tlstr('howdy')).to eq('owdy')
+    end
+
+    it 'raises an error when Str is empty' do
+      expect {
+        tlstr('')
+      }.to raise_error('attempted to take tail of empty string')
+    end
+  end
+
+  describe '(cn S1 S2)' do
+    it 'returns S1 concatenated with S2' do
+      expect(cn('hi ', 'there')).to eq('hi there')
+    end
+  end
+
+  describe '(n->string N)' do
+    it 'returns a unit string with the character having codepoint N' do
+      expect(send(:"n->string", 65)).to eq('A')
+    end
+  end
+
+  describe '(string->n)' do
+    it 'returns the codepoint of the first character' do
+      expect(send(:"string->n", 'A')).to eq(65)
+    end
+  end
+end

data/spec/unit/klam/primitives/symbols_spec.rb

@@ -0,0 +1,19 @@
+require 'spec_helper'
+
+describe Klam::Primitives::Symbols do
+  include Klam::Primitives::Symbols
+
+  describe '(intern Str)' do
+    it 'returns the symbol corresponding to the given string' do
+      expect(intern('foo')).to eq(:foo)
+    end
+
+    it 'returns the boolean true when given the string "true"' do
+      expect(intern('true')).to be(true)
+    end
+
+    it 'returns the boolean false when given the string "false"' do
+      expect(intern('false')).to be(false)
+    end
+  end
+end

data/spec/unit/klam/primitives/time_spec.rb

@@ -0,0 +1,16 @@
+require 'spec_helper'
+
+describe Klam::Primitives::Time do
+  include Klam::Primitives::Time
+  describe '(time Type)' do
+    it 'returns the current time in seconds as a float when Type is :real' do
+      allow(Time).to receive(:now).and_return(123.4)
+      expect(send(:"get-time", :real)).to eq(123.4)
+    end
+
+    it 'returns the current time in seconds as an integer when Type is :unix' do
+      allow(Time).to receive(:now).and_return(123.4)
+      expect(send(:"get-time", :unix)).to eq(123)
+    end
+  end
+end

data/spec/unit/klam/primitives/vectors_spec.rb

@@ -0,0 +1,55 @@
+require 'spec_helper'
+
+describe Klam::Primitives::Vectors do
+  include Klam::Primitives::Vectors
+
+  describe '(absvector N)' do
+    it 'returns an absvector of size N' do
+      vec = absvector(3)
+      expect(vec).to be_kind_of Array
+      expect(vec.size).to eq(3)
+    end
+  end
+
+  describe '(address-> V N Value)' do
+    before(:each) do
+      @vec = absvector(3)
+    end
+
+    it 'returns V' do
+      expect(send(:"address->", @vec, 1, :foo)).to be @vec
+    end
+
+    it 'stores Value in index N of V' do
+      send(:"address->", @vec, 1, :foo)
+      expect(send(:"<-address", @vec, 1)).to eq(:foo)
+    end
+  end
+
+  describe '(<-address V N)' do
+    before(:each) do
+      @vec = absvector(3)
+    end
+
+    it 'returns the value previously stored at index N of V' do
+      send(:"address->", @vec, 1, :foo)
+      expect(send(:"<-address", @vec, 1)).to eq(:foo)
+    end
+
+    it 'does not raise an error if index N is uninitialized in V' do
+      expect {
+        send(:"<-address", @vec, 1)
+      }.not_to raise_error
+    end
+  end
+
+  describe '(absvector? X)' do
+    it 'returns true for vectors' do
+      expect(absvector?(absvector(1))).to be true
+    end
+
+    it 'returns false for other types' do
+      expect(absvector?(37)).to be false
+    end
+  end
+end

data/spec/unit/klam/reader_spec.rb

@@ -0,0 +1,47 @@
+require 'spec_helper'
+
+describe Klam::Reader do
+  include Klam::Converters::List
+
+  def reader(str)
+    Klam::Reader.new(StringIO.new(str))
+  end
+
+  before(:each) do
+    @empty_list = Klam::Primitives::Lists::EMPTY_LIST
+  end
+
+  describe 'Reading lists' do
+    it 'reads () as an empty list' do
+      expect(reader('()').next)
+        .to be(@empty_list)
+    end
+
+    it 'reads a list as a single expression' do
+      list = reader('(1 2 3)').next
+      expect(list).to eq(arrayToList([1, 2, 3]))
+    end
+
+    it 'supports nested lists' do
+      list = reader('(1 (2 (3) ()))').next
+      expect(list)
+        .to eq(arrayToList([1, [2, [3], []]]))
+    end
+
+    it 'raises an error on unterminated lists' do
+      expect {
+        reader('(1').next
+      }.to raise_error(Klam::SyntaxError, 'Unterminated list')
+    end
+  end
+
+  describe 'Reading booleans' do
+    it 'reads true as true' do
+      expect(reader('true').next).to be(true)
+    end
+
+    it 'reads false as false' do
+      expect(reader('false').next).to be(false)
+    end
+  end
+end

data/spec/unit/klam/template_spec.rb

@@ -0,0 +1,28 @@
+require 'spec_helper'
+
+describe 'Klam::Template' do
+  include Klam::Template
+
+  describe 'render_string' do
+    it 'replaces placeholders with their corresponding arguments' do
+      expect(render_string('this $1 a $2.', 'is', 'template'))
+        .to eq('this is a template.')
+    end
+
+    it 'supports placeholders at the beginning of the template' do
+      expect(render_string('$1 world', 'hello')).to eq('hello world')
+    end
+
+    it 'supports placeholders at the end of the template' do
+      expect(render_string('hello $1', 'world')).to eq('hello world')
+    end
+
+    it 'supports placeholders as the complete template' do
+      expect(render_string('$1', 'hello')).to eq('hello')
+    end
+
+    it 'joins array arguments with a comma before insertion' do
+      expect(render_string('[$1]', ['a', 'b', 'c'])).to eq('[a,b,c]')
+    end
+  end
+end

data/spec/unit/klam/variable_spec.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+
+describe Klam::Variable do
+  describe "#==" do
+    before(:each) do
+      @name = 'foo'
+      @variable = Klam::Variable.new(@name)
+    end
+
+    it 'returns true when the other variable has the same name' do
+      expect(@variable == Klam::Variable.new(@name)).to be(true)
+    end
+
+    it 'returns false when the other variable has a different name' do
+      expect(@variable == Klam::Variable.new(@name + '1')).to be(false)
+    end
+
+    it 'returns false when the other object is not a Klam::Variable' do
+      expect(@variable == :foo).to be(false)
+    end
+  end
+end

data/spec/unit/klam/version_spec.rb

@@ -0,0 +1,7 @@
+require 'spec_helper'
+
+describe 'Klam::VERSION' do
+  it 'is in semver 2.0.0 format' do
+    expect(Klam::VERSION).to match(/^\d+\.\d+\.\d+(-[-.a-zA-Z0-9]+)?$/)
+  end
+end

metadata

@@ -0,0 +1,225 @@
+--- !ruby/object:Gem::Specification
+name: klam
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Greg Spurrier
+autorequire:
+bindir: bin
+cert_chain: []
+date: 2015-01-04 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rake
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '10.4'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '10.4'
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '10.4'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '10.4'
+  prerelease: false
+  type: :development
+- !ruby/object:Gem::Dependency
+  name: rspec
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.1'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 3.1.0
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.1'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 3.1.0
+  prerelease: false
+  type: :development
+- !ruby/object:Gem::Dependency
+  name: rspec-autotest
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.0'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 1.0.0
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.0'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 1.0.0
+  prerelease: false
+  type: :development
+- !ruby/object:Gem::Dependency
+  name: ZenTest
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '4.11'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '4.11'
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '4.11'
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '4.11'
+  prerelease: false
+  type: :development
+description: Klam is a Ruby implementation of Kl, the small Lisp on top of which the Shen programming language is implemented.
+email:
+- greg@sourcematters.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- .travis.yml
+- Gemfile
+- LICENSE.txt
+- PROGRESS.asciidoc
+- README.asciidoc
+- Rakefile
+- klam.gemspec
+- lib/klam.rb
+- lib/klam/compilation_stages.rb
+- lib/klam/compilation_stages/convert_freezes_to_lambdas.rb
+- lib/klam/compilation_stages/convert_lexical_variables.rb
+- lib/klam/compilation_stages/convert_partial_applications_to_lambdas.rb
+- lib/klam/compilation_stages/convert_self_tail_calls_to_loops.rb
+- lib/klam/compilation_stages/curry_abstraction_applications.rb
+- lib/klam/compilation_stages/emit_ruby.rb
+- lib/klam/compilation_stages/kl_to_internal_representation.rb
+- lib/klam/compilation_stages/make_abstractions_monadic.rb
+- lib/klam/compilation_stages/make_abstractions_variadic.rb
+- lib/klam/compilation_stages/simplify_boolean_operations.rb
+- lib/klam/compilation_stages/strip_type_declarations.rb
+- lib/klam/compiler.rb
+- lib/klam/cons.rb
+- lib/klam/converters.rb
+- lib/klam/converters/.list.rb.swp
+- lib/klam/converters/list.rb
+- lib/klam/environment.rb
+- lib/klam/error.rb
+- lib/klam/lexer.rb
+- lib/klam/primitives.rb
+- lib/klam/primitives/arithmetic.rb
+- lib/klam/primitives/assignments.rb
+- lib/klam/primitives/boolean_operations.rb
+- lib/klam/primitives/error_handling.rb
+- lib/klam/primitives/generic_functions.rb
+- lib/klam/primitives/lists.rb
+- lib/klam/primitives/streams.rb
+- lib/klam/primitives/strings.rb
+- lib/klam/primitives/symbols.rb
+- lib/klam/primitives/time.rb
+- lib/klam/primitives/vectors.rb
+- lib/klam/reader.rb
+- lib/klam/template.rb
+- lib/klam/variable.rb
+- lib/klam/variable_generator.rb
+- lib/klam/version.rb
+- spec/functional/application_spec.rb
+- spec/functional/atoms_spec.rb
+- spec/functional/extensions/do_spec.rb
+- spec/functional/primitives/assignments_spec.rb
+- spec/functional/primitives/boolean_operations_spec.rb
+- spec/functional/primitives/error_handling_spec.rb
+- spec/functional/primitives/generic_functions_spec.rb
+- spec/functional/tail_call_optimization_spec.rb
+- spec/spec_helper.rb
+- spec/unit/klam/compilation_stages/convert_lexical_variables_spec.rb
+- spec/unit/klam/compilation_stages/convert_self_tail_calls_to_loops_spec.rb
+- spec/unit/klam/compilation_stages/curry_abstraction_applications_spec.rb
+- spec/unit/klam/compilation_stages/make_abstractions_variadic_spec.rb
+- spec/unit/klam/converters/list_spec.rb
+- spec/unit/klam/lexer_spec.rb
+- spec/unit/klam/primitives/arithmetic_spec.rb
+- spec/unit/klam/primitives/boolean_operations_spec.rb
+- spec/unit/klam/primitives/error_handling_spec.rb
+- spec/unit/klam/primitives/lists_spec.rb
+- spec/unit/klam/primitives/strings_spec.rb
+- spec/unit/klam/primitives/symbols_spec.rb
+- spec/unit/klam/primitives/time_spec.rb
+- spec/unit/klam/primitives/vectors_spec.rb
+- spec/unit/klam/reader_spec.rb
+- spec/unit/klam/template_spec.rb
+- spec/unit/klam/variable_spec.rb
+- spec/unit/klam/version_spec.rb
+homepage: https://github.com/gregspurrier/klam
+licenses:
+- MIT
+metadata: {}
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: 1.9.3
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project:
+rubygems_version: 2.1.9
+signing_key:
+specification_version: 4
+summary: Klam is a Ruby implementation of the Kl.
+test_files:
+- spec/functional/application_spec.rb
+- spec/functional/atoms_spec.rb
+- spec/functional/extensions/do_spec.rb
+- spec/functional/primitives/assignments_spec.rb
+- spec/functional/primitives/boolean_operations_spec.rb
+- spec/functional/primitives/error_handling_spec.rb
+- spec/functional/primitives/generic_functions_spec.rb
+- spec/functional/tail_call_optimization_spec.rb
+- spec/spec_helper.rb
+- spec/unit/klam/compilation_stages/convert_lexical_variables_spec.rb
+- spec/unit/klam/compilation_stages/convert_self_tail_calls_to_loops_spec.rb
+- spec/unit/klam/compilation_stages/curry_abstraction_applications_spec.rb
+- spec/unit/klam/compilation_stages/make_abstractions_variadic_spec.rb
+- spec/unit/klam/converters/list_spec.rb
+- spec/unit/klam/lexer_spec.rb
+- spec/unit/klam/primitives/arithmetic_spec.rb
+- spec/unit/klam/primitives/boolean_operations_spec.rb
+- spec/unit/klam/primitives/error_handling_spec.rb
+- spec/unit/klam/primitives/lists_spec.rb
+- spec/unit/klam/primitives/strings_spec.rb
+- spec/unit/klam/primitives/symbols_spec.rb
+- spec/unit/klam/primitives/time_spec.rb
+- spec/unit/klam/primitives/vectors_spec.rb
+- spec/unit/klam/reader_spec.rb
+- spec/unit/klam/template_spec.rb
+- spec/unit/klam/variable_spec.rb
+- spec/unit/klam/version_spec.rb