feat: implement 'locate-resource' command for resource-to-module mapping

CHANGELOG.md

@@ -9,6 +9,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Added
 - #1024: Added flag -export-python-deps to publish command
+- #1081: implement locate command for resource-to-module mapping
 
 ### Fixed
 - #996: Ensure COS commands execute in exec under a dedicated, isolated context

src/cls/IPM/Main.cls

@@ -791,6 +791,13 @@ generate /my/path -export 00000,PacketName2,IgnorePacket2^00000,PacketName3,Igno
 	<example description="Show details of history item with ID 3 and information for each undergone lifecyle phase">history details 3 -phases</example>
 </command>
 
+<command name="locate" aliases="loc">
+    <description>Find the module that owns a specific resource.</description>
+    <parameter name="resource" description="resource: The full name of the resource (e.g., My.Class.cls, Utils.inc)." />
+    <example description="Finds the module containing the specified class.">locate %IPM.Main.cls</example>
+    <example description="Finds the module containing the specified include file.">loc %IPM.Common.inc</example>
+</command>
+
 </commands>
 }
 
@@ -1033,6 +1040,8 @@ ClassMethod ShellInternal(
                 do ..Information(.tCommandInfo)
 			} elseif (tCommandInfo = "history") {
 				do ..History(.tCommandInfo)
+            } elseif (tCommandInfo = "locate") {
+				do ..Locate(.tCommandInfo)
             }
         } catch pException {
             if (pException.Code = $$$ERCTRLC) {
@@ -4051,6 +4060,23 @@ ClassMethod Update(ByRef pCommandInfo)
     }
 }
 
+ClassMethod Locate(ByRef CommandInfo)
+{
+    set resource = $get(CommandInfo("parameters","resource"))
+    if resource="" {
+        $$$ThrowOnError($$$ERROR($$$GeneralError,"Resource name is required."))
+    }
+    set moduleName = ##class(%IPM.ExtensionBase.Utils).GetHomeModuleName(resource)
+    if (moduleName="") {
+        write $$$FormattedLine($$$Red, "Resource '"_ resource_"' is not currently mapped to an installed module.")
+        quit
+    }
+    set showFields = ""
+    write !
+    do ..GetListModules(,moduleName, .list)
+    do ..DisplayModules(.list,,,, .tModifiers)
+}
+
 ClassMethod GetPythonInstalledLibs(Output list)
 {
 	set target = ##class(%File).NormalizeDirectory("python", $system.Util.ManagerDirectory())

tests/unit_tests/Test/PM/Unit/CLI.cls

@@ -329,4 +329,23 @@ Method TestUninstallWithoutModuleName()
     do $$$AssertNotTrue(exists, "Module removed successfully.")
 }
 
+Method TestLocateCommand()
+{
+    do $$$LogMessage("Testing 'loc' alias with .inc resource")
+    set status = ..RunCommand("loc %IPM.Common.inc")
+    do $$$AssertStatusOK(status, "Alias 'loc' executed successfully")
+
+    do $$$LogMessage("Testing 'locate' command with .cls resource")
+    set status = ..RunCommand("locate %IPM.Main.cls")
+    do $$$AssertStatusOK(status, "Command 'locate' executed successfully")
+
+    do $$$LogMessage("Testing locate with non-existing resource")
+    set status = ..RunCommand("locate Test.Sample.inc")
+    do $$$AssertStatusOK(status, "Gracefully handled non-existing resource")
+
+    do $$$LogMessage("Testing locate without required argument")
+    set status = ..RunCommand("locate")
+    do $$$AssertStatusNotOK(status, "Handled missing argument")
+}
+
 }