[xsl] Re: Initial whitespace in PI from XSLT, appendices

Subject: [xsl] Re: Initial whitespace in PI from XSLT, appendices
From: "Bauman, Syd s.bauman@xxxxxxxxxxxxxxxx" <xsl-list-service@xxxxxxxxxxxxxxxxxxxxxx>
Date: Sat, 7 May 2022 21:34:06 -0000
APPENDIX A: XSLT program and input document
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform";
  version="1.0">

  <?syd nospace?>
  <?syd already normalized space?>
  <?syd lots of     space    between  stuff   ?>
  <?syd     leading spaces      and     tabs    between!?>
  <?syd lets try a new
    line ?>
  <?syd
    leading newline?>

  <xsl:template match="/">
    <anOutermostElement>
      <xsl:text>&#x0A;</xsl:text>
      <xsl:apply-templates select="//processing-instruction()"/>
    </anOutermostElement>
  </xsl:template>

  <xsl:template match="processing-instruction()">
    <!-- Announce that we are processing the next PI: -->
    <xsl:text>--------- first 3 chars=</xsl:text>
    <xsl:value-of select="concat('', substring( ., 1, 3 ), '')"/>

    <!-- Try copying to output: -->
    <xsl:text>&#x0A;     copy: </xsl:text>
    <xsl:copy/>

    <!-- I expect this different way of expressing "copy this" to do the same
thing: -->
    <xsl:text>&#x0A;  copy-of: </xsl:text>
    <xsl:copy-of select="."/>

    <!-- Construct a new processing instruction based on the input: -->
    <xsl:text>&#x0A; proc-ins: </xsl:text>
    <xsl:processing-instruction name="{name(.)}">
      <xsl:value-of select="."/>
    </xsl:processing-instruction>

    <!-- Construct, but normalize space on the value string first: -->
    <xsl:text>&#x0A; norm-spc: </xsl:text>
    <xsl:processing-instruction name="{name(.)}">
      <xsl:value-of select="normalize-space(.)"/>
    </xsl:processing-instruction>

    <!-- Construct, but (try to) force a space as 1st char: -->
    <xsl:text>&#x0A;insrt-spc: </xsl:text>
    <xsl:processing-instruction name="{name(.)}">
      <xsl:value-of select="concat(' ', normalize-space(.) )"/>
    </xsl:processing-instruction>

    <!-- Construct, but (try to) force a newline as 1st char: -->
    <xsl:text>&#x0A;insrt-nln: </xsl:text>
    <xsl:processing-instruction name="{name(.)}">
      <xsl:value-of select="concat('&#x0A;', normalize-space(.) )"/>
    </xsl:processing-instruction>

    <xsl:text>&#x0A;</xsl:text>
  </xsl:template>

</xsl:stylesheet>

APPENDIX B: Output from `xsltproc`
<?xml version="1.0"?>
<anOutermostElement>
--------- first 3 chars=nos
     copy: <?syd nospace?>
  copy-of: <?syd nospace?>
 proc-ins: <?syd nospace?>
 norm-spc: <?syd nospace?>
insrt-spc: <?syd  nospace?>
insrt-nln: <?syd
nospace?>
--------- first 3 chars=alr
     copy: <?syd already normalized space?>
  copy-of: <?syd already normalized space?>
 proc-ins: <?syd already normalized space?>
 norm-spc: <?syd already normalized space?>
insrt-spc: <?syd  already normalized space?>
insrt-nln: <?syd
already normalized space?>
--------- first 3 chars=lot
     copy: <?syd lots of     space    between  stuff   ?>
  copy-of: <?syd lots of     space    between  stuff   ?>
 proc-ins: <?syd lots of     space    between  stuff   ?>
 norm-spc: <?syd lots of space between stuff?>
insrt-spc: <?syd  lots of space between stuff?>
insrt-nln: <?syd
lots of space between stuff?>
--------- first 3 chars=lea
     copy: <?syd leading spaces and     tabs    between!?>
  copy-of: <?syd leading spaces and     tabs    between!?>
 proc-ins: <?syd leading spaces and     tabs    between!?>
 norm-spc: <?syd leading spaces and tabs between!?>
insrt-spc: <?syd  leading spaces and tabs between!?>
insrt-nln: <?syd
leading spaces and tabs between!?>
--------- first 3 chars=let
     copy: <?syd lets try a new
    line ?>
  copy-of: <?syd lets try a new
    line ?>
 proc-ins: <?syd lets try a new
    line ?>
 norm-spc: <?syd lets try a new line?>
insrt-spc: <?syd  lets try a new line?>
insrt-nln: <?syd
lets try a new line?>
--------- first 3 chars=lea
     copy: <?syd leading newline?>
  copy-of: <?syd leading newline?>
 proc-ins: <?syd leading newline?>
 norm-spc: <?syd leading newline?>
insrt-spc: <?syd  leading newline?>
insrt-nln: <?syd
leading newline?>
</anOutermostElement>

APPENDIX C: Output from Saxon:
<?xml version="1.0" encoding="UTF-8"?><anOutermostElement>
--------- first 3 chars=nos
     copy: <?syd nospace?>
  copy-of: <?syd nospace?>
 proc-ins: <?syd nospace?>
 norm-spc: <?syd nospace?>
insrt-spc: <?syd nospace?>
insrt-nln: <?syd nospace?>
--------- first 3 chars=alr
     copy: <?syd already normalized space?>
  copy-of: <?syd already normalized space?>
 proc-ins: <?syd already normalized space?>
 norm-spc: <?syd already normalized space?>
insrt-spc: <?syd already normalized space?>
insrt-nln: <?syd already normalized space?>
--------- first 3 chars=lot
     copy: <?syd lots of     space    between  stuff   ?>
  copy-of: <?syd lots of     space    between  stuff   ?>
 proc-ins: <?syd lots of     space    between  stuff   ?>
 norm-spc: <?syd lots of space between stuff?>
insrt-spc: <?syd lots of space between stuff?>
insrt-nln: <?syd lots of space between stuff?>
--------- first 3 chars=lea
     copy: <?syd leading spaces and     tabs    between!?>
  copy-of: <?syd leading spaces and     tabs    between!?>
 proc-ins: <?syd leading spaces and     tabs    between!?>
 norm-spc: <?syd leading spaces and tabs between!?>
insrt-spc: <?syd leading spaces and tabs between!?>
insrt-nln: <?syd leading spaces and tabs between!?>
--------- first 3 chars=let
     copy: <?syd lets try a new
    line ?>
  copy-of: <?syd lets try a new
    line ?>
 proc-ins: <?syd lets try a new
    line ?>
 norm-spc: <?syd lets try a new line?>
insrt-spc: <?syd lets try a new line?>
insrt-nln: <?syd lets try a new line?>
--------- first 3 chars=lea
     copy: <?syd leading newline?>
  copy-of: <?syd leading newline?>
 proc-ins: <?syd leading newline?>
 norm-spc: <?syd leading newline?>
insrt-spc: <?syd leading newline?>
insrt-nln: <?syd leading newline?>
</anOutermostElement>

Current Thread