minilisp 0.1.0

data/.gitignore

@@ -0,0 +1,19 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+*.un~
+*.DS_Store

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in minilisp.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 Robbie Marcelo
+
+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,73 @@
+# Minilisp
+
+Minilisp is a micro Lisp interpreter implemented in Ruby so you can do a
+lisp sorcery in hacking your ruby projects. :p
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'minilisp'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install minilisp
+
+## Usage
+
+The LISP interpreter is just a Ruby class that evals expressions in Ruby data structures, like so:
+
+    l = Minilisp::Interpreter.new
+    
+    l.eval [:label, :a, 42]
+
+    l.eval :a
+    #=> 42
+
+    l.eval [:eq, 42, :a]
+    #=> true
+
+    l.eval [:quote, [1, 2]]
+    #=> [1, 2]
+
+    l.eval [:car, [:quote, [1, 2]]]
+    #=> 1
+
+    l.eval [:cdr, [:quote, [1, 2]]]
+    #=> [2]
+
+    l.eval [:cons, 1, [:quote, [2,3]]]
+    #=> [1, 2, 3]
+
+    l.eval [:if, [:eq, 1, 2], 42, 43]
+    #=> 43
+
+    l.eval [:atom, [:quote, [1,2]]]
+    #=> false
+
+    l.eval [:label, :second, [:quote, [:lambda, [:x],   [:car, [:cdr, :x]]]]]
+
+    l.eval [:second, [:quote, [1, 2, 3]]]
+    #=> 2
+
+## Contributing
+
+1. Fork it
+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 new Pull Request
+
+## Acknowledgement
+
+  + [μlithp]
+    
+## License
+
+MIT.
+    
+[μlithp]: https://github.com/readevalprintlove/ulithp

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/lib/minilisp.rb

@@ -0,0 +1,38 @@
+require "minilisp/version"
+
+module Minilisp
+  class Interpreter
+
+    def initialize
+      @env = { 
+        :label => lambda { |(name,val), _| @env[name] = val },
+        :quote => lambda { |sexpr, _| sexpr[0] },
+        :car   => lambda { |(list), _| list[0] },
+        :cdr   => lambda { |(list), _| list.drop 1 },
+        :cons  => lambda { |(e,cell), _| [e] + cell },
+        :eq    => lambda { |(l,r), _| l == r },
+        :if    => lambda { |(cond, thn, els), ctx| eval(cond, ctx) ? eval(thn, ctx) : eval(els, ctx) },
+        :atom  => lambda { |(sexpr), _| (sexpr.is_a? Symbol) or (sexpr.is_a? Numeric) }
+      }
+    end
+   
+    def apply fn, args, ctx=@env
+      return @env[fn].call(args, ctx) if @env[fn].respond_to? :call
+   
+      self.eval @env[fn][2], Hash[*(@env[fn][1].zip args).flatten(1)]
+    end
+   
+    def eval sexpr, ctx=@env
+      if @env[:atom].call [sexpr], ctx
+        return ctx[sexpr] if ctx[sexpr]
+        return sexpr
+      end
+   
+      fn = sexpr[0]
+      args = (sexpr.drop 1)
+      args = args.map { |a| self.eval(a, ctx) } if not [:quote, :if].member? fn
+      apply(fn, args, ctx)
+    end
+
+  end
+end

data/lib/minilisp/version.rb

@@ -0,0 +1,3 @@
+module Minilisp
+  VERSION = "0.1.0"
+end

data/minilisp.gemspec

@@ -0,0 +1,23 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'minilisp/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "minilisp"
+  spec.version       = Minilisp::VERSION
+  spec.authors       = ["Robbie Marcelo"]
+  spec.email         = ["rbmrclo@hotmail.com"]
+  spec.description   = %q{Lisp in 32 lines of Ruby}
+  spec.summary       = %q{A micro LISP implementation in 32 lines of Ruby}
+  spec.homepage      = "http://github.com/rbmrclo/minilisp"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files`.split($/)
+  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.3"
+  spec.add_development_dependency "rake"
+end

metadata

@@ -0,0 +1,87 @@
+--- !ruby/object:Gem::Specification
+name: minilisp
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Robbie Marcelo
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-10-09 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Lisp in 32 lines of Ruby
+email:
+- rbmrclo@hotmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- lib/minilisp.rb
+- lib/minilisp/version.rb
+- lisp.rb
+- minilisp.gemspec
+homepage: http://github.com/rbmrclo/minilisp
+licenses:
+- MIT
+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.24
+signing_key: 
+specification_version: 3
+summary: A micro LISP implementation in 32 lines of Ruby
+test_files: []