let (p_stylesheets,last_stylesheet) = styles#get keys props logger in
logger#log `Debug "Creating input document ...";
let intermediate_results_seqno = ref 0 in
- let result = (* Gdome.document *)
+ let result () = (* Gdome.document *)
List.fold_left
(fun source (key, stylesheet) ->
logger#log `Debug (sprintf "Applying stylesheet %s ..." key);
input
p_stylesheets
in
+ let p_last_stylesheet = snd (List.hd (List.rev p_stylesheets)) in
+ ((fun outchan -> (* serialization function *)
+ let result = result () in
(* add error and debugging messages to result document *)
- add_msgs ~errormode ~debugmode ~msgs:veillogger#msgs result;
+ add_msgs ~errormode ~debugmode ~msgs:veillogger#msgs result;
(*
(* DEBUGGING *)
add_msgs
~msgs:[LibXsltErrorMsg "error1"; LibXsltDebugMsg "debug1"]
result;
*)
- let p_last_stylesheet = snd (List.hd (List.rev p_stylesheets)) in
- ((fun outchan -> (* serialization function *)
Gdome_xslt.saveResultToChannel ~outchan ~result
~stylesheet:p_last_stylesheet),
(get_property "media-type" last_stylesheet), (* media-type *)
(get_property "encoding" last_stylesheet)) (* encoding *)
-