alsemyonov/xommelier

<!DOCTYPE xsl:stylesheet [
<!--*
<!DOCTYPE xsl:stylesheet PUBLIC 'http://www.w3.org/1999/XSL/Transform'
      '../../People/cmsmcq/lib/xslt10.dtd' [ 
*-->
<!ATTLIST xsl:stylesheet 
          xmlns:xsl CDATA "http://www.w3.org/1999/XSL/Transform" 
          xmlns:xsd CDATA #IMPLIED
          xmlns:xhtml CDATA #IMPLIED
>
<!ATTLIST xsl:text
          xmlns:xsl CDATA "http://www.w3.org/1999/XSL/Transform" 
>

<!ENTITY copy   "&#169;" ><!--=copyright sign-->
<!ENTITY reg    "&#174;" ><!--/circledR =registered sign-->
<!ENTITY rarr   "&#x2192;" ><!--/rightarrow /to A: =rightward arrow-->

<!ENTITY nl "&#xA;">
<!ENTITY lsquo  "&#x2018;" ><!--=single quotation mark, left-->
<!ENTITY rsquo  "&#x2019;" ><!--=single quotation mark, right-->
<!ENTITY ldquo  "&#x201C;" ><!--=double quotation mark, left-->
<!ENTITY rdquo  "&#x201D;" ><!--=double quotation mark, right-->

]>
<xsl:stylesheet version="1.0"
     xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
     xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
     xmlns:xhtml="http://www.w3.org/1999/xhtml"
>

 <!--* xsd.xsl:  format an XSD schema document for simple display in a Web browser.
     * http://www.w3.org/XML/2004/xml-schema-test-suite/xsd.xsl
     * 
     * Copyright © 2008-2009 World Wide Web Consortium, (Massachusetts
     * Institute of Technology, European Research Consortium for
     * Informatics and Mathematics, Keio University). All Rights
     * Reserved. This work is distributed under the W3C® Software
     * License [1] in the hope that it will be useful, but WITHOUT ANY
     * WARRANTY; without even the implied warranty of MERCHANTABILITY or
     * FITNESS FOR A PARTICULAR PURPOSE. 
     * 
     * [1] http://www.w3.org/Consortium/Legal/2002/copyright-software-20021231
     *
     *-->

 <!--* Revisions:
     * 2012-05-03 : CMSMcQ : reissue under Software License, not document
     *                       license
     * 2009-01-21 : CMSMcQ : wrap start-tags only when necessary
     * 2009-01-20 : CMSMcQ : wrap start-tags
     * 2008-12-19 : CMSMcQ : add toc for schema documents with more than
     *                       five children of xsd:schema
     * 2008-12-18 : CMSMcQ : fix problems with text breaking
     *                       add rule for top-level attribute groups
     * 2008-09-27 : CMSMcQ : made first version of this stylesheet
     *-->

 <xsl:output method="html" indent="yes"/>

 <xsl:param name="line-wrap-length" select="60"/>
 <xsl:param name="ind-depth" select="6"/>
 <xsl:param name="additional-indent" select="substring(
  '                                                                                ',
  1,$ind-depth)"/>

 <xsl:variable name="tns">
  <xsl:value-of select="/xsd:schema/@targetNamespace"/>
 </xsl:variable>

 <!--* 0 Document root *-->
 <xsl:template match="/">
  
  <xsl:variable name="doctitle">
   <xsl:text>Schema document for </xsl:text>
   <xsl:choose>
    <xsl:when test="xsd:schema/@targetNamespace">
     <xsl:text>namespace </xsl:text>
     <xsl:value-of select="$tns"/>
    </xsl:when>
    <xsl:otherwise>
     <xsl:text>unspecified namespace</xsl:text>
    </xsl:otherwise>
   </xsl:choose>
  </xsl:variable>

  <xsl:variable name="docHasHeading" select="
   xsd:schema/xsd:annotation[1]/xsd:documentation/*[1]
      [self::xhtml:h1 or self::h1]
   or 
   xsd:schema/xsd:annotation[1]/xsd:documentation/xhtml:div/*[1]
      [self::xhtml:h1 or self::h1]
   "/>
  <xsl:variable name="docIsProlific" select="
   count(xsd:schema/child::*) &gt; 5
   "/>

  <xsl:element name="html">
   <xsl:element name="head">
    <xsl:element name="title">
     <xsl:value-of select="$doctitle"/>
    </xsl:element>
    <xsl:element name="style">
     <xsl:attribute name="type">text/css</xsl:attribute>
     .bodytext .bodytext {
       margin-left: 0;
       margin-right: 0;
     }
     .bodytext {
       margin-left: 15%;
       margin-right: 2%;
     }
     .annotation {
       <!--* anything special to do here? *-->
       <!--* color: navy; *-->
     }
     .same-ns {
       color: Green;
     }
     .diff-ns {
       color: maroon;
     }
     .warning {
       color: red;
     }
     p.note {  
       font-style: italic;
     }
     p.dt {  
       font-weight: bold;
     }
     span.rfc {
      font-variant: small-caps;
     }
    </xsl:element>
   </xsl:element>
   <xsl:element name="body">
    
    <xsl:choose>
     <xsl:when test="$docHasHeading and not($docIsProlific)">
      <!--* If the first thing in the first documentation element is a heading,
          * and there are few children, then don't interfere. 
          *-->
      <xsl:comment>* <xsl:value-of select="$doctitle"/> *</xsl:comment>
     </xsl:when>
     <xsl:otherwise>
      <!--* either document has no heading (and needs one), or
          * we're going to do a toc and need a heading anyway
          *-->
      <xsl:element name="h1">
       <xsl:value-of select="$doctitle"/>
      </xsl:element>
      <xsl:if test="$docIsProlific">
       <xsl:element name="div">
    <xsl:element name="hr"/>
    <xsl:element name="ul">
     <xsl:attribute name="class">bodytext</xsl:attribute>
     <xsl:apply-templates mode="toc" select="./xsd:schema/*"/>
    </xsl:element>
    <xsl:element name="hr"/>
       </xsl:element>
      </xsl:if>
     </xsl:otherwise>
    </xsl:choose>
    <xsl:apply-templates/>
   </xsl:element>
  </xsl:element>
 </xsl:template>

 <!--* 2 Schema element *-->
 <xsl:template match="xsd:schema">
  <!--* optional future change:  write out information here about
      * the attributes of xsd:schema:  version, finalDefault, blockDefault,
      * elementFormDefault, atgtributeFormDefault, namespace bindings ... 
      *-->
  <xsl:apply-templates/>
 </xsl:template>

 <!--* 3 Anotation *-->
 <xsl:template match="xsd:annotation">
  <xsl:element name="div">
   <xsl:attribute name="class">annotation</xsl:attribute>
   <xsl:attribute name="id">
    <xsl:call-template name="leid">
    </xsl:call-template>
   </xsl:attribute>
   <xsl:if test="not(./xsd:documentation//*[@class='bodytext'])">
    <xsl:element name="h3">Annotation</xsl:element>
   </xsl:if>
   <xsl:element name="div">
    <xsl:choose>
     <xsl:when test="./xsd:documentation//*[@class='bodytext']">
      <!--* if the schema document is already using class=bodytext,
          * let the schema author control the margins, don't 
          * assign the class here.
          *-->
     </xsl:when>
     <xsl:otherwise>
      <xsl:attribute name="class">bodytext</xsl:attribute>
     </xsl:otherwise>
    </xsl:choose>
    <xsl:apply-templates/>
   </xsl:element>
  </xsl:element>
 </xsl:template>

 <xsl:template match="xsd:documentation">
  <xsl:choose>
   <xsl:when test=".//xhtml:* or .//div or .//p or .//li">
    <xsl:copy-of select="*"/>
   </xsl:when>
   <xsl:when test="./*">
    <xsl:message>! Unrecognized children in xs:documentation element</xsl:message>
    <xsl:copy-of select="*"/>
   </xsl:when>
   <xsl:otherwise>
    <xsl:call-template name="break-pcdata">
     <xsl:with-param name="s" select="string(.)"/>
    </xsl:call-template>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>

 <xsl:template name="break-pcdata">
  <xsl:param name="s"></xsl:param>

  <xsl:choose>
   <xsl:when test="starts-with($s,'&#xA;')">
    <xsl:text>&#xA;</xsl:text>
    <xsl:element name="br"/>
    <xsl:call-template name="break-pcdata">
     <xsl:with-param name="s" select="substring($s,2)"/>
    </xsl:call-template>
   </xsl:when>
   <xsl:when test="starts-with($s,' ')">
    <xsl:text>&#xA0;</xsl:text>
    <xsl:call-template name="break-pcdata">
     <xsl:with-param name="s" select="substring($s,2)"/>
    </xsl:call-template>
   </xsl:when>
   <xsl:when test="contains($s,'&#xA;')">
    <xsl:value-of select="substring-before($s,'&#xA;')"/>
    <xsl:text>&#xA;</xsl:text>
    <xsl:element name="br"/>
    <xsl:call-template name="break-pcdata">
     <xsl:with-param name="s" select="substring-after($s,'&#xA;')"/>
    </xsl:call-template>
   </xsl:when>
   <xsl:otherwise>
    <xsl:value-of select="$s"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>

 <!--* 4 Top-level components *-->
 <xsl:template match="
    xsd:schema/xsd:attribute
  | xsd:schema/xsd:element
  | xsd:schema/xsd:simpleType
  | xsd:schema/xsd:complexType
  | xsd:schema/xsd:attributeGroup
  | xsd:schema/xsd:import
  | xsd:schema/xsd:group
  | xsd:schema/xsd:notation
  ">
  <xsl:call-template name="show-top-level-component"/>
 </xsl:template>

 <xsl:template name="show-top-level-component">
  <xsl:variable name="sort">
   <xsl:call-template name="sort"/>
  </xsl:variable>
  <xsl:variable name="leid">
   <xsl:call-template name="leid"/>
  </xsl:variable>
  <xsl:variable name="has-heading-already">
   <xsl:choose>
    <xsl:when test="./xsd:annotation[1]/xsd:documentation/*//*
       [self::xhtml:*[starts-with(local-name(),'h')]  
        or 
        self::*[contains(' h1 h2 h3 h4 h5 ',local-name())]
       ]">
     <xsl:value-of select="'true'"/>
    </xsl:when>
    <xsl:otherwise>
     <xsl:value-of select="'false'"/>
    </xsl:otherwise>
   </xsl:choose>
  </xsl:variable>

  <xsl:element name="div">
   <xsl:attribute name="id">
    <xsl:value-of select="$leid"/>
   </xsl:attribute>
   <xsl:element name="h3">
    <xsl:element name="a">
     <xsl:attribute name="name">
      <xsl:value-of select="$leid"/>
     </xsl:attribute>
     <xsl:value-of select="concat($sort,' ')"/>
     <xsl:choose>
      <xsl:when test="count(@name) = 1">
       <xsl:element name="em">
    <xsl:value-of select="@name"/>
       </xsl:element>
      </xsl:when>
      <xsl:when test="self::xsd:import and (count(@namespace) = 1)">
       <xsl:element name="code">
    <xsl:value-of select="@namespace"/>
       </xsl:element>
      </xsl:when>
     </xsl:choose>
    </xsl:element>
   </xsl:element>

   <xsl:element name="div">
    <xsl:attribute name="class">bodytext</xsl:attribute>

    <xsl:if test="./xsd:annotation/xsd:documentation">
     <xsl:element name="div">
      <xsl:if test="$has-heading-already = 'false'">
       <xsl:element name="h4">Notes</xsl:element>
      </xsl:if><!-- /if .$has-heading-already *-->
      <xsl:apply-templates select="xsd:annotation/xsd:documentation"/>
      <xsl:if test="count(./xsd:annotation/xsd:documentation/@source) = 1">
       <xsl:element name="p">
    <xsl:text>External documentation at </xsl:text>
    <xsl:element name="code">
     <xsl:element name="a">
      <xsl:attribute name="href">
       <xsl:value-of select="./xsd:annotation/xsd:documentation/@source"/>
      </xsl:attribute>
      <xsl:value-of select="./xsd:annotation/xsd:documentation/@source"/>
     </xsl:element>
    </xsl:element>
       </xsl:element>
      </xsl:if>
     </xsl:element>
    </xsl:if><!-- /if ./xsd:annotation/xsd:documentation *-->

    <xsl:element name="div">
     <xsl:element name="h4">Formal declaration in XSD source form</xsl:element>
     <xsl:element name="pre">
      <xsl:variable name="preceding-node"
       select="./preceding-sibling::node()[1]"/>
      <xsl:if test="not($preceding-node/self::*)
       and (normalize-space($preceding-node) = '')">
       <xsl:value-of select="$preceding-node"/>
      </xsl:if>
      <xsl:apply-templates select="." mode="echo-xml"/>
     </xsl:element>
    </xsl:element><!--* div for XSD source form *-->
   </xsl:element><!--* div for documentation and formal description *-->

  </xsl:element><!--* div for top-level component *-->
 </xsl:template>


 <!--* 5 xml mode *-->
 <xsl:template match="*" mode="echo-xml">
  <xsl:variable name="s0">
   <xsl:call-template name="lastline-suffix">
    <xsl:with-param name="s0" select="preceding-sibling::text()
     [string-length(.) > 0][1]" />
   </xsl:call-template>
  </xsl:variable>
  <xsl:variable name="width">
   <xsl:call-template name="stag-width">
    <xsl:with-param name="indent-length" select="string-length($s0)"/>
   </xsl:call-template>
  </xsl:variable>
  <!--* <xsl:message>Start-tag width for <xsl:value-of select="name()"/> 
        = <xsl:value-of select="$width"/></xsl:message> *-->

  <xsl:text>&lt;</xsl:text>
  <xsl:value-of select="name()"/>
  <xsl:apply-templates select="@*" mode="echo-xml">
   <xsl:with-param name="break-or-nobreak">
    <xsl:choose>
     <xsl:when test="$width > $line-wrap-length">break</xsl:when>
     <xsl:otherwise>nobreak</xsl:otherwise>
    </xsl:choose>
   </xsl:with-param>
   <xsl:with-param name="s0">
    <xsl:call-template name="lastline-suffix">
     <xsl:with-param name="s0" select="preceding-sibling::text()
      [string-length(.) > 0][1]" />
    </xsl:call-template>
   </xsl:with-param>
  </xsl:apply-templates>
  <xsl:choose>
   <xsl:when test="child::node()">
    <xsl:text>&gt;</xsl:text>
    <xsl:apply-templates select="node()" mode="echo-xml"/>
    <xsl:text>&lt;/</xsl:text>
    <xsl:value-of select="name()"/>
    <xsl:text>&gt;</xsl:text>
   </xsl:when>
   <xsl:otherwise>/&gt;</xsl:otherwise>
  </xsl:choose>
  <!--*  </xsl:element> *-->
 </xsl:template>

 <xsl:template match="xsd:annotation" mode="echo-xml"/>
 <xsl:template match="@xml:space" mode="echo-xml"/>

 <xsl:template match="@*" mode="echo-xml">
  <xsl:param name="break-or-nobreak">nobreak</xsl:param>
  <xsl:param name="s0"></xsl:param>
  <xsl:variable name="indent">
   <xsl:choose>
    <xsl:when test="normalize-space($s0) = ''">
     <xsl:value-of select="concat($additional-indent,$s0)"/>
    </xsl:when>
    <xsl:otherwise>
     <xsl:value-of select="'    '"/>
    </xsl:otherwise>
   </xsl:choose>
  </xsl:variable>

  <xsl:choose>
   <xsl:when test="parent::xsd:* and $break-or-nobreak = 'break'">
    <xsl:text>&#xA;</xsl:text>
    <xsl:value-of select="$indent"/>
   </xsl:when>
   <xsl:otherwise>
    <xsl:text> </xsl:text>
   </xsl:otherwise>
  </xsl:choose>
  <xsl:value-of select="name()"/>
  <xsl:text>="</xsl:text>
  <xsl:choose>
   <xsl:when test="parent::xsd:element 
    and namespace-uri() = ''
    and local-name() = 'ref'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:attribute 
    and namespace-uri() = ''
    and local-name() = 'ref'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:restriction
    and namespace-uri() = ''
    and local-name() = 'base'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:extension
    and namespace-uri() = ''
    and local-name() = 'base'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:group
    and namespace-uri() = ''
    and local-name() = 'ref'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:list
    and namespace-uri() = ''
    and local-name() = 'itemType'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:union
    and namespace-uri() = ''
    and local-name() = 'memberTypes'
    ">
    <xsl:call-template name="makelink-several-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:element
    and namespace-uri() = ''
    and local-name() = 'type'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:attribute
    and namespace-uri() = ''
    and local-name() = 'type'
    ">
    <xsl:call-template name="makelink-maybe"/>
   </xsl:when>
   <xsl:when test="parent::xsd:element
    and namespace-uri() = ''
    and local-name() = 'substitutionGroup'
    ">
    <xsl:call-template name="makelink-several-maybe"/>
   </xsl:when>

   <xsl:otherwise>
    <xsl:value-of select="."/>
   </xsl:otherwise>
  </xsl:choose>
  <xsl:text>"</xsl:text>
  
 </xsl:template>
 <xsl:template match="text()" mode="echo-xml">
  <xsl:value-of select="."/>
 </xsl:template>


 <!--* 6 toc *-->
 <xsl:template mode="toc" match="
    xsd:schema/xsd:annotation
  | xsd:schema/xsd:attribute
  | xsd:schema/xsd:element
  | xsd:schema/xsd:simpleType
  | xsd:schema/xsd:complexType
  | xsd:schema/xsd:attributeGroup
  | xsd:schema/xsd:import
  | xsd:schema/xsd:group
  | xsd:schema/xsd:notation
  ">
  <xsl:call-template name="toc-entry"/>
 </xsl:template>

 <xsl:template name="toc-entry">
  <xsl:variable name="sort">
   <xsl:call-template name="sort"/>
  </xsl:variable>
  <xsl:variable name="leid">
   <xsl:call-template name="leid"/>
  </xsl:variable>
  <xsl:element name="li">
   <xsl:element name="a">
    <xsl:attribute name="href">
     <xsl:value-of select="concat('#',$leid)"/>
    </xsl:attribute>
    <xsl:choose>
     <xsl:when test="self::xsd:annotation 
      and
      ( descendant::xhtml:h1 or descendant::xhtml:h2 or descendant::xhtml:h3
        or descendant::h1 or descendant::h2 or descendant::h3)
      ">
      <xsl:choose>
       <xsl:when test="descendant::xhtml:h1">
    <xsl:value-of select="descendant::xhtml:h1[1]"/>
       </xsl:when>
       <xsl:when test="descendant::h1">
    <xsl:value-of select="descendant::h1[1]"/>
       </xsl:when>
       <xsl:when test="descendant::xhtml:h2">
    <xsl:value-of select="descendant::xhtml:h2[1]"/>
       </xsl:when>
       <xsl:when test="descendant::h2">
    <xsl:value-of select="descendant::h2[1]"/>
       </xsl:when>
       <xsl:when test="descendant::xhtml:h3">
    <xsl:value-of select="descendant::xhtml:h3[1]"/>
       </xsl:when>
       <xsl:when test="descendant::h3">
    <xsl:value-of select="descendant::h3[1]"/>
       </xsl:when>
      </xsl:choose>
      
     </xsl:when>
     <xsl:otherwise>
      <xsl:value-of select="concat($sort,' ')"/>
      <xsl:choose>
       <xsl:when test="count(@name) = 1">
    <xsl:element name="em">
     <xsl:value-of select="@name"/>
    </xsl:element>
       </xsl:when>
       <xsl:when test="self::xsd:annotation">
    <xsl:value-of select="1 + count(preceding-sibling::xsd:annotation)"/>
       </xsl:when>
       <xsl:when test="self::xsd:import">
    <xsl:element name="code">
     <xsl:value-of select="@namespace"/>
    </xsl:element>
       </xsl:when>
       <xsl:otherwise>
    <!--* fake it *-->      
    <xsl:variable name="gi" select="local-name()"/>
    <xsl:value-of select="1 + count(preceding-sibling::*[local-name() = $gi])"/>
       </xsl:otherwise>
      </xsl:choose>
     </xsl:otherwise>
    </xsl:choose>
   </xsl:element>
  </xsl:element>

 </xsl:template>

 <!--* 7 common code for calculating sort and little-endian IDs *-->
 <xsl:template name="sort">
  <xsl:choose>
   <xsl:when test="self::xsd:annotation">
    <xsl:value-of select="'Annotation'"/>
   </xsl:when>
   <xsl:when test="self::xsd:attribute">
    <xsl:value-of select="'Attribute'"/>
   </xsl:when>
   <xsl:when test="self::xsd:element">
    <xsl:value-of select="'Element'"/>
   </xsl:when>
   <xsl:when test="self::xsd:simpleType">
    <xsl:value-of select="'Simple type'"/>
   </xsl:when>
   <xsl:when test="self::xsd:complexType">
    <xsl:value-of select="'Complex type'"/>
   </xsl:when>
   <xsl:when test="self::xsd:attributeGroup">
    <xsl:value-of select="'Attribute group'"/>
   </xsl:when>
   <xsl:when test="self::xsd:group">
    <xsl:value-of select="'Model group'"/>
   </xsl:when>
   <xsl:otherwise>
    <xsl:variable name="gi" select="local-name()"/>
    <xsl:value-of select="concat(
      translate(substring($gi,1,1),'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ'),
      substring($gi,2)
     )"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>
 <xsl:template name="leid">
  <xsl:choose>
   <xsl:when test="self::xsd:annotation">
    <xsl:value-of select="concat('ann_',
     string(1+count(preceding-sibling::xsd:annotation)))"/>   
   </xsl:when>
   <xsl:when test="self::xsd:attribute">
    <xsl:value-of select="concat('att_',@name)"/>
   </xsl:when>
   <xsl:when test="self::xsd:element">
    <xsl:value-of select="concat('elem_',@name)"/>
   </xsl:when>
   <xsl:when test="self::xsd:simpleType">
    <xsl:value-of select="concat('type_',@name)"/>
   </xsl:when>
   <xsl:when test="self::xsd:complexType">
    <xsl:value-of select="concat('type_',@name)"/>
   </xsl:when>
   <xsl:when test="self::xsd:attributeGroup">
    <xsl:value-of select="concat('attgrp_',@name)"/>
   </xsl:when>
   <xsl:when test="self::xsd:group">
    <xsl:value-of select="concat('grp_',@name)"/>
   </xsl:when>
   <xsl:when test="self::xsd:import">
    <xsl:value-of select="concat('imp_',
     string(1+count(preceding-sibling::xsd:import)))"/>
   </xsl:when>
   <xsl:otherwise>
    <xsl:choose>
     <xsl:when test="@name">
      <xsl:variable name="sort" select="local-name()"/>
      <xsl:value-of select="concat($sort,'_',@name)"/>
     </xsl:when>
     <xsl:otherwise>
      <xsl:variable name="sort" select="local-name()"/>
      <xsl:variable name="pos"  select="1 + count(preceding-sibling::*[local-name() = $sort])"/>
      <xsl:value-of select="concat($sort,'_',$pos)"/>
     </xsl:otherwise>
    </xsl:choose>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>

 <!--* 8 unmatched elements (mostly diagnostic for development) *-->
 <xsl:template match="*|@*">
  <xsl:variable name="fqgi">
   <xsl:call-template name="fqgi"/>
  </xsl:variable>
  <xsl:message>Warning: <xsl:value-of select="$fqgi"/> not matched.</xsl:message>
  <xsl:element name="div">
   <xsl:attribute name="class">warning</xsl:attribute>
   <xsl:value-of select="concat('&lt;',name(),'>')"/>
   <xsl:copy>
    <xsl:apply-templates select="@*|node()"/>
   </xsl:copy>
   <xsl:value-of select="concat('&lt;/',name(),'>')"/>
  </xsl:element>
 </xsl:template>

 <xsl:template name="fqgi" match="*" mode="fqgi">
  <xsl:param name="sBuf"/>
  <xsl:variable name="sCur">
   <xsl:choose>
    <xsl:when test="self::*">
     <!--* elements *-->
     <xsl:value-of select="name()"/>
    </xsl:when>
    <xsl:otherwise>
     <!--* attributes and other riffraff *-->
     <xsl:value-of select="concat('@',name())"/>
    </xsl:otherwise>
   </xsl:choose>
  </xsl:variable>
  <!--*
  <xsl:message>FQGI(<xsl:value-of select="concat($sBuf,',',$sCur)"/>)</xsl:message>
  *-->
  <xsl:choose>
   <xsl:when test="parent::*">
    <xsl:apply-templates mode="fqgi" select="parent::*">
     <xsl:with-param name="sBuf">
      <xsl:value-of select="concat('/',$sCur,$sBuf)"/>
     </xsl:with-param>
    </xsl:apply-templates>
   </xsl:when>
   <xsl:otherwise>
    <xsl:value-of select="concat('/',$sCur,$sBuf)"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>


 <!--* 9 intra-document link calculation, qname manipulation *-->
 <xsl:template name="makelink-several-maybe">
  <xsl:param name="lQNames" select="normalize-space(.)"/>
  <xsl:choose>
   <xsl:when test="contains($lQNames,' ')">
    <!--* recur *-->
    <xsl:call-template name="makelink-maybe">
     <xsl:with-param name="qn" select="substring-before($lQNames,' ')"/>
    </xsl:call-template>
    <xsl:text> </xsl:text>
    <xsl:call-template name="makelink-several-maybe">
     <xsl:with-param name="lQNames" select="substring-after($lQNames,' ')"/>
    </xsl:call-template>
   </xsl:when>
   <xsl:otherwise>
    <!--* base step, no blank so at most one QName *-->
    <xsl:call-template name="makelink-maybe">
     <xsl:with-param name="qn" select="$lQNames"/>
    </xsl:call-template>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>

 <xsl:template name="makelink-maybe">
  <xsl:param name="qn" select="."/>
  <xsl:param name="refns">
   <xsl:call-template name="qname-to-uri"> 
    <xsl:with-param name="qname" select="$qn"/>
   </xsl:call-template>
  </xsl:param>
  <xsl:param name="lname">
   <xsl:call-template name="qname-to-ncname">
    <xsl:with-param name="qname" select="$qn"/>
   </xsl:call-template>
  </xsl:param>

  <xsl:variable name="linktarget">
   <xsl:choose>
    <xsl:when test="$tns = $refns">
     <xsl:choose>
      <xsl:when test="parent::xsd:element
       and local-name() = 'ref'
       and count(/xsd:schema/xsd:element[@name = $lname]) = 1">
       <xsl:value-of select="concat('elem_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:element
       and local-name() = 'substitutionGroup'
       and count(/xsd:schema/xsd:element[@name = $lname]) = 1">
       <xsl:value-of select="concat('elem_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:attribute
       and local-name() = 'ref'
       and count(/xsd:schema/xsd:attribute[@name = $lname]) = 1">
       <xsl:value-of select="concat('att_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:restriction
       and count(/xsd:schema/xsd:*[@name = $lname 
                 and (self::xsd:simpleType or self::xsd:complexType)]) 
           = 1">
       <xsl:value-of select="concat('type_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:extension
       and count(/xsd:schema/xsd:*[@name = $lname 
                 and (self::xsd:simpleType or self::xsd:complexType)]) 
           = 1">
       <xsl:value-of select="concat('type_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:element
       and local-name() = 'type'
       and count(/xsd:schema/xsd:*[@name = $lname 
                 and (self::xsd:simpleType or self::xsd:complexType)]) 
           = 1">
       <xsl:value-of select="concat('type_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:attribute
       and local-name() = 'type'
       and count(/xsd:schema/xsd:*[@name = $lname 
                 and (self::xsd:simpleType or self::xsd:complexType)]) 
           = 1">
       <xsl:value-of select="concat('type_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:list
       and count(/xsd:schema/xsd:*[@name = $lname 
                 and (self::xsd:simpleType or self::xsd:complexType)]) 
           = 1">
       <xsl:value-of select="concat('type_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:union
       and count(/xsd:schema/xsd:*[@name = $lname 
                 and (self::xsd:simpleType or self::xsd:complexType)]) 
           = 1">
       <xsl:value-of select="concat('type_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:group
       and count(/xsd:schema/xsd:group[@name = $lname]) = 1">
       <xsl:value-of select="concat('grp_',$lname)"/>
      </xsl:when>
      <xsl:when test="parent::xsd:attributeGroup
       and count(/xsd:schema/xsd:atributeGroup[@name = $lname]) = 1">
       <xsl:value-of select="concat('attgrp_',$lname)"/>
      </xsl:when>
      <!--* static links to built-ins could be handled here *-->
     </xsl:choose>
    </xsl:when>
    <xsl:when test="count(ancestor::*/namespace::*) = 0">
     <!--* we are either in a no-namespace document in Opera,
         * or we are in Firefox, without ns support.
         *-->
     <xsl:value-of select="'no-ns-support'"/>
    </xsl:when>
    <xsl:otherwise>
     <!--* namespaces did not match, no target *-->
     <xsl:value-of select="'no-target'"/>
    </xsl:otherwise>
   </xsl:choose>
  </xsl:variable>

  <xsl:choose>
   <xsl:when test="($linktarget='no-ns-support')">
    <xsl:value-of select="$qn"/>
   </xsl:when>
   <xsl:when test="($linktarget='no-target' or $linktarget='') 
    and ($tns = $refns)">
    <xsl:element name="span">
     <xsl:attribute name="class">external-link same-ns</xsl:attribute>
     <xsl:value-of select="$qn"/>
    </xsl:element>
   </xsl:when>
   <xsl:when test="($linktarget='no-target') 
    and not($tns = $refns)">
    <xsl:element name="span">
     <xsl:attribute name="class">external-link diff-ns</xsl:attribute>
     <xsl:value-of select="$qn"/>
    </xsl:element>
   </xsl:when>
   <xsl:otherwise>
    <xsl:element name="a">
     <xsl:attribute name="href">
      <xsl:value-of select="concat('#',$linktarget)"/>
     </xsl:attribute>
     <xsl:value-of select="$qn"/>
    </xsl:element>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>

 <xsl:template name="qname-to-uri" match="*" mode="qname-to-uri">
  <xsl:param name="qname" select="."/>
  <xsl:variable name="prefix" select="substring-before($qname,':')"/>
  <xsl:choose>
   <xsl:when test="(1=1) and ($prefix='xml')">
    <!--* we need to special-case 'xml', since
        * Opera does not provide a ns node for it.
        *-->
    <xsl:value-of select="'http://www.w3.org/XML/1998/namespace'"/>
   </xsl:when>
   <xsl:when test="self::*">
    <!--* we're an element *-->
    <xsl:value-of select="string(namespace::*[name()=$prefix])"/>
   </xsl:when>
   <xsl:otherwise>
    <!--* we're not an element *-->
    <xsl:value-of select="string(parent::*/namespace::*[name()=$prefix])"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>
 <xsl:template name="qname-to-ncname">
  <xsl:param name="qname" select="."/>
  <xsl:choose>
   <xsl:when test="contains($qname,':')">
    <xsl:value-of select="substring-after($qname,':')"/>
   </xsl:when>
   <xsl:otherwise>
    <xsl:value-of select="$qname"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>

 <xsl:template name="lastline-suffix">
  <xsl:param name="s0"></xsl:param>
  <xsl:choose>
   <xsl:when test="contains($s0,'&#xA;')">
    <xsl:call-template name="lastline-suffix">
     <xsl:with-param name="s0" select="substring-after($s0,'&#xA;')"/>
    </xsl:call-template>
   </xsl:when>
   <xsl:otherwise>
    <xsl:value-of select="$s0"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>


 <xsl:template name="stag-width">
  <xsl:param name="indent-length" select="0"/>
  
  <xsl:variable name="attcount" select="count(@*)"/>
  <xsl:variable name="list-attname-lengths">
   <xsl:call-template name="make-length-list">
    <xsl:with-param name="kw">attnames</xsl:with-param>
   </xsl:call-template>
  </xsl:variable>

  <xsl:variable name="list-attval-lengths">
   <xsl:call-template name="make-length-list">
    <xsl:with-param name="kw">attvals</xsl:with-param>
   </xsl:call-template>
  </xsl:variable>

  <xsl:variable name="sum-att-lengths">
   <xsl:call-template name="sum-list">
    <xsl:with-param name="s0" select="concat($list-attname-lengths,' ',$list-attval-lengths)"/>
   </xsl:call-template>
  </xsl:variable>

  <!--*
  <xsl:message>indent-length = <xsl:value-of select="$indent-length"/></xsl:message>
  <xsl:message>attcount = <xsl:value-of select="$attcount"/></xsl:message>
  <xsl:message>sum-att-lengths = <xsl:value-of select="$sum-att-lengths"/></xsl:message>
  <xsl:message>namelen = <xsl:value-of select="string-length(name())"/></xsl:message>
  *-->

  <xsl:value-of select="$indent-length + (4 * $attcount) + $sum-att-lengths + string-length(name()) + 3"/>

 </xsl:template>


 <xsl:template name="make-length-list">
  <xsl:param name="kw">unknown</xsl:param>
  <xsl:choose>
   <xsl:when test="$kw = 'attnames'">
    <xsl:apply-templates select="@*" mode="attnamelength"/>
   </xsl:when>
   <xsl:when test="$kw = 'attvals'">
    <xsl:apply-templates select="@*" mode="attvallength"/>
   </xsl:when>
   <xsl:otherwise>0</xsl:otherwise>
  </xsl:choose>
 </xsl:template>

 <xsl:template name="sum-list">
  <xsl:param name="n0" select="0"/>
  <xsl:param name="s0"/>

  <xsl:variable name="s1" select="normalize-space($s0)"/>

  <!--*
  <xsl:message><xsl:value-of select="concat('n0 =', $n0, ', s1 = /',$s1,'/')"/></xsl:message>
  *-->

  <xsl:choose>
   <xsl:when test="contains($s1,' ')">
    <xsl:variable name="term" select="substring-before($s1,' ')"/>
    <xsl:variable name="s2" select="substring-after($s1,' ')"/>
    <xsl:call-template name="sum-list">
     <xsl:with-param name="n0" select="$n0 + $term"/>
     <xsl:with-param name="s0" select="$s2"/>
    </xsl:call-template>
   </xsl:when>
   <xsl:otherwise>
    <xsl:value-of select="$n0 + $s1"/>
   </xsl:otherwise>
  </xsl:choose>
 </xsl:template>
 
 <xsl:template match="@*" mode="attnamelength">
  <xsl:value-of select="concat(string-length(name()), ' ')"/>
 </xsl:template>
 <xsl:template match="@*" mode="attvallength">
  <xsl:value-of select="concat(string-length(.), ' ')"/>
 </xsl:template>

</xsl:stylesheet>
<!-- Keep this comment at the end of the file
Local variables:
mode: xml
sgml-default-dtd-file:"/Library/SGML/Public/Emacs/xslt.ced"
sgml-omittag:t
sgml-shorttag:t
sgml-indent-data:t
sgml-indent-step:1
End:
-->