se/SE/dev/php-cli/cables_from_joins_to_PE.xsl

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns:bp="https://procesy5.pl/biale_plamy-schema.xsd"
    xmlns:wfs="http://www.opengis.net/wfs" 
    xmlns="http://www.opengis.net/wfs"
   
    exclude-result-prefixes="xs"
    version="2.0">
    <xsl:output indent="yes"/>
    <xsl:strip-space elements="*"/>
    
    <xsl:include href="asText.xsl"/>
    <xsl:param name="plamy_prefix" /> <!-- select="'test2'" -->
    
    <xsl:param name="edge_paths_with_PE_fixed.xml" select="concat('edge_paths_with_PE_fixed',$plamy_prefix,'.xml')"/>
    <xsl:param name="joins_asText_xml.xml" select="concat('joins_asText_xml',$plamy_prefix,'.xml')"/>
    <!--<xsl:param name="edge_joins_filled_paths.xml" select="'edge_joins_filled_paths.xml'"/>-->
    <xsl:param name="points2joins.xml" select="concat('points2joins',$plamy_prefix,'.xml')"/>
    <xsl:param name="edge_joins_filled_paths" select="concat('edge_joins_filled_paths',$plamy_prefix)"/>
  
    
    <xsl:variable name="PE_candidates_dump" select="doc($edge_paths_with_PE_fixed.xml)"/>
    <xsl:variable name="joins_asText_Path_Point" select="doc($joins_asText_xml.xml)"/>
    <!--<xsl:variable name="edge_joins_filled_paths" select="doc($edge_joins_filled_paths.xml) "/>-->
    <xsl:variable name="points2joins" select="doc($points2joins.xml)"/>
    
    
    <!-- <joins_asText>
        <item id="0">POINT (18.7909 51.701067999083)</item>-->
    <xsl:template match="joins2ways_z_ID_Way">
        <cables_from_joins_to_PE>
        <!--<xsl:variable name="joins_asText_Path_Point">
            <xsl:apply-templates select="$joins_asText" mode="joins_asText"/>
        </xsl:variable>-->   
         <!--<xsl:copy-of select="$joins_asText_Path_Point"/>-->
                <!--<xsl:copy-of select="$edge_joins_filled_paths"/>-->
        <!-- jedziemy po joins2ways_z_ID_Way, sprawdzamy czy jest dla niego PE_candidates_dump , jak tak, to szukamy jego PE i liczymy sciezke 
               lub probujemy rysowac zawsze od konca drogi-->
          <xsl:for-each-group select="item" group-by="@id">
              <xsl:for-each select="current-group()">
                  <xsl:variable name="ID_Way" select="@ID_Way"/>
                  <xsl:variable name="ID_Join" select="@id"/>
                  <!--<xsl:variable name="pos" select=" position()"/>--> <!-- tozsamosc ulozenia z waysow -->
                  <xsl:variable name="ID_Point_count"/>  
                  <xsl:for-each select="Points">
                      <xsl:message>#41 Calculating Cable for point:<xsl:value-of select=" text()"/>; ID_Join:<xsl:value-of select="$ID_Join"/></xsl:message>
                          <xsl:variable name="ID_Point" select=" text()"/>
                           <xsl:message>#53 opening doc(<xsl:value-of select="concat($edge_joins_filled_paths,'/edge_joins_filled_paths.',$ID_Way,'.xml')"/>)</xsl:message>
                          <xsl:variable name="edge_joins_filled_paths_xml" select="doc(concat($edge_joins_filled_paths,'/edge_joins_filled_paths.',$ID_Way,'.xml'))"/>
                              <!-- do ustalenia gdize sa najblizsze bp:Path_Point_Cable ID_Join="45" -> Target_ID_Join  --> 
                              <!--<debug56><xsl:copy-of select="$edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl[1]"/></debug56>-->
                              <xsl:variable name="edge_paths_with_PE_controll" select="doc(concat('edge_paths_with_PE_controll_paths_temp/edge_paths_with_PE_controll.xsl.',$ID_Way,'.xml'))"/>
                               <!-- nie tzeba - jest w foreach dla Points !- trzeba sprawdzic czy join jest klientem - czy tylko PE! -->
                              <xsl:choose>
                              <!--<xsl:when test="not(@ID_Point)">
                                    <not_candidate><xsl:attribute name="descr" select="'this is probably join from way'"/>
                                        <xsl:attribute name="Joins" select="parent::node()/@id"/></not_candidate>
                              </xsl:when>-->
                                  <!-- uwzgledniam usuniete punkty PE w Fixings -->
      
                                  <xsl:when test="$PE_candidates_dump/PE_candidates_dump/LINESTRING/bp:Path_Point[@ID_Join=$ID_Join] ">
                                      <not_candidate_is_pe><xsl:attribute name="descr" select="'this is PE '"/>
                                      <xsl:attribute name="Joins" select="$ID_Join"/>
                                      <xsl:copy-of select="$PE_candidates_dump/PE_candidates_dump/LINESTRING/bp:Path_Point[@ID_Join=$ID_Join]"/>
                                  </not_candidate_is_pe>
                              </xsl:when>
                              <xsl:otherwise>
                                  <cable_to_PE_to_be_calculated>
                                      
                                      <xsl:attribute name="ID_Way" select="$ID_Way"/>
                                      <xsl:attribute name="Joins" select="$ID_Join"/>
                                      <xsl:attribute name="ID_Point" select="$ID_Point"/>
                                       <!-- idziemy po drodze,  -->
                                      <xsl:variable name="Join_X" select="$joins_asText_Path_Point/joins_asText_xml/item[@id=$ID_Join]/bp:Path_Point/@X"/>
                                      <xsl:variable name="Join_Y" select="$joins_asText_Path_Point/joins_asText_xml/item[@id=$ID_Join]/bp:Path_Point/@Y"/>
                                      
                                      <xsl:attribute name="Join_X" select="$Join_X"/><xsl:attribute name="Join_Y" select="$Join_Y"/>
                                                  
                                      <xsl:variable name="id_path" select="$edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl/LineString[@ID_Join=$ID_Join and @Y=$Join_Y and @Y=$Join_Y]/@id_path" />
                                      <xsl:choose>
                                          <xsl:when test="$id_path">
                                              <found_in_path_in_edge_joins_filled_path>
                                                  <xsl:for-each select="$edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl/LineString[@ID_Join=$ID_Join and @Y=$Join_Y and @Y=$Join_Y]">
                                                      <xsl:call-template name="detect_next_PE_adv">
                                                          <xsl:with-param name="ID_Point" select="$ID_Point"/>
                                                          <xsl:with-param name="id_path" select="@id_path"/>
                                                          <xsl:with-param name="ID_Join" select="$ID_Join"/>
                                                          <xsl:with-param name="ID_Way" select="$ID_Way"/>
                                                          <xsl:with-param name="edge_joins_filled_paths_xml" select="$edge_joins_filled_paths_xml"/>
                                                      </xsl:call-template>
                                                  </xsl:for-each>
                                              </found_in_path_in_edge_joins_filled_path>
                                          </xsl:when>
                                          <xsl:otherwise>
                                              <error>Not found $path
                                                  <xsl:message>Not found $path</xsl:message>
                                              </error>
                                          </xsl:otherwise>
                                      </xsl:choose>
                                      
                                  </cable_to_PE_to_be_calculated>
                              </xsl:otherwise>
                      </xsl:choose>
                  </xsl:for-each>
              </xsl:for-each>
        </xsl:for-each-group>
        </cables_from_joins_to_PE>
    </xsl:template>
    
    
    <xsl:template name="detect_next_PE_adv">
        <xsl:param name="ID_Point" required="yes"/>
        <xsl:param name="id_path" required="yes"/>
        <xsl:param name="ID_Join" required="yes"/>
        <xsl:param name="ID_Way" required="yes"/>
        <xsl:param name="edge_joins_filled_paths_xml" required="yes"/>
        
        <detect_next_PE>
            <xsl:variable name="Next_PE_Pos" select="min($PE_candidates_dump/PE_candidates_dump/LINESTRING[@ID_Way=$ID_Way]/bp:Path_Point[number(@id_path)&gt;number($id_path)]/number(@id_path) )"/>
            <xsl:variable name="Prev_PE_Pos" select="max($PE_candidates_dump/PE_candidates_dump/LINESTRING[@ID_Way=$ID_Way]/bp:Path_Point[number(@id_path)&lt;=number($id_path)]/number(@id_path)  )"/>
            <xsl:variable name="Same_PE_Pos" select="max($PE_candidates_dump/PE_candidates_dump/LINESTRING[@ID_Way=$ID_Way]/bp:Path_Point[number(@id_path)=number($id_path)]/number(@id_path))"/>
            <xsl:attribute name="id_path" select="$id_path"/>
            <xsl:attribute name="Next_PE_Pos" select="$Next_PE_Pos"/>
            <xsl:attribute name="Prev_PE_Pos" select="$Prev_PE_Pos"/>
            <xsl:attribute name="Same_PE_Pos" select="$Same_PE_Pos"/>
            <xsl:variable name="Next_PE_Pos_len">
                <xsl:choose>
                    <xsl:when test="$Next_PE_Pos">
                        <xsl:value-of select="sum($edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl/LineString[number(@id_path) &gt;= number($id_path) and number(@id_path) &lt; number($Next_PE_Pos)  ]/@len)"/>
                    </xsl:when><xsl:otherwise><xsl:value-of select="-1"/></xsl:otherwise>
                </xsl:choose>
            </xsl:variable>
            <xsl:variable name="Prev_PE_Pos_len">
                <xsl:choose>
                    <xsl:when test="$Prev_PE_Pos">
                        <xsl:value-of select="sum($edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl/LineString[number(@id_path) &lt; number($id_path) and number(@id_path) &gt;= number($Prev_PE_Pos)  ]/@len)"/>
                    </xsl:when>
                    <xsl:otherwise><xsl:value-of select="-1"/></xsl:otherwise>
                </xsl:choose>
            </xsl:variable>
            
            <xsl:attribute name="Next_PE_Pos_len" select="$Next_PE_Pos_len"/>
            <xsl:attribute name="Prev_PE_Pos_len" select="$Prev_PE_Pos_len"/>
            <!--<xsl:copy-of select="$PE_candidates_dump/PE_candidates_dump/LINESTRING[@ID_Way=$ID_Way]/bp:Path_Point[number(@Pos)&gt;number($id_path)]/@Pos"/>-->
                <xsl:variable name="Path_Point">
                    <Path_Point>
                    <xsl:choose>
                        <xsl:when test="$Same_PE_Pos">
                            <xsl:attribute name="len" select="0"/>
                            <xsl:attribute name="debug" select="'going same'"/>
                            <xsl:message>...Calculating to Self as PE( $Next_PE_Pos_len=<xsl:value-of select="$Next_PE_Pos_len"/>) &lt;= $Prev_PE_Pos_len=<xsl:value-of select="$Prev_PE_Pos_len"/>  </xsl:message>
                            <xsl:attribute name="PE_ID_Join" select="$PE_candidates_dump/PE_candidates_dump/LINESTRING[@ID_Way=$ID_Way]/bp:Path_Point[number(@id_path)=number($Same_PE_Pos)]/@ID_Join"/>
                        </xsl:when>
                        <xsl:when test="not($Next_PE_Pos_len = '-1') and ($Prev_PE_Pos_len = '-1' or number($Next_PE_Pos_len) &lt;=  number($Prev_PE_Pos_len)) ">
                            <xsl:attribute name="debug" select="'going next'"/>
                            <xsl:attribute name="len" select="$Next_PE_Pos_len"/>
                            <xsl:attribute name="PE_ID_Join" select="$PE_candidates_dump/PE_candidates_dump/LINESTRING[@ID_Way=$ID_Way]/bp:Path_Point[number(@id_path)=number($Next_PE_Pos)]/@ID_Join"/>
                            <xsl:message>...Calculating to Next ( $Next_PE_Pos_len=<xsl:value-of select="$Next_PE_Pos_len"/>) &lt;= $Prev_PE_Pos_len=<xsl:value-of select="$Prev_PE_Pos_len"/>  </xsl:message>
                            <xsl:for-each select="$edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl/LineString[number(@id_path) &gt; number($id_path) and number(@id_path) &lt;= number($Next_PE_Pos)  ]">
                                <xsl:copy-of select="."/>
                            </xsl:for-each>
                        </xsl:when>
                        <xsl:otherwise>
                            <xsl:attribute name="len" select="$Prev_PE_Pos_len"/>
                            <xsl:attribute name="debug" select="'going prev'"/>
                            <xsl:attribute name="PE_ID_Join" select="$PE_candidates_dump/PE_candidates_dump/LINESTRING[@ID_Way=$ID_Way]/bp:Path_Point[number(@id_path)=number($Prev_PE_Pos)]/@ID_Join"/>
                            <xsl:message>...Calculating to Prev ( $Next_PE_Pos_len=<xsl:value-of select="$Next_PE_Pos_len"/>) &lt;= $Prev_PE_Pos_len=<xsl:value-of select="$Prev_PE_Pos_len"/>  </xsl:message>
                            <xsl:for-each select="$edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl/LineString[number(@id_path) &lt; number($id_path) and number(@id_path) &gt;= number($Prev_PE_Pos)  ]">
                                <xsl:sort select="number(@id_path)" order="descending"/>
                                <xsl:copy-of select="."/>
                            </xsl:for-each>
                        </xsl:otherwise>
                    </xsl:choose>
                    </Path_Point>
                </xsl:variable>
            <xsl:copy-of select="$Path_Point/Path_Point/@*"/>
            <!--<debug_To_LINESTRING>
                <xsl:copy-of select="$Path_Point"/>
            </debug_To_LINESTRING>-->
            <xsl:choose>
                <xsl:when test="$Path_Point/Path_Point/(bp:Path_Point|LineString)">
                    <xsl:call-template name="To_LINESTRING">
                        <xsl:with-param name="Path_Point" select="$Path_Point/Path_Point"/>
                    </xsl:call-template>
                </xsl:when>
                <xsl:otherwise>
                    <ERORR>pewnie sasiedzkei sciezki Neighbour do obsluzenia i ich nie znaleziono 
                        jest info w /edge_paths_with_PE_controll/Path[1]/PointMatrixGroupPE[1]/PointMatrixGroup[1]/odpalam_liczenie[1]/koniec_wariantow[1]/bp:Path_Point_Cable[3]
                    </ERORR>
                    <xsl:message>ERROR nie znaleziono sciezki - moze sasiedzkie ? TODO $ID_Way<xsl:value-of select="$ID_Way"/>;</xsl:message>
                    <!--<xsl:variable name=""/>-->
                </xsl:otherwise>
                
            </xsl:choose>
            
        </detect_next_PE>
    </xsl:template>
    
    
    
    
    
    
    
        <xsl:template name="To_LINESTRING">
            <xsl:param name="Path_Point" required="yes"/>
            <LINESTRING>
                <xsl:value-of select="'LINESTRING ('"/>
                <xsl:for-each select="$Path_Point/(bp:Path_Point|LineString)">
                    <xsl:value-of select="concat(@X,' ',@Y)"/>
                    <xsl:if test="position()!=last()"><xsl:value-of select="', '"/></xsl:if>
                </xsl:for-each>
                <xsl:value-of select="')'"/>
            </LINESTRING>
        </xsl:template>
    
    
        <xsl:template match="*"/>
    
    
</xsl:stylesheet>