zpm support

Author: daimor

module.xml

@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Document name="CacheBlocksExplorer.MODULE"><Module>
+ <Name>CacheBlocksExplorer</Name>
+  <Version>0.0.1</Version>
+  <Packaging>module</Packaging>
+  <LifecycleClass>Blocks.Lifecycle</LifecycleClass>
+</Module>
+</Document></Export>

preload/Blocks.Lifecycle.cls

@@ -0,0 +1,25 @@
+Class Blocks.Lifecycle Extends ZPM.PackageManager.Developer.Lifecycle.Module
+{
+
+Method %Activate() As %Status
+{
+  Set tSC = $$$OK
+	Try {
+		Set tSC = ##super(.pParams)
+		If $$$ISERR(tSC) {
+			Quit
+		}
+
+    Set tRootDirectory = $Get(pParams("RootDirectory")) _ "/server/"
+    Set tVerbose = $Get(pParams("Verbose"),0)
+    do ##class(%SYSTEM.OBJ).Load(tRootDirectory _ "src/DevInstaller.cls", "ck")
+		Write:tVerbose !,"Doing Blocks.DevInstaller.setup()"
+		do ##class(Blocks.DevInstaller).setupWithVars(tRootDirectory)
+		Write:tVerbose !,"Done."
+	} Catch e {
+		Set tSC = e.AsStatus()
+	}
+	Quit tSC
+}
+
+}