PonyMirrors/philomena
1
0
Fork 0
mirror of https://github.com/philomena-dev/philomena.git synced 2024-11-27 13:47:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

require spaces around textual search operators, fixes #37

Browse source
This commit is contained in:
byte[] 2020-03-31 13:27:53 -04:00
parent f6f29840ca
commit 8dae60de92
1 changed files with 26 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
lib/search/lexer.ex
View file

@ -3,6 +3,10 @@ defmodule Search.Lexer do
defp to_number(input), do: Search.Helpers.to_number(input)
space =
choice([string(" "), string("\t"), string("\n"), string("\r"), string("\v"), string("\f")])
|> ignore()
float =
optional(ascii_char('-+'))
|> ascii_string([?0..?9], min: 1)
@ -11,24 +15,33 @@ defmodule Search.Lexer do
|> reduce(:to_number)
l_and =
choice([string("AND"), string("&&"), string(",")])
times(space, min: 1)
|> choice([string("AND"), string("&&")])
|> times(space, min: 1)
|> unwrap_and_tag(:and)
l_comma =
string(",")
|> unwrap_and_tag(:and)
l_or =
choice([string("OR"), string("||")])
times(space, min: 1)
|> choice([string("OR"), string("||")])
|> times(space, min: 1)
|> unwrap_and_tag(:or)
l_not =
choice([string("NOT"), string("!"), string("-")])
string("NOT")
|> times(space, min: 1)
|> unwrap_and_tag(:not)
l_negate =
choice([string("!"), string("-")])
|> unwrap_and_tag(:not)
lparen = string("(") |> unwrap_and_tag(:lparen)
rparen = string(")") |> unwrap_and_tag(:rparen)
space =
choice([string(" "), string("\t"), string("\n"), string("\r"), string("\v"), string("\f")])
|> ignore()
quot = string("\"")
boost =
@ -37,12 +50,12 @@ defmodule Search.Lexer do
|> unwrap_and_tag(:boost)
stop_words =
repeat(space)
|> choice([
choice([
l_comma,
l_and,
l_or,
rparen,
boost
repeat(space) |> concat(rparen),
repeat(space) |> concat(boost)
])
defcombinatorp(
@ -85,6 +98,8 @@ defmodule Search.Lexer do
outer =
choice([
l_comma,
l_negate,
l_and,
l_or,
l_not,