Merge pull request #2 from isc-shuliu/master

Make zapm compatible with both older and newer version of ZPM

module.xml

@@ -18,7 +18,7 @@
   <Resource Name="%ZAPM.ZpmLoad.GBL" />
   <UnitTest Name="/unitest/zapm/" Package="ZAPM.unutest.zapm" Phase="verify"/>
   <Invokes>
-   <Invoke Class="%ZAPM.ext.zapp" Method="init"></Invoke>
+   <Invoke Class="%ZAPM.compat.Compat" Method="CheckCompatibility" Phase="Reload" When="After" />
   </Invokes>
 </Module>
 </Document>

preload/cls/_ZAPM/compat/Compat.cls

@@ -0,0 +1,37 @@
+Class %ZAPM.compat.Compat
+{
+/// Will be invoked after Reload and before Compile
+ClassMethod CheckCompatibility()
+{
+    Write !, $c(9)_"Checking namespace compatibility..."
+    If $Namespace '= "%SYS" {
+        Throw ..GetError("This application must be installed in the ""%SYS"" namespace")
+    }
+    Write " OK!"
+    // Some classes have been renamed in IPM (v0.9+). 
+    // The following code will change the class definition to the old class name for backward compatibility
+    Write !, $c(9)_"Checking package manager version compatibility..."
+    Set oldClass = "%ZPM.PackageManager.Developer.Lifecycle.Module"
+    Set newClass = "%IPM.Lifecycle.Module"
+    If ##class(%Dictionary.ClassDefinition).%ExistsId(newClass) {
+       Return
+    } ElseIf '##class(%Dictionary.ClassDefinition).%ExistsId(oldClass) {
+        Throw ..GetError("Neither "_oldClass_" nor "_newClass_" exists. Please check your installation of zpm/ipm")
+    }
+    Set classname = "%ZAPM.ext.Lifecycle"
+    Set cls = ##class(%Dictionary.ClassDefinition).%OpenId(classname)
+    If '$IsObject(cls) {
+        Throw ..GetError("Class "_ classname _" does not exist. Please check your src folder")
+    }
+    Set cls.Super = oldClass
+    $$$ThrowOnError(cls.%Save())
+    Write " OK!"
+}
+
+ClassMethod GetError(msg As %String) As %Exception.General [ Internal, Private ]
+{
+    Write !, "ERROR: ", msg, !
+    Return ##class(%Exception.General).%New(msg)
+}
+
+}

src/cls/%ZAPM/ext/Lifecycle.cls

@@ -1,4 +1,4 @@
-Class %ZAPM.ext.Lifecycle Extends %ZPM.PackageManager.Developer.Lifecycle.Module
+Class %ZAPM.ext.Lifecycle Extends %IPM.Lifecycle.Module
 {
 
 ClassMethod RunOnLoad() [ CodeMode = objectgenerator ]