functional_parser 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 7b47c35eaea8d03f51311f1718b79c5d3e70729c
+  data.tar.gz: 0b740be01743b668e8ac37cb5f77f566d3705cdc
+SHA512:
+  metadata.gz: 397c8502ff4799d894d7f64b3151570100341e1b59f9d46fee169ce64e0adebf6122f2feb84f20ee2a5e83a40697cc6645a839717fa28e9628dc34d252fa3e61
+  data.tar.gz: d715b861ff57f0f44b7c278105e86c5207b9a88dea8c8a394c54c4087f2f777794777e20ec0d2adf188b169d3ad93f9556123ffedc75c86fd15ae4949c3fa77f

data/.gitignore

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

data/Gemfile

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

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2015 TODO: Write your name
+
+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,31 @@
+# FunctionalParser
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'functional_parser'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install functional_parser
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it ( https://github.com/[my-github-username]/functional_parser/fork )
+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 a new Pull Request

data/Rakefile

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

data/functional_parser.gemspec

@@ -0,0 +1,25 @@
+#-*- mode: ruby -*-
+
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'functional_parser/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "functional_parser"
+  spec.version       = FunctionalParser::VERSION
+  spec.authors       = ["sawaken"]
+  spec.email         = ["sasasawada@gmail.com"]
+  spec.summary       = %q{Yet another functional text-parser}
+  spec.description   = %q{}
+  spec.homepage      = ""
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  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.7"
+  spec.add_development_dependency "rake", "~> 10.0"
+end

data/lib/functional_parser.rb

@@ -0,0 +1,170 @@
+require "functional_parser/version"
+
+class FunctionalParser
+  class Succeeded
+    attr_reader :parsed, :rest
+    def initialize(parsed, rest)
+      @parsed, @rest = parsed, rest
+    end
+  end
+
+  class Failed
+  end
+
+  def initialize(&proc)
+    @f = proc
+  end
+
+  def parse(inp)
+    @f.call(inp)
+  end
+
+  def >>(proc)
+    FunctionalParser.so(self, &proc)
+  end
+
+  def |(other)
+    FunctionalParser.either(self, other)
+  end
+
+  def +(other)
+    FunctionalParser.append(self, other)
+  end
+
+  def self.ret(something)
+    new{|inp| Succeeded.new(something, inp)}
+  end
+
+  def self.failure
+    new{|inp| Failed.new}
+  end
+  
+  def self.item
+    new{|inp| inp.size == 0 ? Failed.new : Succeeded.new(inp[0], inp[1, inp.size - 1])}
+  end
+  
+  def self.so(parser, &proc)
+    new{|inp|
+      case result = parser.parse(inp)
+      when Failed
+        result
+      when Succeeded
+        proc.call(result.parsed).parse(result.rest)
+      else
+        raise "error."
+      end
+    }
+  end
+
+  def self.either(parser1, parser2)
+    new{|inp|
+      case result = parser1.parse(inp)
+      when Failed
+        parser2.parse(inp)
+      when Succeeded
+        result
+      else
+        raise "error."
+      end
+    }
+  end
+
+  def append(parser1, parser2)
+    parser1 >> proc{|x|
+      parer2 >> proc{|y|
+        ret(x + y)
+      }
+    }
+  end
+
+  def self.sat(&proc)
+    item >> proc{|c|
+      proc.call(c) ? ret(c) : failure
+    }
+  end
+
+  def self.digit
+    sat{|c| "0" <= c && c <= "9"}
+  end
+
+  def self.lower
+    sat{|c| "a" <= c && c <= "z"}
+  end
+
+  def self.upper
+    sat{|c| "A" <= c && c <= "Z"}
+  end
+
+  def self.alpha
+    lower | upper
+  end
+
+  def self.alphanum
+    alpha | digit
+  end
+
+  def self.char(char)
+    sat{|c| c == char}
+  end
+
+  def self.string(str)
+    if str.size == 0
+      ret(str)
+    else
+      char(str[0]) >> proc{|c|
+        string(str[1, str.size - 1]) >> proc{
+          ret(str)
+        }
+      }
+    end
+  end
+
+  def self.many(parser)
+    many1(parser) | ret([])
+  end
+
+  def self.many1(parser)
+    parser >> proc{|x|
+      many(parser) >> proc{|xs|
+        ret([x] + xs)
+      }
+    }
+  end
+
+  def self.ident
+    many1(alphanum) >> proc{|cs|
+      ret(cs.inject(&:+))
+    }
+  end
+
+  def self.nat
+    many1(digit) >> proc{|cs|
+      ret(cs.inject(&:+).to_i)
+    }
+  end
+
+  def self.whitespace
+    many(char("\s") | char("\n") | char("\t")) >> proc{
+      ret(nil)
+    }
+  end
+
+  def self.token(parser)
+    whitespace >> proc{
+      parser >> proc{|x|
+        whitespace >> proc{
+          ret(x)
+        }
+      }
+    }
+  end
+
+  def self.identifier
+    token(ident)
+  end
+
+  def self.natural
+    token(nat)
+  end
+end
+

data/lib/functional_parser/version.rb

@@ -0,0 +1,3 @@
+class FunctionalParser
+  VERSION = "0.0.1"
+end

metadata

@@ -0,0 +1,80 @@
+--- !ruby/object:Gem::Specification
+name: functional_parser
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- sawaken
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-01-26 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+description: ''
+email:
+- sasasawada@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- functional_parser.gemspec
+- lib/functional_parser.rb
+- lib/functional_parser/version.rb
+homepage: ''
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Yet another functional text-parser
+test_files: []