extract_l-t-lexc.xsl

<?xml version="1.0"?>
<!--+
    | Usage: java -Xmx2048m net.sf.saxon.Transform -it:main THIS_FILE inDir=DIR
    |
    | - specify inDir and inFile in this script
    | - output is in dir out_put
    +-->

<xsl:stylesheet version="2.0"
		xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
		xmlns:xs="http://www.w3.org/2001/XMLSchema"
		xmlns:xhtml="http://www.w3.org/1999/xhtml"
		exclude-result-prefixes="xs xhtml">

  <xsl:strip-space elements="*"/>
  <xsl:output method="xml" name="dis"
	      encoding="UTF-8"
	      omit-xml-declaration="yes"
	      indent="no"/>

  <xsl:output method="xml" name="lexc"
	      encoding="UTF-8"
	      omit-xml-declaration="yes"
	      indent="no"/>

  <xsl:output method="xml" name="xml"
	      encoding="UTF-8"
	      omit-xml-declaration="yes"
	      indent="yes"/>

  <xsl:output method="text" name="txt"
              encoding="UTF-8"/>

  <xsl:param name="inDir" select="concat($SLANG,$TLANG,'/src')"/>

  <xsl:param name="inFile" select="'verb*_smenob.xml'"/>
  <xsl:param name="outDir" select="concat($SLANG,$TLANG,'/bin')"/>
  <xsl:param name="outFile" select="'out_file'"/>
  <xsl:param name="SLANG" select="'sme'"/>
  <xsl:param name="TLANG" select="'nob'"/>
  <xsl:param name="TNUM" select="'all'"/>
  <xsl:variable name="debug" select="false()"/>
  <xsl:variable name="nl" select="'&#xa;'"/>
  <xsl:variable name="tb" select="'&#9;'"/>
  <xsl:variable name="sr" select="'\*'"/>
  
  <xsl:template match="/" name="main">

    <xsl:result-document href="{$outDir}/{$outFile}.lexc" format="lexc">
      <xsl:value-of select="concat('LEXICON Root ',$nl)"/>

      <xsl:for-each select="for $f in collection(concat($inDir,'?recurse=yes;select=',$inFile,';on-error=warning')) return $f">
	
	<xsl:variable name="current_file" select="(tokenize(document-uri(.), '/'))[last()]"/>
	<xsl:variable name="current_dir" select="substring-before(document-uri(.), $current_file)"/>
	<xsl:variable name="current_location" select="concat($inDir, substring-after($current_dir, $inDir))"/>
	<xsl:variable name="relative_path" select="substring-after($current_dir, $inDir)"/>
	<xsl:variable name="file_name" select="substring-before($current_file, '.xml')"/>      
	
	<xsl:if test="true()">
	  <xsl:message terminate="no">
	    <xsl:value-of select="concat('-----------------------------------------', $nl)"/>
	    <xsl:value-of select="concat('location ', $current_location, $nl)"/>
	    <xsl:value-of select="concat('processing file ', $current_file, $nl)"/>
	    <xsl:value-of select="'-----------------------------------------'"/>
	  </xsl:message>
	</xsl:if>
	
	<xsl:for-each select=".//e">
	  <xsl:variable name="cl" select="normalize-space(./lg/l)"/>
	  <xsl:if test="$TNUM='first'">
	    <xsl:value-of
		select="concat($cl,$tb,translate(normalize-space(./mg[1]/tg[1]/t[1]),
			' ','_') , ' # ;',$nl)"/>
	  </xsl:if>
	  <xsl:if test="$TNUM='all'">
	    <xsl:for-each select=".//t">
	      <xsl:value-of
		  select="concat($cl,':',translate(normalize-space(.),
			  ' ', '_') , ' # ;',$nl)"/>
	    </xsl:for-each>
	  </xsl:if>
	</xsl:for-each>
	
      </xsl:for-each>
    </xsl:result-document>
    
  </xsl:template>
  
</xsl:stylesheet>