philomena/lib/search/float_parser.ex
2019-11-02 14:34:25 -04:00

30 lines
No EOL
748 B
Elixir

defmodule Search.FloatParser do
import NimbleParsec
import Search.Helpers
fuzz =
string("~")
|> ignore()
unsigned_float =
ascii_string([?0..?9], min: 1)
|> optional(ascii_char('.') |> ascii_string([?0..?9], min: 1))
|> reduce({List, :to_string, []})
|> reduce(:to_number)
float =
optional(ascii_char('-+'))
|> ascii_string([?0..?9], min: 1)
|> optional(ascii_char('.') |> ascii_string([?0..?9], min: 1))
|> reduce({List, :to_string, []})
|> reduce(:to_number)
float_parser =
choice([
float |> concat(fuzz) |> concat(unsigned_float) |> reduce(:range) |> unwrap_and_tag(:float_range),
float |> unwrap_and_tag(:float)
])
|> eos()
defparsec :parse, float_parser
end