Include Paulo Moura's Logtalk OO LP system
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@53 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
279
Logtalk/xml/texml.xsl
Normal file
279
Logtalk/xml/texml.xsl
Normal file
@@ -0,0 +1,279 @@
|
||||
<?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>
|
||||
Reference in New Issue
Block a user