mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-12-01 21:19:16 -06:00
fe11af9045
Port the HBCI import-export module to AqBanking3. Depending on the aqbanking version found, either the classic hbci/ module or the new, very similar, module aqbanking3/ for AqBanking >= 3 is built and installed. The influence on the rest of the code is minimal. BP git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17288 57a11ea4-9604-0410-9ed3-97b8803252fd
362 lines
11 KiB
XML
362 lines
11 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
|
|
<!--
|
|
|
|
svn2cl.xsl - xslt stylesheet for converting svn log to a normal
|
|
changelog
|
|
|
|
Usage (replace ++ with two minus signs):
|
|
svn ++verbose ++xml log | \
|
|
xsltproc ++stringparam strip-prefix `basename $(pwd)` \
|
|
++stringparam linelen 75 \
|
|
++stringparam groupbyday yes \
|
|
++stringparam include-rev yes \
|
|
svn2cl.xsl - > ChangeLog
|
|
|
|
This file is based on several implementations of this conversion
|
|
that I was not completely happy with and some other common
|
|
xslt constructs found on the web.
|
|
|
|
Copyright (C) 2004, 2005 Arthur de Jong.
|
|
|
|
Redistribution and use in source and binary forms, with or without
|
|
modification, are permitted provided that the following conditions
|
|
are met:
|
|
1. Redistributions of source code must retain the above copyright
|
|
notice, this list of conditions and the following disclaimer.
|
|
2. Redistributions in binary form must reproduce the above copyright
|
|
notice, this list of conditions and the following disclaimer in
|
|
the documentation and/or other materials provided with the
|
|
distribution.
|
|
3. The name of the author may not be used to endorse or promote
|
|
products derived from this software without specific prior
|
|
written permission.
|
|
|
|
THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
|
|
DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
|
|
GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
|
|
IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
|
OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
|
|
IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
-->
|
|
|
|
<!DOCTYPE xsl:stylesheet [
|
|
<!ENTITY tab "	">
|
|
<!ENTITY newl " ">
|
|
<!ENTITY space " ">
|
|
]>
|
|
|
|
<!--
|
|
TODO
|
|
- make external lookups of author names possible
|
|
- find a place for revision numbers
|
|
- mark deleted files as such
|
|
- combine paths
|
|
- make path formatting nicer
|
|
-->
|
|
|
|
<xsl:stylesheet
|
|
version="1.0"
|
|
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
|
|
xmlns:exsl="http://exslt.org/common"
|
|
extension-element-prefixes="exsl"
|
|
>
|
|
|
|
<xsl:output
|
|
method="text"
|
|
encoding="utf-8"
|
|
media-type="text/plain"
|
|
omit-xml-declaration="yes"
|
|
standalone="yes"
|
|
indent="no" />
|
|
|
|
<xsl:strip-space elements="*" />
|
|
|
|
<!-- the length of a line to wrap messages at -->
|
|
<xsl:param name="linelen" select="75" />
|
|
|
|
<!-- whether entries should be grouped by day -->
|
|
<xsl:param name="groupbyday" select="'no'" />
|
|
|
|
<!-- whether entries should be grouped by day -->
|
|
<xsl:param name="include-rev" select="'no'" />
|
|
|
|
<!-- the prefix of pathnames to strip -->
|
|
<xsl:param name="strip-prefix" select="'/'" />
|
|
<!-- strip trailing slash from command line strip-prefix -->
|
|
<xsl:variable name="sp">
|
|
<xsl:choose>
|
|
<xsl:when test="substring($strip-prefix,string-length($strip-prefix),1)='/'">
|
|
<xsl:value-of select="substring($strip-prefix,1,string-length($strip-prefix)-1)" />
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$strip-prefix" />
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:variable>
|
|
<xsl:variable name="branches">
|
|
<branch>
|
|
<prefix>gnucash/branches/aqbanking3</prefix>
|
|
</branch>
|
|
<branch>
|
|
<prefix>gnucash/branches/csv-import</prefix>
|
|
</branch>
|
|
<branch>
|
|
<prefix>gnucash/branches/reshuffle-modules</prefix>
|
|
</branch>
|
|
<branch>
|
|
<prefix>gnucash/branches/deprecated-cleanup</prefix>
|
|
</branch>
|
|
<branch>
|
|
<prefix>gnucash/branches/gobject-engine-dev-warlord</prefix>
|
|
</branch>
|
|
<branch>
|
|
<prefix>gnucash/branches/remove-group2</prefix>
|
|
</branch>
|
|
<branch>
|
|
<prefix>gnucash/branches/sx-cleanup</prefix>
|
|
</branch>
|
|
</xsl:variable>
|
|
<xsl:variable name="sp_branches" select="exsl:node-set($branches)"/>
|
|
<xsl:variable name="sp_root">
|
|
<xsl:text>gnucash/</xsl:text>
|
|
</xsl:variable>
|
|
|
|
<xsl:template match="log">
|
|
<xsl:variable name="print-entries">
|
|
<xsl:apply-templates/>
|
|
</xsl:variable>
|
|
<xsl:apply-templates select="exsl:node-set($print-entries)" />
|
|
</xsl:template>
|
|
|
|
<xsl:template match="print-entry">
|
|
<!-- save log entry number -->
|
|
<xsl:variable name="pos" select="position()"/>
|
|
<!-- fetch previous entry's header -->
|
|
<xsl:variable name="prevheader" select="../print-entry[position()=(($pos)-1)]/header"/>
|
|
<!-- print header -->
|
|
<xsl:choose>
|
|
<!-- first log entry -->
|
|
<xsl:when test="$pos=1">
|
|
<xsl:value-of select="header"/>
|
|
<xsl:text>&newl;&newl;</xsl:text>
|
|
</xsl:when>
|
|
<!-- new header -->
|
|
<xsl:when test="$prevheader!=header">
|
|
<xsl:text>&newl;</xsl:text>
|
|
<xsl:value-of select="header"/>
|
|
<xsl:text>&newl;&newl;</xsl:text>
|
|
</xsl:when>
|
|
</xsl:choose>
|
|
<!-- print message -->
|
|
<xsl:value-of select="message"/>
|
|
</xsl:template>
|
|
|
|
<!-- format one entry from the log -->
|
|
<xsl:template match="logentry">
|
|
<!-- get paths string firstly, to check for DONTPRINT -->
|
|
<xsl:variable name="paths">
|
|
<xsl:apply-templates select="paths" />
|
|
</xsl:variable>
|
|
<!-- Only continue if this entry shouldn't have been printed -->
|
|
<xsl:choose>
|
|
<xsl:when test="$paths='DONTPRINT'"/>
|
|
<xsl:otherwise>
|
|
<print-entry>
|
|
<header>
|
|
<!-- date -->
|
|
<xsl:apply-templates select="date" />
|
|
<!-- two spaces -->
|
|
<xsl:text>&space;&space;</xsl:text>
|
|
<!-- author's name -->
|
|
<xsl:apply-templates select="author" />
|
|
</header>
|
|
<message>
|
|
<!-- get revision number -->
|
|
<xsl:variable name="rev">
|
|
<xsl:if test="$include-rev='yes'">
|
|
<xsl:text>[r</xsl:text>
|
|
<xsl:value-of select="@revision"/>
|
|
<xsl:text>]&space;</xsl:text>
|
|
</xsl:if>
|
|
</xsl:variable>
|
|
<!-- first line is indented (other indents are done in wrap template) -->
|
|
<xsl:text>&tab;*&space;</xsl:text>
|
|
<!-- print the paths and message nicely wrapped -->
|
|
<xsl:call-template name="wrap">
|
|
<xsl:with-param name="txt" select="concat($rev,$paths,normalize-space(msg))" />
|
|
</xsl:call-template>
|
|
</message>
|
|
</print-entry>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<!-- format date -->
|
|
<xsl:template match="date">
|
|
<xsl:variable name="date" select="normalize-space(.)" />
|
|
<!-- output date part -->
|
|
<xsl:value-of select="substring($date,1,10)" />
|
|
<!-- output time part -->
|
|
<xsl:if test="$groupbyday!='yes'">
|
|
<xsl:text>&space;</xsl:text>
|
|
<xsl:value-of select="substring($date,12,5)" />
|
|
</xsl:if>
|
|
</xsl:template>
|
|
|
|
<!-- format author -->
|
|
<xsl:template match="author">
|
|
<xsl:value-of select="normalize-space(.)" />
|
|
</xsl:template>
|
|
|
|
<!-- present a list of paths names -->
|
|
<xsl:template match="paths">
|
|
<xsl:variable name="combined">
|
|
<xsl:for-each select="path">
|
|
<xsl:sort select="normalize-space(.)" data-type="text" />
|
|
<!-- unless we are the first entry, add a comma -->
|
|
<xsl:if test="not(position()=1)">
|
|
<xsl:text>,&space;</xsl:text>
|
|
</xsl:if>
|
|
<!-- print the path name -->
|
|
<xsl:apply-templates select="."/>
|
|
</xsl:for-each>
|
|
<!-- end the list with a colon -->
|
|
<xsl:text>:&space;</xsl:text>
|
|
</xsl:variable>
|
|
<!-- Use DONTPRINT if any path is not to be printed -->
|
|
<xsl:choose>
|
|
<xsl:when test="contains($combined,'DONTPRINT')">
|
|
<xsl:text>DONTPRINT</xsl:text>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$combined"/>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<!-- transform path to something printable -->
|
|
<xsl:template match="path">
|
|
<!-- fetch the pathname -->
|
|
<xsl:variable name="p1" select="normalize-space(.)" />
|
|
<!-- strip leading slash -->
|
|
<xsl:variable name="p2">
|
|
<xsl:choose>
|
|
<xsl:when test="starts-with($p1,'/')">
|
|
<xsl:value-of select="substring($p1,2)" />
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$p1" />
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:variable>
|
|
<!-- strip strip-prefix -->
|
|
<xsl:variable name="p3">
|
|
<xsl:choose>
|
|
<xsl:when test="starts-with($p2,$sp)">
|
|
<xsl:value-of select="substring($p2,1+string-length($sp))"/>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:variable name="rev" select="ancestor::logentry/@revision"/>
|
|
<xsl:for-each select="$sp_branches/branch">
|
|
<xsl:if test="starts-with($p2,prefix)">
|
|
<!-- respect 'before' and 'after' child elements -->
|
|
<xsl:if test="(count(before)!=1 or $rev < before) and (count(after)!=1 or after < $rev)">
|
|
<xsl:value-of select="substring($p2,1+string-length($sp_root))"/>
|
|
</xsl:if>
|
|
</xsl:if>
|
|
</xsl:for-each>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:variable>
|
|
<xsl:choose>
|
|
<xsl:when test="$p3=''">
|
|
<!-- If this should not be printed, use that keyword instead of a
|
|
path. It should not be printed if it does not begin with
|
|
any of the given strip-prefix'es. -->
|
|
<xsl:text>DONTPRINT</xsl:text>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<!-- strip another slash -->
|
|
<xsl:variable name="p4">
|
|
<xsl:choose>
|
|
<xsl:when test="starts-with($p3,'/')">
|
|
<xsl:value-of select="substring($p3,2)" />
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$p3" />
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:variable>
|
|
<!-- translate empty string to dot -->
|
|
<xsl:choose>
|
|
<xsl:when test="$p4 = ''">
|
|
<xsl:text>.</xsl:text>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="$p4" />
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<!-- string-wrapping template -->
|
|
<xsl:template name="wrap">
|
|
<xsl:param name="txt" />
|
|
<xsl:choose>
|
|
<xsl:when test="(string-length($txt) < (($linelen)-9)) or not(contains($txt,' '))">
|
|
<!-- this is easy, nothing to do -->
|
|
<xsl:value-of select="$txt" />
|
|
<!-- add newline -->
|
|
<xsl:text>&newl;</xsl:text>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<!-- find the first line -->
|
|
<xsl:variable name="tmp" select="substring($txt,1,(($linelen)-10))" />
|
|
<xsl:variable name="line">
|
|
<xsl:choose>
|
|
<xsl:when test="contains($tmp,' ')">
|
|
<xsl:call-template name="find-line">
|
|
<xsl:with-param name="txt" select="$tmp" />
|
|
</xsl:call-template>
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:value-of select="substring-before($txt,' ')" />
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:variable>
|
|
<!-- print newline and tab -->
|
|
<xsl:value-of select="$line" />
|
|
<xsl:text>&newl;&tab;&space;&space;</xsl:text>
|
|
<!-- wrap the rest of the text -->
|
|
<xsl:call-template name="wrap">
|
|
<xsl:with-param name="txt" select="normalize-space(substring($txt,string-length($line)+1))" />
|
|
</xsl:call-template>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
<!-- template to trim line to contain space as last char -->
|
|
<xsl:template name="find-line">
|
|
<xsl:param name="txt" />
|
|
<xsl:choose>
|
|
<xsl:when test="substring($txt,string-length($txt),1) = ' '">
|
|
<xsl:value-of select="normalize-space($txt)" />
|
|
</xsl:when>
|
|
<xsl:otherwise>
|
|
<xsl:call-template name="find-line">
|
|
<xsl:with-param name="txt" select="substring($txt,1,string-length($txt)-1)" />
|
|
</xsl:call-template>
|
|
</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:template>
|
|
|
|
</xsl:stylesheet>
|