minilisp 0.1.0
Sign up to get free protection for your applications and to get access to all the features.
- data/.gitignore +19 -0
- data/Gemfile +4 -0
- data/LICENSE.txt +22 -0
- data/README.md +73 -0
- data/Rakefile +1 -0
- data/lib/minilisp.rb +38 -0
- data/lib/minilisp/version.rb +3 -0
- data/lisp.rb +0 -0
- data/minilisp.gemspec +23 -0
- metadata +87 -0
data/.gitignore
ADDED
data/Gemfile
ADDED
data/LICENSE.txt
ADDED
@@ -0,0 +1,22 @@
|
|
1
|
+
Copyright (c) 2013 Robbie Marcelo
|
2
|
+
|
3
|
+
MIT License
|
4
|
+
|
5
|
+
Permission is hereby granted, free of charge, to any person obtaining
|
6
|
+
a copy of this software and associated documentation files (the
|
7
|
+
"Software"), to deal in the Software without restriction, including
|
8
|
+
without limitation the rights to use, copy, modify, merge, publish,
|
9
|
+
distribute, sublicense, and/or sell copies of the Software, and to
|
10
|
+
permit persons to whom the Software is furnished to do so, subject to
|
11
|
+
the following conditions:
|
12
|
+
|
13
|
+
The above copyright notice and this permission notice shall be
|
14
|
+
included in all copies or substantial portions of the Software.
|
15
|
+
|
16
|
+
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
17
|
+
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
18
|
+
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
19
|
+
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
|
20
|
+
LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
21
|
+
OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
|
22
|
+
WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
data/README.md
ADDED
@@ -0,0 +1,73 @@
|
|
1
|
+
# Minilisp
|
2
|
+
|
3
|
+
Minilisp is a micro Lisp interpreter implemented in Ruby so you can do a
|
4
|
+
lisp sorcery in hacking your ruby projects. :p
|
5
|
+
|
6
|
+
## Installation
|
7
|
+
|
8
|
+
Add this line to your application's Gemfile:
|
9
|
+
|
10
|
+
gem 'minilisp'
|
11
|
+
|
12
|
+
And then execute:
|
13
|
+
|
14
|
+
$ bundle
|
15
|
+
|
16
|
+
Or install it yourself as:
|
17
|
+
|
18
|
+
$ gem install minilisp
|
19
|
+
|
20
|
+
## Usage
|
21
|
+
|
22
|
+
The LISP interpreter is just a Ruby class that evals expressions in Ruby data structures, like so:
|
23
|
+
|
24
|
+
l = Minilisp::Interpreter.new
|
25
|
+
|
26
|
+
l.eval [:label, :a, 42]
|
27
|
+
|
28
|
+
l.eval :a
|
29
|
+
#=> 42
|
30
|
+
|
31
|
+
l.eval [:eq, 42, :a]
|
32
|
+
#=> true
|
33
|
+
|
34
|
+
l.eval [:quote, [1, 2]]
|
35
|
+
#=> [1, 2]
|
36
|
+
|
37
|
+
l.eval [:car, [:quote, [1, 2]]]
|
38
|
+
#=> 1
|
39
|
+
|
40
|
+
l.eval [:cdr, [:quote, [1, 2]]]
|
41
|
+
#=> [2]
|
42
|
+
|
43
|
+
l.eval [:cons, 1, [:quote, [2,3]]]
|
44
|
+
#=> [1, 2, 3]
|
45
|
+
|
46
|
+
l.eval [:if, [:eq, 1, 2], 42, 43]
|
47
|
+
#=> 43
|
48
|
+
|
49
|
+
l.eval [:atom, [:quote, [1,2]]]
|
50
|
+
#=> false
|
51
|
+
|
52
|
+
l.eval [:label, :second, [:quote, [:lambda, [:x], [:car, [:cdr, :x]]]]]
|
53
|
+
|
54
|
+
l.eval [:second, [:quote, [1, 2, 3]]]
|
55
|
+
#=> 2
|
56
|
+
|
57
|
+
## Contributing
|
58
|
+
|
59
|
+
1. Fork it
|
60
|
+
2. Create your feature branch (`git checkout -b my-new-feature`)
|
61
|
+
3. Commit your changes (`git commit -am 'Add some feature'`)
|
62
|
+
4. Push to the branch (`git push origin my-new-feature`)
|
63
|
+
5. Create new Pull Request
|
64
|
+
|
65
|
+
## Acknowledgement
|
66
|
+
|
67
|
+
+ [μlithp]
|
68
|
+
|
69
|
+
## License
|
70
|
+
|
71
|
+
MIT.
|
72
|
+
|
73
|
+
[μlithp]: https://github.com/readevalprintlove/ulithp
|
data/Rakefile
ADDED
@@ -0,0 +1 @@
|
|
1
|
+
require "bundler/gem_tasks"
|
data/lib/minilisp.rb
ADDED
@@ -0,0 +1,38 @@
|
|
1
|
+
require "minilisp/version"
|
2
|
+
|
3
|
+
module Minilisp
|
4
|
+
class Interpreter
|
5
|
+
|
6
|
+
def initialize
|
7
|
+
@env = {
|
8
|
+
:label => lambda { |(name,val), _| @env[name] = val },
|
9
|
+
:quote => lambda { |sexpr, _| sexpr[0] },
|
10
|
+
:car => lambda { |(list), _| list[0] },
|
11
|
+
:cdr => lambda { |(list), _| list.drop 1 },
|
12
|
+
:cons => lambda { |(e,cell), _| [e] + cell },
|
13
|
+
:eq => lambda { |(l,r), _| l == r },
|
14
|
+
:if => lambda { |(cond, thn, els), ctx| eval(cond, ctx) ? eval(thn, ctx) : eval(els, ctx) },
|
15
|
+
:atom => lambda { |(sexpr), _| (sexpr.is_a? Symbol) or (sexpr.is_a? Numeric) }
|
16
|
+
}
|
17
|
+
end
|
18
|
+
|
19
|
+
def apply fn, args, ctx=@env
|
20
|
+
return @env[fn].call(args, ctx) if @env[fn].respond_to? :call
|
21
|
+
|
22
|
+
self.eval @env[fn][2], Hash[*(@env[fn][1].zip args).flatten(1)]
|
23
|
+
end
|
24
|
+
|
25
|
+
def eval sexpr, ctx=@env
|
26
|
+
if @env[:atom].call [sexpr], ctx
|
27
|
+
return ctx[sexpr] if ctx[sexpr]
|
28
|
+
return sexpr
|
29
|
+
end
|
30
|
+
|
31
|
+
fn = sexpr[0]
|
32
|
+
args = (sexpr.drop 1)
|
33
|
+
args = args.map { |a| self.eval(a, ctx) } if not [:quote, :if].member? fn
|
34
|
+
apply(fn, args, ctx)
|
35
|
+
end
|
36
|
+
|
37
|
+
end
|
38
|
+
end
|
data/lisp.rb
ADDED
File without changes
|
data/minilisp.gemspec
ADDED
@@ -0,0 +1,23 @@
|
|
1
|
+
# coding: utf-8
|
2
|
+
lib = File.expand_path('../lib', __FILE__)
|
3
|
+
$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
|
4
|
+
require 'minilisp/version'
|
5
|
+
|
6
|
+
Gem::Specification.new do |spec|
|
7
|
+
spec.name = "minilisp"
|
8
|
+
spec.version = Minilisp::VERSION
|
9
|
+
spec.authors = ["Robbie Marcelo"]
|
10
|
+
spec.email = ["rbmrclo@hotmail.com"]
|
11
|
+
spec.description = %q{Lisp in 32 lines of Ruby}
|
12
|
+
spec.summary = %q{A micro LISP implementation in 32 lines of Ruby}
|
13
|
+
spec.homepage = "http://github.com/rbmrclo/minilisp"
|
14
|
+
spec.license = "MIT"
|
15
|
+
|
16
|
+
spec.files = `git ls-files`.split($/)
|
17
|
+
spec.executables = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
|
18
|
+
spec.test_files = spec.files.grep(%r{^(test|spec|features)/})
|
19
|
+
spec.require_paths = ["lib"]
|
20
|
+
|
21
|
+
spec.add_development_dependency "bundler", "~> 1.3"
|
22
|
+
spec.add_development_dependency "rake"
|
23
|
+
end
|
metadata
ADDED
@@ -0,0 +1,87 @@
|
|
1
|
+
--- !ruby/object:Gem::Specification
|
2
|
+
name: minilisp
|
3
|
+
version: !ruby/object:Gem::Version
|
4
|
+
version: 0.1.0
|
5
|
+
prerelease:
|
6
|
+
platform: ruby
|
7
|
+
authors:
|
8
|
+
- Robbie Marcelo
|
9
|
+
autorequire:
|
10
|
+
bindir: bin
|
11
|
+
cert_chain: []
|
12
|
+
date: 2013-10-09 00:00:00.000000000 Z
|
13
|
+
dependencies:
|
14
|
+
- !ruby/object:Gem::Dependency
|
15
|
+
name: bundler
|
16
|
+
requirement: !ruby/object:Gem::Requirement
|
17
|
+
none: false
|
18
|
+
requirements:
|
19
|
+
- - ~>
|
20
|
+
- !ruby/object:Gem::Version
|
21
|
+
version: '1.3'
|
22
|
+
type: :development
|
23
|
+
prerelease: false
|
24
|
+
version_requirements: !ruby/object:Gem::Requirement
|
25
|
+
none: false
|
26
|
+
requirements:
|
27
|
+
- - ~>
|
28
|
+
- !ruby/object:Gem::Version
|
29
|
+
version: '1.3'
|
30
|
+
- !ruby/object:Gem::Dependency
|
31
|
+
name: rake
|
32
|
+
requirement: !ruby/object:Gem::Requirement
|
33
|
+
none: false
|
34
|
+
requirements:
|
35
|
+
- - ! '>='
|
36
|
+
- !ruby/object:Gem::Version
|
37
|
+
version: '0'
|
38
|
+
type: :development
|
39
|
+
prerelease: false
|
40
|
+
version_requirements: !ruby/object:Gem::Requirement
|
41
|
+
none: false
|
42
|
+
requirements:
|
43
|
+
- - ! '>='
|
44
|
+
- !ruby/object:Gem::Version
|
45
|
+
version: '0'
|
46
|
+
description: Lisp in 32 lines of Ruby
|
47
|
+
email:
|
48
|
+
- rbmrclo@hotmail.com
|
49
|
+
executables: []
|
50
|
+
extensions: []
|
51
|
+
extra_rdoc_files: []
|
52
|
+
files:
|
53
|
+
- .gitignore
|
54
|
+
- Gemfile
|
55
|
+
- LICENSE.txt
|
56
|
+
- README.md
|
57
|
+
- Rakefile
|
58
|
+
- lib/minilisp.rb
|
59
|
+
- lib/minilisp/version.rb
|
60
|
+
- lisp.rb
|
61
|
+
- minilisp.gemspec
|
62
|
+
homepage: http://github.com/rbmrclo/minilisp
|
63
|
+
licenses:
|
64
|
+
- MIT
|
65
|
+
post_install_message:
|
66
|
+
rdoc_options: []
|
67
|
+
require_paths:
|
68
|
+
- lib
|
69
|
+
required_ruby_version: !ruby/object:Gem::Requirement
|
70
|
+
none: false
|
71
|
+
requirements:
|
72
|
+
- - ! '>='
|
73
|
+
- !ruby/object:Gem::Version
|
74
|
+
version: '0'
|
75
|
+
required_rubygems_version: !ruby/object:Gem::Requirement
|
76
|
+
none: false
|
77
|
+
requirements:
|
78
|
+
- - ! '>='
|
79
|
+
- !ruby/object:Gem::Version
|
80
|
+
version: '0'
|
81
|
+
requirements: []
|
82
|
+
rubyforge_project:
|
83
|
+
rubygems_version: 1.8.24
|
84
|
+
signing_key:
|
85
|
+
specification_version: 3
|
86
|
+
summary: A micro LISP implementation in 32 lines of Ruby
|
87
|
+
test_files: []
|