This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/xml/texml.xsl
2001-06-06 19:40:57 +00:00

280 lines
7.1 KiB
XML

<?xml version="1.0"?>
<xsl:stylesheet
version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml"/>
<!--
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.8.4
%
% Copyright (c) 1998-2001 Paulo Moura. All Rights Reserved.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-->
<xsl:template match="/">
<TeXML>
<cmd name="documentclass">
<opt>10pt</opt>
<parm>report</parm>
</cmd>
<env name="document">
<cmd name="hrule"/>
<env name="flushright">
<cmd name="textbf"><parm><xsl:value-of select="logtalk/entity/type" /></parm></cmd>
</env>
<cmd name="section*">
<parm><xsl:value-of select="logtalk/entity/name" /></parm>
</cmd>
<xsl:apply-templates/>
</env>
</TeXML>
</xsl:template>
<xsl:template match="logtalk/entity">
<xsl:if test="comment">
<env name="quote"><xsl:value-of select="comment" /></env>
</xsl:if>
<xsl:if test="authors">
<cmd name="medskip"/>
<cmd name="noindent"/>
authors:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="authors" /></parm></cmd>
<cmd name="par"/>
</xsl:if>
<xsl:if test="version">
<cmd name="medskip"/>
<cmd name="noindent"/>
version:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="version" /></parm></cmd>
<cmd name="par"/>
</xsl:if>
<xsl:if test="date">
<cmd name="medskip"/>
<cmd name="noindent"/>
date:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="date" /></parm></cmd>
<cmd name="par"/>
</xsl:if>
<cmd name="medskip"/>
<cmd name="noindent"/>
compilation:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="compilation" /></parm></cmd>
<cmd name="par"/>
<xsl:for-each select="info">
<cmd name="medskip"/>
<cmd name="noindent"/>
<xsl:value-of select="key" />:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="value" /></parm></cmd>
<cmd name="par"/>
</xsl:for-each>
</xsl:template>
<xsl:template match="logtalk/relations">
<cmd name="bigskip"/>
<cmd name="bigskip"/>
<cmd name="hrule"/>
<xsl:choose>
<xsl:when test="*">
<xsl:if test="implements">
<cmd name="bigskip"/>
<cmd name="noindent"/>
implements:
<cmd name="par"/>
<xsl:apply-templates select="implements" />
<cmd name="par"/>
</xsl:if>
<xsl:if test="imports">
<cmd name="bigskip"/>
<cmd name="noindent"/>
imports:
<cmd name="par"/>
<xsl:apply-templates select="imports" />
<cmd name="par"/>
</xsl:if>
<xsl:if test="extends">
<cmd name="bigskip"/>
<cmd name="noindent"/>
extends:
<cmd name="par"/>
<xsl:apply-templates select="extends" />
<cmd name="par"/>
</xsl:if>
<xsl:if test="instantiates">
<cmd name="bigskip"/>
<cmd name="noindent"/>
instantiates:
<cmd name="par"/>
<xsl:apply-templates select="instantiates" />
<cmd name="par"/>
</xsl:if>
<xsl:if test="specializes">
<cmd name="bigskip"/>
<cmd name="noindent"/>
specializes:
<cmd name="par"/>
<xsl:apply-templates select="specializes" />
<cmd name="par"/>
</xsl:if>
<xsl:if test="uses">
<cmd name="bigskip"/>
<cmd name="noindent"/>
uses:
<cmd name="par"/>
<xsl:apply-templates select="uses" />
<cmd name="par"/>
</xsl:if>
<xsl:if test="calls">
<cmd name="bigskip"/>
<cmd name="noindent"/>
calls:
<cmd name="par"/>
<xsl:apply-templates select="calls" />
<cmd name="par"/>
</xsl:if>
</xsl:when>
<xsl:otherwise>
<cmd name="bigskip"/>
<cmd name="noindent"/>
<cmd name="textsf"><parm>(no dependencies on other files)</parm></cmd>
<cmd name="par"/>
</xsl:otherwise>
</xsl:choose>
<cmd name="bigskip"/>
<cmd name="hrule"/>
<cmd name="bigskip"/>
</xsl:template>
<xsl:template match="logtalk/relations/uses">
<cmd name="texttt"><parm><xsl:value-of select="name" /></parm></cmd>
</xsl:template>
<xsl:template match="logtalk/relations/calls">
<cmd name="texttt"><parm><xsl:value-of select="name" /></parm></cmd>
</xsl:template>
<xsl:template match="logtalk/relations/*" xml:space="preserve">
<cmd name="texttt"><parm><xsl:value-of select="scope" /> <xsl:value-of select="name" /></parm></cmd>
</xsl:template>
<xsl:template match="logtalk/predicates">
<cmd name="section*">
<parm>Public interface</parm>
</cmd>
<xsl:choose>
<xsl:when test="public/predicate">
<xsl:apply-templates select="public/predicate" />
</xsl:when>
<xsl:when test="/logtalk/relations/*">
<cmd name="texttt"><parm>(see related entities)</parm></cmd>
</xsl:when>
<xsl:otherwise>
<cmd name="texttt"><parm>(none)</parm></cmd>
</xsl:otherwise>
</xsl:choose>
<cmd name="section*">
<parm>Protected interface</parm>
</cmd>
<xsl:choose>
<xsl:when test="protected/predicate">
<xsl:apply-templates select="protected/predicate" />
</xsl:when>
<xsl:when test="/logtalk/relations/*">
<cmd name="texttt"><parm>(see related entities)</parm></cmd>
</xsl:when>
<xsl:otherwise>
<cmd name="texttt"><parm>(none)</parm></cmd>
</xsl:otherwise>
</xsl:choose>
<cmd name="section*">
<parm>Private predicates</parm>
</cmd>
<xsl:choose>
<xsl:when test="private/predicate">
<xsl:apply-templates select="private/predicate" />
</xsl:when>
<xsl:when test="/logtalk/relations/*">
<cmd name="texttt"><parm>(see related entities)</parm></cmd>
</xsl:when>
<xsl:otherwise>
<cmd name="texttt"><parm>(none)</parm></cmd>
</xsl:otherwise>
</xsl:choose>
<cmd name="bigskip"/>
<cmd name="bigskip"/>
<cmd name="hrule"/>
</xsl:template>
<xsl:template match="*/predicate">
<cmd name="subsection*">
<parm><xsl:value-of select="name" /></parm>
</cmd>
<xsl:if test="comment">
<env name="quote"><xsl:value-of select="comment" /></env>
</xsl:if>
<cmd name="medskip"/>
<cmd name="noindent"/>
compilation:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="compilation" /></parm></cmd>
<cmd name="par"/>
<xsl:if test="template">
<cmd name="medskip"/>
<cmd name="noindent"/>
template:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="template" /></parm></cmd>
<cmd name="par"/>
</xsl:if>
<xsl:if test="meta">
<cmd name="medskip"/>
<cmd name="noindent"/>
metapredicate template:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="meta" /></parm></cmd>
<cmd name="par"/>
</xsl:if>
<xsl:if test="mode">
<cmd name="medskip"/>
<cmd name="noindent"/>
mode <cmd name="textendash"/> <cmd name="space"/> number of solutions:
<cmd name="par"/>
<xsl:for-each select="mode">
<cmd name="texttt"><parm><xsl:value-of select="template" /></parm></cmd>
<cmd name="space"/> <cmd name="textendash"/> <cmd name="space"/>
<cmd name="texttt"><parm><xsl:value-of select="solutions" /></parm></cmd>
</xsl:for-each>
</xsl:if>
<xsl:for-each select="info">
<cmd name="noindent"/>
<cmd name="medskip"/>
<xsl:value-of select="key" />:
<cmd name="par"/>
<cmd name="texttt"><parm><xsl:value-of select="value" /></parm></cmd>
<cmd name="par"/>
</xsl:for-each>
</xsl:template>
</xsl:stylesheet>