[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

web/site.cd

@@ -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 *)