-# Grammar rules for tag searching; EBNF.
+# Grammar rules for tag searching
# The grammar defines expressions in the following forms:
# TAG - search blog posts that contain the tag;
# This is a simple version of the grammar and it allows
# rather stupid expressions, like (TAG) or ((TAG)) or !(!(TAG)).
-@@grammar :: Tags
+expression = inner_expression:e end -> e
-start = expression $ ;
+inner_expression = (or_expression | aterm_expression):e -> e
-expression = expression1 !&or_op | or_expression ;
+or_expression = aterm_expression:a or_op inner_expression:e -> ('OR', a, e)
-or_expression = expression1 or_op expression ;
+and_expression = term_expression:t and_op aterm_expression:a -> ('AND',
+t, a)
-and_expression = expression2 and_op expression1 ;
+not_expression = not_op ws (parens_expression | name):n -> ('NOT', n)
-not_expression = not_op expression3 ;
+aterm_expression = (and_expression | term_expression):e -> e
-parens_expression = '(' expression ')' ;
+term_expression = (not_expression:e -> e) | (parens_expression:p -> p) | (name:n space_b4letter -> n)
-expression1 = expression2 !&and_op | and_expression ;
+parens_expression = '(' ws inner_expression:e ws ')' -> ('PARENS', e)
-expression2 = !¬_op expression3 | not_expression ;
+and_op = (ws ('&&' | '&') ws) | (ws ('AND' | 'and') space_b4letter)
-expression3 = parens_expression | name ;
+or_op = (ws ('||' | '|') ws) | (ws ('OR' | 'or') space_b4letter)
-and_op = '&&' | '&' | 'AND' | 'and' ;
+not_op = (ws '!' ws) | (ws ('NOT' | 'not') space_b4letter)
-or_op = '||' | '|' | 'OR' | 'or' ;
+name = <lletter lletterOrDigit*>:n -> ('NAME', n)
-not_op = '!' | 'NOT' | 'not' ;
+lletter = :l ?(l in 'abcdefghijklmnopqrstuvwxyz') -> l
-name = /[a-z][a-z0-9_]+/ ;
+digit = :d ?(d in '0123456789') -> d
+
+lletterOrDigit = (lletter | digit):c -> c
+
+space_b4letter = (' '+ ~~letter) | ws
+
+# vim: set ft=text :