Merge pull request #365 from intersystems/web-application-to-project

Support inclusion of web applications in Studio projects

Author: isc-tleavitt

src/%ZPM/PackageManager/Developer/Module.cls

@@ -1309,9 +1309,14 @@ Method GetStudioProject(Output pProject As %Studio.Project, pDeployedCode As %Bo
 				}
 			}
 
+			If $IsObject(tResource.Processor) {
+				Do tResource.Processor.OnGetStudioProject(pProject,.handled)
+				Continue:handled
+			}
+			
 			Kill tResourceArray
 			$$$ThrowOnError(tResource.ResolveChildren(.tResourceArray))
-			
+
 			Set tChildResourceKey = ""
 			For {
 				Set tChildResourceKey = $Order(tResourceArray(tChildResourceKey))
@@ -1542,3 +1547,4 @@ Storage Default
 }
 
 }
+

src/%ZPM/PackageManager/Developer/Processor/Abstract.cls

@@ -261,4 +261,9 @@ ClassMethod GetDescription(pClassName As %String) As %String [ SqlProc ]
 	Quit $Parameter(pClassName,"DESCRIPTION")
 }
 
+/// Subclasses may override to customize the studio project. (e.g., things that use web applications will do this.)
+Method OnGetStudioProject(pProject As %Studio.Project, Output pHandled As %Boolean = 0)
+{
+}
+
 }

src/%ZPM/PackageManager/Developer/Processor/CSPApplication.cls

@@ -428,4 +428,11 @@ Method OnItemRelativePath(pItemName As %String) As %String
 	Quit ..ResourceReference.Name_$Piece(pItemName,..Url,2)
 }
 
+Method OnGetStudioProject(pProject As %Studio.Project, Output pHandled As %Boolean = 0)
+{
+	// IMPORTANT: Remove leading *and* trailing slash.
+	do pProject.AddItem($Extract(..Url,2,*-1),"DIR")
+	set pHandled = 1
+}
+
 }