module Pass_cont_line =

(* Parse a list of words where the list can stretch over multiple lines.

   Mostly there to demonstrate how to deal with continuation lines. *)

let list_elt = [ label "element" . store /[a-z]+/ ]

let ws_cont = /([ \t]+|[ \t]*\\\\\n[ \t]*)/

let sep = del ws_cont " "

let eol = del /[ \t]*\n/ "\n"

let list = list_elt . ( sep . list_elt )* . eol

let exp_tree = { "element" = "a" } { "element" = "b" }

test list get "a  b\n"      = exp_tree

test list get "a  \\\n b\n" = exp_tree

test list get "a\\\nb\n"    = exp_tree