Packages

minipeg

0.7.5
0.7.10 0.7.9 0.7.8 0.7.7 0.7.6 0.7.5 0.7.4 0.7.3 0.7.1 0.7.0 0.6.5 0.6.4 0.6.3 0.6.2 0.6.1 0.6.0 0.5.4 0.5.3 0.5.2 0.5.1 0.5.0 0.4.2 0.4.1 0.4.0 0.3.1 0.3.0 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.11 0.1.10 0.1.9 0.1.8 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

A simple easy to debug macro free peg parser library

HexDocs

Current section

Files

Jump to
Readme
46 Versions
0 Dependencies
Dependants
Files
Activity
minipeg lib minipeg combinators mapping.ex
Raw

lib/minipeg/combinators/mapping.ex 

defmodule Minipeg.Combinators.Mapping do

  @moduledoc false



  alias Minipeg.{Failure, Parser, Success, Types}

  use Types



  import Parser, only: [new: 2, parse: 3]



  def map(parser, mapper_fun, name \\ nil) do

    name1 = name || parser.name



    new(

      name1,

      fn input, cache, _ ->

        case parse(parser, input, cache) do

          %Failure{} = f -> f

          %Success{ast: ast} = s -> %{s | ast: mapper_fun.(ast)}

        end

      end

    )

  end



  def map_error(parser, error_fun, name) do

    name1 = name || parser.name

    new(

      name1,

      fn input, cache, _ ->

        case parse(parser, input, cache) do

          %Failure{} = f -> error_fun.(f)

          %Success{} = s -> s

        end

      end

    )

  end



  def mapp(parser, mapper_fun, name) do

    name1 = name || parser.name



    new(

      name1,

      fn input, cache, _ ->

        case parse(parser, input, cache) do

          %Failure{} = f -> f

          %Success{ast: ast, parsed_at: position} = s -> %{s | ast: mapper_fun.(ast, position)}

        end

      end

    )

  end



  def map_to_string(parser, name) do

    name1 = name || "map_to_string(#{parser.name})"



    parser

    |> map(&IO.chardata_to_string/1, name1)

  end



  def with_pos(parser, name) do

    name1 = name || "with_pos(#{parser.name})"



    mapp(parser, &{&1, &2}, name1)

  end

end

# SPDX-License-Identifier: Apache-2.0