source: draft-ietf-httpbis/latest/abnf2xml2rfc.xslt @ 1773

Last change on this file since 1773 was 1773, checked in by julian.reschke@…, 7 years ago

Remove ABNF diagnostics for known to be non-referenced productions (header field names)

File size: 5.3 KB
Line 
1<xsl:transform
2  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
3  xmlns:xs="http://www.w3.org/2001/XMLSchema"
4  xmlns:x="http://purl.org/net/xml2rfc/ext"
5  version="2.0"
6  exclude-result-prefixes="xs">
7
8<xsl:output method="xml" omit-xml-declaration="yes" indent="no"/>
9
10<xsl:param name="abnf"/> 
11 
12<xsl:template match="/">
13  <xsl:variable name="src" select="."/>
14  <xsl:variable name="collected" select="unparsed-text($abnf)"/>
15
16  <xsl:variable name="all-lines" as="xs:string*" select="tokenize($collected, '\r?\n')"/>
17  <xsl:variable name="lines" select="$all-lines[normalize-space(.)!='']"/>
18 
19  <xsl:variable name="generated"><section title="Collected ABNF" anchor="collected.abnf">
20    <xsl:text>&#10;</xsl:text>
21    <figure>
22      <xsl:text>&#10;</xsl:text>
23      <artwork type="abnf" name="{$abnf}">
24        <xsl:for-each select="$lines[substring(.,1,2)!='; ']">
25       
26          <!-- Group by start character -->
27          <xsl:variable name="lineno" select="position()"/>
28          <xsl:variable name="sc1" select="substring(.,1,1)"/>
29          <xsl:variable name="sc0" select="x:laststartchar($lines, $lineno - 1)"/>
30          <xsl:if test="$sc1!=' ' and $sc0!=' ' and $sc1!=$sc0">
31            <xsl:text>&#10;</xsl:text>
32          </xsl:if>
33
34          <!-- Add cross-refs for terms -->
35          <xsl:analyze-string select="." regex='^([A-Za-z0-9\-]+) = ' flags="sm">
36            <xsl:matching-substring>
37              <xsl:variable name="term" select="regex-group(1)"/>
38              <xsl:choose>
39                <xsl:when test="$src//*[@anchor=$term] or $src//x:anchor-alias[@value=$term]">
40                  <x:ref><xsl:value-of select="$term"/></x:ref>
41                </xsl:when>
42                <xsl:otherwise>
43                  <xsl:value-of select="$term"/>
44                </xsl:otherwise>
45              </xsl:choose>
46              <xsl:text> = </xsl:text>
47            </xsl:matching-substring>
48            <xsl:non-matching-substring>
49              <xsl:value-of select="."/>
50            </xsl:non-matching-substring>
51          </xsl:analyze-string>
52
53          <xsl:text>&#10;</xsl:text>
54        </xsl:for-each>
55      </artwork>
56      <xsl:text>&#10;</xsl:text>
57    </figure> 
58    <xsl:text>&#10;</xsl:text>
59   
60    <xsl:variable name="diags">
61      <xsl:for-each select="$lines[substring(.,1,2)='; ']">
62        <xsl:variable name="prod" select="substring-before(substring-after(.,'; '),' defined but not used')"/>
63        <xsl:choose>
64          <xsl:when test="$prod!='' and $src//iref[@item='Header Fields' and @subitem=$prod]">
65            <!-- header field; expected not to be reference -->
66          </xsl:when>
67          <xsl:otherwise>
68            <xsl:value-of select="."/>
69            <xsl:text>&#10;</xsl:text>
70          </xsl:otherwise>
71        </xsl:choose>
72      </xsl:for-each>
73    </xsl:variable>
74   
75    <xsl:if test="$diags!=''">
76      <figure>
77        <preamble>ABNF diagnostics:</preamble>
78        <artwork type="inline">
79          <xsl:text>&#10;</xsl:text>
80          <xsl:value-of select="$diags"/>
81      </artwork></figure>
82    </xsl:if>
83  </section></xsl:variable>
84
85  <xsl:copy-of select="$generated"/>
86
87  <!-- check whether it's up-to-date... -->
88  <xsl:variable name="src">
89    <xsl:for-each select="//section[@anchor='collected.abnf']//artwork">
90      <xsl:value-of select="."/>
91    </xsl:for-each>
92  </xsl:variable>
93 
94  <xsl:if test="not(//section[@anchor='collected.abnf']) or normalize-space($src) != normalize-space($generated)">
95    <xsl:message>WARNING: appendix contained inside source document needs to be updated</xsl:message>
96    <xsl:call-template name="showdiff">
97      <xsl:with-param name="actual" select="normalize-space($src)"/>
98      <xsl:with-param name="expected" select="normalize-space($generated)"/>
99    </xsl:call-template>
100  </xsl:if>
101</xsl:template>
102
103<xsl:template name="showdiff">
104  <xsl:param name="actual"/>
105  <xsl:param name="expected"/>
106  <xsl:param name="prev"/>
107 
108  <xsl:choose>
109    <xsl:when test="$actual=''">
110      <!-- done -->
111    </xsl:when>
112    <xsl:when test="substring($actual,1,1)=substring($expected,1,1)">
113      <xsl:call-template name="showdiff">
114        <xsl:with-param name="actual" select="substring($actual,2)"/>
115        <xsl:with-param name="expected" select="substring($expected,2)"/>
116        <xsl:with-param name="prev" select="concat($prev,substring($actual,1,1))"/>
117      </xsl:call-template>
118    </xsl:when>
119    <xsl:otherwise>
120      <xsl:message>WARNING: at position <xsl:value-of select="string-length($prev)"/></xsl:message>
121      <xsl:message>WARNING: prefix <xsl:value-of select="$prev"/></xsl:message>
122      <xsl:message>WARNING: actual text is: '<xsl:value-of select="substring($actual,1,20)"/>...' expected was: '<xsl:value-of select="substring($expected,1,20)"/>...'</xsl:message>
123    </xsl:otherwise>
124  </xsl:choose>
125</xsl:template>
126
127<xsl:function name="x:laststartchar">
128  <xsl:param name="lines"/>
129  <xsl:param name="position"/>
130 
131  <xsl:choose>
132    <xsl:when test="' '!=substring($lines[$position],1,1)">
133      <xsl:value-of select="substring($lines[$position],1,1)"/>
134    </xsl:when>
135    <xsl:otherwise>
136      <xsl:value-of select="x:laststartchar($lines, $position - 1)"/>
137    </xsl:otherwise>
138  </xsl:choose>
139</xsl:function>
140 
141 
142</xsl:transform>
Note: See TracBrowser for help on using the repository browser.