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"
    exclude-result-prefixes="xs"
    version="2.0">
    <xsl:output indent="yes"/>
    <xsl:strip-space elements="*"/>
    
    <xsl:include href="asText.xsl"/>
    
    <xsl:param name="edge_paths_with_PE.xml" select="'edge_paths_with_PE.xml'"/>
    <xsl:param name="joins_asText_xml.xml" select="'joins_asText_xml.xml'"/>
    <!--<xsl:param name="edge_joins_filled_paths.xml" select="'edge_joins_filled_paths.xml'"/>-->
    <xsl:param name="points2joins.xml" select="'points2joins.xml'"/>
    <xsl:param name="edge_joins_filled_paths" select="'edge_joins_filled_paths'"/>
    
    <xsl:variable name="PE_candidates_dump" select="doc($edge_paths_with_PE.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 select="item">
            <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: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  --> 
                        <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="@id"/></not_candidate>
                          </xsl:when>-->
                            <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="found_in_path_in_edge_joins_filled_path">
                                                <xsl:for-each select="$edge_joins_filled_paths_xml/edge_joins_filled_paths_xml/asText_XMl[@id=$ID_Way]/LineString">
                                                    <xsl:variable name="diff_X" select=" number($Join_X)- number(@X)"/><xsl:variable name="diff_Y" select=" number($Join_Y)- number(@Y)"/>
                                                    <xsl:variable name="bp:Path_Point" select="."/>
                                                        <xsl:choose>
                                                            <xsl:when test="(abs($diff_X)&lt;0.0001 and abs($diff_X)&lt;0.0001) or ( @X=$Join_X and @Y=$Join_Y )">
                                                                <found_in_path_in_edge_joins_filled_path>
                                                                    <xsl:variable name="Join_Y" select="$joins_asText_Path_Point/joins_asText_xml/item[@id=$Joins]/bp:Path_Point/@Y"/>
                                                                    <xsl:attribute name="diff_X" select="$diff_X"/><xsl:attribute name="diff_Y" select="$diff_Y"/>
                                                                    <xsl:attribute name="position" select="position()"/>
                                                                    <!-\-<bp:Path_Point_var><xsl:copy-of select="$bp:Path_Point"/></bp:Path_Point_var>-\->
                                                                    <xsl:copy-of select="."/>
                                                                    <xsl:call-template name="detect_next_PE">
                                                                        <xsl:with-param name="bp:Path_Point" select="$bp:Path_Point"/>
                                                                        <xsl:with-param name="ID_Way" select="$ID_Way"/>
                                                                        <xsl:with-param name="Pos_found" select="position()"/>
                                                                        <xsl:with-param name="edge_joins_filled_paths" select="$edge_joins_filled_paths_xml"/>
                                                                        <xsl:with-param name="ID_Point" select="$ID_Point"/>
                                                                    </xsl:call-template>
                                                                </found_in_path_in_edge_joins_filled_path>
                                                            </xsl:when>
                                                            <xsl:otherwise>
                                                                <not_found>
                                                                    <xsl:attribute name="Pos" select="position()"/>
                                                                    <xsl:attribute name="X" select="@X"/><xsl:attribute name="Y" select="@Y"/>
                                                                    <xsl:attribute name="srch_X" select="$Join_X"/><xsl:attribute name="srch_Y" select="$Join_Y"/>
                                                                    <xsl:attribute name="diff_X" select="$diff_X"/><xsl:attribute name="diff_Y" select="$diff_Y"/>
                                                                </not_found>
                                                            </xsl:otherwise>
                                                        </xsl:choose>
                                                </xsl:for-each>
                                            </xsl:variable>-->
                                            <!--<xsl:choose>
                                    <xsl:when test="$found_in_path_in_edge_joins_filled_path/found_in_path_in_edge_joins_filled_path">
                                        <xsl:for-each select="$found_in_path_in_edge_joins_filled_path/found_in_path_in_edge_joins_filled_path[1]">
                                            <xsl:sort select="count(detect_next_PE/bp:Path_Point)" order="descending"/>
                                            <debug>
                                                <xsl:attribute name="debug_pos" select="position()"/>
                                                <xsl:attribute name="Path_Point_count" select="count(detect_next_PE/bp:Path_Point)"/>
                                            </debug>
                                            <!-\-<found_in_path_in_edge_joins_filled_path>
                                                <xsl:attribute name="debug_pos" select="position()"/>
                                                <xsl:copy-of select="@*"/>
                                                <xsl:call-template name="detect_next_PE">
                                                    <xsl:with-param name="bp:Path_Point" select="bp:Path_Point_var"/>
                                                    <xsl:with-param name="ID_Way" select="$ID_Way"/>
                                                    <xsl:with-param name="Pos_found" select="@position"/>
                                                    <xsl:with-param name="edge_joins_filled_paths" select="$edge_joins_filled_paths"/>
                                                    <xsl:with-param name="ID_Point" select="$ID_Point"/>
                                                </xsl:call-template>
                                            </found_in_path_in_edge_joins_filled_path>-\->
                                            <xsl:copy-of select="."/>
                                        </xsl:for-each>
                                        <xsl:copy-of select="$found_in_path_in_edge_joins_filled_path/not_found"/>
                                    </xsl:when>
                                    <xsl:otherwise>
                                        <xsl:copy-of select="$found_in_path_in_edge_joins_filled_path"/>
                                    </xsl:otherwise>
                                </xsl:choose>-->
                                <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>
        </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)]/@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)]/@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)]/@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 $Next_PE_Pos_len &lt;= $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</xsl:message>
                </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>