Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
626e0554
Commit
626e0554
authored
Oct 05, 2007
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/xsltmark/xslbench2.cd
View file @
626e0554
...
...
@@ -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>
[]]]
]
)
]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment