reorganized project structure

added docker-compose configuration for development
xml converted to udl

Author: daimor

.dockerignore

@@ -0,0 +1,5 @@
+**/.*
+node_modules
+build
+*.log
+*.md

.editorconfig

@@ -0,0 +1,19 @@
+# http://editorconfig.org
+
+root = true
+
+[*]
+charset = utf-8
+indent_style = space
+indent_size = 2
+insert_final_newline = true
+trim_trailing_whitespace = true
+
+[*.cls]
+indent_size = 2
+indent_style = space
+insert_final_newline = false
+
+[*.md]
+insert_final_newline = false
+trim_trailing_whitespace = false

.gitignore

@@ -1,5 +1,5 @@
-/node_modules/
-/dist/
+node_modules
+dist
 /temp/
+build
 .vscode
-cache.key

.travis.yml

@@ -0,0 +1,4 @@
+.git
+.gitignore
+.DS_Store
+.dockerignore

Blocks/BlocksInstaller.cls.xml

@@ -0,0 +1,19 @@
+ARG CACHE_VERSION=2017.2
+FROM daimor/intersystems-cache:${CACHE_VERSION}
+
+WORKDIR /opt/blocks
+
+COPY ./src/ ./src
+
+ARG CACHE_KEY=
+RUN echo -e "${CACHE_KEY}" > /opt/cache/mgr/cache.key
+
+RUN ccontrol start $ISC_PACKAGE_INSTANCENAME quietly \
+ && echo -e "" \
+ "do ##class(%SYSTEM.OBJ).Load(\"/opt/blocks/src/DevInstaller.cls\",\"cdk\")\n" \
+ "set sc=##class(Blocks.DevInstaller).setupWithVars(\"/opt/blocks/\")\n" \
+ "do:'sc \$zu(4,\$j,1)\n" \
+ "halt\n" \
+ | csession $ISC_PACKAGE_INSTANCENAME -UUSER \
+# Stop Caché instance
+ && ccontrol stop $ISC_PACKAGE_INSTANCENAME quietly

BlocksExplorer.prj.xml

@@ -0,0 +1,51 @@
+Class Blocks.BlocksInstaller Extends %Projection.AbstractProjection
+{
+
+Projection Reference As BlocksInstaller;
+
+Parameter CSPAPP As %String = "/blocks";
+
+Parameter CSPAPPDESCRIPTION As %String = "A WEB application for Cache Blocks Explorer.";
+
+Parameter ROUTER As %String = "Blocks.Router";
+
+/// This method is invoked when a class is compiled.
+ClassMethod CreateProjection(cls As %String, ByRef params) As %Status
+{
+    set ns=$namespace
+    new $namespace
+    znspace "%SYS"
+    
+    if ('##class(Security.Applications).Exists(..#CSPAPP)) {
+        do ##class(Security.System).GetInstallationSecuritySetting(.security)
+        set cspProperties("AutheEnabled") = $select((security="None"):64,1:32)
+        set cspProperties("NameSpace") = ns
+        set cspProperties("Description") = ..#CSPAPPDESCRIPTION
+        set cspProperties("DispatchClass") = ..#ROUTER
+        write !, "Creating WEB application """_..#CSPAPP_"""..."
+        $$$ThrowOnError(##class(Security.Applications).Create(..#CSPAPP, .cspProperties))
+        write !, "WEB application """_..#CSPAPP_""" created."
+        if ##class(%Studio.General).GetWebServerPort(,,,.url) {
+            write !, "You can now open it with a link: "_url_$p(..#CSPAPP,"/",2,*)_"/"
+        }
+    } else {
+        write !, "WEB application """_..#CSPAPP_""" already exists, so it is ready to use."
+    }
+    Quit $$$OK
+}
+
+/// This method is invoked when a class is 'uncompiled'.
+ClassMethod RemoveProjection(cls As %String, ByRef params, recompile As %Boolean) As %Status
+{
+    new $namespace
+    znspace "%SYS"
+
+    if (##class(Security.Applications).Exists(..#CSPAPP)) {
+        w !, "Deleting WEB application """_..#CSPAPP_"""..."
+        do ##class(Security.Applications).Delete(..#CSPAPP)
+        w !, "WEB application """_..#CSPAPP_""" was successfully removed."
+    }
+    QUIT $$$OK
+}
+
+}