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

[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) ...@@ -32,22 +32,22 @@ let fun xslbench4 (Play -> Xhtml)
<h2>("Parts - "@t) <h2>("Parts - "@t)
!(transform r with !(transform r with
<PERSONA> p -> [<p>[<b>[<i>p]]] <PERSONA> p -> [<p>[<b>[<i>p]]]
| <PGROUP> x -> transform r with | <PGROUP> x -> transform x with
<PERSONA> p -> [<p>[<b>[<i>p]]]) <PERSONA> p -> [<p>[<b>[<i>p]]])
] ]
| <ACT>[<TITLE> t; rest] -> | <ACT>[<TITLE> t; rest] ->
[ [
<h3>t <h3>t
!(transform rest with !(transform rest with
<SCENE>[<TITLE> t (r::Speech|_)+] -> <SCENE>[<TITLE> t (spches::Speech|_)+] ->
[<h3>t [<h3>t
!(transform r with !(transform spches with
<SPEECH>[<SPEAKER>s (lines::<LINE>_|_)*] -> <SPEECH>[<SPEAKER>s (lines::<LINE>_|_)*] ->
[<p>[<b> s [<p>[<b> s
<br>[] <br>[]
!transform lines with !transform lines with
<LINE>[(l::Char |_ )+] -> <LINE>[(str::Char |_ )+] ->
[!l <br>[]]] [!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