#! /bin/bash

# Usage:
# cd ...../DEV300/filter/source/config/fragments/types
# bash ...../print-file-types.sh *.xcu

data=/tmp/d.xml
xslt=/tmp/x.xml

set -e

echo '<?xml version="1.0" encoding="UTF-8"?>' > $data
echo '<oor:component-data oor:name="TypeDetection" oor:package="org.openoffice.Office" xmlns:oor="http://openoffice.org/2001/registry" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' >> $data
cat $* >> $data
echo '</oor:component-data>' >> $data

cat <<EOT > $xslt
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:oor="http://openoffice.org/2001/registry">

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

 <xsl:template match="node">
   <xsl:value-of select='prop[@oor:name="UIName"]/value'/>
   <xsl:text>&#9;</xsl:text>
   <xsl:value-of select='prop[@oor:name="Extensions"]/value'/>
   <xsl:text>&#9;</xsl:text>
   <xsl:value-of select='prop[@oor:name="MediaType"]/value'/>
   <xsl:text>&#xA;</xsl:text>
 </xsl:template>

 <xsl:template match="text()|comment()|processing-instruction()"/>

</xsl:stylesheet>
EOT

xsltproc $xslt $data | perl '-F\t' -ane '@e=split(/ /, $F[1]); printf "%s (%s)\t%s", $F[0], join(" ", map { ".$_" } @e), $F[2]' 

rm $data
rm $xslt