Use a non-recursive replace function when the parser supports it.

https://bugs.gnu.org/29782
https://bugzilla.samba.org/show_bug.cgi?id=9515
https://bugzilla.gnome.org/show_bug.cgi?id=736077 (for xsltproc)

Patch copied from Debian:
https://anonscm.debian.org/cgit/collab-maint/docbook-xsl.git/tree/debian/patches/765567_non-recursive_string_subst.patch

Description: use EXSLT "replace" function when available
 A recursive implementation  of string.subst is problematic,
 long strings with many matches will cause stack overflows.
Author: Peter De Wachter <pdewacht@gmail.com>
Bug-Debian: https://bugs.debian.org/750593

--- a/lib/lib.xsl
+++ b/lib/lib.xsl
@@ -10,7 +10,10 @@
      This module implements DTD-independent functions
 
      ******************************************************************** -->
-<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:str="http://exslt.org/strings"
+                exclude-result-prefixes="str"
+                version="1.0">
 
 <xsl:template name="dot.count">
   <!-- Returns the number of "." characters in a string -->
@@ -56,6 +59,9 @@
   <xsl:param name="replacement"/>
 
   <xsl:choose>
+    <xsl:when test="function-available('str:replace')">
+      <xsl:value-of select="str:replace($string, string($target), string($replacement))"/>
+    </xsl:when>
     <xsl:when test="contains($string, $target)">
       <xsl:variable name="rest">
         <xsl:call-template name="string.subst">
d><td class='form'><form class='right' method='get' action='/guix/log/gnu/system/images/pinebook-pro.scm'>
<input type='hidden' name='id' value='6ec8ad1551debc35183e7420eabb2d7ff6422e6b'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=6ec8ad1551debc35183e7420eabb2d7ff6422e6b'>root</a>/<a href='/guix/log/gnu?id=6ec8ad1551debc35183e7420eabb2d7ff6422e6b'>gnu</a>/<a href='/guix/log/gnu/system?id=6ec8ad1551debc35183e7420eabb2d7ff6422e6b'>system</a>/<a href='/guix/log/gnu/system/images?id=6ec8ad1551debc35183e7420eabb2d7ff6422e6b'>images</a>/<a href='/guix/log/gnu/system/images/pinebook-pro.scm?id=6ec8ad1551debc35183e7420eabb2d7ff6422e6b'>pinebook-pro.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/system/images/pinebook-pro.scm?id=6ec8ad1551debc35183e7420eabb2d7ff6422e6b&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-09-07 14:24:53 +0200'>2022-09-07</span></td><td><a href='/guix/commit/gnu/system/images/pinebook-pro.scm?id=e917f1242c169f011dedd133515de5e87e267b93'>system: images: Define the platform in image-types.</a><span class='msg-avail'>...<span class='msg-tooltip'>Running the following command where my-pine.scm contains an operating-system
declaration:

guix system image --image-type=pine64-raw my-pine.scm

returns:

guix system: error: package linux-libre-arm64-generic@5.18.19 does not support
x86_64-linux

That's because there's no platform defined in the pine64-raw image-type, hence
the guix system image tries to build the image for the host architecture.

* gnu/system/images/novena.scm (novena-image-type): Use the armv7-linux platform.
* gnu/system/images/pine64.scm (pine64-image-type): Use the aarch64-linux platform.
* gnu/system/images/pinebook-pro.scm (pinebook-pro-image-type): Use the aarch64-linux platform.
* gnu/system/images/rock64.scm (rock64-image-type): Use the aarch64-linux platform.
</span></span></td><td>Mathieu Othacehe</td></tr>
D and EXCLUDED, as written in the docstring.
* tests/git.scm ("commit-difference, excluded commits"): Adjust
accordingly.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-05-25 00:00:28 +0200'>2020-05-25</span></td><td><a href='/guix/commit/tests/git.scm?id=c098c11be8eb9e0c12be42640721e3cb21c37628'>git: Add 'commit-relation'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/git.scm (commit-relation): New procedure.
* tests/git.scm ("commit-relation"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-12-27 13:52:49 +0100'>2019-12-27</span></td><td><a href='/guix/commit/tests/git.scm?id=785af04a7574867dc940c791daa938a2432d0450'>git: 'commit-difference' takes a list of excluded commits.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/git.scm (commit-closure): Add 'visited' optional parameter.
(commit-difference): Add 'excluded' optional parameter; pass second
argument to 'commit-closure'.
* tests/git.scm ("commit-difference, excluded commits"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>