Commit 4af54562 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-05-19 11:54:36 by beppe] Added <include-forest ...> in order to include also documents not

having a common root element

Original author: beppe
Date: 2005-05-19 11:54:36+00:00
parent 1f540b86
......@@ -22,6 +22,10 @@ let load_include (Latin1 -> [Any*])
xtransform [ (load_xml name) ] with
| <include file=(s & Latin1)>[] -> load_include s
| <include-verbatim file=(s & Latin1)>[] -> load_file s
| <include-forest file=(s & Latin1)>[] ->
match load_xml ("string:<fake>"@(load_file s)@"</fake>") with
<fake> x -> x | _ -> raise "Uhh?"
(* Loading *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment