<?xml version="1.0"?> <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> <xsl:include href="commonTemplates.xsl"/> <xsl:strip-space elements="*"/> <xsl:param name="timeField" select="timeField"/> <xsl:param name="depthField" select="depthField"/> <xsl:param name="tempField" select="tempField"/> <xsl:param name="po2Field" select="po2Field"/> <xsl:param name="cnsField" select="cnsField"/> <xsl:param name="otuField" select="otuField"/> <xsl:param name="ndlField" select="ndlField"/> <xsl:param name="ttsField" select="ttsField"/> <xsl:param name="stopdepthField" select="stopdepthField"/> <xsl:param name="pressureField" select="pressureField"/> <xsl:param name="date" select="date"/> <xsl:param name="time" select="time"/> <xsl:param name="units" select="units"/> <xsl:param name="separatorIndex" select="separatorIndex"/> <xsl:output method="xml" indent="yes"/> <xsl:variable name="lf"><xsl:text> </xsl:text></xsl:variable> <xsl:variable name="fs"> <xsl:choose> <xsl:when test="$separatorIndex = 0"><xsl:text> </xsl:text></xsl:when> <xsl:when test="$separatorIndex = 2"><xsl:text>;</xsl:text></xsl:when> <xsl:otherwise><xsl:text>,</xsl:text></xsl:otherwise> </xsl:choose> </xsl:variable> <xsl:template match="/"> <divelog program="subsurface-import" version="2"> <dives> <dive> <xsl:attribute name="date"> <xsl:value-of select="concat(substring($date, 1, 4), '-', substring($date, 5, 2), '-', substring($date, 7, 2))"/> </xsl:attribute> <xsl:attribute name="time"> <xsl:value-of select="concat(substring($time, 2, 2), ':', substring($time, 4, 2))"/> </xsl:attribute> <divecomputerid deviceid="ffffffff" model="csv" /> <xsl:call-template name="printLine"> <xsl:with-param name="line" select="substring-before(//csv, $lf)"/> <xsl:with-param name="remaining" select="substring-after(//csv, $lf)"/> </xsl:call-template> </dive> </dives> </divelog> </xsl:template> <xsl:template name="printLine"> <xsl:param name="line"/> <xsl:param name="remaining"/> <!-- We only want to process lines with different time stamps, and timeField is not necessarily the first field --> <xsl:if test="$line != substring-before($remaining, $lf)"> <xsl:variable name="curTime"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$timeField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:variable> <xsl:variable name="prevTime"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$timeField"/> <xsl:with-param name="line" select="substring-before($remaining, $lf)"/> </xsl:call-template> </xsl:variable> <xsl:if test="$curTime != $prevTime"> <xsl:call-template name="printFields"> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:if> </xsl:if> <xsl:if test="$remaining != ''"> <xsl:call-template name="printLine"> <xsl:with-param name="line" select="substring-before($remaining, $lf)"/> <xsl:with-param name="remaining" select="substring-after($remaining, $lf)"/> </xsl:call-template> </xsl:if> </xsl:template> <xsl:template name="printFields"> <xsl:param name="line"/> <xsl:variable name="value"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$timeField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:variable> <xsl:if test="number($value) = $value or number(substring-before($value, ':')) = substring-before($value, ':')"> <sample> <xsl:attribute name="time"> <xsl:choose> <xsl:when test="number($value) = $value"> <!-- We assume time in seconds --> <xsl:call-template name="sec2time"> <xsl:with-param name="timeSec"> <xsl:value-of select="$value"/> </xsl:with-param> </xsl:call-template> </xsl:when> <xsl:when test="substring-after(substring-after($value, ':'), ':') = ''"> <!-- We assume time format m:s --> <xsl:value-of select="substring-before($value, ':') * 60 + substring-after($value, ':')" /> </xsl:when> <xsl:otherwise> <!-- We assume time format h:m:s --> <xsl:value-of select="concat( substring-before($value, ':') * 60 + substring-before(substring-after($value, ':'), ':'), ':', substring-after(substring-after($value, ':'), ':') )" /> </xsl:otherwise> </xsl:choose> </xsl:attribute> <xsl:variable name="depth"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$depthField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:variable> <xsl:attribute name="depth"> <xsl:choose> <xsl:when test="$units = 0"> <xsl:value-of select="$depth"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$depth * 0.3048"/> </xsl:otherwise> </xsl:choose> </xsl:attribute> <xsl:if test="$tempField >= 0"> <xsl:variable name="temp"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$tempField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:variable> <xsl:attribute name="temp"> <xsl:choose> <xsl:when test="$units = 0"> <xsl:value-of select="$temp"/> </xsl:when> <xsl:otherwise> <xsl:value-of select="concat(format-number(($temp - 32) * 5 div 9, '0.0'), ' C')"/> </xsl:otherwise> </xsl:choose> </xsl:attribute> </xsl:if> <xsl:if test="$po2Field >= 0"> <xsl:attribute name="po2"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$po2Field"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:attribute> </xsl:if> <xsl:if test="$cnsField >= 0"> <xsl:attribute name="cns"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$cnsField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:attribute> </xsl:if> <xsl:if test="$otuField >= 0"> <xsl:attribute name="otu"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$otuField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:attribute> </xsl:if> <xsl:if test="$ndlField >= 0"> <xsl:attribute name="ndl"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$ndlField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:attribute> </xsl:if> <xsl:if test="$ttsField >= 0"> <xsl:attribute name="tts"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$ttsField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:attribute> </xsl:if> <xsl:if test="$stopdepthField >= 0"> <xsl:variable name="stopdepth"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$stopdepthField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:variable> <xsl:attribute name="stopdepth"> <xsl:choose> <xsl:when test="$units = 0"> <xsl:copy-of select="$stopdepth"/> </xsl:when> <xsl:otherwise> <xsl:copy-of select="format-number($stopdepth * 0.3048, '0.00')"/> </xsl:otherwise> </xsl:choose> </xsl:attribute> <xsl:attribute name="in_deco"> <xsl:choose> <xsl:when test="$stopdepth > 0">1</xsl:when> <xsl:otherwise>0</xsl:otherwise> </xsl:choose> </xsl:attribute> </xsl:if> <xsl:if test="$pressureField >= 0"> <xsl:attribute name="pressure"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$pressureField"/> <xsl:with-param name="line" select="$line"/> </xsl:call-template> </xsl:attribute> </xsl:if> </sample> </xsl:if> </xsl:template> <xsl:template name="getFieldByIndex"> <xsl:param name="index"/> <xsl:param name="line"/> <xsl:choose> <xsl:when test="$index > 0"> <xsl:call-template name="getFieldByIndex"> <xsl:with-param name="index" select="$index -1"/> <xsl:with-param name="line" select="substring-after($line, $fs)"/> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:choose> <xsl:when test="substring-before($line,$fs) != ''"> <xsl:value-of select="substring-before($line,$fs)"/> </xsl:when> <xsl:otherwise> <xsl:if test="substring-after($line, $fs) = ''"> <xsl:value-of select="$line"/> </xsl:if> </xsl:otherwise> </xsl:choose> </xsl:otherwise> </xsl:choose> </xsl:template> </xsl:stylesheet>