objectionary#3728 implement the addition of original names to objects

eo-maven-plugin/src/main/java/org/eolang/maven/TrShaking.java

@@ -42,7 +42,8 @@ final class TrShaking extends TrEnvelope {
                 new TrClasspath<>(
                     "/org/eolang/maven/shake/cti-adds-errors.xsl",
                     "/org/eolang/maven/shake/add-probes.xsl",
-                    "/org/eolang/maven/shake/set-locators.xsl"
+                    "/org/eolang/maven/shake/set-locators.xsl",
+                    "/org/eolang/maven/shake/set-original-names.xsl"
                 ).back()
             )
         );

eo-maven-plugin/src/main/resources/org/eolang/maven/shake/set-original-names.xsl

@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+The MIT License (MIT)
+
+Copyright (c) 2016-2025 Objectionary.com
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+-->
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:eo="https://www.eolang.org" xmlns:xs="http://www.w3.org/2001/XMLSchema" id="set-original-names" version="2.0">
+  <!--
+  Here we go through all objects and add @original-name attributes
+  to all of them. The value of the attribute is a FQN
+  of the object.
+  -->
+  <xsl:output encoding="UTF-8" method="xml"/>
+  <xsl:function name="eo:original-name" as="xs:string">
+    <xsl:param name="program" as="node()"/>
+    <xsl:param name="o" as="node()"/>
+    <xsl:if test="name($o) != 'o'">
+      <xsl:message terminate="yes">
+        <xsl:text>Only 'o' XML elements are accepted here</xsl:text>
+      </xsl:message>
+    </xsl:if>
+    <xsl:variable name="ret">
+      <xsl:choose>
+        <xsl:when test="$o/parent::o">
+          <xsl:value-of select="eo:original-name($program, $o/parent::o)"/>
+          <xsl:text>.</xsl:text>
+        </xsl:when>
+      </xsl:choose>
+      <xsl:choose>
+        <xsl:when test="$o/@name">
+          <xsl:choose>
+            <xsl:when test="$o/@name = '@'">
+              <xsl:text>φ</xsl:text>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:value-of select="$o/@name"/>
+            </xsl:otherwise>
+          </xsl:choose>
+        </xsl:when>
+        <xsl:otherwise>
+          <xsl:choose>
+            <xsl:when test="starts-with($o/parent::o/@base, '.') and not($o/preceding-sibling::o)">
+              <xsl:text>ρ</xsl:text>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:text>α</xsl:text>
+              <xsl:value-of select="count($o/preceding-sibling::o) - count($o/parent::o[starts-with(@base, '.')])"/>
+            </xsl:otherwise>
+          </xsl:choose>
+        </xsl:otherwise>
+      </xsl:choose>
+    </xsl:variable>
+    <xsl:value-of select="$ret"/>
+  </xsl:function>
+  <xsl:template match="o">
+    <xsl:copy>
+      <xsl:attribute name="original-name" select="eo:original-name(/program, .)"/>        
+      <xsl:apply-templates select="node()|@* except @original-name"/>
+    </xsl:copy>
+  </xsl:template>
+  <xsl:template match="node()|@*">
+    <xsl:copy>
+      <xsl:apply-templates select="node()|@*"/>
+    </xsl:copy>
+  </xsl:template>
+</xsl:stylesheet>