Commit 626e0554 authored by Pietro Abate's avatar Pietro Abate

[r2003-05-30 11:54:10 by cvscast] Empty log message

Original author: cvscast
Date: 2003-05-30 11:55:53+00:00
parent eca752ae
......@@ -32,22 +32,22 @@ let fun xslbench4 (Play -> Xhtml)
<h2>("Parts - "@t)
!(transform r with
<PERSONA> p -> [<p>[<b>[<i>p]]]
| <PGROUP> x -> transform r with
| <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|_)+] ->
<SCENE>[<TITLE> t (spches::Speech|_)+] ->
[<h3>t
!(transform r with
!(transform spches with
<SPEECH>[<SPEAKER>s (lines::<LINE>_|_)*] ->
[<p>[<b> s
<br>[]
!transform lines with
<LINE>[(l::Char |_ )+] ->
[!l <br>[]]]
<LINE>[(str::Char |_ )+] ->
[!str <br>[]]]
]
)
]
......
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