Add "Sync" command

CHANGELOG.md

@@ -9,6 +9,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Added
 - #1178: Add `-password-env` and `-token-env` modifiers to the `repo` command to read the password/token from a named environment variable (secure alternatives to `-password` and `-token`).
+- #1117: Add `sync` command for incremental loading of changed files in dev-mode modules. Detects modified files since last sync using SHA-1 hash and recompiles only what is stale. Supports `-delete` for processing removed files and `-test` for running changed test-phase unit tests.
 
 ### Changed
 - #1186: Change %IPM.Main:ShellScript() to return a status.

src/cls/IPM/DataType/PhaseName.cls

@@ -10,6 +10,6 @@ Parameter MAXLEN As INTEGER = 50;
 /// If a non-null value is present, then the attribute is restricted to values
 /// in the list, and the validation code simply checks to see if the value is in the list.
 /// Should be kept in sync with %IPM.Lifecycle.Base.Phases
-Parameter VALUELIST = ",Clean,Initialize,Reload,*,Validate,ExportData,Compile,Activate,Document,MakeDeployed,Test,Package,Verify,Publish,Configure,Unconfigure,ApplyUpdateSteps";
+Parameter VALUELIST = ",Clean,Initialize,Reload,*,Validate,ExportData,Compile,Activate,Document,MakeDeployed,Test,Package,Verify,Publish,Configure,Unconfigure,ApplyUpdateSteps,Sync";
 
 }

src/cls/IPM/General/Sync/Output.cls

@@ -0,0 +1,79 @@
+/// Sync output that always writes to the current device, regardless of whether a whole-namespace
+/// sync (`sync` with no module named) is in progress. Contrast %IPM.General.Sync.Summary, whose
+/// recorders are gated on such a run being active.
+Class %IPM.General.Sync.Output [ Abstract ]
+{
+
+/// Write a module-scoped status line: "[moduleName] text". Single place for the bracketed
+/// per-module prefix so the many status writes in the pipeline stay consistent.
+ClassMethod Log(moduleName As %String, text As %String) [ Internal ]
+{
+    write !, "[", moduleName, "] ", text
+}
+
+/// Count the top-level subscripts of an array. Used for the verbose "N file(s)"/"N path(s)"
+/// status lines, which report only top-level keys and ignore any child nodes.
+ClassMethod CountNodes(ByRef array) As %Integer [ Internal ]
+{
+    set count = 0
+    set key = ""
+    for {
+        set key = $order(array(key))
+        quit:key=""
+        set count = count + 1
+    }
+    quit count
+}
+
+/// Shared closing output for both pipeline exit paths (nothing-to-sync and full sync): the
+/// module.xml reload warning, the unsupported-resource note, and the total-elapsed line. Kept in
+/// one place so the two branches can't drift apart.
+ClassMethod PrintTail(
+    moduleName As %String,
+    verbose As %Boolean,
+    moduleXmlChanged As %Boolean,
+    syncStart As %Numeric,
+    ByRef unsupportedResources) [ Internal ]
+{
+    if moduleXmlChanged {
+        do ..PrintModuleXmlWarning(moduleName)
+    }
+    if $data(unsupportedResources) {
+        do ..PrintUnsupportedNote(moduleName, verbose, .unsupportedResources)
+    }
+    do ..Log(moduleName, "Sync done in "_$fnumber($zhorolog - syncStart, "", 2)_"s")
+}
+
+ClassMethod PrintModuleXmlWarning(moduleName As %String) [ Internal ]
+{
+    write !
+    write !, "Warning: module.xml changed and was reloaded."
+    write !, "  Resources may have been added/removed. Run `reload ", moduleName, "` to fully apply"
+    write !, "  manifest-level changes (mappings, dependencies, defaults)."
+    do ##class(%IPM.General.Sync.Summary).AddWarning(moduleName, "module.xml changed and was reloaded; run `reload " _ moduleName _ "` to fully apply.")
+}
+
+ClassMethod PrintUnsupportedNote(moduleName As %String, verbose As %Boolean, ByRef unsupportedResources) [ Internal ]
+{
+    set count = 0
+    set names = ""
+    set resName = ""
+    for {
+        set resName = $order(unsupportedResources(resName))
+        quit:resName=""
+        set count = count + 1
+        if count <= 3 {
+            set names = names _ $select(names="":"", 1:", ") _ resName
+        }
+    }
+    if count > 3 {
+        set names = names _ ", ... (" _ (count - 3) _ " more)"
+    }
+    if verbose {
+        do ..Log(moduleName, count_" resource(s) skipped (no sync support): "_names)
+        write !, "  Use `reload ", moduleName, "` to apply changes to those resources."
+    }
+    do ##class(%IPM.General.Sync.Summary).AddWarning(moduleName, count _ " resource(s) skipped (no sync support): " _ names _ ".")
+}
+
+}