Commit 18ba2ad0 authored by Pietro Abate's avatar Pietro Abate

[r2003-05-30 12:06:10 by cvscast] Empty log message

Original author: cvscast
Date: 2003-05-30 12:06:10+00:00
parent 626e0554
......@@ -31,7 +31,7 @@ let fun xslbench4 (Play -> Xhtml)
[
<h2>("Parts - "@t)
!(transform r with
<PERSONA> p -> [<p>[<b>[<i>p]]]
| <PERSONA> p -> [<p>[<b>[<i>p]]]
| <PGROUP> x -> transform x with
<PERSONA> p -> [<p>[<b>[<i>p]]])
]
......@@ -58,7 +58,7 @@ let fun xslbench4 (Play -> Xhtml)
match load_xml "testcases/xslbenchdream.xml" with
| x & Play -> dump_to_file "/tmp/c.htm" (print_xml(xslbench4 x))
| x & Play -> dump_to_file "xslbench2.htm" (print_xml(xslbench4 x))
| _ -> raise "Ma che c%$#^# di file mi hai passato?";;
......@@ -31,26 +31,27 @@ let fun xslbench4 (Play -> Xhtml)
[
<h2>("Parts - "@t)
!(transform r with
<PERSONA> p -> [<p>[<b>[<i>p]]]
| <PGROUP> x -> transform r with
| <PERSONA> p -> [<p>[<b>[<i>p]]]
| <PGROUP> x -> transform x with
<PERSONA> p -> [<p>[<b>[<i>p]]])
]
| <ACT>[<TITLE> t; rest] ->
[
<h3>t
!(transform rest with
<SCENE>[<TITLE> t (r::Speech|_)+] ->
[<h3>t !(transform r with
<SCENE>[<TITLE> t (spches::Speech|_)+] ->
[<h3>t
!(transform spches with
<SPEECH>[<SPEAKER>s ;_] -> [<p>[<b> s]])
]
]
)
]
]
]
match load_xml "testcases/xslbenchBIGdream.xml" with
| x & Play -> print_xml(xslbench4 x)
match load_xml "testcases/xslbenchdream.xml" with
| x & Play -> dump_to_file "xslbench2.htm" (print_xml(xslbench4 x))
| _ -> raise "Ma che c%$#^# di file mi hai passato?";;
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