Source file preprocessor.ml

let (~/) = Re2.create_exn

let tag name = "{%-? ?" ^ name ^ " ?-?%}"

let remove exp text = Re2.rewrite_exn exp text ~template:""

let remove_comments inp =
  let tag_comment = ~/(tag "comment" ^ "(.|\n)+?" ^ tag "endcomment") in
  let hash_comment = ~/("{%\\s+?((\\s|\\s+)?#.+)+\\s+?%}") in
  remove tag_comment inp
  |> remove hash_comment

let remove_liquid_comments inp =
  let tag_comment = ~/"^comment(.|\n)+^endcomment" in
  let hash_comment = ~/"#.+" in
  remove tag_comment inp
  |> remove hash_comment

let add_eof text = text ^ "   "

let preprocess text = text |> remove_comments |> add_eof

let raw_open = tag "raw"
let raw_close = tag "endraw"

let is_raw text =
  let exp = ~/("^" ^ raw_open ^ "(.|\n)+") in
  Re2.matches exp text

let until_end_raw text =
  let exp = ~/("(.|\n)+" ^ raw_close) in
  Re2.find_first_exn exp text

let trim_raw_tags text =
  let start_exp = ~/("^" ^ raw_open) in
  let end_exp = ~/(raw_close ^ "$") in
  remove start_exp text
  |> remove end_exp