<?xml version="1.0" encoding="UTF-8"?>

 <!--

 XML Web generátor – program na generování webových stránek

 Copyright © 2012 František Kučera (frantovo.cz)

 This program is free software: you can redistribute it and/or modify

 it under the terms of the GNU General Public License as published by

 the Free Software Foundation, either version 3 of the License, or

 (at your option) any later version.

 This program is distributed in the hope that it will be useful,

 but WITHOUT ANY WARRANTY; without even the implied warranty of

 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License

 along with this program.  If not, see <http://www.gnu.org/licenses/>.

 -->

 <xsl:stylesheet version="2.0"

 	xmlns="http://www.w3.org/1999/xhtml"

 	xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro"

 	xmlns:j="java:cz.frantovo.xmlWebGenerator.makra.Skriptování"

 	xmlns:s="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/strana"

 	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"

 	exclude-result-prefixes="m j s">

 	<!--

 		Skriptování

 		***********

 		Provedeme skript zadaný v těle elementu a jeho výstup vložíme do stránky.

 		*

 		@jazyk programovací jazyk, např. bash, perl, php

 		@výstup formát výstupu skriptu: text (výchozí) | xml (musí být validním fragmentem XML)

 		@src skript uložený v souboru místo v těle elementu

 	-->

 	<xsl:template match="m:skript">

 		<!--

 		TODO:

 			- ošetření chyb

 			- nastavení z web.conf (zákaz nebo ignorace skriptů)

 			- podpora vkládání fragmentů XML, ne jen prostého textu

 		-->

 		<xsl:variable name="výstupSkriptu" select="j:interpretuj(

 															text(),

 															@jazyk,

 															@výstup,

 															document-uri(/),

 															//s:stránka/s:nadpis/text(),

 															//s:stránka/s:perex/text()

 														)"/>

 		<xsl:choose>

 			<xsl:when test="$výstupSkriptu">

 				<xsl:choose>

 					<xsl:when test="@výstup = 'xml'"><xsl:value-of select="$výstupSkriptu" disable-output-escaping="yes"/></xsl:when>

 					<xsl:otherwise><xsl:value-of select="$výstupSkriptu"/></xsl:otherwise>

 				</xsl:choose>

 			</xsl:when>

 			<xsl:otherwise>

 				<xsl:message terminate="yes">Při interpretaci skriptu došlo k chybě.</xsl:message>

 			</xsl:otherwise>

 		</xsl:choose>

 	</xsl:template>

 </xsl:stylesheet>