xslt/normalize.xslt

   1 <?xml version="1.0" encoding="utf-8"?>
   2 <!--
   3     Copyright © 2009,2010 Łukasz Rekucki
   4
   5     This file is part of WL2PDF
   6
   7     WL2PDF is free software: you can redistribute it and/or modify
   8     it under the terms of the GNU Affero General Public License as published by
   9     the Free Software Foundation, either version 3 of the License, or
  10     (at your option) any later version.
  11
  12     WL2PDF is distributed in the hope that it will be useful,
  13     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15     GNU Affero General Public License for more details.
  16
  17     You should have received a copy of the GNU Affero General Public License
  18     along with WL2PDF.  If not, see <http://www.gnu.org/licenses/>.
  19  -->
  20 <xsl:stylesheet version="2.0"
  21     xmlns="http://nowoczesnapolska.org.pl/ML/Lektury/1.1"
  22
  23         xmlns:xs="http://www.w3.org/2001/XMLSchema"
  24     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  25
  26     xmlns:wlf="http://wolnelektury.pl/functions"
  27
  28     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  29     xmlns:dc="http://purl.org/dc/elements/1.1/"
  30
  31     exclude-result-prefixes="wlf xsl xs"
  32 >
  33
  34     <!-- Normalization Stylsheet for Wolne Lektury XML -->
  35     <xsl:output method="xml" encoding="utf-8" indent="yes" />
  36     <xsl:strip-space elements="rdf:RDF rdf:Description meta doc main-text strofa stanza drama-line" />
  37
  38     <xsl:variable name="punctuation" select="'.,;:!?'" />
  39
  40     <xsl:function name="wlf:fix-dialog-line">
  41         <xsl:param name="text" />
  42         <xsl:choose>
  43                 <xsl:when test="starts-with($text, '---')">
  44                         <xsl:value-of select="wlf:normalize-text(substring-after($text, '---'))" />
  45                 </xsl:when>
  46                 <xsl:otherwise>
  47                         <xsl:value-of select="$text" />
  48                 </xsl:otherwise>
  49         </xsl:choose>
  50     </xsl:function>
  51
  52     <xsl:function name="wlf:normalize-text">
  53         <xsl:param name="text" />
  54         <!--  The normalization step doesn't change the entities - it only normalizes whitespace -->
  55         <xsl:value-of select="string-join(tokenize($text, '\s+'), ' ')" />
  56     </xsl:function>
  57
  58
  59     <!-- Main entry point -->
  60     <xsl:template match="/">
  61         <doc>
  62             <meta>
  63                 <xsl:apply-templates select="//rdf:RDF" mode="meta"/>
  64             </meta>
  65
  66             <xsl:variable name="body" select="/utwor/*[local-name() = name()]" />
  67
  68             <main-text class="{name($body)}">
  69                 <xsl:apply-templates select="$body/node()" />
  70             </main-text>
  71
  72             <annotations>
  73                 <xsl:apply-templates select="//pr|//pt|//pe|//pa" mode="annotations" />
  74             </annotations>
  75         </doc>
  76     </xsl:template>
  77
  78     <xsl:template match="strofa">
  79         <xsl:element name="stanza" namespace="http://nowoczesnapolska.org.pl/ML/Lektury/1.1">
  80             <!-- normalize verses -->
  81             <xsl:choose>
  82                 <xsl:when test="count(br) > 0">
  83                     <!-- First, collect all the tags up to first BR -->
  84                     <xsl:call-template name="verse">
  85                         <xsl:with-param name="verse-content" select="br[1]/preceding-sibling::node()" />
  86                         <xsl:with-param name="verse-type" select="br[1]/preceding-sibling::*[name() = 'wers_wciety' or name() = 'wers_akap' or name() = 'wers_cd'][1]" />
  87                     </xsl:call-template>
  88
  89                     <!-- Collect the rest of verses -->
  90                     <xsl:for-each select="br">
  91                                 <!-- Each BR tag "consumes" text after it -->
  92                         <xsl:variable name="lnum" select="count(preceding-sibling::br)" />
  93                         <xsl:call-template name="verse">
  94                             <xsl:with-param name="verse-content"
  95                                 select="following-sibling::node()[count(preceding-sibling::br) = $lnum+1 and name() != 'br']" />
  96                             <xsl:with-param name="verse-type" select="following-sibling::*[count(preceding-sibling::br) = $lnum+1 and (name() = 'wers_wciety' or name() = 'wers_akap' or name() = 'wers_cd')][1]" />
  97                         </xsl:call-template>
  98                     </xsl:for-each>
  99                 </xsl:when>
 100
 101                 <!-- No BR's - collect the whole content -->
 102                 <xsl:otherwise>
 103                     <xsl:call-template name="verse">
 104                         <xsl:with-param name="verse-content" select="child::node()" />
 105                         <xsl:with-param name="verse-type" select="wers_wciety|wers_akap|wers_cd[1]" />
 106                     </xsl:call-template>
 107                 </xsl:otherwise>
 108
 109             </xsl:choose>
 110         </xsl:element>
 111     </xsl:template>
 112
 113     <xsl:template name="verse">
 114         <xsl:param name="verse-content" />
 115         <xsl:param name="verse-type" />
 116
 117         <xsl:choose>
 118             <xsl:when test="not($verse-type)">
 119                 <xsl:element name="v" namespace="http://nowoczesnapolska.org.pl/ML/Lektury/1.1">
 120                     <xsl:apply-templates select="$verse-content" />
 121                 </xsl:element>
 122             </xsl:when>
 123
 124             <xsl:otherwise>
 125                 <xsl:apply-templates select="$verse-content" />
 126             </xsl:otherwise>
 127         </xsl:choose>
 128     </xsl:template>
 129
 130
 131     <!-- akapity -->
 132     <xsl:template match="akap">
 133         <xsl:element name="p">
 134             <xsl:apply-templates select="@*|node()" />
 135         </xsl:element>
 136     </xsl:template>
 137
 138     <xsl:template match="akap_cd">
 139         <xsl:element name="pc">
 140             <xsl:apply-templates select="@*|node()" />
 141         </xsl:element>
 142     </xsl:template>
 143
 144     <xsl:template match="akap_dialog">
 145         <xsl:element name="pd">
 146             <xsl:variable name="prolog" select="./text()[1]" />
 147             <xsl:value-of select="wlf:fix-dialog-line($prolog)" />
 148             <xsl:apply-templates select="@*|*|text()[. != $prolog]" />
 149         </xsl:element>
 150     </xsl:template>
 151
 152     <!-- wersy -->
 153     <xsl:template match="wers_cd">
 154         <xsl:element name="vc">
 155             <xsl:apply-templates select="@*|node()" />
 156         </xsl:element>
 157     </xsl:template>
 158
 159     <xsl:template match="wers_akap">
 160         <xsl:element name="vi">
 161             <xsl:attribute name="size">p</xsl:attribute>
 162             <xsl:apply-templates select="@*|node()" />
 163         </xsl:element>
 164     </xsl:template>
 165
 166     <xsl:template match="wers_wciety">
 167         <xsl:element name="vi">
 168             <xsl:if test="@typ">
 169             <xsl:attribute name="size"><xsl:value-of select="@typ" /></xsl:attribute>
 170             </xsl:if>
 171             <xsl:apply-templates select="@*[name() != 'typ']|node()" />
 172         </xsl:element>
 173     </xsl:template>
 174
 175     <xsl:template match="zastepnik_wersu">
 176         <xsl:element name="verse-skip">
 177             <xsl:choose>
 178                 <xsl:when test="starts-with(., '.')">
 179                     <xsl:attribute name="type">dot</xsl:attribute>
 180                 </xsl:when>
 181             </xsl:choose>
 182         </xsl:element>
 183     </xsl:template>
 184
 185     <!-- Przypisy i motywy -->
 186     <xsl:template match="begin" />
 187         <!-- <xsl:element name="mark">
 188             <xsl:attribute name="starts">
 189                 <xsl:value-of select="substring(@id, 2)" />
 190             </xsl:attribute>
 191             <xsl:attribute name="themes">
 192                 <xsl:value-of select="following-sibling::motyw[1]/text()" />
 193             </xsl:attribute>
 194         </xsl:element>
 195     </xsl:template> -->
 196
 197     <xsl:template match="motyw" />
 198
 199     <xsl:template match="end" />
 200     <!--
 201         <xsl:element name="mark">
 202             <xsl:attribute name="ends">
 203                 <xsl:value-of select="substring(@id, 2)" />
 204             </xsl:attribute>
 205         </xsl:element>
 206     </xsl:template> -->
 207
 208     <xsl:template match="pa|pe|pr|pt">
 209         <!-- fetch the next text node -->
 210         <xsl:variable name="tail" select="following-sibling::text()[1]" />
 211         <xsl:variable name="tail-text" select="wlf:normalize-text($tail)" />
 212         <xsl:variable name="first-char" select="substring($tail-text, 1, 1)" />
 213
 214         <xsl:if test="contains($punctuation, $first-char)">
 215         <xsl:value-of select="$first-char" />
 216         </xsl:if>
 217         <anchor id="{generate-id(.)}" />
 218     </xsl:template>
 219
 220
 221     <xsl:template match="pa|pe|pr|pt" mode="annotations">
 222         <annotation refs="{generate-id(.)}" type="{name(.)}">
 223                 <xsl:apply-templates select="@*" />
 224                 <xsl:variable name="text-node"
 225                         select="text()[not(matches(., '^\s*$'))][1]" />
 226
 227                 <xsl:variable name="normalized-text" select="normalize-space($text-node)" />
 228                 <xsl:choose>
 229                 <xsl:when test="slowo_obce[1] and slowo_obce[1] &lt;&lt; $text-node">
 230                 <!--  <slowo_obce>Definition</slowo_obce> some stuff -->
 231                 <definition>
 232                         <xsl:apply-templates select="child::slowo_obce[1]/node()" />
 233                 </definition>
 234                 <body>
 235                         <xsl:value-of select="
 236                                 if (starts-with($normalized-text, '---'))
 237                                 then
 238                                         wlf:normalize-text(substring-after($normalized-text, '---'))
 239                                 else
 240                                         $text-node"
 241                         />
 242                         <xsl:apply-templates select="$text-node/following-sibling::node()" />
 243                 </body>
 244                 </xsl:when>
 245                 <xsl:when test="not(contains($normalized-text, '---'))">
 246                 <body>
 247                         <xsl:value-of select="wlf:normalize-text($text-node)" />
 248                         <xsl:apply-templates select="$text-node/following-sibling::node()" />
 249                 </body>
 250                 </xsl:when>
 251                         <xsl:otherwise>
 252                 <definition>
 253                         <xsl:value-of select="wlf:normalize-text(substring-before($normalized-text, '---'))" />
 254                 </definition>
 255                 <body>
 256                 <xsl:value-of select="wlf:normalize-text(substring-after($normalized-text, '---'))" />
 257                 <xsl:apply-templates select="$text-node/following-sibling::node()" />
 258             </body>
 259             </xsl:otherwise>
 260             </xsl:choose>
 261         </annotation>
 262     </xsl:template>
 263
 264
 265     <!-- Tytuły -->
 266     <xsl:template match="autor_utworu">
 267         <xsl:element name="author">
 268             <xsl:apply-templates select="@*|node()" />
 269         </xsl:element>
 270     </xsl:template>
 271
 272     <xsl:template match="nazwa_utworu">
 273         <xsl:element name="title">
 274             <xsl:apply-templates select="@*|node()" />
 275         </xsl:element>
 276     </xsl:template>
 277
 278     <xsl:template match="naglowek_czesc">
 279         <chapter>
 280             <xsl:apply-templates select="@*|node()" />
 281         </chapter>
 282     </xsl:template>
 283
 284     <xsl:template match="naglowek_akt">
 285         <act>
 286             <xsl:apply-templates select="@*|node()" />
 287         </act>
 288     </xsl:template>
 289
 290     <xsl:template match="naglowek_scena">
 291         <scene>
 292             <xsl:apply-templates select="@*|node()" />
 293         </scene>
 294     </xsl:template>
 295
 296     <xsl:template match="podtytul">
 297         <second-title>
 298             <xsl:apply-templates select="@*|node()" />
 299         </second-title>
 300     </xsl:template>
 301
 302     <xsl:template match="srodtytul">
 303         <part-title>
 304             <xsl:apply-templates select="@*|node()" />
 305         </part-title>
 306     </xsl:template>
 307
 308     <!-- elementy dramatu -->
 309     <xsl:template match="miejsce_czas">
 310         <xsl:element name="time-and-date">
 311             <xsl:apply-templates select="@*|node()" />
 312         </xsl:element>
 313     </xsl:template>
 314
 315
 316     <xsl:template match="didaskalia|didask_tekst">
 317         <xsl:element name="stage-directions">
 318             <xsl:apply-templates select="@*|node()" />
 319         </xsl:element>
 320     </xsl:template>
 321
 322     <xsl:template match="motto">
 323         <xsl:element name="motto">
 324             <xsl:apply-templates select="@*|node()" />
 325
 326         <xsl:variable name="sign" select="following-sibling::*[1][name() = 'motto_podpis']" />
 327         <signature>
 328             <xsl:apply-templates select="$sign/node()" />
 329         </signature>
 330         </xsl:element>
 331     </xsl:template>
 332
 333     <xsl:template match="motto_podpis[preceding-sibling::*[1][name() = 'motto']]" />
 334
 335     <xsl:template match="lista_osob">
 336         <person-list>
 337             <xsl:apply-templates select="@*|node()" />
 338         </person-list>
 339     </xsl:template>
 340
 341     <xsl:template match="naglowek_listy">
 342         <caption>
 343             <xsl:apply-templates select="@*|node()" />
 344         </caption>
 345     </xsl:template>
 346
 347     <xsl:template match="lista_osoba">
 348         <person>
 349             <xsl:apply-templates select="@*|node()" />
 350         </person>
 351     </xsl:template>
 352
 353     <!-- Odstępy i prześwity -->
 354     <xsl:template match="sekcja_swiatlo">
 355         <vertical-space />
 356     </xsl:template>
 357
 358     <xsl:template match="sekcja_asterysk">
 359         <vertical-space type="asterisk" />
 360     </xsl:template>
 361
 362     <xsl:template match="sekcja_asterysk">
 363         <vertical-space type="line" />
 364     </xsl:template>
 365
 366     <!-- pozostałe elementy blokowe -->
 367     <xsl:template match="dlugi_cytat">
 368         <block-quote>
 369             <xsl:apply-templates select="@*|node()" />
 370         </block-quote>`
 371     </xsl:template>
 372
 373     <xsl:template match="poezja_cyt">
 374         <block-quote>
 375             <xsl:apply-templates select="@*|node()" />
 376         </block-quote>`
 377     </xsl:template>
 378
 379     <xsl:template match="kwestia">
 380         <xsl:variable name="person" select="preceding-sibling::*[1][name() = 'naglowek_osoba']" />
 381         <drama-line>
 382             <person>
 383                 <xsl:apply-templates select="$person/node()" />
 384             </person>
 385             <xsl:apply-templates select="node()[. != $person]" />
 386         </drama-line>
 387     </xsl:template>
 388
 389     <xsl:template match="naglowek_osoba[following-sibling::*[1][name() = 'kwestia']]" />
 390
 391     <!-- Inne -->
 392     <xsl:template match="osoba">
 393         <xsl:element name="person-ref">
 394             <xsl:apply-templates select="@*|node()" />
 395         </xsl:element>
 396     </xsl:template>
 397
 398     <xsl:template match="slowo_obce">
 399         <xsl:element name="foreign">
 400             <xsl:apply-templates select="@*|node()" />
 401         </xsl:element>
 402     </xsl:template>
 403
 404     <xsl:template match="wyroznienie">
 405         <xsl:element name="em">
 406             <xsl:apply-templates select="@*|node()" />
 407         </xsl:element>
 408     </xsl:template>
 409
 410     <xsl:template match="mat">
 411         <xsl:element name="math">
 412             <xsl:apply-templates select="@*|node()" />
 413         </xsl:element>
 414     </xsl:template>
 415
 416     <!-- oznaczenie tytulu innego utworu, wymienionego w tym -->
 417     <xsl:template match="tytul_dziela">
 418         <xsl:element name="book-ref">
 419             <xsl:apply-templates select="@*|node()" />
 420         </xsl:element>
 421     </xsl:template>
 422
 423     <xsl:template match="extra">
 424         <xsl:element name="comment">
 425             <xsl:apply-templates select="@*|node()" />
 426         </xsl:element>
 427     </xsl:template>
 428
 429     <xsl:template match="uwaga">
 430         <xsl:element name="edit-comment">
 431             <xsl:apply-templates select="@*|node()" />
 432         </xsl:element>
 433     </xsl:template>
 434
 435     <!-- Copy attributes -->
 436     <xsl:template match="@*|comment()">
 437         <xsl:copy />
 438     </xsl:template>
 439
 440     <!-- Inside RDF meta-data, leave the text unchanged -->
 441     <xsl:template match="rdf:RDF//text()">
 442         <xsl:value-of select="." />
 443     </xsl:template>
 444
 445     <!-- Normalize text in other nodes -->
 446     <xsl:template match="text()">
 447         <xsl:variable name="normalized" select="wlf:normalize-text(.)" />
 448         <xsl:variable name="first-char" select="substring($normalized, 1, 1)" />
 449         <xsl:variable name="siblings-before" select="preceding-sibling::pr|preceding-sibling::pa|preceding-sibling::pe|preceding-sibling::pt|preceding-sibling::text()" />
 450         <xsl:choose>
 451                 <xsl:when test="contains($punctuation, $first-char) and $siblings-before[last()]">
 452                         <xsl:value-of select="substring($normalized, 2)" />
 453                 </xsl:when>
 454                 <xsl:otherwise>
 455                         <xsl:value-of select="$normalized" />
 456                 </xsl:otherwise>
 457         </xsl:choose>
 458     </xsl:template>
 459
 460     <!-- Ignoruj RDF poza meta -->
 461     <xsl:template match="rdf:*|dc:*" />
 462
 463     <xsl:template match="@*|node()" mode="meta">
 464         <xsl:copy>
 465             <xsl:apply-templates select="@*|node()" mode="meta" />
 466         </xsl:copy>
 467     </xsl:template>
 468
 469     <!-- Warn about non-matched elements -->
 470     <xsl:template match="node()" priority="-1">
 471         <unparsed-node>
 472             <xsl:copy-of select="." />
 473         </unparsed-node>
 474     </xsl:template>
 475
 476
 477 </xsl:stylesheet>