geo_combine 0.0.2 → 0.0.3

data/lib/xslt/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/lib/xslt/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/lib/xslt/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>

data/spec/lib/geo_combine/fgdc_spec.rb

@@ -8,9 +8,14 @@ RSpec.describe GeoCombine::Fgdc do
       expect(fgdc_object).to be_an GeoCombine::Fgdc
     end
   end
-  describe '#xsl' do
+  describe '#xsl_geoblacklight' do
     it 'should be defined' do
-      expect(fgdc_object.xsl).to be_an Nokogiri::XSLT::Stylesheet
+      expect(fgdc_object.xsl_geoblacklight).to be_an Nokogiri::XSLT::Stylesheet
+    end
+  end
+  describe '#xsl_html'do
+    it 'should be defined' do
+      expect(fgdc_object.xsl_html).to be_an Nokogiri::XSLT::Stylesheet
     end
   end
   describe '#to_geoblacklight' do
@@ -19,4 +24,9 @@ RSpec.describe GeoCombine::Fgdc do
       expect(fgdc_object.to_geoblacklight).to be_an GeoCombine::Geoblacklight
     end
   end
+  describe '#to_html' do
+    it 'should create a transformation of the metadata as a String' do
+      expect(fgdc_object.to_html).to be_an String
+    end
+  end
 end

data/spec/lib/geo_combine/iso19139_spec.rb

@@ -8,9 +8,14 @@ RSpec.describe GeoCombine::Iso19139 do
       expect(iso_object).to be_an GeoCombine::Iso19139
     end
   end
-  describe '#xsl' do
+  describe '#xsl_geoblacklight' do
     it 'should be defined' do
-      expect(iso_object.xsl).to be_an Nokogiri::XSLT::Stylesheet
+      expect(iso_object.xsl_geoblacklight).to be_an Nokogiri::XSLT::Stylesheet
+    end
+  end
+  describe '#xsl_html' do
+    it 'should be defined' do
+      expect(iso_object.xsl_geoblacklight).to be_an Nokogiri::XSLT::Stylesheet
     end
   end
   describe '#to_geoblacklight' do
@@ -18,4 +23,9 @@ RSpec.describe GeoCombine::Iso19139 do
       expect(iso_object.to_geoblacklight).to be_an GeoCombine::Geoblacklight
     end
   end
+  describe '#to_html' do
+    it 'should create a transformation of the metadata as a String' do
+      expect(iso_object.to_html).to be_an String
+    end
+  end
 end

data/spec/lib/geo_combine_spec.rb

@@ -18,5 +18,6 @@ RSpec.describe GeoCombine::Metadata do
       expect(metadata_object.metadata.css('Author').count).to eq 2
     end
   end
-  # GeoCombine subclasses should individually test `to_geoblacklight` method
+  # GeoCombine subclasses should individually test `to_geoblacklight` and
+  # `to_html` methods
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: geo_combine
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3
 platform: ruby
 authors:
 - Jack Reed
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-02-18 00:00:00.000000000 Z
+date: 2015-02-24 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rsolr
@@ -102,7 +102,22 @@ files:
 - lib/geo_combine/version.rb
 - lib/tasks/geo_combine.rake
 - lib/xslt/fgdc2geoBL.xsl
+- lib/xslt/fgdc2html.xsl
 - lib/xslt/iso2geoBL.xsl
+- lib/xslt/iso2html.xsl
+- lib/xslt/utils/convert-enumerations.xsl
+- lib/xslt/utils/convert-latlong.xsl
+- lib/xslt/utils/decode-uri/base.css
+- lib/xslt/utils/decode-uri/index.html
+- lib/xslt/utils/elements-fgdc.xml
+- lib/xslt/utils/elements-iso.xml
+- lib/xslt/utils/printFormatted.xsl
+- lib/xslt/utils/printTextLines.xsl
+- lib/xslt/utils/replace-newlines.xsl
+- lib/xslt/utils/replace-string.xsl
+- lib/xslt/utils/strip-digits.xsl
+- lib/xslt/utils/url-decode.xsl
+- lib/xslt/utils/wrap-text.xsl
 - spec/fixtures/xml_docs.rb
 - spec/helpers.rb
 - spec/lib/geo_combine/fgdc_spec.rb