let parse_string entry loc str =
                  parse_tokens_before_filter entry (lex_string loc str)