franta-hg@51: <?xml version="1.0" encoding="UTF-8"?>
franta-hg@61: <!--
franta-hg@61: XML Web generátor – program na generování webových stránek
franta-hg@61: Copyright © 2012 František Kučera (frantovo.cz)
franta-hg@61: 
franta-hg@61: This program is free software: you can redistribute it and/or modify
franta-hg@61: it under the terms of the GNU General Public License as published by
franta-hg@136: the Free Software Foundation, version 3 of the License.
franta-hg@61: 
franta-hg@61: This program is distributed in the hope that it will be useful,
franta-hg@61: but WITHOUT ANY WARRANTY; without even the implied warranty of
franta-hg@61: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
franta-hg@61: GNU General Public License for more details.
franta-hg@61: 
franta-hg@61: You should have received a copy of the GNU General Public License
franta-hg@61: along with this program.  If not, see <http://www.gnu.org/licenses/>.
franta-hg@61: -->
franta-hg@51: <xsl:stylesheet version="2.0"
franta-hg@71: 	xmlns="http://www.w3.org/1999/xhtml"
franta-hg@71: 	xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro"
franta-hg@71: 	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
franta-hg@71: 	exclude-result-prefixes="m">
franta-hg@70: 
franta-hg@51: 	<!--
franta-hg@51: 		Jednoduché tabulky
franta-hg@51: 		******************
franta-hg@51: 		Data zadáváme do těla elementu.
franta-hg@51: 		Sloupce oddělujeme tabulátorem (může jich být víc, minimálně však jeden, mezery nestačí).
franta-hg@51: 		První řádek se považuje za záhlaví (nadpisy sloupců).
franta-hg@51: 		*
franta-hg@70: 		@src volitelně můžeme data tabulky načítat ze souboru 
franta-hg@70: 		@oddělovač regulární výraz, který odděluje sloupce – např. „\t+“ pro tabulátory (výchozí pro tabulky vložené přímo do stránky) nebo „;“ pro středník (výchozí pro tabulky načítané ze souboru) 
franta-hg@51: 	-->
franta-hg@70: 	<xsl:template match="m:tabulka">
franta-hg@70: 		<xsl:call-template name="vykresliTabulku">
franta-hg@70: 			<xsl:with-param name="zadání" select="text()"/>
franta-hg@70: 			<xsl:with-param name="oddělovač" select="(@oddělovač, '\t+')[1]"/>
franta-hg@70: 		</xsl:call-template>
franta-hg@70: 	</xsl:template>
franta-hg@70: 	
franta-hg@111: 	<!-- Skript je potřeba interpretovat ještě před tabulkou – ostatní makra budou interpretovat uvnitř buněk -->
franta-hg@111: 	<xsl:template match="m:tabulka[m:skript]">
franta-hg@111: 		<xsl:variable name="zadání">
franta-hg@111: 			<xsl:apply-templates select="*"/>
franta-hg@111: 		</xsl:variable>
franta-hg@111: 		<xsl:call-template name="vykresliTabulku">
franta-hg@111: 			<xsl:with-param name="zadání" select="$zadání"/>
franta-hg@111: 			<xsl:with-param name="oddělovač" select="(@oddělovač, '\t+')[1]"/>
franta-hg@111: 		</xsl:call-template>
franta-hg@111: 	</xsl:template>
franta-hg@111: 	
franta-hg@111: 	<!-- Tabulka načítaná ze souboru: -->
franta-hg@70: 	<xsl:template match="m:tabulka[@src]">
franta-hg@70: 		<xsl:call-template name="vykresliTabulku">
franta-hg@71: 			<xsl:with-param name="zadání" select="m:načti-textový-soubor(@src)"/>
franta-hg@70: 			<xsl:with-param name="oddělovač" select="(@oddělovač, ';')[1]"/>
franta-hg@70: 		</xsl:call-template>
franta-hg@70: 	</xsl:template>
franta-hg@70: 	
franta-hg@111: 	<!-- TODO: Umožnit použití maker a značek uvnitř buněk tabulky. -->
franta-hg@70: 	<xsl:template name="vykresliTabulku">
franta-hg@70: 		<xsl:param name="zadání"/>
franta-hg@70: 		<xsl:param name="oddělovač"/>
franta-hg@70: 		<table>
franta-hg@70: 			<xsl:variable name="data" select="replace(replace($zadání, '^\s+', ''),'\s+$','')"/>
franta-hg@70: 			<xsl:variable name="hlavička" select="substring-before($data, '&#10;')"/>
franta-hg@70: 			<xsl:variable name="tělo" select="substring-after($data, '&#10;')"/>
franta-hg@70: 			<thead>
franta-hg@70: 				<tr>
franta-hg@70: 					<xsl:for-each select="tokenize($hlavička, $oddělovač)">
franta-hg@70: 						<xsl:if test="normalize-space(.)">
franta-hg@51: 							<td><xsl:value-of select="normalize-space(.)"/></td>
franta-hg@51: 						</xsl:if>
franta-hg@51: 					</xsl:for-each>
franta-hg@70: 				</tr>
franta-hg@70: 			</thead>
franta-hg@70: 			<tbody>
franta-hg@51: 				<xsl:for-each select="tokenize($tělo, '\n')">
franta-hg@51: 					<xsl:if test="normalize-space(.)">
franta-hg@51: 						<tr>
franta-hg@70: 							<xsl:for-each select="tokenize(., $oddělovač)">
franta-hg@51: 								<xsl:if test="normalize-space(.)">
franta-hg@90: 									<xsl:element name="td">
franta-hg@90: 										<xsl:if test="number(normalize-space(.))">
franta-hg@90: 											<xsl:attribute name="class">číslo</xsl:attribute>
franta-hg@90: 										</xsl:if>
franta-hg@90: 										<xsl:value-of select="normalize-space(.)"/>
franta-hg@90: 									</xsl:element>
franta-hg@51: 								</xsl:if>
franta-hg@51: 							</xsl:for-each>
franta-hg@51: 						</tr>
franta-hg@51: 					</xsl:if>
franta-hg@51: 				</xsl:for-each>
franta-hg@70: 			</tbody>
franta-hg@70: 		</table>
franta-hg@70: 	</xsl:template>
franta-hg@51: 
franta-hg@51: </xsl:stylesheet>
franta-hg@51: