forsta 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: fdd1aac2a20e29a420662e369652a80763a2c448
+  data.tar.gz: 0baef0c543ec790278ec570fc21412c300967a3f
+SHA512:
+  metadata.gz: 82e3955707f83bcde46df7979b04314b0d86f80358ffe1bfee18bdbd6f04eb39843f9cb7b15d693043e4b2596f5110aa21ebab6ede371f9e9b4dc68ff517cb10
+  data.tar.gz: e8afdc03ea8ff1b22c51bf2f55f657277d5c926a91b75566e18d183f196f90d4d76ff1cf583bbfe06857452e204d4defdc1ab9c071adf29648bf68054a1b1146

data/.gitignore

@@ -0,0 +1,15 @@
+/.bundle/
+/.yardoc
+/Gemfile.lock
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+*.bundle
+*.so
+*.o
+*.a
+mkmf.log
+*.swp

data/.travis.yml

@@ -0,0 +1,3 @@
+language: ruby
+rvm:
+  - 2.1.4

data/Gemfile

@@ -0,0 +1,3 @@
+source 'https://rubygems.org'
+
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 David Boot
+
+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,33 @@
+[![Build Status](https://travis-ci.org/kodnin/forsta.svg?branch=master)](https://travis-ci.org/kodnin/forsta)
+
+# Forsta
+
+A Lisp implementation written in Ruby.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'forsta'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install forsta
+
+## Usage
+
+Forsta is under active development, examples will be provided soon.
+
+## Contributing
+
+1. Fork it ( https://github.com/kodnin/forsta/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/Rakefile

@@ -0,0 +1,8 @@
+require 'bundler/gem_tasks'
+require 'rake/testtask'
+
+Rake::TestTask.new do |t|
+  t.test_files = FileList['test/*_test.rb']
+end
+
+task default: :test

data/forsta.gemspec

@@ -0,0 +1,24 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'forsta/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = 'forsta'
+  spec.version       = Forsta::VERSION
+  spec.authors       = ['David Boot']
+  spec.email         = ['kodnin@gmail.com']
+  spec.summary       = %q{Lisp implementation.}
+  spec.description   = %q{Lisp implementation written in Ruby.}
+  spec.homepage      = 'https://github.com/kodnin/forsta'
+  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.7'
+  spec.add_development_dependency 'rake', '~> 10.0'
+  spec.add_development_dependency 'minitest', '~> 5.4.2'
+end

data/lib/forsta.rb

@@ -0,0 +1,9 @@
+require 'forsta/array'
+require 'forsta/construct'
+require 'forsta/environment'
+require 'forsta/object'
+require 'forsta/symbol'
+require 'forsta/version'
+
+module Forsta
+end

data/lib/forsta/array.rb

@@ -0,0 +1,6 @@
+class Array
+  def to_construct
+    map { |x| x.to_construct }.reverse.
+      inject(:nil) { |cdr, car| Construct.new(car, cdr) }
+  end
+end

data/lib/forsta/construct.rb

@@ -0,0 +1,24 @@
+class Construct
+  attr_reader :car, :cdr
+
+  def initialize(car, cdr)
+    @car, @cdr = car, cdr
+  end
+
+  def construct_list?
+    cdr.construct_list?
+  end
+
+  def to_array
+    construct_list? ? [car] + cdr.to_array : self
+  end
+
+  def lisp_eval(environment, forms)
+    if forms.defined?(car)
+      # TODO implement and test
+    else
+      car.lisp_eval(environment, forms).
+        call(*cdr.to_array.map { |x| x.lisp_eval(environment, forms) })
+    end
+  end
+end

data/lib/forsta/environment.rb

@@ -0,0 +1,31 @@
+class Environment
+  attr_reader :parent, :defaults
+
+  def initialize(parent=nil, defaults={})
+    @parent = parent
+    @defaults = defaults
+  end
+
+  def define(symbol, value)
+    defaults[symbol] = value
+  end
+
+  def defined?(symbol)
+    defaults.has_key?(symbol) || (parent && parent.defined?(symbol))
+  end
+
+  def lookup(symbol)
+    defaults[symbol] || (parent && parent.lookup(symbol)) ||
+      raise("#{symbol} is undefined")
+  end
+
+  def set(symbol, value)
+    if defaults.has_key?(symbol)
+      defaults[symbol] = value
+    elsif parent.nil?
+      raise("#{symbol} was undefined")
+    else
+      parent.set(symbol, value)
+    end
+  end
+end

data/lib/forsta/object.rb

@@ -0,0 +1,17 @@
+class Object
+  def construct_list?
+    false
+  end
+
+  def to_array
+    self
+  end
+
+  def to_construct
+    self
+  end
+
+  def lisp_eval(environment, forms)
+    self
+  end
+end

data/lib/forsta/symbol.rb

@@ -0,0 +1,13 @@
+class Symbol
+  def construct_list?
+    self == :nil
+  end
+
+  def to_array
+    construct_list? ? [] : self
+  end
+
+  def lisp_eval(environment, forms)
+    environment.lookup(self)
+  end
+end

data/lib/forsta/version.rb

@@ -0,0 +1,3 @@
+module Forsta
+  VERSION = '0.0.1'
+end

data/test/array_test.rb

@@ -0,0 +1,17 @@
+require_relative './test_helper'
+
+class TestArray < Minitest::Test
+  def setup
+    @array = [1, 2]
+  end
+
+  def test_to_construct
+    assert_instance_of Construct, @array.to_construct
+    assert_equal 1, @array.to_construct.car
+    assert_equal 2, @array.to_construct.cdr.car
+    assert_equal :nil, @array.to_construct.cdr.cdr
+
+    # requires implementation of == for Construct
+    # assert_equal Construct.new(1, Construct.new(2, :nil)), @array.to_construct
+  end
+end

data/test/construct_test.rb

@@ -0,0 +1,45 @@
+require_relative './test_helper'
+
+class TestConstruct < Minitest::Test
+  def setup
+    @child = Construct.new('child', :nil)
+    @parent = Construct.new('parent', @child)
+  end
+
+  def test_initialize
+    assert_instance_of Construct, @child
+    assert_instance_of Construct, @parent
+  end
+
+  def test_car
+    assert_equal 'child', @child.car
+    assert_equal 'parent', @parent.car
+  end
+
+  def test_cdr
+    assert_equal :nil, @child.cdr
+    assert_instance_of Construct, @parent.cdr
+    assert_equal @child, @parent.cdr
+    assert_equal @child.car, @parent.cdr.car
+    assert_equal @child.cdr, @parent.cdr.cdr
+  end
+
+  def test_construct_list?
+    assert @child.construct_list?
+    assert @parent.construct_list?
+  end
+
+  def test_to_array
+    assert_instance_of Array, @parent.to_array
+    assert_equal ['parent', 'child'], @parent.to_array
+    flat_construct = Construct.new(1, 2)
+    assert_equal flat_construct, flat_construct.to_array
+  end
+
+  def test_lisp_eval
+    construct = Construct.new(:+, Construct.new(1, Construct.new(2, :nil)))
+    environment = Environment.new(nil, { :+ => lambda { |x, y| x + y } })
+
+    assert_equal 3, construct.lisp_eval(environment, Environment.new)
+  end
+end

data/test/environment_test.rb

@@ -0,0 +1,49 @@
+require_relative './test_helper'
+
+class TestEnvironment < Minitest::Test
+  def setup
+    @parent = Environment.new(nil, { language: 'ruby' })
+    @child = Environment.new(@parent, { test_framework: 'minitest' })
+  end
+
+  def test_initialize
+    assert_instance_of Environment, @parent
+    assert_instance_of Environment, @child
+  end
+
+  def test_parent
+    assert_nil @parent.parent
+    assert_instance_of Environment, @child.parent
+    assert_equal @parent, @child.parent
+  end
+
+  def test_defaults
+    assert_instance_of Hash, @parent.defaults
+    assert_instance_of Hash, @child.defaults
+  end
+
+  def test_define
+    assert_equal 'vim', @child.define(:editor, 'vim')
+    assert_equal 'vim', @child.defaults[:editor]
+  end
+
+  def test_defined?
+    assert @child.defined?(:test_framework)
+    assert @child.defined?(:language)
+    refute @child.defined?(:version_control)
+  end
+
+  def test_lookup
+    assert_equal 'minitest', @child.lookup(:test_framework)
+    assert_equal 'ruby',  @child.lookup(:language)
+    assert_raises(RuntimeError) { @child.lookup(:version_control) }
+  end
+
+  def test_set
+    assert_equal 'rspec', @child.set(:test_framework, 'rspec')
+    assert_equal 'rspec', @child.lookup(:test_framework)
+    assert_equal 'lisp',  @child.set(:language, 'lisp')
+    assert_equal 'lisp', @child.lookup(:language)
+    assert_raises(RuntimeError) { @child.set(:version_control, 'git') }
+  end
+end

data/test/object_test.rb

@@ -0,0 +1,28 @@
+require_relative './test_helper'
+
+class TestObject < Minitest::Test
+  def setup
+    @string = 'ruby'
+    @integer = 1
+  end
+
+  def test_construct_list?
+    refute @string.construct_list?
+    refute @integer.construct_list?
+  end
+
+  def test_to_array
+    assert_equal @string, @string.to_array
+    assert_equal @integer, @integer.to_array
+  end
+
+  def test_to_construct
+    assert_equal @string, @string.to_construct
+    assert_equal @integer, @integer.to_construct
+  end
+
+  def test_lisp_eval
+    assert_equal @string, @string.lisp_eval(nil, nil)
+    assert_equal @integer, @integer.lisp_eval(nil, nil)
+  end
+end

data/test/symbol_test.rb

@@ -0,0 +1,22 @@
+require_relative './test_helper'
+
+class TestSymbol < Minitest::Test
+  def test_construct_list?
+    assert :nil.construct_list?
+    refute :language.construct_list?
+  end
+
+  def test_to_array
+    assert_equal [], :nil.to_array
+    assert_equal :language, :language.to_array
+  end
+
+  def test_lisp_eval
+    environment = Environment.new
+    environment.define(:language, 'ruby')
+    environment.define(:number, 1)
+
+    assert_equal 'ruby', :language.lisp_eval(environment, nil)
+    assert_equal 1, :number.lisp_eval(environment, nil)
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,2 @@
+require 'minitest/autorun'
+require_relative '../lib/forsta'

metadata

@@ -0,0 +1,112 @@
+--- !ruby/object:Gem::Specification
+name: forsta
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- David Boot
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-11-10 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 5.4.2
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 5.4.2
+description: Lisp implementation written in Ruby.
+email:
+- kodnin@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".travis.yml"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- forsta.gemspec
+- lib/forsta.rb
+- lib/forsta/array.rb
+- lib/forsta/construct.rb
+- lib/forsta/environment.rb
+- lib/forsta/object.rb
+- lib/forsta/symbol.rb
+- lib/forsta/version.rb
+- test/array_test.rb
+- test/construct_test.rb
+- test/environment_test.rb
+- test/object_test.rb
+- test/symbol_test.rb
+- test/test_helper.rb
+homepage: https://github.com/kodnin/forsta
+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.4.2
+signing_key: 
+specification_version: 4
+summary: Lisp implementation.
+test_files:
+- test/array_test.rb
+- test/construct_test.rb
+- test/environment_test.rb
+- test/object_test.rb
+- test/symbol_test.rb
+- test/test_helper.rb