compser 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: e91d16c77b4d59f8ce036475bb9f00d9d5c673b6c1d5ae83633189b76000ba68
+  data.tar.gz: 0ee49bea1a6235fc2d0da6840c920122cb58e394cd575a2739ce96a2fd9532d7
+SHA512:
+  metadata.gz: 11eded3b70d584c53dc890f133b322e8485c43332c32c8694e40e91dd666bf64365014dc2b714ea94e5b0a25cee575f50479180829806b9a9fccbed4b084b5b6
+  data.tar.gz: 1055a219d1c8645739a891e049e5e0d598bf4643674ddde27807dda3b6efedbd3ffae0a4bd494e5fa84af6e751f5a4ad81b8d5071428e59e2607766137d68b35

data/CHANGELOG.md

@@ -0,0 +1,5 @@
+## [Unreleased]
+
+## [0.1.0] - 2023-10-10
+
+- Initial release

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,84 @@
+# Contributor Covenant Code of Conduct
+
+## Our Pledge
+
+We as members, contributors, and leaders pledge to make participation in our community a harassment-free experience for everyone, regardless of age, body size, visible or invisible disability, ethnicity, sex characteristics, gender identity and expression, level of experience, education, socio-economic status, nationality, personal appearance, race, religion, or sexual identity and orientation.
+
+We pledge to act and interact in ways that contribute to an open, welcoming, diverse, inclusive, and healthy community.
+
+## Our Standards
+
+Examples of behavior that contributes to a positive environment for our community include:
+
+* Demonstrating empathy and kindness toward other people
+* Being respectful of differing opinions, viewpoints, and experiences
+* Giving and gracefully accepting constructive feedback
+* Accepting responsibility and apologizing to those affected by our mistakes, and learning from the experience
+* Focusing on what is best not just for us as individuals, but for the overall community
+
+Examples of unacceptable behavior include:
+
+* The use of sexualized language or imagery, and sexual attention or
+  advances of any kind
+* Trolling, insulting or derogatory comments, and personal or political attacks
+* Public or private harassment
+* Publishing others' private information, such as a physical or email
+  address, without their explicit permission
+* Other conduct which could reasonably be considered inappropriate in a
+  professional setting
+
+## Enforcement Responsibilities
+
+Community leaders are responsible for clarifying and enforcing our standards of acceptable behavior and will take appropriate and fair corrective action in response to any behavior that they deem inappropriate, threatening, offensive, or harmful.
+
+Community leaders have the right and responsibility to remove, edit, or reject comments, commits, code, wiki edits, issues, and other contributions that are not aligned to this Code of Conduct, and will communicate reasons for moderation decisions when appropriate.
+
+## Scope
+
+This Code of Conduct applies within all community spaces, and also applies when an individual is officially representing the community in public spaces. Examples of representing our community include using an official e-mail address, posting via an official social media account, or acting as an appointed representative at an online or offline event.
+
+## Enforcement
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be reported to the community leaders responsible for enforcement at luizpvasc@gmail.com. All complaints will be reviewed and investigated promptly and fairly.
+
+All community leaders are obligated to respect the privacy and security of the reporter of any incident.
+
+## Enforcement Guidelines
+
+Community leaders will follow these Community Impact Guidelines in determining the consequences for any action they deem in violation of this Code of Conduct:
+
+### 1. Correction
+
+**Community Impact**: Use of inappropriate language or other behavior deemed unprofessional or unwelcome in the community.
+
+**Consequence**: A private, written warning from community leaders, providing clarity around the nature of the violation and an explanation of why the behavior was inappropriate. A public apology may be requested.
+
+### 2. Warning
+
+**Community Impact**: A violation through a single incident or series of actions.
+
+**Consequence**: A warning with consequences for continued behavior. No interaction with the people involved, including unsolicited interaction with those enforcing the Code of Conduct, for a specified period of time. This includes avoiding interactions in community spaces as well as external channels like social media. Violating these terms may lead to a temporary or permanent ban.
+
+### 3. Temporary Ban
+
+**Community Impact**: A serious violation of community standards, including sustained inappropriate behavior.
+
+**Consequence**: A temporary ban from any sort of interaction or public communication with the community for a specified period of time. No public or private interaction with the people involved, including unsolicited interaction with those enforcing the Code of Conduct, is allowed during this period. Violating these terms may lead to a permanent ban.
+
+### 4. Permanent Ban
+
+**Community Impact**: Demonstrating a pattern of violation of community standards, including sustained inappropriate behavior,  harassment of an individual, or aggression toward or disparagement of classes of individuals.
+
+**Consequence**: A permanent ban from any sort of public interaction within the community.
+
+## Attribution
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 2.0,
+available at https://www.contributor-covenant.org/version/2/0/code_of_conduct.html.
+
+Community Impact Guidelines were inspired by [Mozilla's code of conduct enforcement ladder](https://github.com/mozilla/diversity).
+
+[homepage]: https://www.contributor-covenant.org
+
+For answers to common questions about this code of conduct, see the FAQ at
+https://www.contributor-covenant.org/faq. Translations are available at https://www.contributor-covenant.org/translations.

data/Gemfile

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+source "https://rubygems.org"
+
+# Specify your gem's dependencies in Compser.gemspec
+gemspec
+
+gem "rake", "~> 13.0"
+
+gem "minitest", "~> 5.0"

data/Gemfile.lock

@@ -0,0 +1,21 @@
+PATH
+  remote: .
+  specs:
+    Compser (0.1.0)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    minitest (5.20.0)
+    rake (13.0.6)
+
+PLATFORMS
+  x86_64-linux
+
+DEPENDENCIES
+  Compser!
+  minitest (~> 5.0)
+  rake (~> 13.0)
+
+BUNDLED WITH
+   2.4.10

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2023 Luiz Vasconcellos
+
+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,221 @@
+# Compser
+
+Compser is a parser builder library for Ruby inspired by [elm-parser](https://package.elm-lang.org/packages/elm/parser/latest/).
+Take a look at the [JSON parser](https://github.com/luizpvas/Compser/blob/main/examples/json.rb) to get a glimpse of the syntax
+and available building blocks you can use to compose more complex and sophisticated parsers.
+
+* Building blocks
+  * [`drop`](#drop)
+  * [`integer`](#integer)
+  * [`decimal`](#decimal)
+  * [`token`](#token)
+  * [`keyword`](#keyword)
+  * [`double_quoted_string`](#double_quoted_string)
+  * [`map`](#map)
+  * [`one_of`](#one_of)
+  * [`sequence`](#sequence)
+  * [`spaces`](#spaces)
+  * [`chomp_if`](#chomp_if)
+  * [`chomp_while`](#chomp_while)
+* [Benchmark](#benchmark)
+
+#### `drop`
+
+Discard any result or chomped string produced by the parser.
+
+```ruby
+parser = drop(:token, '[').take(:integer).drop(:token, ']')
+
+parser.parse('[150]') # => Good<150>
+parser.parse('[0]')   # => Good<0>
+
+parser.parse('1234')  # => Bad<...>
+parser.parse('[]')    # => Bad<...>
+parser.parse('[900')  # => Bad<...>
+```
+
+#### `integer`
+
+Parse integers.
+
+```ruby
+parser = take(:integer)
+
+parser.parse('1')    # => Good<1>
+parser.parse('1234') # => Good<1234>
+
+parser.parse('-500') # => Bad<...>
+parser.parse('1.34') # => Bad<...>
+parser.parse('1e31') # => Bad<...>
+parser.parse('123a') # => Bad<...>
+parser.parse('0x1A') # => Bad<...>
+
+
+# negative integers with '-' prefix
+def my_integer
+  take(:one_of, [
+    map(->(x) { x * -1 }).drop(:token, '-').take(:integer),
+    take(:integer)
+  ])
+end
+```
+
+#### `decimal`
+
+Parse floating points as BigDecimal.
+
+```ruby
+parser = take(:decimal)
+
+parser.parse('0.00009')  # => Good<0.00009>
+
+parser.parse('-0.00009') # => Bad<...>
+parser.parse('bad')      # => Bad<...>
+parser.parse('1e31')     # => Bad<...>
+parser.parse('123a')     # => Bad<...>
+```
+
+#### `token`
+
+Parses the token from source.
+
+```ruby
+parser = take(:token, 'module')
+
+
+parser.parse('module')  # => Good<'module'>
+parser.parse('modules') # => Good<'module'> or use `keyword` if you want a failure in this case.
+parser.parse('modu')    # => Bad<...>
+parser.parse('Module')  # => Bad<...>
+```
+
+#### `keyword`
+
+Parses the keyword from source. The next character after the keyword must be a space, symbol or number.
+
+```ruby
+parser = take(:keyword, 'let')
+
+parser.parse('let')  # => Good<'let'>
+
+parser.parse('letter') # => Bad<...>
+parser.parse('Let')    # => Bad<...>
+parser.parse('le')     # => Bad<...>
+```
+
+#### `double_quoted_string`
+
+Parses a string between double quotes. Line breaks and tabs are supported.
+
+```ruby
+parser = take(:double_quoted_string)
+
+parser.parse('"Hello, world!"')       # => Good<'Hello, world!'>
+parser.parse('"line1\nline2"')        # => Good<'line1\\nline2'>
+parser.parse('"Hello, \\"world\\"!"') # => Good<'Hello, "world"!'>
+
+parser.parse('foo')       # => Bad<...>
+parser.parse('foo "bar"') # => Bad<...>
+parser.parse('"foo')      # => Bad<...>
+```
+
+#### `map`
+
+Calls the map function with the taken values in the current pipeline if it succeeds. The output from map becomes the output of the parser,
+that is, any parser with a map can be chained into other parsers.
+
+Important: The arity of the map function should be equal to the amount of taken values in the pipeline.
+
+```ruby
+Sum = ->(a, b) { a + b }
+
+parser = map(Sum).take(:integer).drop(:token, '+').take(:integer)
+
+parser.parse('1+1') # => Good<2>
+parser.parse('1+')  # => Bad<...>
+```
+
+#### `one_of`
+
+Attempts to parse each branch in the order they appear in the list. If all branches fail then the parser fails.
+Important: `one_of` will fail on the current branch it had a partial success before failing. The branch has to fail
+early without chomping any character from source .
+
+```ruby
+parser = take(:one_of, [ take(:integer), take(:double_quoted_string) ])
+
+parser.parse('2023')            # => Good<2023>
+parser.parse('"Hello, world!"') # => Good<'Hello, world!'>
+parser.parse('true')            # => Bad<...>
+```
+
+#### `sequence`
+
+Iterates over the parser until `done` is called. We don't know in advance how many values are gonna be taken,
+so the `map` call should use single splat operator to receive a list with all values taken in the loop.
+
+```ruby
+
+ToList = ->(*integers) { integers }
+
+CommaSeparatedInteger = ->(continue, done) do
+  take(:integer)
+    .drop(:spaces)
+    .take(:one_of, [
+      drop(:token, ',').drop(:spaces).and_then(continue),
+      done
+    ])
+end
+
+parser = map(ToList).take(:sequence, CommaSeparatedInteger)
+
+parser.parse('12, 23, 34') # => Good<[12, 23, 34]>
+parser.parse('123')        # => Good<[123]>
+
+parser.parse('12,')        # => Bad<...>
+parser.parse(',12')        # => Bad<...>
+```
+
+#### `spaces`
+
+Chompes zero or more blankspaces, line breaks and tabs. Always succeeds.
+
+```ruby
+take(:spaces).parse('   \nfoo').state # => State<good?: true, offset: 5, chomped: '   \n'>
+```
+
+#### `chomp_if`
+
+Chomps a single character from source if predicate returns true. Otherwise, a bad result is pushed to state.
+
+```ruby
+parser = take(:chomp_if, ->(ch) { ch == 'a' })
+
+parser.parse('aaabb').state # => State<good?: true, offset: 1, chomped: 'a'>
+parser.parse('cccdd').state # => State<good?: false, offset: 0, chomped: ''>
+```
+
+#### `chomp_while`
+
+Chomps characters from source as long as predicate returns true. This parser always succeeds even if predicate
+returns false for the first character. It is a zero-or-more loop.
+
+```ruby
+parser = take(:chomp_while, ->(ch) { ch == 'a' })
+
+parser.parse('aaabb').state # => State<good?: true, offset: 3, chomped: 'aaa'>
+parser.parse('cccdd').state # => State<good?: true, offset: 0, chomped: ''>
+```
+
+## Benchmark
+
+The following result is a benchark of a [JSON parser](https://github.com/luizpvas/Compser/blob/main/examples/json.rb) I implemented
+with this library. I ran the benchmark with and without YJIT, and compared the result against the native `JSON.parse`.
+
+The benchmark parses a 1,5kb payload 5000 times.
+
+Implementation | Time | Difference
+:---:|:---:|:---:
+`JSON.parse` | 0.019s | -
+`MyJson.parse` (with YJIT) | 9.9s | 526x slower
+`MyJSON.parse` | 12.3s | 654x slower

data/Rakefile

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "bundler/gem_tasks"
+require "rake/testtask"
+
+Rake::TestTask.new(:test) do |t|
+  t.libs << "test"
+  t.libs << "lib"
+  t.test_files = FileList["test/**/test_*.rb"]
+end
+
+task default: :test

data/examples/json-benchmark.rb

@@ -0,0 +1,16 @@
+require_relative "json"
+require "json"
+require "benchmark"
+
+json = File.read("./json-payload.json")
+
+n = 5000
+
+n.times do; MyJson.parse(json); end
+
+Benchmark.bm do |x|
+  x.report("MyJson.parse") { n.times do; MyJson.parse(json); end }
+  x.report("JSON.parse")   { n.times do; ::JSON.parse(json); end }
+end
+
+puts RubyVM::YJIT.runtime_stats

data/examples/json-payload.json

@@ -0,0 +1,32 @@
+{
+    "product": "Live JSON generator",
+    "version": 3.1,
+    "releaseDate": "2014-06-25T00:00:00.000Z",
+    "demo": true,
+    "person": {
+        "id": 12345,
+        "name": "John Doe",
+        "phones": {
+            "home": "800-123-4567",
+            "mobile": "877-123-1234"
+        },
+        "email": [
+            "jd@example.com",
+            "jd@example.org"
+        ],
+        "dateOfBirth": "1980-01-02T00:00:00.000Z",
+        "registered": true,
+        "emergencyContacts": [
+            {
+                "name": "Jane Doe",
+                "phone": "888-555-1212",
+                "relationship": "spouse"
+            },
+            {
+                "name": "Justin Doe",
+                "phone": "877-123-1212",
+                "relationship": "parent"
+            }
+        ]
+    }
+}

data/examples/json.rb

@@ -0,0 +1,73 @@
+require_relative "../lib/compser"
+
+module MyJson
+  extend Compser
+  extend self
+
+  def parse(str)
+    value.parse(str)
+  end
+
+  def value
+    take(:one_of, [
+      take(:double_quoted_string),
+      number,
+      boolean,
+      array,
+      object
+    ])
+  end
+
+  CommaSeparatedKeyValuePairs = ->(continue, done) do
+    map(->(key, value) { [key, value] })
+      .take(:double_quoted_string)
+      .drop(:spaces)
+      .drop(:token, ":")
+      .drop(:spaces)
+      .take(value)
+      .drop(:spaces)
+      .take(:one_of, [
+        drop(:token, ",").drop(:spaces).and_then(continue),
+        done
+      ])
+  end
+
+  def object
+    map(->(*pairs) { pairs.to_h })
+      .drop(:token, "{")
+      .drop(:spaces)
+      .take(:sequence, CommaSeparatedKeyValuePairs)
+      .drop(:token, "}")
+  end
+
+  CommaSeparatedValues = ->(continue, done) do
+    take(value)
+      .drop(:spaces)
+      .take(:one_of, [
+        succeed.drop(:token, ",").drop(:spaces).and_then(continue),
+        done
+      ])
+  end
+
+  def array
+    map(->(*values) { values })
+      .drop(:token, "[")
+      .drop(:spaces)
+      .take(:sequence, CommaSeparatedValues)
+      .drop(:token, "]")
+  end
+
+  def number
+    take(:one_of, [
+      map(->(x) { x * -1 }).drop(:token, "-").take(:decimal),
+      take(:decimal)
+    ])
+  end
+
+  def boolean
+    take(:one_of, [
+      map(-> { true }).drop(:token, "true"),
+      map(-> { false }).drop(:token, "false")
+    ])
+  end
+end

data/lib/compser/result.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Compser::Result
+  Good = Data.define(:state, :value) do
+    def good? = true
+    def bad?  = false
+  end
+
+  Bad = Data.define(:state, :message) do
+    def bad?  = true
+    def good? = false
+  end
+end

data/lib/compser/savepoint.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+class Compser::Savepoint
+  def initialize(state)
+    @state = state
+    
+    @offset = state.offset
+    @line = state.line
+    @column = state.column
+    @chomped = state.chomped
+    @result_stack = state.result_stack.dup
+  end
+
+  def has_changes?
+    @state.offset > @offset
+  end
+
+  def rollback_chomped_and_result_stack
+    @state.chomped = @chomped
+    @state.result_stack = @result_stack.dup
+  end
+
+  def rollback
+    @state.offset = @offset
+    @state.line = @line
+    @state.column = @column
+    @state.chomped = @chomped
+    @state.result_stack = @result_stack.dup
+  end
+end

data/lib/compser/state.rb

@@ -0,0 +1,87 @@
+# frozen_string_literal: true
+
+class Compser::State
+  attr_accessor :source_code, :offset, :line, :column, :chomped, :result_stack, :__sequence__
+
+  def initialize(source_code)
+    @source_code = source_code
+    @offset = 0
+    @line = 0
+    @column = 0
+    @chomped = ::String.new("")
+    @result_stack = [Compser::Result::Good.new(self, nil)]
+  end
+
+  def result
+    @result_stack.last
+  end
+
+  def eof?
+    @offset >= @source_code.length
+  end
+
+  def peek(i = 0, n = 1)
+    peek_offset = @offset + i
+
+    return if peek_offset < 0
+    return if peek_offset + n - 1 >= @source_code.length
+
+    return @source_code[peek_offset, n]
+  end
+
+  def chomp
+    return if @offset >= @source_code.length
+
+    @chomped += @source_code[@offset]
+    @offset += 1
+
+    if peek(-1) == "\n"
+      @line += 1
+      @column = 0
+    else
+      @column += 1
+    end
+
+    self
+  end
+
+  def consume_chomped
+    chomped = @chomped
+    
+    @chomped = ::String.new("")
+    
+    chomped
+  end
+
+  def good?
+    @result_stack.last.good?
+  end
+
+  def bad?
+    !good?
+  end
+
+  def pop_results(n)
+    @result_stack.pop(n)
+  end
+
+  def good!(value)
+    @result_stack.push(good(value)) and return self
+  end
+
+  def bad!(message)
+    @result_stack.push(bad(message)) and return self
+  end
+
+  def good(value)
+    return value if value.is_a?(Compser::Result::Good)
+
+    Compser::Result::Good.new(self, value)
+  end
+
+  def bad(message)
+    return message if message.is_a?(Compser::Result::Bad)
+
+    Compser::Result::Bad.new(self, message)
+  end
+end

data/lib/compser/step/chomp_if.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  ChompIf = ->(predicate, state) do
+    return state.bad!("unexpected eof") if state.eof?
+
+    return state.chomp if predicate.call(state.peek)
+
+    state.bad!("unexpected character")
+  end
+end

data/lib/compser/step/chomp_while.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  ChompWhile = ->(predicate, state) do
+    state.chomp while !state.eof? && predicate.call(state.peek)
+
+    state
+  end
+end

data/lib/compser/step/decimal.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+require "bigdecimal"
+
+class Compser::Step
+  Decimal = -> do
+    Compser::Step.new
+      .and_then(:chomp_if, IsDigit)
+      .and_then(:chomp_while, IsDigit)
+      .and_then(:one_of, [
+        Compser::Step.new
+          .and_then(:chomp_if, ->(ch) { ch == "." })
+          .and_then(:chomp_if, IsDigit)
+          .and_then(:chomp_while, IsDigit),
+        Compser::Step.new
+      ])
+      .and_then(NotFollowedByAlpha)
+      .and_then { |state| state.good!(BigDecimal(state.consume_chomped)) }
+  end
+end

data/lib/compser/step/double_quoted_string.rb

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  IsUninteresting = ->(ch) do
+    ch != "\\" && ch != "\""
+  end
+  
+  AssertNotEof = ->(state) do
+    return state.bad!("unexpected eof") if state.eof?
+
+    state
+  end
+
+  DoubleQuotedStringHelper = ->(continue, done) do
+    Compser::Step.new
+      .and_then(:one_of, [
+        Compser::Step.new
+          .and_then(:chomp_if, ->(ch) { ch == "\\" })
+          .and_then(:chomp_if, ->(_) { true })
+          .and_then(continue),
+        Compser::Step.new
+          .drop(:chomp_if, ->(ch) { ch == "\"" })
+          .and_then(done),
+        Compser::Step.new
+          .and_then(:chomp_if, IsUninteresting)
+          .and_then(:chomp_while, IsUninteresting)
+          .and_then(AssertNotEof)
+          .and_then(continue)
+      ])
+  end
+
+  DoubleQuotedString = -> do
+    Compser::Step.new
+      .drop(:chomp_if, ->(ch) { ch == "\"" })
+      .and_then(:sequence, DoubleQuotedStringHelper)
+      .and_then { |state| state.good!(state.consume_chomped) }
+  end
+end

data/lib/compser/step/drop.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  Drop = ->(parser, state) do
+    savepoint = Compser::Savepoint.new(state)
+
+    parser.call(state)
+
+    savepoint.rollback_chomped_and_result_stack if state.good?
+
+    state
+  end.curry
+end

data/lib/compser/step/integer.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  IsDigit = ->(char) do
+    char =~ /\d/
+  end
+
+  NotFollowedByAlpha = ->(state) do
+    return state if state.eof?
+    return state if !state.peek.match?(/[[:alpha:]]/)
+
+    state.bad!("unexpected character")
+  end
+
+  Integer = -> do
+    Compser::Step.new
+      .and_then(:chomp_if, IsDigit)
+      .and_then(:chomp_while, IsDigit)
+      .and_then(NotFollowedByAlpha)
+      .and_then { |state| state.good!(state.consume_chomped.to_i) }
+  end
+end

data/lib/compser/step/keyword.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  Keyword = ->(str, state) do
+    has_token = state.peek(0, str.size) == str
+
+    if has_token
+      str.size.times { state.chomp }
+
+      return state.good!(str) if state.eof? || !state.peek.match?(/[[:alpha:]]/)
+    end
+
+    state.bad!("expected keyword #{str.inspect}")
+  end
+end

data/lib/compser/step/one_of.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  OneOf = ->(branches, state) do
+    return state.bad!(":one_of requires at least one branch") if branches.empty?
+
+    savepoint = Compser::Savepoint.new(state)
+    
+    branches.each_with_index do |branch, index|
+      state = branch.call(state)
+
+      return state if state.good? || savepoint.has_changes?
+      return state if index == branches.size - 1 # is last
+
+      savepoint.rollback
+    end
+
+    state.bad!(":one_of failed all branches")
+  end
+end

data/lib/compser/step/problem.rb

@@ -0,0 +1,7 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  Problem = ->(message, state) do
+    state.bad!(message)
+  end
+end

data/lib/compser/step/sequence.rb

@@ -0,0 +1,27 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  CONT = :continue
+  DONE = :done
+
+  Sequence = ->(helper, state) do
+    state.__sequence__ = nil
+
+    continue = ->(state) { state.__sequence__ = CONT; state }
+    done     = ->(state) { state.__sequence__ = DONE; state }
+
+    state = helper.call(continue, done).call(state)
+
+    while state.good? && state.__sequence__ == CONT
+      state = helper.call(continue, done).call(state)
+    end
+
+    return state if state.bad?
+
+    if state.good? && state.__sequence__ == DONE
+      return state
+    end
+
+    state.bad!("unbound sequence")
+  end
+end

data/lib/compser/step/spaces.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  Spaces = -> do
+    Compser::Step.new
+      .and_then(:chomp_while, ->(c) { c == " " || c == "\t" || c == "\n" || c == "\r" })
+  end
+end

data/lib/compser/step/token.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  Token = ->(str, state) do
+    has_token = state.peek(0, str.size) == str
+
+    if has_token
+      str.size.times { state.chomp }
+
+      return state.good!(str)
+    end
+
+    state.bad!("expected #{str.inspect}")
+  end
+end

data/lib/compser/step.rb

@@ -0,0 +1,82 @@
+# frozen_string_literal: true
+
+class Compser::Step
+  STEPS = {
+    chomp_if:             ChompIf.curry,
+    chomp_while:          ChompWhile.curry,
+    decimal:              Decimal,
+    double_quoted_string: DoubleQuotedString,
+    integer:              Integer,
+    keyword:              Keyword.curry,
+    one_of:               OneOf.curry,
+    problem:              Problem.curry,
+    sequence:             Sequence.curry,
+    spaces:               Spaces,
+    token:                Token.curry
+  }.freeze
+
+  def initialize(mapper = nil)
+    @mapper = mapper
+    @steps   = []
+  end
+
+  def parse(src)
+    call(Compser::State.new(src)).result
+  end
+
+  def call(state)
+    results_before = state.result_stack.size
+  
+    state = @steps.reduce(state) do |state, step|
+      return state if state.bad?
+
+      step.call(state)
+    end
+
+    results_after = state.result_stack.size
+
+    if @mapper && state.good?
+      args = state.pop_results(results_after - results_before).map(&:value)
+
+      state.good!(@mapper.call(*args))
+    end
+
+    state
+  end
+
+  def and_then(*args, &block)
+    first, *rest = args
+
+    step =
+      case first
+      when Proc            then first
+      when Compser::Step then first
+      when Symbol          then STEPS.fetch(args.first).call(*rest)
+      when nil             then block ? block : raise(ArgumentError, "expected a callable") 
+      else                 raise ArgumentError, "expected a callable, got #{args.inspect}"
+      end
+
+    @steps << step
+
+    self
+  end
+
+  alias take and_then
+
+  def drop(*args, &block)
+    first, *rest = args
+
+    step =
+      case first
+      when Proc            then Drop.(first)
+      when Compser::Step then Drop.(first)
+      when Symbol          then Drop.(STEPS.fetch(first).call(*rest))
+      when nil             then block ? Drop.(block) : raise(ArgumentError, "expected a callable") 
+      else                 raise ArgumentError, "expected a callable"
+      end
+
+    @steps << step
+
+    self
+  end
+end

data/lib/compser/version.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+module Compser
+  VERSION = "0.1.0"
+end

data/lib/compser.rb

@@ -0,0 +1,37 @@
+# frozen_string_literal: true
+
+require_relative "compser/version"
+require_relative "compser/result"
+require_relative "compser/savepoint"
+require_relative "compser/state"
+require_relative "compser/step/chomp_if"
+require_relative "compser/step/chomp_while"
+require_relative "compser/step/decimal"
+require_relative "compser/step/double_quoted_string"
+require_relative "compser/step/drop"
+require_relative "compser/step/integer"
+require_relative "compser/step/keyword"
+require_relative "compser/step/one_of"
+require_relative "compser/step/problem"
+require_relative "compser/step/sequence"
+require_relative "compser/step/spaces"
+require_relative "compser/step/token"
+require_relative "compser/step"
+
+module Compser
+  def succeed
+    Step.new
+  end
+
+  def map(mapper)
+    Step.new(mapper)
+  end
+
+  def take(...)
+    Step.new.and_then(...)
+  end
+
+  def drop(...)
+    Step.new.drop(...)
+  end
+end

metadata

@@ -0,0 +1,74 @@
+--- !ruby/object:Gem::Specification
+name: compser
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Luiz Vasconcellos
+autorequire: 
+bindir: exe
+cert_chain: []
+date: 2023-10-14 00:00:00.000000000 Z
+dependencies: []
+description: 
+email:
+- luizpvasc@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- CHANGELOG.md
+- CODE_OF_CONDUCT.md
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- README.md
+- Rakefile
+- examples/json-benchmark.rb
+- examples/json-payload.json
+- examples/json.rb
+- lib/compser.rb
+- lib/compser/result.rb
+- lib/compser/savepoint.rb
+- lib/compser/state.rb
+- lib/compser/step.rb
+- lib/compser/step/chomp_if.rb
+- lib/compser/step/chomp_while.rb
+- lib/compser/step/decimal.rb
+- lib/compser/step/double_quoted_string.rb
+- lib/compser/step/drop.rb
+- lib/compser/step/integer.rb
+- lib/compser/step/keyword.rb
+- lib/compser/step/one_of.rb
+- lib/compser/step/problem.rb
+- lib/compser/step/sequence.rb
+- lib/compser/step/spaces.rb
+- lib/compser/step/token.rb
+- lib/compser/version.rb
+homepage: https://github.com/luizpvas/compser
+licenses:
+- MIT
+metadata:
+  homepage_uri: https://github.com/luizpvas/compser
+  source_code_uri: https://github.com/luizpvas/compser
+  changelog_uri: https://github.com/luizpvas/compser
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 3.2.0
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.4.10
+signing_key: 
+specification_version: 4
+summary: Parser combinator for Ruby.
+test_files: []