<p:pipe xmlns:p="urn:publicid:IDN+smallx.com:pipeline:1.0" name="get-tides"
   xmlns:c="urn:publicid:IDN+smallx.com:component-language:1.0"
   xmlns:f="urn:publicid:IDN+smallx.com:server:forms:post:1.0"
   xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:h="http://www.w3.org/1999/xhtml"
   xmlns:t="http://www.smallx.com/services/tideinfo/2005"
>

<p:documentation>
<h:p>Setup the request to the NOOA website.</h:p>
</p:documentation>

   <p:template>
   <xsl:for-each select="t:tideinfo">
   <xsl:copy>
   <xsl:copy-of select="@*"/>
   <t:tide-data>
   <c:url-get href="http://tidesonline.nos.noaa.gov/data_read.shtml?station_info={@location}"
              parse-as-html="true"/>
   </t:tide-data>
   </xsl:copy>
   </xsl:for-each>
   </p:template>

<p:documentation>
<h:p>Make the request to the NOOA website.</h:p>
</p:documentation>

   <p:url/>

<p:documentation>
<h:p>Parse the request out of the HTML pre element.</h:p>
</p:documentation>
   
   <p:subtree select="t:tide-data/h:html">

     <p:documentation>
     <h:p>Remove everything but the XHTML pre element.</h:p>
     </p:documentation>
        
     <p:view select="/h:html/h:body/h:pre"/>
     
     <p:documentation>
     <h:p>Delete the extra pre elemnet that is the header for the data.</h:p>
     </p:documentation>
        
     <p:subtree select="h:pre">
        <p:route>
          <p:when test="h:pre/h:b">
            <p:delete/>
          </p:when>
        </p:route>
     </p:subtree>
     
     <p:documentation>
     <h:p>Get rid of the 'font' element that wraps the data.  Now we have just
          an XHTML pre element with the data on each line.</h:p>
     </p:documentation>
        
     <p:unwrap select="h:font"/>
     
     <p:documentation>
     <h:p>Wrap each line of data with a 'line' element.</h:p>
     </p:documentation>
        
     <p:regex select="h:pre" pattern=".+" matches="line"/>
     
     <p:documentation>
     <h:p>Match the first four elements: date, time, timezone, and tide level.  The
          contained template will convert this to an element.</h:p>
     </p:documentation>
        
     <p:regex select="line" pattern="^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)">
       <p:template>
          <xsl:param name="group-1"/>
          <xsl:param name="group-2"/>
          <xsl:param name="group-3"/>
          <xsl:param name="group-4"/>
          <xsl:variable name="month" select="substring-before($group-1,'/')"/>
          <xsl:variable name="day" select="substring-before(substring-after($group-1,'/'),'/')"/>
          <xsl:variable name="year" select="substring-after(substring-after($group-1,'/'),'/')"/>
          
          <t:tide-level date="{$year}-{$month}-{$day}" level="{$group-4}">
             <xsl:choose>
               <xsl:when test="$group-3='EST'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-5:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='EDT'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-4:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='CST'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-6:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='CDT'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-5:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='MST'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-7:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='MDT'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-6:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='PST'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-8:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='PDT'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-7:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='AKST'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-9:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='AKDT'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-8:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='HAST'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-10:00</xsl:attribute>
               </xsl:when>
               <xsl:when test="$group-3='HADT'">
                  <xsl:attribute name="time"><xsl:value-of select="$group-2"/>-9:00</xsl:attribute>
               </xsl:when>
               <xsl:otherwise>
                  <xsl:attribute name="time">unknown</xsl:attribute>
               </xsl:otherwise>
             </xsl:choose>
          </t:tide-level>
<xsl:text>
</xsl:text>
       </p:template>
     </p:regex>
     
     <p:documentation>
     <h:p>Remove the wrapping XHTML pre element.</h:p>
     </p:documentation>
     
     <p:unwrap select="h:pre"/>
     
   </p:subtree>
   
</p:pipe>