mirror of
				https://github.com/subsurface/subsurface.git
				synced 2025-02-19 22:16:15 +00:00 
			
		
		
		
	On CSV import the time can be represented with seconds, min:sec or hour:min:sec. This patch adds support for the min:sec format that was missing. See #662 Signed-off-by: Miika Turkia <miika.turkia@gmail.com> Signed-off-by: Dirk Hohndel <dirk@hohndel.org>
		
			
				
	
	
		
			268 lines
		
	
	
	
		
			10 KiB
		
	
	
	
		
			HTML
		
	
	
	
	
	
			
		
		
	
	
			268 lines
		
	
	
	
		
			10 KiB
		
	
	
	
		
			HTML
		
	
	
	
	
	
| <?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>
 |