working towards iris sync solution

Author: isc-hwojnick

cls/SourceControl/Git/Utils.cls

@@ -1577,6 +1577,7 @@ ClassMethod RunGitCommand(command As %String, Output errStream, Output outStream
 
 ClassMethod RunGitCommandWithInput(command As %String, inFile As %String = "", Output errStream, Output outStream, args...) As %Integer
 {
+    
     // Special case: git --version is used internally even when the settings incorporated here may be invalid/unspecified.
     if (command '= "--version") {
         set newArgs($increment(newArgs)) = "-C"
@@ -1604,16 +1605,34 @@ ClassMethod RunGitCommandWithInput(command As %String, inFile As %String = "", O
 
     set newArgs($increment(newArgs)) = command
 
+    
+
+    if (command = "checkout") || (command = "merge") || (command = "rebase") {
+        set syncIris = 1
+        set diffCompare = args(args)
+        set diffBase = ""
+    }
+    
+
     for i=1:1:$get(args) {
         if ($data(args(i))) {
             set newArgs($increment(newArgs)) = args(i)
+            if (args(i) = "checkout") || (args(i) = "merge") || (args(i) = "rebase") {
+                set syncIris = 1
+                set diffCompare = args(i + 1)
+                set diffBase = ""
+                if $LISTLENGTH(args) = (i + 2) {
+                    set diffBase = args(i + 2)
+                }
+            }
         }
     }
 
     set outLog = ##class(%Library.File).TempFilename()
     set errLog = ##class(%Library.File).TempFilename()
 
     set command = $extract(..GitBinPath(),2,*-1)
+    
     set baseArgs = "/STDOUT="_$$$QUOTE(outLog)_" /STDERR="_$$$QUOTE(errLog)_$case(inFile, "":"", :" /STDIN="_$$$QUOTE(inFile))
     try {
         // Inject instance manager directory as global git config home directory
@@ -1635,9 +1654,87 @@ ClassMethod RunGitCommandWithInput(command As %String, inFile As %String = "", O
     for stream=errStream,outStream {
         set stream.RemoveOnClose = 1
     }
+
+    if syncIris {
+        if diffBase = "" {
+            set diffBase = ..GetCurrentBranch()
+        }
+        do ..SyncIrisWithRepo(diffBase, diffCompare)
+    }
     quit returnCode
 }
 
+ClassMethod SyncIrisWithRepo(diffBase As %String, diffCompare As %String)
+{
+    do ##class(SourceControl.Git.Utils).RunGitCommandWithInput("diff",,.errStream,.outStream, diffBase_".."_diffCompare, "--name-status")
+    while (outStream.AtEnd = 0) {
+        set file = outStream.ReadLine()
+        set modification = ##class(SourceControl.Git.Modification).%New()
+        set modification.changeType = $piece(file, $c(9), 1)
+        set modification.externalName = $zstrip($piece(file, $c(9),2),"<W")
+        if (modification.changeType '= "A"){
+            set modification.internalName = ##class(SourceControl.Git.Utils).NameToInternalName(modification.externalName,,0)
+        }
+        else {
+            set modification.internalName = ""
+        }
+        set files($increment(files)) = modification
+        write !, ?4, modification.changeType, ?4, modification.internalName, ?4 , modification.externalName
+    }
+    if ('$data(files)) {
+        write !, ?4, "None"
+        if preview {
+            quit $$$OK
+        }
+        write !, "Already up to date."
+        quit $$$OK
+    } elseif preview {
+        quit $$$OK
+    }
+
+    set sc = ..RunGitWithArgs(.errStream, .outStream, "pull", remote, branchName)
+    if (sc=1){
+        do ..PrintStreams(errStream, outStream)
+        quit $$$ERROR(5001, "Pull event handler not called. Fix errors before compiling.")
+    }
+    do ..PrintStreams(outStream)
+    write !
+
+    set key = $order(files(""))
+    set deletedFiles = ""
+    set addedFiles = ""
+    while(key '= "") {
+        set modification = files(key)
+        if (modification.changeType = "D"){
+            if (modification.internalName '= "") {
+                set deletedFiles = deletedFiles_","_modification.internalName
+            }
+        } elseif (modification.changeType = "A"){
+            set modification.internalName = ##class(SourceControl.Git.Utils).NameToInternalName(modification.externalName,,0)
+            if (modification.internalName '= "") {
+                set addedFiles = addedFiles_","_modification.internalName
+                set files(key) = modification
+            }
+        }
+        set key = $order(files(key))
+    }
+
+    set deletedFiles = $extract(deletedFiles, 2, *)
+    set addedFiles = $extract(addedFiles, 2, *)
+    
+    if (deletedFiles '= ""){
+        set sc = ##class(SourceControl.Git.Utils).RemoveFromServerSideSourceControl(deletedFiles)
+    }
+    if (addedFiles '= ""){
+        set sc = ##class(SourceControl.Git.Utils).AddToServerSideSourceControl(addedFiles)
+    }
+
+    set event = $classmethod(..PullEventClass(),"%New")
+    set event.LocalRoot = ..TempFolder()
+    merge event.ModifiedFiles = files
+    quit event.OnPull()
+}
+
 ClassMethod GenerateCommitMessageFromFiles(filesWithActions) As %String
 {
     set commitMsg = ""