heredoc.aug

module Heredoc =

let entry =
     let tag = del /[A-Za-z]+\n/ "EOF\n"
  in let var = store Rx.word . Util.eol
  in let heredoc = Util.del_str "<<"
                 . square tag var tag 
  in [ key Rx.word . Sep.space_equal . heredoc . Util.eol ]

test entry get "key = <<EOF
var
EOF
" = ?