apricot 0.0.1

data/spec/list_spec.rb

@@ -0,0 +1,96 @@
+describe Apricot::List do
+  def new_list(*args)
+    described_class[*args]
+  end
+
+  def empty_list
+    described_class::EmptyList
+  end
+
+  it 'has a single instance of the empty list' do
+    new_list.object_id.should == empty_list.object_id
+    new_list(1,2).tail.tail.object_id.should == empty_list.object_id
+  end
+
+  it 'can be built up with cons' do
+    list = empty_list.cons(3).cons(2).cons(1)
+    list.head.should == 1
+    list.tail.head.should == 2
+    list.tail.tail.head.should == 3
+  end
+
+  it 'supports the == operator' do
+    empty_list.should == new_list
+    new_list.should == empty_list
+
+    list123 = new_list(1,2,3)
+    list23 = new_list(2,3)
+
+    list123.should == list23.cons(1)
+    list23.cons(1).should == list123
+
+    list23.tail.tail.should == empty_list
+    empty_list.should == list23.tail.tail
+
+    list123.should_not == empty_list
+    empty_list.should_not == list123
+
+    empty_list.should_not == 42
+    list123.should_not == 42
+  end
+
+  it 'responds to #empty?' do
+    new_list.should be_empty
+    empty_list.should be_empty
+  end
+
+  it 'supports Enumerable methods' do
+    list = new_list(1,2,3)
+
+    foo = []
+    list.each {|x| foo << x }
+    foo.should == [1,2,3]
+
+    list.to_a.should == [1,2,3]
+    list.count.should == 3
+    list.map {|x| x + x }.should == [2,4,6]
+  end
+
+  it 'can be inspected' do
+    list = new_list(1,2,3)
+    list.inspect.should == "(1 2 3)"
+    list.tail.tail.inspect.should == "(3)"
+    empty_list.inspect.should == "()"
+  end
+
+  it 'copies its tail when copied' do
+    list1 = new_list(1,2)
+    list2 = list1.dup
+
+    list1.object_id.should_not == list2.object_id
+    list1.tail.object_id.should_not == list2.tail.object_id
+  end
+
+  it 'does not copy the empty list in its tail when copied' do
+    list = new_list(1).dup
+
+    list.tail.object_id.should == empty_list.object_id
+  end
+
+  it 'can be used as a key in Hashes' do
+    list1 = new_list(1,2)
+    list2 = new_list(1,2)
+    list3 = new_list(1,2,3)
+    h = {}
+
+    h[list1] = 1
+    h[list2] = 2
+    h[list3] = 3
+    h[new_list] = 4
+
+    h[list1].should == 2
+    h[list2].should == 2
+    h[list3].should == 3
+    h[empty_list].should == 4
+  end
+end

data/spec/parser_spec.rb

@@ -0,0 +1,312 @@
+describe Apricot::Parser do
+  def parse(s)
+    @ast = described_class.parse_string(s, "(spec)")
+    @first = @ast.elements.first
+    @ast.elements
+  end
+
+  def parse_one(s, klass)
+    parse(s).length.should == 1
+    @first.should be_a(klass)
+    @first
+  end
+
+  def expect_syntax_error(s)
+    expect { parse(s) }.to raise_error(Apricot::SyntaxError)
+  end
+
+  it 'parses nothing' do
+    parse('').should be_empty
+  end
+
+  it 'skips whitespace' do
+    parse(" \n\t,").should be_empty
+  end
+
+  it 'skips comments' do
+    parse('; example').should be_empty
+    parse('#!/usr/bin/env apricot').should be_empty
+  end
+
+  it 'discards commented forms' do
+    parse('#_form').should be_empty
+  end
+
+  it 'parses identifiers' do
+    parse_one('example', AST::Identifier)
+    @first.name.should == :example
+  end
+
+  it 'parses pipe identifiers' do
+    parse_one('#|example|', AST::Identifier).name.should == :example
+    parse_one('#|foo bar|', AST::Identifier).name.should == :"foo bar"
+    parse_one('#|foo\nbar|', AST::Identifier).name.should == :"foo\nbar"
+    parse_one('#|foo\|bar|', AST::Identifier).name.should == :"foo|bar"
+    parse_one('#|foo"bar|', AST::Identifier).name.should == :'foo"bar'
+  end
+
+  it 'parses constants' do
+    parse_one('Example', AST::Identifier)
+    @first.constant?.should be_true
+    @first.const_names.should == [:Example]
+  end
+
+  it 'parses invalid constants as identifiers' do
+    parse_one('Fo$o', AST::Identifier)
+    @first.constant?.should be_false
+  end
+
+  it 'parses scoped constants' do
+    parse_one('Foo::Bar::Baz', AST::Identifier)
+    @first.constant?.should be_true
+    @first.const_names.should == [:Foo, :Bar, :Baz]
+  end
+
+  it 'parses invalid scoped constants as identifiers' do
+    parse_one('Foo::', AST::Identifier)
+    @first.constant?.should be_false
+    parse_one('Foo:', AST::Identifier)
+    @first.constant?.should be_false
+    parse_one('Foo::a', AST::Identifier)
+    @first.constant?.should be_false
+    parse_one('Foo::::Bar', AST::Identifier)
+    @first.constant?.should be_false
+  end
+
+  it 'parses true, false, nil, and self' do
+    parse('true false nil self').length.should == 4
+    @ast[0].should be_a(AST::Literal)
+    @ast[0].value.should == :true
+    @ast[1].should be_a(AST::Literal)
+    @ast[1].value.should == :false
+    @ast[2].should be_a(AST::Literal)
+    @ast[2].value.should == :nil
+    @ast[3].should be_a(AST::Identifier)
+    @ast[3].name.should == :self
+  end
+
+  it 'parses fixnums' do
+    parse_one('123', AST::Literal)
+    @first.value.should == 123
+  end
+
+  it 'parses bignums' do
+    parse_one('12345678901234567890', AST::BignumLiteral)
+    @first.value.should == 12345678901234567890
+  end
+
+  it 'parses radix integers' do
+    parse_one('2r10', AST::Literal)
+    @first.value.should == 2
+  end
+
+  it 'parses floats' do
+    parse_one('1.23', AST::FloatLiteral)
+    @first.value.should == 1.23
+  end
+
+  it 'parses rationals' do
+    parse_one('12/34', AST::RationalLiteral)
+    @first.numerator.should == 12
+    @first.denominator.should == 34
+  end
+
+  it 'does not parse invalid numbers' do
+    expect_syntax_error '12abc'
+  end
+
+  it 'parses empty strings' do
+    parse_one('""', AST::StringLiteral)
+    @first.value.should == ''
+  end
+
+  it 'parses strings' do
+    parse_one('"Hello, world!"', AST::StringLiteral)
+    @first.value.should == 'Hello, world!'
+  end
+
+  it 'parses multiline strings' do
+    parse_one(%{"This is\na test"}, AST::StringLiteral)
+    @first.value.should == "This is\na test"
+  end
+
+  it 'does not parse unfinished strings' do
+    expect_syntax_error '"'
+  end
+
+  it 'parses strings with character escapes' do
+    parse_one('"\\a\\b\\t\\n\\v\\f\\r\\e\\"\\\\"', AST::StringLiteral)
+    @first.value.should == "\a\b\t\n\v\f\r\e\"\\"
+  end
+
+  it 'parses strings with octal escapes' do
+    parse_one('"\\1\\01\\001"', AST::StringLiteral)
+    @first.value.should == "\001\001\001"
+  end
+
+  it 'parses strings with hex escapes' do
+    parse_one('"\\x1\\x01"', AST::StringLiteral)
+    @first.value.should == "\001\001"
+  end
+
+  it 'does not parse strings with invalid hex escapes' do
+    expect_syntax_error '"\\x"'
+  end
+
+  it 'stops parsing hex/octal escapes in strings at non-hex/octal digits' do
+    parse_one('"\xAZ\082"', AST::StringLiteral)
+    @first.value.should == "\x0AZ\00082"
+  end
+
+  it 'parses regexes' do
+    parse_one('#r!!', AST::RegexLiteral).pattern.should == ''
+    parse_one('#r!egex!', AST::RegexLiteral).pattern.should == 'egex'
+    parse_one('#r(egex)', AST::RegexLiteral).pattern.should == 'egex'
+    parse_one('#r[egex]', AST::RegexLiteral).pattern.should == 'egex'
+    parse_one('#r{egex}', AST::RegexLiteral).pattern.should == 'egex'
+    parse_one('#r<egex>', AST::RegexLiteral).pattern.should == 'egex'
+    parse_one('#r!\!!', AST::RegexLiteral).pattern.should == '!'
+    parse_one('#r!foo\bar!', AST::RegexLiteral).pattern.should == 'foo\bar'
+    parse_one('#r!\\\\!', AST::RegexLiteral).pattern.should == "\\\\"
+  end
+
+  it 'parses regexes with trailing options' do
+    parse_one('#r//i', AST::RegexLiteral)
+    @first.options.should == Regexp::IGNORECASE
+    parse_one('#r/foo/x', AST::RegexLiteral)
+    @first.options.should == Regexp::EXTENDED
+    parse_one('#r//im', AST::RegexLiteral)
+    @first.options.should == Regexp::IGNORECASE | Regexp::MULTILINE
+  end
+
+  it 'does not parse regexes with unknown trailing options' do
+    expect_syntax_error '#r/foo/asdf'
+  end
+
+  it 'parses symbols' do
+    parse_one(':example', AST::SymbolLiteral)
+    @first.value.should == :example
+  end
+
+  it 'parses quoted symbols' do
+    parse_one(':"\x01()"', AST::SymbolLiteral)
+    @first.value.should == :"\x01()"
+  end
+
+  it 'does not parse unfinished quoted symbols' do
+    expect_syntax_error ':"'
+  end
+
+  it 'does not parse empty symbols' do
+    expect_syntax_error ':'
+  end
+
+  it 'does parse empty quoted symbols' do
+    parse_one(':""', AST::SymbolLiteral)
+    @first.value.should == :""
+  end
+
+  it 'parses empty lists' do
+    parse_one('()', AST::List)
+    @first.elements.should be_empty
+  end
+
+  it 'parses lists' do
+    parse_one('(1 two)', AST::List)
+    @first[0].should be_a(AST::Literal)
+    @first[1].should be_a(AST::Identifier)
+  end
+
+  it 'parses empty arrays' do
+    parse_one('[]', AST::ArrayLiteral)
+    @first.elements.should be_empty
+  end
+
+  it 'parses arrays' do
+    parse_one('[1 two]', AST::ArrayLiteral)
+    @first[0].should be_a(AST::Literal)
+    @first[1].should be_a(AST::Identifier)
+  end
+
+  it 'parses empty hashes' do
+    parse_one('{}', AST::HashLiteral)
+    @first.elements.should be_empty
+  end
+
+  it 'parses hashes' do
+    parse_one('{:example 1}', AST::HashLiteral)
+    @first[0].should be_a(AST::SymbolLiteral)
+    @first[1].should be_a(AST::Literal)
+  end
+
+  it 'does not parse invalid hashes' do
+    expect_syntax_error '{:foo 1 :bar}'
+  end
+
+  it 'parses empty sets' do
+    parse_one('#{}', AST::SetLiteral)
+    @first.elements.should be_empty
+  end
+
+  it 'parses sets' do
+    parse_one('#{1 two}', AST::SetLiteral)
+    @first[0].should be_a(AST::Literal)
+    @first[1].should be_a(AST::Identifier)
+  end
+
+  it 'parses multiple forms' do
+    parse('foo bar').length.should == 2
+    @ast[0].should be_a(AST::Identifier)
+    @ast[1].should be_a(AST::Identifier)
+  end
+
+  it 'parses quoted forms' do
+    parse_one("'test", AST::List)
+    @first.elements.length.should == 2
+    @first[0].should be_a(AST::Identifier)
+    @first[0].name.should == :quote
+    @first[1].should be_a(AST::Identifier)
+    @first[1].name.should == :test
+  end
+
+  it 'parses syntax quoted forms' do
+    begin
+      old_gensym = Apricot.instance_variable_get :@gensym
+      Apricot.instance_variable_set :@gensym, 41
+
+      parse_one("`(foo ~bar ~@baz quux#)", AST::List)
+      @first.should == AST::Node.from_value(
+        List[Identifier.intern(:concat),
+          List[Identifier.intern(:list),
+            List[Identifier.intern(:quote),
+              Identifier.intern(:foo)]],
+          List[Identifier.intern(:list),
+            Identifier.intern(:bar)],
+          Identifier.intern(:baz),
+          List[Identifier.intern(:list),
+            List[Identifier.intern(:quote),
+              Identifier.intern(:'quux#__42')]]])
+    ensure
+      Apricot.instance_variable_set :@gensym, old_gensym
+    end
+  end
+
+  it 'parses #() shorthand' do
+    Apricot.stub(:gensym).and_return(*:a..:z)
+
+    parse("#()").should == parse("(fn [] ())")
+    parse("#(foo)").should == parse("(fn [] (foo))")
+    parse("#(%)").should == parse("(fn [a] (a))")
+    parse("#(% %2)").should == parse("(fn [b c] (b c))")
+    parse("#(%1 %2)").should == parse("(fn [d e] (d e))")
+    parse("#(%2)").should == parse("(fn [g f] (f))")
+    parse("#(%&)").should == parse("(fn [& h] (h))")
+    parse("#(% %&)").should == parse("(fn [i & j] (i j))")
+
+    expect_syntax_error("#(%0)")
+    expect_syntax_error("#(%-1)")
+    expect_syntax_error("#(%x)")
+    expect_syntax_error("#(%1.1)")
+    expect_syntax_error("#(%1asdf)")
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,10 @@
+require 'bundler/setup'
+require 'rspec'
+
+unless Rubinius.ruby19?
+  puts "Error: Apricot must be run in Ruby 1.9 mode"
+  exit 1
+end
+
+require 'apricot'
+include Apricot

metadata

@@ -0,0 +1,188 @@
+--- !ruby/object:Gem::Specification
+name: apricot
+version: !ruby/object:Gem::Version
+  prerelease: 
+  version: 0.0.1
+platform: ruby
+authors:
+- Curtis McEnroe
+- Scott Olson
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-04-13 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  prerelease: false
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 10.0.3
+    none: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 10.0.3
+    none: false
+  name: rake
+  type: :development
+- !ruby/object:Gem::Dependency
+  prerelease: false
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+    none: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+    none: false
+  name: rspec
+  type: :development
+description: A compiler for a Clojure-like programming language on the Rubinius VM
+email:
+- programble@gmail.com
+- scott@scott-olson.org
+executables:
+- !binary |-
+  YXByaWNvdA==
+extensions: []
+extra_rdoc_files: []
+files:
+- !binary |-
+  LmdpdGlnbm9yZQ==
+- !binary |-
+  LnJzcGVj
+- !binary |-
+  LnJ1YnktdmVyc2lvbg==
+- !binary |-
+  LnRyYXZpcy55bWw=
+- !binary |-
+  R2VtZmlsZQ==
+- !binary |-
+  R2VtZmlsZS5sb2Nr
+- !binary |-
+  UkVBRE1FLm1k
+- !binary |-
+  UmFrZWZpbGU=
+- !binary |-
+  YXByaWNvdC5nZW1zcGVj
+- !binary |-
+  YmluL2Fwcmljb3Q=
+- !binary |-
+  ZXhhbXBsZXMvYm90LmFwcg==
+- !binary |-
+  ZXhhbXBsZXMvY2luY2gtYm90LmFwcg==
+- !binary |-
+  ZXhhbXBsZXMvaGFub2kuYXBy
+- !binary |-
+  ZXhhbXBsZXMvaGVsbG8uYXBy
+- !binary |-
+  ZXhhbXBsZXMvcGxvdC5hcHI=
+- !binary |-
+  ZXhhbXBsZXMvcXVpbmUuYXBy
+- !binary |-
+  a2VybmVsL2NvcmUuYXBy
+- !binary |-
+  bGliL2Fwcmljb3QucmI=
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0LnJi
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0L2lkZW50aWZpZXIucmI=
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0L2xpc3QucmI=
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0L2xpdGVyYWxzLnJi
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0L25vZGUucmI=
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0L3Njb3Blcy5yYg==
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0L3RvcGxldmVsLnJi
+- !binary |-
+  bGliL2Fwcmljb3QvYXN0L3ZhcmlhYmxlcy5yYg==
+- !binary |-
+  bGliL2Fwcmljb3QvY29tcGlsZXIucmI=
+- !binary |-
+  bGliL2Fwcmljb3QvY29ucy5yYg==
+- !binary |-
+  bGliL2Fwcmljb3QvZXJyb3JzLnJi
+- !binary |-
+  bGliL2Fwcmljb3QvZ2VuZXJhdG9yLnJi
+- !binary |-
+  bGliL2Fwcmljb3QvaWRlbnRpZmllci5yYg==
+- !binary |-
+  bGliL2Fwcmljb3QvbGlzdC5yYg==
+- !binary |-
+  bGliL2Fwcmljb3QvbWFjcm9leHBhbmQucmI=
+- !binary |-
+  bGliL2Fwcmljb3QvbWlzYy5yYg==
+- !binary |-
+  bGliL2Fwcmljb3QvbmFtZXNwYWNlLnJi
+- !binary |-
+  bGliL2Fwcmljb3QvcGFyc2VyLnJi
+- !binary |-
+  bGliL2Fwcmljb3QvcHJpbnRlcnMucmI=
+- !binary |-
+  bGliL2Fwcmljb3QvcmVwbC5yYg==
+- !binary |-
+  bGliL2Fwcmljb3QvcnVieV9leHQucmI=
+- !binary |-
+  bGliL2Fwcmljb3Qvc2VxLnJi
+- !binary |-
+  bGliL2Fwcmljb3Qvc3BlY2lhbF9mb3Jtcy5yYg==
+- !binary |-
+  bGliL2Fwcmljb3Qvc3RhZ2VzLnJi
+- !binary |-
+  bGliL2Fwcmljb3QvdmVyc2lvbi5yYg==
+- !binary |-
+  c3BlYy9jb21waWxlcl9zcGVjLnJi
+- !binary |-
+  c3BlYy9pZGVudGlmaWVyX3NwZWMucmI=
+- !binary |-
+  c3BlYy9saXN0X3NwZWMucmI=
+- !binary |-
+  c3BlYy9wYXJzZXJfc3BlYy5yYg==
+- !binary |-
+  c3BlYy9zcGVjX2hlbHBlci5yYg==
+homepage: https://github.com/programble/apricot
+licenses:
+- ISC
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+  none: false
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+  none: false
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.25
+signing_key: 
+specification_version: 3
+summary: A Clojure-like programming language on Rubinius
+test_files:
+- !binary |-
+  c3BlYy9jb21waWxlcl9zcGVjLnJi
+- !binary |-
+  c3BlYy9pZGVudGlmaWVyX3NwZWMucmI=
+- !binary |-
+  c3BlYy9saXN0X3NwZWMucmI=
+- !binary |-
+  c3BlYy9wYXJzZXJfc3BlYy5yYg==
+- !binary |-
+  c3BlYy9zcGVjX2hlbHBlci5yYg==