added branch property to the PullEventHandler class

Author: isc-hwojnick

cls/SourceControl/Git/PullEventHandler.cls

@@ -13,6 +13,9 @@ Property LocalRoot As %String(MAXLEN = "");
 /// Modified files (integer-subscripted array storing objects of class SourceControl.Git.Modification)
 Property ModifiedFiles [ MultiDimensional ];
 
+/// The branch that is checked out before OnPull() is called
+Property Branch [ InitialExpression = {##class(SourceControl.Git.Utils).GetCurrentBranch()} ];
+
 Method OnPull() As %Status [ Abstract ]
 {
 }

cls/SourceControl/Git/Utils.cls

@@ -344,6 +344,12 @@ ClassMethod Fetch(ByRef diffFiles) As %Status
     quit $$$OK
 }
 
+ClassMethod GetCurrentBranch() As %String{
+    do ##class(SourceControl.Git.Utils).RunGitCommandWithInput("branch",,.errStream,.outStream,"--show-current")
+    set branchName = outStream.ReadLine(outStream.Size)
+    quit branchName
+}
+
 ClassMethod Pull(remote As %String = "origin", preview As %Boolean = 0) As %Status
 {
     #define Force 1