fix: add an Any datatype for compat. with earlier version of IRIS

isc-shuliu · isc-shuliu · commit 4e6c48a0b0c2 · 2025-01-14T23:06:18.000-05:00
diff --git a/src/cls/IPM/DataType/Any.cls b/src/cls/IPM/DataType/Any.cls
@@ -0,0 +1,5 @@
+/// This is eqivalent to the %Library.Any, which seems to be unavailable in earlier version of IRIS
+Class %IPM.DataType.Any [ ClassType = "", System = 1 ]
+{
+
+}
diff --git a/src/cls/IPM/General/InstallTimeConfig.cls b/src/cls/IPM/General/InstallTimeConfig.cls
@@ -31,7 +31,7 @@ Method Load(path As %String)
 }
 
 /// Get the specified argument for the specified package
-Method GetArg(package As %String, args... As %String) As %Any
+Method GetArg(package As %String, args... As %String) As %IPM.DataType.Any
 {
     Set obj = ..Config.%Get(package)
 
diff --git a/tests/unit_tests/Test/PM/Unit/MergeJSON.cls b/tests/unit_tests/Test/PM/Unit/MergeJSON.cls
@@ -85,12 +85,12 @@ Method TestMergeDynamicObjects()
     }
 }
 
-ClassMethod Equal(j1 As %Any, j2 As %Any) As %Boolean
+ClassMethod Equal(j1 As %IPM.DataType.Any, j2 As %IPM.DataType.Any) As %Boolean
 {
     Quit ..IsSubset(j1, j2) && ..IsSubset(j2, j1)
 }
 
-ClassMethod IsSubset(j1 As %Any, j2 As %Any) As %Boolean
+ClassMethod IsSubset(j1 As %IPM.DataType.Any, j2 As %IPM.DataType.Any) As %Boolean
 {
     If j1 = j2 {
         Return 1

-Original file line number
+Diff line change
@@ @@ -0,0 +1,5 @@ @@
 +/// This is eqivalent to the %Library.Any, which seems to be unavailable in earlier version of IRIS
 +Class %IPM.DataType.Any [ ClassType = "", System = 1 ]
 +{
++
 +}
Original file line number	Diff line number	Diff line change
`@@ -31,7 +31,7 @@ Method Load(path As %String)`
`31`	`31`	`}`
`32`	`32`
`33`	`33`	`/// Get the specified argument for the specified package`
`34`		`-Method GetArg(package As %String, args... As %String) As %Any`
	`34`	`+Method GetArg(package As %String, args... As %String) As %IPM.DataType.Any`
`35`	`35`	`{`
`36`	`36`	`Set obj = ..Config.%Get(package)`
`37`	`37`
Original file line number	Diff line number	Diff line change
`@@ -85,12 +85,12 @@ Method TestMergeDynamicObjects()`
`85`	`85`	`}`
`86`	`86`	`}`
`87`	`87`
`88`		`-ClassMethod Equal(j1 As %Any, j2 As %Any) As %Boolean`
	`88`	`+ClassMethod Equal(j1 As %IPM.DataType.Any, j2 As %IPM.DataType.Any) As %Boolean`
`89`	`89`	`{`
`90`	`90`	`Quit ..IsSubset(j1, j2) && ..IsSubset(j2, j1)`
`91`	`91`	`}`
`92`	`92`
`93`		`-ClassMethod IsSubset(j1 As %Any, j2 As %Any) As %Boolean`
	`93`	`+ClassMethod IsSubset(j1 As %IPM.DataType.Any, j2 As %IPM.DataType.Any) As %Boolean`
`94`	`94`	`{`
`95`	`95`	`If j1 = j2 {`
`96`	`96`	`Return 1`