comalisp 0.1.0

data/.document

@@ -0,0 +1,5 @@
+lib/**/*.rb
+bin/*
+- 
+features/**/*.feature
+LICENSE.txt

data/.rspec

@@ -0,0 +1 @@
+--color

data/Gemfile

@@ -0,0 +1,13 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "rspec", "~> 2.3.0"
+  gem "bundler", "~> 1.0.0"
+  gem "jeweler", "~> 1.6.4"
+  gem "rcov", ">= 0"
+end

data/Gemfile.lock

@@ -0,0 +1,28 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    diff-lcs (1.1.3)
+    git (1.2.5)
+    jeweler (1.6.4)
+      bundler (~> 1.0)
+      git (>= 1.2.5)
+      rake
+    rake (0.9.2)
+    rcov (0.9.10)
+    rspec (2.3.0)
+      rspec-core (~> 2.3.0)
+      rspec-expectations (~> 2.3.0)
+      rspec-mocks (~> 2.3.0)
+    rspec-core (2.3.1)
+    rspec-expectations (2.3.0)
+      diff-lcs (~> 1.1.2)
+    rspec-mocks (2.3.0)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  bundler (~> 1.0.0)
+  jeweler (~> 1.6.4)
+  rcov
+  rspec (~> 2.3.0)

data/LICENSE.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2011 Howard Yeh
+
+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,11 @@
+# ComaLisp: A Lispy Abuse of Ruby Syntax
+
+    (ComaLisp {
+       (let [:a,1], [:b, 2] {
+          (defun [:foo,:a,:b,:c] {
+             (let [:d, 6] {
+                (list a, b, c, d)})})
+          (p (list a, b, (foo 3, 4, 5)))})})
+
+
+This is _VALID_ Ruby syntax under 1.9. I kid you not.

data/Rakefile

@@ -0,0 +1,49 @@
+# encoding: utf-8
+
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "comalisp"
+  gem.homepage = "https://github.com/hayeah/ComaLisp"
+  gem.license = "MIT"
+  gem.summary = "A dialect of Lisp. Fully Compatible with Ruby."
+  gem.description = "A dialect of Lisp. Fully Compatible with Ruby."
+  gem.email = "hayeah@gmail.com"
+  gem.authors = ["Howard Yeh"]
+  # dependencies defined in Gemfile
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+require 'rspec/core'
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new(:spec) do |spec|
+  spec.pattern = FileList['spec/**/*_spec.rb']
+end
+
+RSpec::Core::RakeTask.new(:rcov) do |spec|
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+end
+
+task :default => :spec
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "comalisp #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/lib/comalisp.rb

@@ -0,0 +1,115 @@
+class ComaLisp
+  def initialize(opts={})
+    # parent is used for scoping
+    @parent = opts[:parent]
+    @env = opts[:env] || {}
+  end
+
+  # we use array to represent list and cons
+  # The implication is that all lists must be proper. That is (cons 1, 2) is invalid.
+  # [] is the empty list. Nothing else is the empty list. It is the fixpoint for cdr.
+  def cons(head,tail=nil)
+    [head,*tail]
+  end
+
+  def consp(o)
+    o.is_a? Array
+  end
+
+  def tail(lst)
+    lst.last
+  end
+  
+  def car(lst)
+    return null if lst.size < 1
+    lst[0]
+  end
+
+  def null
+    []
+  end
+
+  def nullp(list)
+    list == null
+  end
+  
+  def cdr(lst)
+    return [] if lst.size == 0
+    lst[1..-1]
+  end
+
+  def list(*args)
+    args
+  end
+
+  def call(fn,*args)
+    self.instance_exec(*args,&fn)
+  end
+
+  def apply(fn,args)
+    self.instance_exec(*args,&fn)
+  end
+
+  def let(*vars,&body)
+    env = vars.inject({}) {|acc,(k,v)|
+      acc[k] = v
+      acc
+    }
+    scope(env,&body)
+  end
+
+  def scope(env={},&body)
+    scope = ComaLisp.new(:parent => self, :env => env)
+    scope.instance_eval(&body)
+  end
+
+  def defun(argslist,&body)
+    me = self
+    name = argslist.shift
+    eigenclass = class << self; self; end
+    eigenclass.instance_eval do
+      define_method(name) do |*vals|
+        env = {}
+        argslist.each_with_index do |arg,i|
+          env[arg] = vals[i]
+        end
+        me.scope(env,&body)
+      end
+    end
+  end
+
+  def set(var,val)
+    @env[var.to_sym] = val
+  end
+
+  private
+
+  def method_missing(name,*args,&block)
+    if args.empty?
+      variable_lookup(name)
+    else
+      method_call(name,*args,&block)
+    end
+  end
+
+  # we assume the first argument is the receiver
+  def method_call(method,receiver,*args,&block)
+    receiver.send(method,*args,&block)
+  end
+  
+  def variable_lookup(name)
+    if @env.has_key?(name)
+      @env[name]
+    elsif @parent
+      @parent.send(name)
+    else
+      raise "no binding for #{name}"
+    end
+  end
+
+  alias_method :eval, :instance_eval
+end
+
+def ComaLisp(&block)
+  ComaLisp.new.eval(&block)
+end

data/spec/comalisp_spec.rb

@@ -0,0 +1,99 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Comalisp" do
+  context "list:" do
+    it "is a cons" do
+      (ComaLisp {
+         (consp (list 1, 2))
+       }).should be_true
+    end
+
+    specify "car is 1" do
+      (ComaLisp {
+         (car (list 1, 2))
+       }).should == 1
+    end
+
+    it "cadr element is 2" do
+      (ComaLisp {
+         (car (cdr (list 1, 2)))
+       }).should == 2
+    end
+  end
+
+  context "cons:" do
+    it "builds a cons" do
+      (ComaLisp {
+         (consp (cons 1, null))
+       }).should == true
+    end
+
+    it "takes the car" do
+      (ComaLisp {
+         (car (cons 1, null))
+       }).should == 1
+    end
+
+    it "the cdr of a one element list is null" do
+      (ComaLisp {
+         (nullp (cdr (cons 1, null)))
+       }).should be_true
+    end
+
+    specify "the cdr of null is null" do
+      (ComaLisp {
+         (nullp (cdr null))
+       }).should be_true
+    end
+
+    specify "car of null is null" do
+      (ComaLisp {
+         (nullp (car null))
+       }).should be_true
+    end
+  end
+
+  context "let:" do
+    specify "variable binding" do
+      (ComaLisp {
+         (let [:a,1], [:b,2] {
+           [a,b]
+         })}).should == [1,2]
+    end
+
+    specify "variable shadow" do
+      (ComaLisp {
+         (let [:a,1], [:b,2] {
+            (let [:a,3] {
+               [a,b]
+             })})}).should == [3,2]
+    end
+  end
+
+  context "set:" do
+    it "sets a binding" do
+      (ComaLisp {
+         (let [:a,1] {
+            (set :a, 2)
+            a
+          })}).should == 2
+    end
+  end
+
+  context "defun:" do
+    specify "define local function" do
+      (ComaLisp {
+         (defun [:foo,:a,:b] {
+            [a,b]})
+         [(foo 1, 2),(foo 3, 4)]}).should == [[1,2],[3,4]]
+    end
+  end
+
+  context "method prefixing:" do
+    it "calls the method on the first argument" do
+      (ComaLisp {
+         (map [-1,-2,-3] { |e|
+            (abs e)})}).should == [1,2,3]
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,12 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'rspec'
+require 'comalisp'
+
+# Requires supporting files with custom matchers and macros, etc,
+# in ./support/ and its subdirectories.
+Dir["#{File.dirname(__FILE__)}/support/**/*.rb"].each {|f| require f}
+
+RSpec.configure do |config|
+  
+end

metadata

@@ -0,0 +1,113 @@
+--- !ruby/object:Gem::Specification 
+name: comalisp
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Howard Yeh
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-09-07 00:00:00 +08:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: 2.3.0
+  type: :development
+  prerelease: false
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: bundler
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: 1.0.0
+  type: :development
+  prerelease: false
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: jeweler
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: 1.6.4
+  type: :development
+  prerelease: false
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: rcov
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :development
+  prerelease: false
+  version_requirements: *id004
+description: A dialect of Lisp. Fully Compatible with Ruby.
+email: hayeah@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE.txt
+- README.md
+files: 
+- .document
+- .rspec
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- README.md
+- Rakefile
+- VERSION
+- lib/comalisp.rb
+- spec/comalisp_spec.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: https://github.com/hayeah/ComaLisp
+licenses: 
+- MIT
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 2928009232713905202
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.5.1
+signing_key: 
+specification_version: 3
+summary: A dialect of Lisp. Fully Compatible with Ruby.
+test_files: []
+