dia2xpdo

dia2xpdo.xsl

<?xml version="1.0"?>
<!-- 
     Transform dia UML objects to a convenient structure
     
     Copyright(c) 2002 Matthieu Sozeau <[email protected]>
     Copyright(c) 2004 Dave Klotzbach <[email protected]>     

     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 2 of the License, or
     (at your option) any later version.
     
     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
     
     You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

-->

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  xmlns:dia="http://www.lysator.liu.se/~alla/dia/"
  version="1.0">
  <xsl:output omit-xml-declaration="yes" />
  <xsl:output method="text" />
  <xsl:output indent="yes" />
  <xsl:output media-type="text/plain" />

  <xsl:param name="directory"/>
  <xsl:param name="label-composite">Composites</xsl:param>
  <xsl:param name="label-aggregate">Aggregates</xsl:param>
  <xsl:param name="xpdo-model">modx</xsl:param>
  <xsl:param name="include-dependencies">1</xsl:param>
  <xsl:param name="include-operations">0</xsl:param>
  <xsl:param name="include-local-only">1</xsl:param>

  <xsl:template match="/">
    <xsl:element name="dia-uml">
      <xsl:choose>
        <xsl:when test="*/*/*/dia:object[@type='UML - LargePackage']">
          <xsl:apply-templates select="*/*/*/dia:object[@type='UML - LargePackage']"/>      
        </xsl:when>
        <xsl:otherwise>
          <!-- <xsl:apply-templates select="//dia:object[@type='UML - Association']"/> -->
          <xsl:apply-templates select="//dia:object[@type='UML - Generalization']"/>
          <xsl:apply-templates select="//dia:object[@type='UML - Dependency']"/>
          <xsl:apply-templates select="//dia:object[@type='UML - Class']"/>
        </xsl:otherwise>
      </xsl:choose>
    </xsl:element>
  </xsl:template>

  <xsl:template match="dia:object[@type='UML - LargePackage']">
    <xsl:element name="package">
      <xsl:element name="name">
        <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>
      </xsl:element>
      <xsl:apply-templates select="../dia:object[@type='UML - Class']"/>      
    </xsl:element>
  </xsl:template>

  <xsl:template match="dia:object[@type='UML - Class']">
    <xsl:element name="class">
      <xsl:attribute name="name">
        <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>            
      </xsl:attribute>
      <xsl:if test="dia:attribute[@name='stereotype']">
        <xsl:attribute name="stereotype">
          <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='stereotype']/dia:string, '#'), '#')"/>                
          </xsl:attribute>
       </xsl:if>        
       <xsl:if test="dia:attribute[@name='template']/dia:boolean[@val='true']">
          <xsl:attribute name="template">1</xsl:attribute>
       </xsl:if> 
       <xsl:if test="dia:attribute[@name='abstract']/dia:boolean/@val='true'">
          <xsl:attribute name="abstract">1</xsl:attribute>
       </xsl:if>
       <xsl:attribute name="id">
          <xsl:value-of select="@id"/>
       </xsl:attribute>
       <xsl:if test="dia:attribute[@name='template']/dia:boolean[@val='true']">
          <xsl:element name="TemplateParameters">
             <xsl:for-each select="dia:attribute[@name='templates']/dia:composite[@type='umlformalparameter']">
                <xsl:element name="formalParameter">
                   <xsl:attribute name="name">
                      <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string,'#'),'#')"/>
                   </xsl:attribute>
                   <xsl:attribute name="class">
                      <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='type']/dia:string,'#'),'#')"/>
                   </xsl:attribute>
                </xsl:element>
             </xsl:for-each>
          </xsl:element>
       </xsl:if> 
       <xsl:element name="comment">
          <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='comment']/dia:string, '#'), '#')"/>
       </xsl:element>
       <xsl:element name="attributes">
          <xsl:apply-templates select="dia:attribute[@name='attributes']"/>
       </xsl:element>
        <!-- Render Aggregates -->
       <!-- <xsl:element name="aggregates"> -->
          <!-- 
            <dia:connection handle="0" to="O1" connection="14"/> 
            <dia:attribute name="assoc_type">
              <dia:enum val="1"/>
            </dia:attribute>
            -->
          <xsl:apply-template select="//dia:object[@type='UML - Association']" />

       <!-- </xsl:element> -->
        <!-- Render Composites -->
       <!-- <xsl:element name="composites"> -->
          <!-- 
            <dia:connection handle="0" to="O1" connection="14"/> 
            <dia:attribute name="assoc_type">
              <dia:enum val="2"/>
            </dia:attribute>
            -->
          <xsl:apply-templates select="//dia:object[@type='UML - Association']"/>
       <!-- </xsl:element> -->
       <xsl:element name="operations">
          <xsl:apply-templates select="dia:attribute[@name='operations']"/>
       </xsl:element>
    </xsl:element>
 </xsl:template>


 <xsl:template match="dia:object[@type='UML - Generalization']">
    <xsl:element name="Generalization">
       <xsl:attribute name="name">
          <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>
       </xsl:attribute>
       <xsl:for-each select="dia:connections/dia:connection">
          <xsl:choose>
             <xsl:when test="@handle='0'">
                <xsl:attribute name="superclass">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
             <xsl:when test="@handle='1'">
                <xsl:attribute name="subclass">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
          </xsl:choose>
       </xsl:for-each>
       <xsl:attribute name="id">
          <xsl:value-of select="@id"/>
       </xsl:attribute>
    </xsl:element>
 </xsl:template>

 <xsl:template name="aggregate" match="dia:object[@type='UML - Association' and ./dia:attribute[@name='assoc_type']/dia:enum[@val='1']]">
<!-- <aggregate alias="Context" class="modContext" local="context_key" foreign="key" cardinality="one" owner="foreign" /> -->
    <xsl:element name="aggregate">
       <xsl:attribute name="class">
          <xsl:value-of select="//dia:object[@type='UML - Class' and @id=current()/connections/connection[@handle='0']]"/>
       </xsl:attribute>
       <xsl:attribute name="alias">
          <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>
       </xsl:attribute>
       <xsl:for-each select="dia:connections/dia:connection">
          <xsl:choose>
             <xsl:when test="@handle='0'">
                <xsl:attribute name="from">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
             <xsl:when test="@handle='1'">
                <xsl:attribute name="to">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
          </xsl:choose>
       </xsl:for-each>
       <xsl:attribute name="id">
          <xsl:value-of select="@id"/>
       </xsl:attribute>
       <xsl:apply-templates select="dia:attribute[@name='ends']"/>
    </xsl:element>
 </xsl:template>

<xsl:template name="composite" match="dia:object[@type='UML - Association' and ./dia:attribute[@name='assoc_type']/dia:enum[@val='2']]">

  <xsl:variable name="dia-class-name" select="//dia:object[@id= current()/dia:connections/dia:connection[@handle='0']/@to]/dia:attribute[@name='name']/dia:string/text()" />
  <xsl:variable name="dia-assoc-name" select="./dia:attribute[@name='name']/dia:string" />

  <xsl:variable name="xpdo-class">
    <xsl:call-template name="string-replace">
      <xsl:with-param name="stringIn" select="$dia-class-name"/>
      <xsl:with-param name="charsIn" select="'#'"/>
      <xsl:with-param name="charsOut" select="''"/>
    </xsl:call-template>
  </xsl:variable>
 
  <xsl:variable name="xpdo-alias">
    <xsl:call-template name="string-replace">
      <xsl:with-param name="stringIn" select="$dia-assoc-name"/>
      <xsl:with-param name="charsIn" select="'#'"/>
      <xsl:with-param name="charsOut" select="''"/>
    </xsl:call-template>
  </xsl:variable>
 
    <xsl:element name="composite">
      <xsl:attribute name="class">
           <xsl:value-of select="$xpdo-class"/>
       </xsl:attribute>
       <xsl:attribute name="alias">
           <xsl:value-of select="$xpdo-alias"/>
       </xsl:attribute>
       <xsl:for-each select="dia:connections/dia:connection">
          <xsl:choose>
             <xsl:when test="@handle='0'">
                <xsl:attribute name="from">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
             <xsl:when test="@handle='1'">
                <xsl:attribute name="to">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
          </xsl:choose>
       </xsl:for-each>
       <xsl:attribute name="id">
          <xsl:value-of select="@id"/>
       </xsl:attribute>
       <xsl:apply-templates select="dia:attribute[@name='ends']"/>
    </xsl:element>
 </xsl:template>

 <xsl:template match="dia:object[@type='UML - Dependency']">
    <xsl:element name="Dependency">
       <xsl:attribute name="name">
          <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>
       </xsl:attribute>
       <xsl:if test="dia:attribute[@name='stereotype']">
          <xsl:attribute name="stereotype">
             <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='stereotype']/dia:string, '#'), '#')"/>
          </xsl:attribute>
       </xsl:if>        
       <xsl:for-each select="dia:connections/dia:connection">
          <xsl:choose>
             <xsl:when test="@handle='0'">
                <xsl:attribute name="classId">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
             <xsl:when test="@handle='1'">
                <xsl:attribute name="dependsOn">
                   <xsl:value-of select="@to"/>
                </xsl:attribute>
             </xsl:when>
          </xsl:choose>
       </xsl:for-each>
       <xsl:attribute name="id">
          <xsl:value-of select="@id"/>
       </xsl:attribute>
    </xsl:element>
 </xsl:template>

 <xsl:template match="dia:attribute[@name='ends']">
    <xsl:for-each select="dia:composite">
       <xsl:element name="Aggregate">
          <xsl:attribute name="role">
             <xsl:value-of select="position()"/>
          </xsl:attribute>
          <xsl:attribute name="name">
             <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='role']/dia:string, '#'), '#')"/>
          </xsl:attribute>
          <xsl:attribute name="multiplicity">
             <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='multiplicity']/dia:string, '#'), '#')"/>
          </xsl:attribute>
          <xsl:attribute name="aggregate">
             <xsl:choose>
                <xsl:when test="dia:attribute[@name='aggregate']/dia:enum[@val='0']">
                   <xsl:text>none</xsl:text>
                </xsl:when>
                <xsl:when test="dia:attribute[@name='aggregate']/dia:enum[@val='1']">
                   <xsl:text>aggregation</xsl:text>
                </xsl:when>
                <xsl:when test="dia:attribute[@name='aggregate']/dia:enum[@val='2']">
                   <xsl:text>composition</xsl:text>
                </xsl:when>
             </xsl:choose>
          </xsl:attribute>
       </xsl:element>
    </xsl:for-each>
 </xsl:template>

  <xsl:template match="dia:composite[@type='umlattribute']">
    <xsl:element name="attribute">
      <xsl:if test="dia:attribute[@name='class_scope']/dia:boolean/@val='true'">
        <xsl:attribute name="class_scope">1</xsl:attribute>
      </xsl:if>
      <xsl:choose>
        <xsl:when test="dia:attribute[@name='visibility']/dia:enum/@val=1">
          <xsl:attribute name="visibility">private</xsl:attribute>
        </xsl:when>
        <xsl:when test="dia:attribute[@name='visibility']/dia:enum/@val=2">
          <xsl:attribute name="visibility">protected</xsl:attribute>
        </xsl:when>
        <xsl:when test="dia:attribute[@name='visibility']/dia:enum/@val=0">
          <xsl:attribute name="visibility">public</xsl:attribute>
        </xsl:when>
      </xsl:choose>

      <xsl:element name="type">
        <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='type']/dia:string, '#'), '#')"/>
      </xsl:element>

      <xsl:element name="name">
        <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>
      </xsl:element>

      <xsl:element name="comment">
	<xsl:value-of select="substring-before(substring-after(dia:attribute[@name='comment']/dia:string, '#'), '#')"/>
      </xsl:element>

      <xsl:if test="not(dia:attribute[@name='value']/dia:string='##')">
        <xsl:element name="value">
          <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='value']/dia:string, '#'), '#')"/>
        </xsl:element>
      </xsl:if>
    </xsl:element>
  </xsl:template>
  
  
  <xsl:template match="dia:composite[@type='umloperation']">
    <xsl:element name="operation">
      <xsl:choose>
        <xsl:when test="dia:attribute[@name='inheritance_type']/dia:enum/@val=2">
          <xsl:attribute name="inheritance">leaf</xsl:attribute>
        </xsl:when>
        <xsl:when test="dia:attribute[@name='inheritance_type']/dia:enum/@val=1">
          <xsl:attribute name="inheritance">polymorphic</xsl:attribute>
        </xsl:when>
        <xsl:when test="dia:attribute[@name='inheritance_type']/dia:enum/@val=0">
          <xsl:attribute name="inheritance">abstract</xsl:attribute>
        </xsl:when>
      </xsl:choose>
      <xsl:choose>
        <xsl:when test="dia:attribute[@name='visibility']/dia:enum/@val=1">
          <xsl:attribute name="visibility">private</xsl:attribute>
        </xsl:when>
        <xsl:when test="dia:attribute[@name='visibility']/dia:enum/@val=2">
          <xsl:attribute name="visibility">protected</xsl:attribute>
        </xsl:when>
        <xsl:when test="dia:attribute[@name='visibility']/dia:enum/@val=0">
          <xsl:attribute name="visibility">public</xsl:attribute>
        </xsl:when>
      </xsl:choose>
      
      <xsl:if test="dia:attribute[@name='class_scope']/dia:boolean/@val='true'">
        <xsl:attribute name="class_scope">1</xsl:attribute>
      </xsl:if>

      <xsl:choose>
        <xsl:when test="dia:attribute[@name='query']/dia:boolean/@val='true'">
          <xsl:attribute name="query">1</xsl:attribute>
        </xsl:when>
        <xsl:otherwise>
          <xsl:attribute name="query">0</xsl:attribute>
        </xsl:otherwise>
      </xsl:choose>
      
      <xsl:if test="not(dia:attribute[@name='type']/dia:string='##')">
        <xsl:element name="type">
          <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='type']/dia:string, '#'), '#')"/>
        </xsl:element>
      </xsl:if>    
      
      <xsl:element name="name">
        <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>
      </xsl:element>

      <xsl:if test="not(dia:attribute[@name='comment']/dia:string='##')">
	<xsl:element name="comment">
	  <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='comment']/dia:string, '#'), '#')"/>
	</xsl:element>
      </xsl:if>
      
      <xsl:if test="dia:attribute[@name='parameters']/dia:composite[@type='umlparameter']">
	<xsl:element name="parameters">
	  <xsl:for-each select="dia:attribute[@name='parameters']/dia:composite[@type='umlparameter']">
	    <xsl:element name="parameter">
	      <xsl:choose>
		<xsl:when test="dia:attribute[@name='kind']/dia:enum/@val=1">
		  <xsl:attribute name="kind">in</xsl:attribute>
		</xsl:when>
		<xsl:when test="dia:attribute[@name='kind']/dia:enum/@val=2">
		  <xsl:attribute name="kind">out</xsl:attribute>
		</xsl:when>
		<xsl:when test="dia:attribute[@name='kind']/dia:enum/@val=3">
		  <xsl:attribute name="kind">inout</xsl:attribute>
		</xsl:when>
	      </xsl:choose>
	      
	      <xsl:element name="type">
		<xsl:value-of select="substring-before(substring-after(dia:attribute[@name='type']/dia:string, '#'), '#')"/>
	      </xsl:element>
	      
	      <xsl:element name="name">
		<xsl:value-of select="substring-before(substring-after(dia:attribute[@name='name']/dia:string, '#'), '#')"/>
	      </xsl:element>
	      
	      <xsl:if test="dia:attribute[@name='comment']">
		<xsl:element name="comment">
		  <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='comment']/dia:string, '#'), '#')"/>
		</xsl:element>
	      </xsl:if>
	      
	      <xsl:if test="not(dia:attribute[@name='value']/dia:string='##')">
		<xsl:element name="value">
		  <xsl:value-of select="substring-before(substring-after(dia:attribute[@name='value']/dia:string, '#'), '#')"/>
		</xsl:element>              
	      </xsl:if>
	      
	    </xsl:element>
	  </xsl:for-each>      
	</xsl:element>
      </xsl:if>
    </xsl:element>
  </xsl:template>

  <xsl:template match="*/*/dia:object[@type='UML - Component']">
    <xsl:element name="component">
      <xsl:if test="not(dia:attribute[@name='stereotype']/dia:string='##')">
	<xsl:attribute name="stereotype"><xsl:value-of 
	  select="substring-before(substring-after(dia:attribute[@name='stereotype']/dia:string, '#'), '#')"/></xsl:attribute>              
      </xsl:if>
      <xsl:if test="not(dia:attribute[@name='text']/dia:composite/dia:attribute/dia:string='##')"><xsl:value-of 
	select="substring-before(substring-after(dia:attribute[@name='text']/dia:composite/dia:attribute/dia:string, '#'), '#')"/>              
      </xsl:if>
    </xsl:element>
  </xsl:template>
  
  <xsl:template match="text()"></xsl:template>

  <xsl:template match="node()|@*">
    <xsl:apply-templates select="node()|@*"/>  
  </xsl:template>

<xsl:template name="string-replace">
  <xsl:param name="stringIn"/>
  <xsl:param name="charsIn"/>
  <xsl:param name="charsOut"/>
  <xsl:choose>
    <xsl:when test="contains($stringIn,$charsIn)">
      <xsl:value-of select="concat(substring-before($stringIn,$charsIn),$charsOut)"/>
      <xsl:call-template name="string-replace">
        <xsl:with-param name="stringIn" select="substring-after($stringIn,$charsIn)"/>
        <xsl:with-param name="charsIn" select="$charsIn"/>
        <xsl:with-param name="charsOut" select="$charsOut"/>
      </xsl:call-template>
    </xsl:when>
    <xsl:otherwise>
      <xsl:value-of select="$stringIn"/>
    </xsl:otherwise>
  </xsl:choose>
</xsl:template>

</xsl:stylesheet>


<!-- Keep this comment at the end of the file
Local variables:
mode: xml
sgml-omittag:nil
sgml-shorttag:nil
sgml-namecase-general:nil
sgml-general-insert-case:lower
sgml-minimize-attributes:nil
sgml-always-quote-attributes:t
sgml-indent-step:2
sgml-indent-data:t
sgml-parent-document:nil
sgml-exposed-tags:nil
sgml-local-catalogs:nil
sgml-local-ecat-files:nil
End:
-->