geoblacklight-schema 0.2.0

data/tools/iso2html/utils/replace-newlines.xsl

@@ -0,0 +1,97 @@
+<!--
+
+replace-newlines.xsl
+
+Author: John Maurer (jmaurer@hawaii.edu)
+Date: June 2007 (when I was at National Snow and Ice Data Center)
+
+This Extensible Stylesheet Language for Transformations (XSLT) document takes
+an input string and outputs it with all newline characters substituted with
+HTML <br/> elements. This helps maintain paragraph and text structures when
+using them to output to an HTML document. You can import this XSLT in other 
+XSLT files to call the "replace-newlines" template for accomplishing this. 
+Here is an example import statement:
+
+<xsl:import href="replace-newlines.xsl"/>
+
+For more information on XSLT see:
+
+http://en.wikipedia.org/wiki/XSLT
+http://www.w3.org/TR/xslt
+
+-->
+
+<xsl:stylesheet
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  version="1.0">
+
+  <xsl:output method="text"/>
+
+  <!-- Define a variable for creating a newline: -->
+
+  <xsl:variable name="newline">
+<xsl:text>
+</xsl:text>
+  </xsl:variable>
+
+  <!-- Define a variable for creating an HTML <br/> element: -->
+
+  <xsl:variable name="break">
+    <xsl:text disable-output-escaping="yes">&lt;br/&gt;</xsl:text>
+  </xsl:variable>
+
+  <!-- Template to replace newlines with <br/>'s; note the use
+       of "disable-output-escaping" to presever the <br/> in an
+       output HTML document without it being converted to
+       &lt;br/&gt;, which ends up displaying the characters "<br/>"
+       in the output rather than an actual HTML element: -->
+
+  <xsl:template name="replace-newlines">
+    <xsl:param name="element"/>
+    <xsl:variable name="first">
+      <xsl:choose>
+        <xsl:when test="contains( $element, $newline )">
+          <xsl:value-of select="substring-before( $element, $newline )"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:value-of select="$element"/>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name="middle">
+      <xsl:choose>
+        <xsl:when test="contains( $element, $newline )">
+          <xsl:value-of select="$break"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text></xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name="last">
+      <xsl:choose>
+        <xsl:when test="contains( $element, $newline )">
+          <xsl:choose>
+            <xsl:when test="contains( substring-after( $element, $newline ), $newline )">
+              <xsl:call-template name="replace-newlines">
+                <xsl:with-param name="element">
+                  <xsl:value-of select="substring-after( $element, $newline )"/>
+                </xsl:with-param>
+              </xsl:call-template>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:value-of select="substring-after( $element, $newline )"/>
+            </xsl:otherwise>
+          </xsl:choose>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text></xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:value-of select="$first" disable-output-escaping="yes"/>
+    <xsl:value-of select="$middle" disable-output-escaping="yes"/>
+    <xsl:value-of select="$last" disable-output-escaping="yes"/>
+  </xsl:template>
+
+</xsl:stylesheet>

data/tools/iso2html/utils/replace-string.xsl

@@ -0,0 +1,80 @@
+<!--
+
+replace-string.xsl
+
+Author: John Maurer (jmaurer@hawaii.edu)
+Date: July 2007 (when I was at National Snow and Ice Data Center)
+
+This Extensible Stylesheet Language for Transformations (XSLT) document takes
+an input string and outputs it with all $old-string's substituted with the 
+specified $new-string. You can import this XSLT in other XSLT files to call 
+the "replace-string" template for accomplishing this. Here is an example 
+import statement:
+
+<xsl:import href="replace-string.xsl"/>
+
+For more information on XSLT see:
+
+http://en.wikipedia.org/wiki/XSLT
+http://www.w3.org/TR/xslt
+
+-->
+
+<xsl:stylesheet
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  version="1.0">
+
+  <xsl:output method="text"/>
+
+  <xsl:template name="replace-string">
+    <xsl:param name="element"/>
+    <xsl:param name="old-string"/>
+    <xsl:param name="new-string"/>
+    <xsl:variable name="first">
+      <xsl:choose>
+        <xsl:when test="contains( $element, $old-string )">
+          <xsl:value-of select="substring-before( $element, $old-string )"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:value-of select="$element"/>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name="middle">
+      <xsl:choose>
+        <xsl:when test="contains( $element, $old-string )">
+          <xsl:value-of select="$new-string"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text></xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name="last">
+      <xsl:choose>
+        <xsl:when test="contains( $element, $old-string )">
+          <xsl:choose>
+            <xsl:when test="contains( substring-after( $element, $old-string ), $old-string )">
+              <xsl:call-template name="replace-string">
+                <xsl:with-param name="element" select="substring-after( $element, $old-string )"/>
+                <xsl:with-param name="old-string" select="$old-string"/>
+                <xsl:with-param name="new-string" select="$new-string"/>
+              </xsl:call-template>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:value-of select="substring-after( $element, $old-string )"/>
+            </xsl:otherwise>
+          </xsl:choose>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:text></xsl:text>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <!-- Disable output escaping to allow HTML tags to be interpreted: -->
+    <xsl:value-of select="$first" disable-output-escaping="yes"/>
+    <xsl:value-of select="$middle" disable-output-escaping="yes"/>
+    <xsl:value-of select="$last" disable-output-escaping="yes"/>
+  </xsl:template>
+
+</xsl:stylesheet>

data/tools/iso2html/utils/strip-digits.xsl

@@ -0,0 +1,60 @@
+<!--
+
+strip-digits.xsl
+
+Author: John Maurer (jmaurer@hawaii.edu)
+Date: November 18, 2011 
+
+This Extensible Stylesheet Language for Transformations (XSLT) document takes
+a number and outputs it with up to the specified number of digits following the
+decimal point. If there are fewer than the specified number of digits, all will
+be returned and no extra. If there are no decimal places, the supplied integer
+will be returned unchanged. Looks for exponent segment in number string
+(e.g. 1.0045E-4) and maintains that if present.
+
+You can import this XSLT in other XSLT files to call the "strip-digits" template
+for accomplishing this. Here is an example import statement:
+
+<xsl:import href="strip-digits.xsl"/>
+
+For more information on XSLT see:
+
+http://en.wikipedia.org/wiki/XSLT
+http://www.w3.org/TR/xslt
+
+-->
+
+<xsl:stylesheet
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  version="1.0">
+
+  <xsl:template name="strip-digits">
+    <xsl:param name="element"/>
+    <xsl:param name="num-digits"/>
+    <xsl:choose>
+      <xsl:when test="contains( $element, '.' )">
+        <xsl:variable name="element-uc" select="translate( $element, 'e', 'E' )"/>
+        <xsl:choose>
+          <xsl:when test="contains( $element-uc, 'E' )">
+            <xsl:variable name="before-exponent" select="substring-before( $element-uc, 'E' )"/>
+            <xsl:variable name="exponent" select="substring-after( $element-uc, 'E' )"/>
+            <xsl:variable name="before-decimal" select="substring-before( $before-exponent, '.' )"/>
+            <xsl:variable name="after-decimal" select="substring-after( $before-exponent, '.' )"/>
+            <xsl:variable name="after-decimal-stripped" select="substring( $after-decimal, 1, $num-digits )"/>
+            <xsl:value-of select="concat( $before-decimal, '.', $after-decimal-stripped, 'E', $exponent )"/>
+          </xsl:when>
+          <xsl:otherwise> 
+            <xsl:variable name="before-decimal" select="substring-before( $element, '.' )"/>
+            <xsl:variable name="after-decimal" select="substring-after( $element, '.' )"/>
+            <xsl:variable name="after-decimal-stripped" select="substring( $after-decimal, 1, $num-digits )"/>
+            <xsl:value-of select="concat( $before-decimal, '.', $after-decimal-stripped )"/>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:value-of select="$element"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+</xsl:stylesheet>

data/tools/iso2html/utils/url-decode.xsl

@@ -0,0 +1,87 @@
+<xsl:stylesheet
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  version="1.0">
+
+  <xsl:template name="url-decode">
+  
+    <xsl:param name="in" as="xs:string"/>
+    <xsl:param name="seq" as="xs:string*"/>
+
+    <xsl:variable name="unreserved" as="xs:integer+"
+      select="(45, 46, 48 to 57, 65 to 90, 95, 97 to 122, 126)"/>
+
+    <xsl:choose>
+      <xsl:when test="not($in)">
+        <xsl:sequence select="string-join($seq, '')"/>
+      </xsl:when>
+      <xsl:when test="starts-with($in, '%')">
+        <xsl:choose>
+          <xsl:when test="matches(substring($in, 2, 2), '^[0-9A-Fa-f][0-9A-Fa-f]$')">
+            <xsl:variable name="s" as="xs:string" select="substring($in, 2, 2)"/>
+            <xsl:variable name="d" as="xs:integer" select="p:hex-to-dec(upper-case($s))"/>
+            <xsl:choose>
+              <xsl:when test="$d = $unreserved">
+                <xsl:variable name="c" as="xs:string" select="codepoints-to-string($d)"/>
+                <xsl:sequence select="p:pct-decode-unreserved(substring($in, 4), ($seq, $c))"/>
+              </xsl:when>
+              <xsl:otherwise>
+                <xsl:sequence select="p:pct-decode-unreserved(substring($in, 4), ($seq, '%', $s))"/>
+              </xsl:otherwise>
+            </xsl:choose>
+          </xsl:when>
+          <xsl:when test="contains(substring($in, 2), '%')">
+            <xsl:variable name="s" as="xs:string" select="substring-before(substring($in, 2), '%')"/>
+            <xsl:sequence select="p:pct-decode-unreserved(substring($in, 2 + string-length($s)), ($seq, '%', $s))"/>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:sequence select="string-join(($seq, $in), '')"/>
+          </xsl:otherwise>
+        </xsl:choose>
+      </xsl:when>
+      <xsl:when test="contains($in, '%')">
+        <xsl:variable name="s" as="xs:string" select="substring-before($in, '%')"/>
+        <xsl:sequence select="p:pct-decode-unreserved(substring($in, string-length($s)+1), ($seq, $s))"/>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:sequence select="string-join(($seq, $in), '')"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:function>
+
+  <!-- Private function to convert a hexadecimal string into decimal -->
+  <xsl:function name="p:hex-to-dec" as="xs:integer">
+    <xsl:param name="hex" as="xs:string"/>
+
+    <xsl:variable name="len" as="xs:integer" select="string-length($hex)"/>
+    <xsl:choose>
+      <xsl:when test="$len eq 0">
+        <xsl:sequence select="0"/>
+      </xsl:when>
+      <xsl:when test="$len eq 1">
+        <xsl:sequence select="
+                 if ($hex eq '0')       then 0
+            else if ($hex eq '1')       then 1
+            else if ($hex eq '2')       then 2
+            else if ($hex eq '3')       then 3
+            else if ($hex eq '4')       then 4
+            else if ($hex eq '5')       then 5
+            else if ($hex eq '6')       then 6
+            else if ($hex eq '7')       then 7
+            else if ($hex eq '8')       then 8
+            else if ($hex eq '9')       then 9
+            else if ($hex = ('A', 'a')) then 10
+            else if ($hex = ('B', 'b')) then 11
+            else if ($hex = ('C', 'c')) then 12
+            else if ($hex = ('D', 'd')) then 13
+            else if ($hex = ('E', 'e')) then 14
+            else if ($hex = ('F', 'f')) then 15
+            else error(xs:QName('p:hex-to-dec'))
+          "/>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:sequence select="
+          (16 * p:hex-to-dec(substring($hex, 1, $len - 1)))
+          + p:hex-to-dec(substring($hex, $len))"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:function>

data/tools/iso2html/utils/wrap-text.xsl

@@ -0,0 +1,174 @@
+<!--
+
+wrap-text.xsl
+
+Author: John Maurer (jmaurer@hawaii.edu)
+Date: June 2007 (when I was at National Snow and Ice Data Center)
+
+This Extensible Stylesheet Language for Transformations (XSLT) document takes
+an input string and outputs it with line wrapping. Lines get wrapped at the
+specified $max-line-length of characters. You can import this XSLT in other 
+XSLT files to call the "wrap-text" template for accomplishing this. Here is 
+an example import statement:
+
+<xsl:import href="wrap-text.xsl"/>
+
+The "wrap-text" template uses the "fold" and "chop" helper templates to 
+accomplish the end result. "wrap-text" first splits the file up into sections
+before and after blank lines (2 consecutive newlines); each of these sections
+gets passed to the "fold" template, which in turn calls the "chop" template
+to chop up the string into $max-line-length character lines. "fold" indents 
+each chopped line by the $indent string, which the user can define as the 
+number of spaces that they want to precede every line.
+
+For more information on XSLT see:
+
+http://en.wikipedia.org/wiki/XSLT
+http://www.w3.org/TR/xslt
+
+-->
+
+<xsl:stylesheet
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  version="1.0">
+
+  <xsl:output method="text"/>
+
+  <!-- Define a variable for creating a newline/break: -->
+
+  <xsl:variable name="newline">
+<xsl:text>
+</xsl:text>
+  </xsl:variable>
+
+  <!-- Define a variable for creating a blank line, which
+       is two consecutive newlines characters: -->
+
+  <xsl:variable name="blank-line" select="concat( $newline, $newline )"/>
+
+  <!-- Define a variable for a single space character: -->
+
+  <xsl:variable name="space" select="' '"/>
+
+  <!-- A template to wrap text into lines of $max-line-length. 
+       Each line will get one indent: -->
+
+  <xsl:template name="wrap-text">
+    <xsl:param name="original-string"/>
+    <xsl:param name="max-line-length"/>
+    <xsl:param name="indent"/>
+    <xsl:choose>
+      <xsl:when test="contains( $original-string, $blank-line )">
+        <xsl:comment>Call "fold" on the string before the blank line to wrap this text:</xsl:comment>
+        <xsl:call-template name="fold">
+          <xsl:with-param name="original-string" select="substring-before( $original-string, $blank-line )"/>
+          <xsl:with-param name="max-line-length" select="$max-line-length"/>
+          <xsl:with-param name="indent" select="$indent"/>
+        </xsl:call-template>
+        <xsl:value-of select="$newline"/>
+        <xsl:comment>Call wrap-text recursively on remaining text after the blank line:</xsl:comment>
+        <xsl:call-template name="wrap-text">
+          <xsl:with-param name="original-string" select="substring-after( $original-string, $blank-line )"/>
+          <xsl:with-param name="max-line-length" select="$max-line-length"/>
+          <xsl:with-param name="indent" select="$indent"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:comment>If the text does not contain any blank lines, call "fold" to wrap the text:</xsl:comment>
+        <xsl:call-template name="fold">
+          <xsl:with-param name="original-string" select="$original-string"/>
+          <xsl:with-param name="max-line-length" select="$max-line-length"/>
+          <xsl:with-param name="indent" select="$indent"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <xsl:template name="fold">
+    <xsl:param name="original-string"/>
+    <xsl:param name="max-line-length"/>
+    <xsl:param name="indent"/>
+    <xsl:variable name="print-string">
+      <xsl:choose>
+        <xsl:when test="string-length( $original-string ) &gt; number( $max-line-length )">
+          <xsl:comment>Text is longer than max, chop it down and print next line:</xsl:comment>
+          <xsl:call-template name="chop">
+            <xsl:with-param name="newstring" select="''"/>
+            <xsl:with-param name="original-string" select="$original-string"/>
+            <xsl:with-param name="max-line-length" select="$max-line-length"/>
+          </xsl:call-template>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:comment>Text is less than max length, so print the whole thing:</xsl:comment>
+          <xsl:value-of select="$original-string"/>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:value-of select="$indent"/>
+    <xsl:value-of select="$print-string"/>
+    <xsl:value-of select="$newline"/>
+    <xsl:comment>Check if there is any remaining text after the above chop:</xsl:comment>
+    <xsl:variable name="remaining-string" select="substring-after( $original-string, $print-string )"/>
+    <xsl:if test="string-length( $remaining-string )">
+      <xsl:comment>Call "fold" recursively on the remaining text:</xsl:comment>
+      <xsl:call-template name="fold">
+        <xsl:with-param name="original-string" select="$remaining-string"/>
+        <xsl:with-param name="max-line-length" select="$max-line-length"/>
+        <xsl:with-param name="indent" select="$indent"/>
+      </xsl:call-template>
+    </xsl:if>
+  </xsl:template>
+
+  <xsl:template name="chop">
+    <xsl:param name="newstring"/>
+    <xsl:param name="original-string"/>
+    <xsl:param name="max-line-length"/>
+    <xsl:variable name="substring-before-space">
+      <xsl:comment>This is the part of the string before the first occuring space character, if any:</xsl:comment>
+      <xsl:choose>
+        <xsl:when test="contains( $original-string, $space )">
+          <xsl:comment>This text contains a space character; chop it off at the first space and add to newstring:</xsl:comment>
+          <xsl:value-of select="concat( $newstring, substring-before( $original-string, $space ), $space )"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:comment>This text does not contain any space characters so use it all:</xsl:comment>
+          <xsl:value-of select="concat( $newstring, $original-string )"/>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:variable name="substring-after-space">
+      <xsl:comment>This is the part of the string after the first occuring space character, if any:</xsl:comment>
+      <xsl:choose>
+        <xsl:when test="contains( $original-string, $space )">
+          <xsl:comment>This text contains a space character; take what is after the first space:</xsl:comment>
+          <xsl:value-of select="substring-after( $original-string, $space )"/>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:comment>This text does not contain any space characters so define a null string here:</xsl:comment>
+          <xsl:value-of select="''"/>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:choose>
+      <xsl:when test="( string-length( $substring-before-space ) &lt; number( $max-line-length ) ) and $substring-after-space">
+        <xsl:comment>Call "chop" recursively to build up the string until it is just greater than the max length:</xsl:comment> 
+        <xsl:variable name="return-value">
+          <xsl:call-template name="chop">
+            <xsl:with-param name="newstring" select="$substring-before-space"/>
+            <xsl:with-param name="original-string" select="$substring-after-space"/>
+            <xsl:with-param name="max-line-length" select="$max-line-length"/>
+          </xsl:call-template>
+        </xsl:variable>
+        <xsl:value-of select="$return-value"/>
+      </xsl:when>
+      <xsl:when test="$newstring">
+        <xsl:value-of select="$newstring"/>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:comment>Return the whole string if it is already less than the max length:</xsl:comment>
+        <xsl:value-of select="$substring-before-space"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+</xsl:stylesheet>