parsec 0.0.1

data/.gitignore

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

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--format documentation

data/Gemfile

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

data/Guardfile

@@ -0,0 +1,3 @@
+guard :rspec do
+  watch(/^(lib|spec)/) { "spec" }
+end

data/LICENSE.txt

@@ -0,0 +1,23 @@
+Copyright (c) 2013 Utkarsh Kukreti.
+
+Copyright 1999-2000, Daan Leijen; 2007, Paolo Martini. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice,
+  this list of conditions and the following disclaimer.
+* Redistributions in binary form must reproduce the above copyright
+  notice, this list of conditions and the following disclaimer in the
+  documentation and/or other materials provided with the distribution.
+
+This software is provided by the copyright holders "as is" and any express or
+implied warranties, including, but not limited to, the implied warranties of
+merchantability and fitness for a particular purpose are disclaimed. In no
+event shall the copyright holders be liable for any direct, indirect,
+incidental, special, exemplary, or consequential damages (including, but not
+limited to, procurement of substitute goods or services; loss of use, data,
+or profits; or business interruption) however caused and on any theory of
+liability, whether in contract, strict liability, or tort (including
+negligence or otherwise) arising in any way out of the use of this software,
+even if advised of the possibility of such damage.

data/README.md

@@ -0,0 +1,51 @@
+# Parsec \[WIP\]
+
+A one-to-one translation of Haskell's
+[Parsec](http://www.haskell.org/haskellwiki/Parsec) library to Ruby.
+
+This would be horribly inefficient as Ruby is /not/ optimized for functional
+use.
+
+## Installation
+
+    $ git clone https://github.com/utkarshkukreti/parsec.rb.git
+    $ cd parsec.rb
+    $ bundle install
+    $ rake install
+
+## Usage
+
+Require the library
+
+    require "parsec"
+
+All functions are present in the `Parsec` module. You can just `extend Parsec`
+in your code for testing, or include it in a class, and use instances of it.
+
+## License
+
+Copyright (c) 2013 Utkarsh Kukreti.
+
+All code is licensed under the same license as Parsec's license, which is:
+
+Copyright 1999-2000, Daan Leijen; 2007, Paolo Martini. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice,
+  this list of conditions and the following disclaimer.
+* Redistributions in binary form must reproduce the above copyright
+  notice, this list of conditions and the following disclaimer in the
+  documentation and/or other materials provided with the distribution.
+
+This software is provided by the copyright holders "as is" and any express or
+implied warranties, including, but not limited to, the implied warranties of
+merchantability and fitness for a particular purpose are disclaimed. In no
+event shall the copyright holders be liable for any direct, indirect,
+incidental, special, exemplary, or consequential damages (including, but not
+limited to, procurement of substitute goods or services; loss of use, data,
+or profits; or business interruption) however caused and on any theory of
+liability, whether in contract, strict liability, or tort (including
+negligence or otherwise) arising in any way out of the use of this software,
+even if advised of the possibility of such damage.

data/Rakefile

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

data/lib/parsec.rb

@@ -0,0 +1,2 @@
+require "parsec/pos"
+require "parsec/version"

data/lib/parsec/pos.rb

@@ -0,0 +1,98 @@
+module Parsec
+  def SourceName(value)
+    value.to_s
+  end
+
+  def Line(value)
+    value.to_i
+  end
+
+  def Column(value)
+    value.to_i
+  end
+
+  def SourcePos(source_name, line = nil, column = nil)
+    source_name, line, column = source_name, line, column
+    Object.new.tap do |object|
+      object.instance_variable_set "@data", [source_name, line, column]
+
+      def object.[](index)
+        @data[index]
+      end
+
+      def object.to_s
+        if self[0].nil?
+          show_line_column
+        else
+          "\"#{self[0]}\" " + show_line_column
+        end
+      end
+
+      def object.inspect
+        to_s
+      end
+
+      def object.show_line_column
+        "(line #{self[1]}, column #{self[2]})"
+      end
+    end
+  end
+
+  def newPos(name, line, column)
+    SourcePos(name, line, column)
+  end
+
+  def initialPos(name)
+    SourcePos(name, 1, 1)
+  end
+
+  def sourceName(source_pos)
+    source_pos[0]
+  end
+
+  def sourceLine(source_pos)
+    source_pos[1]
+  end
+
+  def sourceColumn(source_pos)
+    source_pos[2]
+  end
+
+  def incSourceLine(source_pos, n)
+    SourcePos(source_pos[0], source_pos[1] + n, source_pos[2])
+  end
+
+  def incSourceColumn(source_pos, n)
+    SourcePos(source_pos[0], source_pos[1], source_pos[2] + n)
+  end
+
+  def setSourceName(source_pos, n)
+    SourcePos(n, source_pos[1], source_pos[2])
+  end
+
+  def setSourceLine(source_pos, n)
+    SourcePos(source_pos[0], n, source_pos[2])
+  end
+
+  def setSourceColumn(source_pos, n)
+    SourcePos(source_pos[0], source_pos[1], n)
+  end
+
+  def updatePosString(pos, string)
+    string.chars.to_a.reduce(pos) do |acc, el|
+      updatePosChar acc, el
+    end
+  end
+
+  def updatePosChar(source_pos, c)
+    case c
+    when "\n"
+      SourcePos(source_pos[0], source_pos[1] + 1, 1)
+    when "\t"
+      SourcePos(source_pos[0], source_pos[1],
+        source_pos[2] + 8 - ((source_pos[2] - 1) % 8))
+    else
+      SourcePos(source_pos[0], source_pos[1], source_pos[2] + 1)
+    end
+  end
+end

data/lib/parsec/version.rb

@@ -0,0 +1,3 @@
+module Parsec
+  VERSION = "0.0.1"
+end

data/parsec.gemspec

@@ -0,0 +1,25 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'parsec/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "parsec"
+  gem.version       = Parsec::VERSION
+  gem.authors       = ["Utkarsh Kukreti"]
+  gem.email         = ["utkarshkukreti@gmail.com"]
+  gem.description   = "A one-to-one translation of Haskell’s Parsec library" +
+                      " to Ruby."
+  gem.summary       = gem.description
+  gem.homepage      = ""
+  gem.license       = "MIT"
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+
+  %w{rake rspec guard-rspec}.each do |name|
+    gem.add_development_dependency name
+  end
+end

data/spec/parsec/pos_spec.rb

@@ -0,0 +1,87 @@
+require "spec_helper"
+
+describe Parsec do
+  context "pos" do
+    context "SourceName" do
+      it "should have String as an ancestor" do
+        SourceName("").class.ancestors.should include String
+      end
+    end
+
+    context "Line" do
+      it "should have Integer as an ancestor" do
+        Line(1).class.ancestors.should include Integer
+      end
+    end
+
+    context "Column" do
+      it "should have Integer as an ancestor" do
+        Column(1).class.ancestors.should include Integer
+      end
+    end
+
+    context "SourcePos" do
+      context "[]" do
+        subject { SourcePos("a", 1, 1) }
+        its([0]) { should eq "a" }
+        its([1]) { should eq 1 }
+        its([2]) { should eq 1 }
+      end
+
+      context ".to_s" do
+        it { SourcePos("a", 1, 1).to_s.should eq '"a" (line 1, column 1)'}
+        it { SourcePos(nil, 1, 1).to_s.should eq '(line 1, column 1)'}
+      end
+    end
+
+    context "newPos" do
+      it "should delegate to SourcePos" do
+        a = newPos("", 1, 1)
+        b = SourcePos("", 1, 1)
+        a[0].should eq b[0]
+        a[1].should eq b[1]
+        a[2].should eq b[2]
+      end
+    end
+
+    context "initialPos" do
+      subject { initialPos "" }
+
+      its([0]) { should eq "" }
+      its([1]) { should eq 1 }
+      its([2]) { should eq 1 }
+    end
+
+    context "sourceName, sourceLine, sourceColumn" do
+      subject { SourcePos("", 1, 1) }
+      it { sourceName(subject).should eq "" }
+      it { sourceLine(subject).should eq 1 }
+      it { sourceColumn(subject).should eq 1 }
+    end
+
+    context "incSourceLine, incSourceColumn" do
+      subject { SourcePos("", 1, 2) }
+      it { sourceLine(incSourceLine(subject, 2)).should eq 3 }
+      it { sourceColumn(incSourceColumn(subject, 3)).should eq 5 }
+    end
+
+    context "setSourceName, setSourceLine, setSourceColumn" do
+      subject { SourcePos("", 1, 1) }
+      it { sourceName(setSourceName(subject, "a")).should eq "a" }
+      it { sourceLine(setSourceLine(subject, 2)).should eq 2 }
+      it { sourceColumn(setSourceColumn(subject, 3)).should eq 3 }
+    end
+
+    context "updatePosString" do
+      subject { updatePosString(SourcePos("", 1, 1), "a\nb\t\tc") }
+      it { sourceLine(subject).should eq 2 }
+      it { sourceColumn(subject).should eq 18 }
+    end
+
+    context "updatePosChar" do
+      subject { updatePosChar(SourcePos("", 1, 1), "a") }
+      it { sourceLine(subject).should eq 1 }
+      it { sourceColumn(subject).should eq 2 }
+    end
+  end
+end

data/spec/parsec_spec.rb

@@ -0,0 +1,7 @@
+require "spec_helper"
+
+describe Parsec do
+  it "should have a VERSION" do
+    Parsec::VERSION.should be_a String
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,6 @@
+require "bundler/setup"
+require "parsec"
+
+RSpec.configure do |config|
+  config.send(:include, Parsec)
+end

metadata

@@ -0,0 +1,117 @@
+--- !ruby/object:Gem::Specification
+name: parsec
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Utkarsh Kukreti
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-02-08 00:00:00.000000000 Z
+dependencies:
+- !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'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  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'
+- !ruby/object:Gem::Dependency
+  name: guard-rspec
+  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: A one-to-one translation of Haskell’s Parsec library to Ruby.
+email:
+- utkarshkukreti@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- Gemfile
+- Guardfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- lib/parsec.rb
+- lib/parsec/pos.rb
+- lib/parsec/version.rb
+- parsec.gemspec
+- spec/parsec/pos_spec.rb
+- spec/parsec_spec.rb
+- spec/spec_helper.rb
+homepage: ''
+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'
+      segments:
+      - 0
+      hash: -2798352916948011874
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: -2798352916948011874
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: A one-to-one translation of Haskell’s Parsec library to Ruby.
+test_files:
+- spec/parsec/pos_spec.rb
+- spec/parsec_spec.rb
+- spec/spec_helper.rb