Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (17 sloc) 488 Bytes
{
open Db_filter_parse
let string_chars s = String.sub s 1 (String.length s - 2)
}
rule lexer = parse
[' ' '\t' '\n'] {lexer lexbuf}
| '=' {EQ}
| "true" {TRUE}
| "false" {FALSE}
| '(' {LPAREN}
| ')' {RPAREN}
| "field" {FIELD}
| "and" {LAND}
| "or" {LOR}
| "not" {LNOT}
| '"' [^ '"']* '"' {IDENT (string_chars (Lexing.lexeme lexbuf))}
| eof {EOF}
Jump to Line
Something went wrong with that request. Please try again.