From 2e75782f6563f7e005148c0869a9fe2e3b3f61f7 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Tue, 21 Jan 2025 23:03:21 -0500
Subject: [PATCH 01/16] feat: add command to update module version

---
 src/cls/IPM/General/SemanticVersion.cls | 62 ++++++++++++++++++
 src/cls/IPM/Main.cls                    | 83 +++++++++++++++++++++++++
 2 files changed, 145 insertions(+)

diff --git a/src/cls/IPM/General/SemanticVersion.cls b/src/cls/IPM/General/SemanticVersion.cls
index 19e13282..9fc4676c 100644
--- a/src/cls/IPM/General/SemanticVersion.cls
+++ b/src/cls/IPM/General/SemanticVersion.cls
@@ -206,6 +206,68 @@ Method Satisfies(pExpression As %IPM.General.SemanticVersionExpression) As %Bool
 	Quit pExpression.IsSatisfiedBy($this)
 }
 
+Method WithBumpMajor() As %IPM.General.SemanticVersion
+{
+	Set tVer = ..%New()
+	Set tVer.Major = ..Major + 1
+	Set tVer.Minor = 0
+	Set tVer.Patch = 0
+	Set tVer.Prerelease = ""
+	Set tVer.Build = ""
+	Quit tVer
+}
+
+Method WithBumpMinor() As %IPM.General.SemanticVersion
+{
+	Set tVer = ..%New()
+	Set tVer.Major = ..Major
+	Set tVer.Minor = ..Minor + 1
+	Set tVer.Patch = 0
+	Set tVer.Prerelease = ""
+	Set tVer.Build = ""
+	Quit tVer
+}
+
+Method WithBumpPatch() As %IPM.General.SemanticVersion
+{
+	Set tVer = ..%New()
+	Set tVer.Major = ..Major
+	Set tVer.Minor = ..Minor
+	Set tVer.Patch = ..Patch + 1
+	Set tVer.Prerelease = ""
+	Set tVer.Build = ""
+	Quit tVer
+}
+
+Method WithPrerelease(pPrerelease As %String) As %IPM.General.SemanticVersion
+{
+	Set tVer = ..%New()
+	Set tVer.Major = ..Major
+	Set tVer.Minor = ..Minor
+	Set tVer.Patch = ..Patch
+	Set tVer.Prerelease = pPrerelease
+	Set tVer.Build = ..Build
+	Quit tVer
+}
+
+Method WithBuild(pBuild As %String) As %IPM.General.SemanticVersion
+{
+	Set tVer = ..%New()
+	Set tVer.Major = ..Major
+	Set tVer.Minor = ..Minor
+	Set tVer.Patch = ..Patch
+	Set tVer.Prerelease = ..Prerelease
+	Set tVer.Build = pBuild
+	Quit tVer
+}
+
+Method IsLowerThan(pVersion As %IPM.General.SemanticVersion) As %Boolean
+{
+	Quit (..Major < pVersion.Major) || 
+		((..Major = pVersion.Major) && (..Minor < pVersion.Minor)) || 
+		((..Major = pVersion.Major) && (..Minor = pVersion.Minor) && (..Patch < pVersion.Patch))
+}
+
 Storage Default
 {
 <Data name="SemanticVersionState">
diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index 23f98bde..40ef2365 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -714,6 +714,32 @@ generate /my/path -export 00000,PacketName2,IgnorePacket2^00000,PacketName3,Igno
 	</example>
 </command>
 
+<command name="module-version" aliases="modver">
+	<description>
+		Updates the version of the module in the current namespace.
+	</description>
+	<parameter name="module" description="Name of the module to update the version for." />
+	<parameter name="version" description="Either a valid SemVer string, or 'major', 'minor', 'patch'. If it's 'major', 'minor', or 'patch', will bump the cooresponding part of SemVer." />
+
+	<modifier name="prerelease" value="true" aliases="p" description="Set the prerelease to a specific value" />
+	<modifier name="build" value="true" aliases="b" description="Set the build to a specific value" />
+	<modifier name="permit-downgrade" description="Permit the version to be downgraded. By default, trying to downgrade the version will fail" />
+	<modifier name="quiet" aliases="q" description="Suppress output (except for errors)" />
+
+	<example description="Sets the version of the module HS.JSON to 1.2.3">
+		module-version HS.JSON 1.2.3
+	</example>
+	<example description="Bump the major version the module HS.JSON. If current version is 1.2.3, the new version will be 2.0.0">
+		module-version HS.JSON major
+	</example>
+	<example description="Bump the minor version and set prerelease to 'alpha' and build to 'xyz'. If current version is 1.2.3, the new version will be 1.3.0-alpha+xyz">
+		module-version HS.JSON minor -prerelease alpha -build xyz
+	</example>
+	<example description="Downgrade the version to 1.2.3. If the current version is 1.3.0, this will still work because the permit-downgrade flag is set.">
+		module-version HS.JSON 1.2.3 -permit-downgrade
+	</example>
+</command>
+
 </commands>
 }
 
@@ -890,6 +916,8 @@ ClassMethod ShellInternal(pCommand As %String, Output pException As %Exception.A
 				Do ..EnableIPM(.tCommandInfo)
 			} ElseIf (tCommandInfo = "unmap") {
 				Do ..UnmapIPM(.tCommandInfo)
+			} ElseIf (tCommandInfo = "module-version") {
+				Do ..ModuleVersion(.tCommandInfo)
 			}
 		} Catch pException {
 			If (pException.Code = $$$ERCTRLC) {
@@ -3258,6 +3286,61 @@ ClassMethod UnmapIPM(ByRef pCommandInfo)
 	}
 }
 
+ClassMethod ModuleVersion(ByRef pCommandInfo)
+{
+	Set modName = $Get(pCommandInfo("parameters","module"))
+	Set quiet = $$$HasModifier(pCommandInfo,"quiet")
+	Set permitDowngrade = $$$HasModifier(pCommandInfo,"permit-downgrade")
+	If (modName = "") {
+		$$$ThrowOnError($$$ERROR($$$GeneralError,"No module name specified."))
+	}
+	Set mod = ##class(%IPM.Storage.Module).NameOpen(modName,.sc)
+	If mod = "" {
+		$$$ThrowOnError($$$ERROR($$$GeneralError,"Module "_modName_" not found."))
+	}
+	$$$ThrowOnError(sc)
+	If 'quiet {
+		Write !,$$$FormatText("Current version of module %1: %2", modName, mod.VersionString)
+	}
+
+	// Compute the new semver
+	Set versionString = $Get(pCommandInfo("parameters","version"))
+	If versionString = "major" {
+		Set semver = mod.Version.WithBumpMajor()
+	} ElseIf versionString = "minor" {
+		Set semver = mod.Version.WithBumpMinor()
+	} ElseIf versionString = "patch" {
+		Set semver = mod.Version.WithBumpPatch()
+	} Else {
+		Set semver = ##class(%IPM.General.SemanticVersion).FromString(versionString)
+	}
+
+	// Validate the semver
+	If 'semver.%ValidateObject() {
+		$$$ThrowOnError($$$ERROR($$$GeneralError,"Invalid version string: "_versionString))
+	}
+
+	If $$$HasModifier(pCommandInfo,"prerelease") {
+		Set semver = semver.WithPrerelease($$$GetModifier(pCommandInfo,"prerelease"))
+	}
+	If $$$HasModifier(pCommandInfo,"build") {
+		Set semver = semver.WithBuild($$$GetModifier(pCommandInfo,"build"))
+	}
+
+	If 'quiet {
+		Write !,$$$FormatText("Setting version of module %1 to %2", modName, semver.ToString())
+	}
+
+	// Ensure semver is not lower than the current version, unless permit-downgrade is set
+	If ('permitDowngrade) && (semver.IsLowerThan(mod.Version)) {
+		$$$ThrowOnError($$$ERROR($$$GeneralError,"Cannot set version to "_semver.ToString()_" as it is lower than the current version "_mod.VersionString))
+	}
+
+	Set mod.Version = semver
+	Set mod.VersionString = semver.ToString()
+	$$$ThrowOnError(mod.%Save())
+}
+
 /// Get the mapping relationship for %IPM package. Format: 
 /// <ul>
 /// <li>pIsMappedFrom(destinationNamespace) = sourceNamespace</li>

From f2248cb27e54ab7ffe3dfa4314061b8017d550db Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Tue, 21 Jan 2025 23:06:18 -0500
Subject: [PATCH 02/16] chore: update changelog

---
 CHANGELOG.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index caba85d7..ff4b5632 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -15,6 +15,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - #609 Added support for `-export-deps` when running the "Package" phase of lifecycle
 - #541 Added support for ORAS repository
 - #704 Added support for passing in env files via `-env /path/to/env1.json;/path/to/env2.json` syntax
+- #710 Added support for `module-version` command which updates the version of a module
 
 ### Changed
 - 

From 3d0d2762f01f726aade28c5752de473693be8e8d Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 00:06:55 -0500
Subject: [PATCH 03/16] feat: update module stream when bumping version

---
 src/cls/IPM/Main.cls                        | 22 +++++++++++++++----
 src/cls/IPM/StudioDocument/ModuleStream.cls | 24 +++++++++++++++++++++
 2 files changed, 42 insertions(+), 4 deletions(-)

diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index 40ef2365..39d418b5 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -3298,7 +3298,10 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 	If mod = "" {
 		$$$ThrowOnError($$$ERROR($$$GeneralError,"Module "_modName_" not found."))
 	}
-	$$$ThrowOnError(sc)
+	Set stream = ##class(%IPM.StudioDocument.ModuleStream).NameOpen(modName)
+	If stream = "" {
+		$$$ThrowOnError($$$ERROR($$$GeneralError,"Module stream "_modName_" not found."))
+	}
 	If 'quiet {
 		Write !,$$$FormatText("Current version of module %1: %2", modName, mod.VersionString)
 	}
@@ -3336,9 +3339,20 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 		$$$ThrowOnError($$$ERROR($$$GeneralError,"Cannot set version to "_semver.ToString()_" as it is lower than the current version "_mod.VersionString))
 	}
 
-	Set mod.Version = semver
-	Set mod.VersionString = semver.ToString()
-	$$$ThrowOnError(mod.%Save())
+	Set initTLevel = $TLevel
+	TSTART
+	Try {
+		Set mod.Version = semver
+		Set mod.VersionString = semver.ToString()
+		$$$ThrowOnError(mod.%Save())
+		Do stream.UpdateVersion(semver)
+		TCOMMIT
+	} Catch ex {
+		While ($TLevel > initTLevel) {
+			TROLLBACK 1
+		}
+		Throw ex
+	}
 }
 
 /// Get the mapping relationship for %IPM package. Format: 
diff --git a/src/cls/IPM/StudioDocument/ModuleStream.cls b/src/cls/IPM/StudioDocument/ModuleStream.cls
index bf4f3ae1..3abdc07a 100644
--- a/src/cls/IPM/StudioDocument/ModuleStream.cls
+++ b/src/cls/IPM/StudioDocument/ModuleStream.cls
@@ -3,6 +3,30 @@ Class %IPM.StudioDocument.ModuleStream Extends %IPM.StudioDocument.AbstractStrea
 
 Parameter DEFAULTGLOBAL = "^IPM.StudioDoc.ModuleStream";
 
+Method UpdateVersion(semver As %IPM.General.SemanticVersion)
+{
+	Set regex = "<Version>(.*?)</Version>"
+	Set content = ""
+	Do ..Contents.Rewind()
+	While '..Contents.AtEnd {
+		Set content = content _ ..Contents.Read()
+	}
+	Set start = $LOCATE(content, regex, 0, end, val)
+	If start {
+		Set content = $EXTRACT(content, 1, start - 1) 
+			_ "<Version>" _ semver.ToString() _ "</Version>" 
+			_ $EXTRACT(content, end, *)
+	} Else {
+		$$$ThrowStatus($$$ERROR($$$GeneralError, "Version tag not found in: "_content))
+	}
+
+	Do ..Contents.Clear()
+	Do ..Contents.Rewind()
+	Do ..Contents.Write(content)
+
+	$$$ThrowOnError(..%Save())
+}
+
 Storage Default
 {
 <Data name="ModuleStreamDefaultData">

From 640019a8be546586b3b6ebdce5a63d38f0b6811d Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 00:25:42 -0500
Subject: [PATCH 04/16] test: add integration test for `module-version` command

---
 .../Test/PM/Integration/ModuleVersoin.cls     | 26 +++++++++++++++++++
 .../_data/module-version/module.xml           | 11 ++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls
 create mode 100644 tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml

diff --git a/tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls b/tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls
new file mode 100644
index 00000000..d6266219
--- /dev/null
+++ b/tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls
@@ -0,0 +1,26 @@
+Class Test.PM.Integration.ModuleVersoin Extends Test.PM.Integration.Base
+{
+
+Method TestModuleVersion()
+{
+    // TODO parameterize the test
+
+    Set modDir = ..GetModuleDir("module-version")
+    Set sc = ##class(%IPM.Main).Shell("load " _ modDir)
+    Do $$$AssertStatusOK(sc, "Loaded module successfully")
+
+    Set sc = ##class(%IPM.Main).Shell("modver mv major -prerelease alpha")
+    Do $$$AssertStatusOK(sc, "Module version executed successfully")
+
+    Set mod = ##class(%IPM.Storage.Module).NameOpen("mv")
+    Do mod.%Reload()
+    Do $$$AssertEquals(mod.VersionString, "1.0.0-alpha")
+    Do $$$AssertEquals(mod.Version.ToString(), "1.0.0-alpha")
+
+    Set stream = ##class(%IPM.StudioDocument.ModuleStream).NameOpen("mv")
+    Set content = stream.Contents.Read()
+    Do $$$AssertTrue(content [ "<Version>1.0.0-alpha</Version>")
+    Do $$$AssertNotTrue(content [ "<Version>0.0.1-snapshot+build</Version>")
+}
+
+}
diff --git a/tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml b/tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml
new file mode 100644
index 00000000..80a3a862
--- /dev/null
+++ b/tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+  <Document name="mv.ZPM">
+    <Module>
+      <Name>mv</Name>
+      <Version>0.0.1-snapshot+build</Version>
+      <Packaging>module</Packaging>
+      <SystemRequirements/>
+    </Module>
+  </Document>
+</Export>

From 661bd39a302748d086b9ff406b30baa0d0a51236 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 00:51:59 -0500
Subject: [PATCH 05/16] feat: allow empty version string

---
 src/cls/IPM/Main.cls | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index 39d418b5..4e7c2ee2 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -3303,7 +3303,7 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 		$$$ThrowOnError($$$ERROR($$$GeneralError,"Module stream "_modName_" not found."))
 	}
 	If 'quiet {
-		Write !,$$$FormatText("Current version of module %1: %2", modName, mod.VersionString)
+		Write !,$$$FormatText("Current version of module %1 is: %2", modName, mod.VersionString)
 	}
 
 	// Compute the new semver
@@ -3314,6 +3314,8 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 		Set semver = mod.Version.WithBumpMinor()
 	} ElseIf versionString = "patch" {
 		Set semver = mod.Version.WithBumpPatch()
+	} ElseIf versionString = "" {
+		Set semver = ##class(%IPM.General.SemanticVersion).FromString(mod.Version.ToString())
 	} Else {
 		Set semver = ##class(%IPM.General.SemanticVersion).FromString(versionString)
 	}
@@ -3331,13 +3333,19 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 	}
 
 	If 'quiet {
-		Write !,$$$FormatText("Setting version of module %1 to %2", modName, semver.ToString())
+		Write !,$$$FormatText("Setting version of module %1 to: %2", modName, semver.ToString())
 	}
 
 	// Ensure semver is not lower than the current version, unless permit-downgrade is set
 	If ('permitDowngrade) && (semver.IsLowerThan(mod.Version)) {
 		$$$ThrowOnError($$$ERROR($$$GeneralError,"Cannot set version to "_semver.ToString()_" as it is lower than the current version "_mod.VersionString))
 	}
+	If (semver.ToString() = mod.Version.ToString()) {
+		If 'quiet {
+			Write !,"Version is unchanged - Skipping."
+		}
+		Return
+	}
 
 	Set initTLevel = $TLevel
 	TSTART

From 334a546878725b3a565c465c7a6fb0262b7ccefb Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 00:55:22 -0500
Subject: [PATCH 06/16] feat: parameterize integration tests

---
 .../Test/PM/Integration/ModuleVersion.cls     | 87 +++++++++++++++++++
 .../Test/PM/Integration/ModuleVersoin.cls     | 26 ------
 .../_data/module-version/module.xml           |  2 +-
 3 files changed, 88 insertions(+), 27 deletions(-)
 create mode 100644 tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
 delete mode 100644 tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls

diff --git a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
new file mode 100644
index 00000000..7e4cf6af
--- /dev/null
+++ b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
@@ -0,0 +1,87 @@
+Class Test.PM.Integration.ModuleVersion Extends Test.PM.Integration.Base
+{
+
+XData AllCases [ MimeType = application/json ]
+{
+[
+  {
+    "args": "major -prerelease alpha",
+    "expected": "1.0.0-alpha"
+  },
+  {
+    "args": "minor",
+    "expected": "0.1.0"
+  },
+  {
+    "args": "patch",
+    "expected": "0.0.3"
+  },
+  {
+    "args": "-prerelease alpha -build mybuild",
+    "expected": "0.0.2-alpha+mybuild"
+  },
+  {
+    "args": "3.4.5-abc+xyz",
+    "expected": "3.4.5-abc+xyz"
+  },
+  {
+    "args": "invalid string",
+    "expected": ""
+  },
+  {
+    "args": "0.0.1",
+    "expected": ""
+  },
+  {
+    "args": "0.0.1 -permit-downgrade",
+    "expected": "0.0.1"
+  },
+  {
+    "args": "0.0.2",
+    "expected": "0.0.2"
+  }
+]
+}
+
+Method TestModuleVersion()
+{
+    Set xdataID="Test.PM.Integration.ModuleVersion||AllCases"
+    Set compiledXdata=##class(%Dictionary.CompiledXData).%OpenId(xdataID)
+    Set stream=compiledXdata.Data
+    Do $$$AssertTrue($IsObject(stream))
+
+    Set allTestCases = [].%FromJSON(stream)
+    Set iter = allTestCases.%GetIterator()
+    While iter.%GetNext(.key, .case) {
+        Do $$$LogMessage("Running test case: "_case.%ToJSON())
+
+        Set args = case.args
+        Set expected = case.expected
+
+        Set modDir = ..GetModuleDir("module-version")
+        Set sc = ##class(%IPM.Main).Shell("load " _ modDir)
+        Do $$$AssertStatusOK(sc, "Loaded module successfully")
+
+        Set sc = ##class(%IPM.Main).Shell("modver mv " _ args)
+        If expected = "" {
+            Do $$$AssertStatusNotOK(sc, "Module-version failed as expected")
+            Continue
+        }
+        Do $$$AssertStatusOK(sc, "Module-version executed successfully")
+
+        Kill mod
+        Set mod = ##class(%IPM.Storage.Module).NameOpen("mv")
+        Do mod.%Reload()
+        Do $$$AssertEquals(mod.VersionString, expected)
+        Do $$$AssertEquals(mod.Version.ToString(), expected)
+
+        Kill stream
+        Set stream = ##class(%IPM.StudioDocument.ModuleStream).NameOpen("mv")
+        Do stream.%Reload()
+        Set content = stream.Contents.Read()
+        Do $$$AssertTrue(content [ "<Version>"_expected_"</Version>")
+        Do $$$AssertNotTrue(content [ "<Version>0.0.2-snapshot+build</Version>")
+    }
+}
+
+}
diff --git a/tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls b/tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls
deleted file mode 100644
index d6266219..00000000
--- a/tests/integration_tests/Test/PM/Integration/ModuleVersoin.cls
+++ /dev/null
@@ -1,26 +0,0 @@
-Class Test.PM.Integration.ModuleVersoin Extends Test.PM.Integration.Base
-{
-
-Method TestModuleVersion()
-{
-    // TODO parameterize the test
-
-    Set modDir = ..GetModuleDir("module-version")
-    Set sc = ##class(%IPM.Main).Shell("load " _ modDir)
-    Do $$$AssertStatusOK(sc, "Loaded module successfully")
-
-    Set sc = ##class(%IPM.Main).Shell("modver mv major -prerelease alpha")
-    Do $$$AssertStatusOK(sc, "Module version executed successfully")
-
-    Set mod = ##class(%IPM.Storage.Module).NameOpen("mv")
-    Do mod.%Reload()
-    Do $$$AssertEquals(mod.VersionString, "1.0.0-alpha")
-    Do $$$AssertEquals(mod.Version.ToString(), "1.0.0-alpha")
-
-    Set stream = ##class(%IPM.StudioDocument.ModuleStream).NameOpen("mv")
-    Set content = stream.Contents.Read()
-    Do $$$AssertTrue(content [ "<Version>1.0.0-alpha</Version>")
-    Do $$$AssertNotTrue(content [ "<Version>0.0.1-snapshot+build</Version>")
-}
-
-}
diff --git a/tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml b/tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml
index 80a3a862..bcd4b704 100644
--- a/tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml
+++ b/tests/integration_tests/Test/PM/Integration/_data/module-version/module.xml
@@ -3,7 +3,7 @@
   <Document name="mv.ZPM">
     <Module>
       <Name>mv</Name>
-      <Version>0.0.1-snapshot+build</Version>
+      <Version>0.0.2-snapshot+build</Version>
       <Packaging>module</Packaging>
       <SystemRequirements/>
     </Module>

From 4c4165c414e2f69d72b0622af0baf12f50311523 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 11:51:06 -0500
Subject: [PATCH 07/16] refactor: improve code based on feedback

---
 src/cls/IPM/Main.cls | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index 4e7c2ee2..d59b094c 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -718,7 +718,7 @@ generate /my/path -export 00000,PacketName2,IgnorePacket2^00000,PacketName3,Igno
 	<description>
 		Updates the version of the module in the current namespace.
 	</description>
-	<parameter name="module" description="Name of the module to update the version for." />
+	<parameter name="module" required="true" description="Name of the module to update the version for." />
 	<parameter name="version" description="Either a valid SemVer string, or 'major', 'minor', 'patch'. If it's 'major', 'minor', or 'patch', will bump the cooresponding part of SemVer." />
 
 	<modifier name="prerelease" value="true" aliases="p" description="Set the prerelease to a specific value" />
@@ -3332,10 +3332,6 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 		Set semver = semver.WithBuild($$$GetModifier(pCommandInfo,"build"))
 	}
 
-	If 'quiet {
-		Write !,$$$FormatText("Setting version of module %1 to: %2", modName, semver.ToString())
-	}
-
 	// Ensure semver is not lower than the current version, unless permit-downgrade is set
 	If ('permitDowngrade) && (semver.IsLowerThan(mod.Version)) {
 		$$$ThrowOnError($$$ERROR($$$GeneralError,"Cannot set version to "_semver.ToString()_" as it is lower than the current version "_mod.VersionString))
@@ -3347,6 +3343,10 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 		Return
 	}
 
+	If 'quiet {
+		Write !,$$$FormatText("Setting version of module %1 to: %2", modName, semver.ToString())
+	}
+
 	Set initTLevel = $TLevel
 	TSTART
 	Try {

From 78d02d079205054b615bb6374ef0230781010f46 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 12:49:19 -0500
Subject: [PATCH 08/16] feat: update module.xml on the local filesystem as well

---
 src/cls/IPM/Main.cls                        |  4 +---
 src/cls/IPM/Storage/Module.cls              | 19 +++++++++++++++++-
 src/cls/IPM/StudioDocument/ModuleStream.cls | 20 +------------------
 src/cls/IPM/Utils/Module.cls                | 22 +++++++++++++++++++++
 4 files changed, 42 insertions(+), 23 deletions(-)

diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index d59b094c..4c1cfcfd 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -3350,10 +3350,8 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 	Set initTLevel = $TLevel
 	TSTART
 	Try {
-		Set mod.Version = semver
-		Set mod.VersionString = semver.ToString()
-		$$$ThrowOnError(mod.%Save())
 		Do stream.UpdateVersion(semver)
+		Do mod.UpdateVersion(semver)
 		TCOMMIT
 	} Catch ex {
 		While ($TLevel > initTLevel) {
diff --git a/src/cls/IPM/Storage/Module.cls b/src/cls/IPM/Storage/Module.cls
index 646500b4..47ce3711 100644
--- a/src/cls/IPM/Storage/Module.cls
+++ b/src/cls/IPM/Storage/Module.cls
@@ -1494,6 +1494,24 @@ Method %OnBeforeSave(insert As %Boolean) As %Status [ Private, ServerOnly = 1 ]
 	Quit $$$OK
 }
 
+/// Update both the object and the module XML file with the new version.
+Method UpdateVersion(semver As %IPM.General.SemanticVersion)
+{
+	Set moduleXML = ##class(%File).NormalizeFilename("module.xml", ..Root)
+	If '##class(%File).Exists(moduleXML) {
+		$$$ThrowStatus($$$ERROR($$$GeneralError,"Module XML file not found: "_moduleXML))	
+	}
+
+	Set stream = ##class(%Stream.FileCharacter).%New()
+	$$$ThrowOnError(stream.LinkToFile(moduleXML))
+	Do ##class(%IPM.Utils.Module).UpdateSemverInStream(stream, semver)
+	Do stream.%Save()
+
+	Set ..Version = semver
+	Set ..VersionString = semver.ToString()
+	$$$ThrowOnError(..%Save())
+}
+
 Method %EvaluateExpression(pExpr) As %String [ Internal ]
 {
   Try {
@@ -1612,4 +1630,3 @@ Storage Default
 }
 
 }
-
diff --git a/src/cls/IPM/StudioDocument/ModuleStream.cls b/src/cls/IPM/StudioDocument/ModuleStream.cls
index 3abdc07a..d9497e63 100644
--- a/src/cls/IPM/StudioDocument/ModuleStream.cls
+++ b/src/cls/IPM/StudioDocument/ModuleStream.cls
@@ -5,25 +5,7 @@ Parameter DEFAULTGLOBAL = "^IPM.StudioDoc.ModuleStream";
 
 Method UpdateVersion(semver As %IPM.General.SemanticVersion)
 {
-	Set regex = "<Version>(.*?)</Version>"
-	Set content = ""
-	Do ..Contents.Rewind()
-	While '..Contents.AtEnd {
-		Set content = content _ ..Contents.Read()
-	}
-	Set start = $LOCATE(content, regex, 0, end, val)
-	If start {
-		Set content = $EXTRACT(content, 1, start - 1) 
-			_ "<Version>" _ semver.ToString() _ "</Version>" 
-			_ $EXTRACT(content, end, *)
-	} Else {
-		$$$ThrowStatus($$$ERROR($$$GeneralError, "Version tag not found in: "_content))
-	}
-
-	Do ..Contents.Clear()
-	Do ..Contents.Rewind()
-	Do ..Contents.Write(content)
-
+	Do ##class(%IPM.Utils.Module).UpdateSemverInStream(..Contents, semver)
 	$$$ThrowOnError(..%Save())
 }
 
diff --git a/src/cls/IPM/Utils/Module.cls b/src/cls/IPM/Utils/Module.cls
index 558b31e9..b4e82318 100644
--- a/src/cls/IPM/Utils/Module.cls
+++ b/src/cls/IPM/Utils/Module.cls
@@ -2369,4 +2369,26 @@ ClassMethod %RegExReplace(pString As %String, pName As %String, pValue As %Strin
 	Quit tString
 }
 
+ClassMethod UpdateSemverInStream(stream As %Stream.Object, semver As %IPM.General.SemanticVersion)
+{
+	Set regex = "<Version>(.*?)</Version>"
+	Set content = ""
+	Do stream.Rewind()
+	While 'stream.AtEnd {
+		Set content = content _ stream.Read()
+	}
+	Set start = $LOCATE(content, regex, 0, end, val)
+	If start {
+		Set content = $EXTRACT(content, 1, start - 1) 
+			_ "<Version>" _ semver.ToString() _ "</Version>" 
+			_ $EXTRACT(content, end, *)
+	} Else {
+		$$$ThrowStatus($$$ERROR($$$GeneralError, "Version tag not found in: "_content))
+	}
+
+	Do stream.Clear()
+	Do stream.Rewind()
+	Do stream.Write(content)
+}
+
 }

From 3a240f5348fb4a55c6cccdcb7ff19195a14b74d5 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 12:50:14 -0500
Subject: [PATCH 09/16] test: add tests for local module.xml file

---
 .../Test/PM/Integration/ModuleVersion.cls       | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
index 7e4cf6af..2a9cf803 100644
--- a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
+++ b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
@@ -1,6 +1,8 @@
 Class Test.PM.Integration.ModuleVersion Extends Test.PM.Integration.Base
 {
 
+Parameter OriginalVersion = "0.0.2-snapshot+build";
+
 XData AllCases [ MimeType = application/json ]
 {
 [
@@ -80,7 +82,20 @@ Method TestModuleVersion()
         Do stream.%Reload()
         Set content = stream.Contents.Read()
         Do $$$AssertTrue(content [ "<Version>"_expected_"</Version>")
-        Do $$$AssertNotTrue(content [ "<Version>0.0.2-snapshot+build</Version>")
+        Do $$$AssertNotTrue(content [ "<Version>"_..#OriginalVersion_"</Version>")
+
+        Kill fileStream
+	      Set fileStream = ##class(%Stream.FileCharacter).%New()
+        Set sc = fileStream.LinkToFile(##class(%File).NormalizeFilename("module.xml", modDir))
+        Do $$$AssertStatusOK(sc, "File stream linked successfully")
+        Do fileStream.Rewind()
+        Set fileContent = fileStream.Read()
+        Do $$$AssertTrue(fileContent [ "<Version>"_expected_"</Version>")
+        Do $$$AssertNotTrue(fileContent [ "<Version>"_..#OriginalVersion_"</Version>")
+
+        // Cleanup
+        Set sc = ##class(%IPM.Main).Shell("modver mv " _ ..#OriginalVersion)
+        Do $$$AssertStatusOK(sc, "Module version reverted back")
     }
 }
 

From bad7a2754b12ca78c8aea1563295d02d0d36a228 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 22 Jan 2025 13:33:48 -0500
Subject: [PATCH 10/16] test: fix bugs in module-version test cases

---
 .../Test/PM/Integration/ModuleVersion.cls              | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
index 2a9cf803..4aed87ed 100644
--- a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
+++ b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
@@ -81,8 +81,8 @@ Method TestModuleVersion()
         Set stream = ##class(%IPM.StudioDocument.ModuleStream).NameOpen("mv")
         Do stream.%Reload()
         Set content = stream.Contents.Read()
-        Do $$$AssertTrue(content [ "<Version>"_expected_"</Version>")
-        Do $$$AssertNotTrue(content [ "<Version>"_..#OriginalVersion_"</Version>")
+        Do $$$AssertTrue(content [ ("<Version>"_expected_"</Version>"))
+        Do $$$AssertNotTrue(content [ ("<Version>"_..#OriginalVersion_"</Version>"))
 
         Kill fileStream
 	      Set fileStream = ##class(%Stream.FileCharacter).%New()
@@ -90,11 +90,11 @@ Method TestModuleVersion()
         Do $$$AssertStatusOK(sc, "File stream linked successfully")
         Do fileStream.Rewind()
         Set fileContent = fileStream.Read()
-        Do $$$AssertTrue(fileContent [ "<Version>"_expected_"</Version>")
-        Do $$$AssertNotTrue(fileContent [ "<Version>"_..#OriginalVersion_"</Version>")
+        Do $$$AssertTrue(fileContent [ ("<Version>"_expected_"</Version>"))
+        Do $$$AssertNotTrue(fileContent [ ("<Version>"_..#OriginalVersion_"</Version>"))
 
         // Cleanup
-        Set sc = ##class(%IPM.Main).Shell("modver mv " _ ..#OriginalVersion)
+        Set sc = ##class(%IPM.Main).Shell("modver mv " _ ..#OriginalVersion _ " -permit-downgrade")
         Do $$$AssertStatusOK(sc, "Module version reverted back")
     }
 }

From 0a588a6d4eedcde26d54da0621873b416c2c45e5 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Tue, 28 Jan 2025 13:40:20 -0500
Subject: [PATCH 11/16] revert: revert functions and tests for modifying local
 module.xml

---
 src/cls/IPM/Main.cls                          |  4 +++-
 src/cls/IPM/Storage/Module.cls                | 19 +---------------
 src/cls/IPM/StudioDocument/ModuleStream.cls   | 20 ++++++++++++++++-
 src/cls/IPM/Utils/Module.cls                  | 22 -------------------
 .../Test/PM/Integration/ModuleVersion.cls     | 13 -----------
 5 files changed, 23 insertions(+), 55 deletions(-)

diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index 4c1cfcfd..d59b094c 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -3350,8 +3350,10 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 	Set initTLevel = $TLevel
 	TSTART
 	Try {
+		Set mod.Version = semver
+		Set mod.VersionString = semver.ToString()
+		$$$ThrowOnError(mod.%Save())
 		Do stream.UpdateVersion(semver)
-		Do mod.UpdateVersion(semver)
 		TCOMMIT
 	} Catch ex {
 		While ($TLevel > initTLevel) {
diff --git a/src/cls/IPM/Storage/Module.cls b/src/cls/IPM/Storage/Module.cls
index 47ce3711..646500b4 100644
--- a/src/cls/IPM/Storage/Module.cls
+++ b/src/cls/IPM/Storage/Module.cls
@@ -1494,24 +1494,6 @@ Method %OnBeforeSave(insert As %Boolean) As %Status [ Private, ServerOnly = 1 ]
 	Quit $$$OK
 }
 
-/// Update both the object and the module XML file with the new version.
-Method UpdateVersion(semver As %IPM.General.SemanticVersion)
-{
-	Set moduleXML = ##class(%File).NormalizeFilename("module.xml", ..Root)
-	If '##class(%File).Exists(moduleXML) {
-		$$$ThrowStatus($$$ERROR($$$GeneralError,"Module XML file not found: "_moduleXML))	
-	}
-
-	Set stream = ##class(%Stream.FileCharacter).%New()
-	$$$ThrowOnError(stream.LinkToFile(moduleXML))
-	Do ##class(%IPM.Utils.Module).UpdateSemverInStream(stream, semver)
-	Do stream.%Save()
-
-	Set ..Version = semver
-	Set ..VersionString = semver.ToString()
-	$$$ThrowOnError(..%Save())
-}
-
 Method %EvaluateExpression(pExpr) As %String [ Internal ]
 {
   Try {
@@ -1630,3 +1612,4 @@ Storage Default
 }
 
 }
+
diff --git a/src/cls/IPM/StudioDocument/ModuleStream.cls b/src/cls/IPM/StudioDocument/ModuleStream.cls
index d9497e63..3abdc07a 100644
--- a/src/cls/IPM/StudioDocument/ModuleStream.cls
+++ b/src/cls/IPM/StudioDocument/ModuleStream.cls
@@ -5,7 +5,25 @@ Parameter DEFAULTGLOBAL = "^IPM.StudioDoc.ModuleStream";
 
 Method UpdateVersion(semver As %IPM.General.SemanticVersion)
 {
-	Do ##class(%IPM.Utils.Module).UpdateSemverInStream(..Contents, semver)
+	Set regex = "<Version>(.*?)</Version>"
+	Set content = ""
+	Do ..Contents.Rewind()
+	While '..Contents.AtEnd {
+		Set content = content _ ..Contents.Read()
+	}
+	Set start = $LOCATE(content, regex, 0, end, val)
+	If start {
+		Set content = $EXTRACT(content, 1, start - 1) 
+			_ "<Version>" _ semver.ToString() _ "</Version>" 
+			_ $EXTRACT(content, end, *)
+	} Else {
+		$$$ThrowStatus($$$ERROR($$$GeneralError, "Version tag not found in: "_content))
+	}
+
+	Do ..Contents.Clear()
+	Do ..Contents.Rewind()
+	Do ..Contents.Write(content)
+
 	$$$ThrowOnError(..%Save())
 }
 
diff --git a/src/cls/IPM/Utils/Module.cls b/src/cls/IPM/Utils/Module.cls
index b4e82318..558b31e9 100644
--- a/src/cls/IPM/Utils/Module.cls
+++ b/src/cls/IPM/Utils/Module.cls
@@ -2369,26 +2369,4 @@ ClassMethod %RegExReplace(pString As %String, pName As %String, pValue As %Strin
 	Quit tString
 }
 
-ClassMethod UpdateSemverInStream(stream As %Stream.Object, semver As %IPM.General.SemanticVersion)
-{
-	Set regex = "<Version>(.*?)</Version>"
-	Set content = ""
-	Do stream.Rewind()
-	While 'stream.AtEnd {
-		Set content = content _ stream.Read()
-	}
-	Set start = $LOCATE(content, regex, 0, end, val)
-	If start {
-		Set content = $EXTRACT(content, 1, start - 1) 
-			_ "<Version>" _ semver.ToString() _ "</Version>" 
-			_ $EXTRACT(content, end, *)
-	} Else {
-		$$$ThrowStatus($$$ERROR($$$GeneralError, "Version tag not found in: "_content))
-	}
-
-	Do stream.Clear()
-	Do stream.Rewind()
-	Do stream.Write(content)
-}
-
 }
diff --git a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
index 4aed87ed..6b9540e8 100644
--- a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
+++ b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
@@ -83,19 +83,6 @@ Method TestModuleVersion()
         Set content = stream.Contents.Read()
         Do $$$AssertTrue(content [ ("<Version>"_expected_"</Version>"))
         Do $$$AssertNotTrue(content [ ("<Version>"_..#OriginalVersion_"</Version>"))
-
-        Kill fileStream
-	      Set fileStream = ##class(%Stream.FileCharacter).%New()
-        Set sc = fileStream.LinkToFile(##class(%File).NormalizeFilename("module.xml", modDir))
-        Do $$$AssertStatusOK(sc, "File stream linked successfully")
-        Do fileStream.Rewind()
-        Set fileContent = fileStream.Read()
-        Do $$$AssertTrue(fileContent [ ("<Version>"_expected_"</Version>"))
-        Do $$$AssertNotTrue(fileContent [ ("<Version>"_..#OriginalVersion_"</Version>"))
-
-        // Cleanup
-        Set sc = ##class(%IPM.Main).Shell("modver mv " _ ..#OriginalVersion _ " -permit-downgrade")
-        Do $$$AssertStatusOK(sc, "Module version reverted back")
     }
 }
 

From 59b7884f24cc0fbc80019222c55f30d0791b7481 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Tue, 28 Jan 2025 14:19:33 -0500
Subject: [PATCH 12/16] refactor: use XSLT instead of regex to update module
 version in stream

---
 src/cls/IPM/StudioDocument/ModuleStream.cls   | 61 +++++++++++-----
 .../resource-test/localize/HTTPStatuses.xml   | 71 +++++++++++++++++++
 2 files changed, 115 insertions(+), 17 deletions(-)
 create mode 100755 tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml

diff --git a/src/cls/IPM/StudioDocument/ModuleStream.cls b/src/cls/IPM/StudioDocument/ModuleStream.cls
index 3abdc07a..a0ced651 100644
--- a/src/cls/IPM/StudioDocument/ModuleStream.cls
+++ b/src/cls/IPM/StudioDocument/ModuleStream.cls
@@ -1,29 +1,56 @@
 Class %IPM.StudioDocument.ModuleStream Extends %IPM.StudioDocument.AbstractStream
 {
 
+XData UpdateVersionTransform [ XMLNamespace = "http://www.intersystems.com/studio/document" ]
+{
+<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+  <xsl:param name="replacement" select="'replacementValue'" />
+
+  <xsl:template match="@*|node()">
+    <xsl:copy>
+      <xsl:apply-templates select="@*|node()" />
+    </xsl:copy>
+  </xsl:template>
+
+  <xsl:template match="Module/Version">
+    <xsl:copy>
+      <xsl:value-of select="$replacement" />
+    </xsl:copy>
+  </xsl:template>
+
+</xsl:stylesheet>
+}
+
 Parameter DEFAULTGLOBAL = "^IPM.StudioDoc.ModuleStream";
 
-Method UpdateVersion(semver As %IPM.General.SemanticVersion)
+Method CompiledUpdateVersionXSLT(semver As %IPM.General.SemanticVersion) As %XML.XSLT.CompiledStyleSheet
 {
-	Set regex = "<Version>(.*?)</Version>"
-	Set content = ""
-	Do ..Contents.Rewind()
-	While '..Contents.AtEnd {
-		Set content = content _ ..Contents.Read()
-	}
-	Set start = $LOCATE(content, regex, 0, end, val)
-	If start {
-		Set content = $EXTRACT(content, 1, start - 1) 
-			_ "<Version>" _ semver.ToString() _ "</Version>" 
-			_ $EXTRACT(content, end, *)
-	} Else {
-		$$$ThrowStatus($$$ERROR($$$GeneralError, "Version tag not found in: "_content))
+	Set tXData = ##class(%Dictionary.CompiledXData).IDKEYOpen($ClassName(), "UpdateVersionTransform",,.tSC)
+	$$$ThrowOnError(tSC)
+	Set s = ""
+	While 'tXData.Data.AtEnd {
+		Set s = s _ tXData.Data.Read()
 	}
+	Set s = $REPLACE(s, "replacementValue", semver.ToString())
+	Set stream = ##class(%Stream.TmpCharacter).%New()
+	$$$ThrowOnError(stream.Write(s))
+	$$$ThrowOnError(stream.Rewind())
+	Set tSC = ##class(%XML.XSLT.CompiledStyleSheet).CreateFromStream(stream, .compiledStyleSheet)
+	$$$ThrowOnError(tSC)
+
+	Quit compiledStyleSheet
+}
 
-	Do ..Contents.Clear()
-	Do ..Contents.Rewind()
-	Do ..Contents.Write(content)
+Method UpdateVersion(semver As %IPM.General.SemanticVersion)
+{
+	// Can't use %IPM.Repo.XSLTProvider because we need to pass a parameter
+	Set compiledTransfrom = ..CompiledUpdateVersionXSLT(semver)
 
+	$$$ThrowOnError(..Contents.Rewind())
+	$$$ThrowOnError(##class(%XML.XSLT.Transformer).TransformStreamWithCompiledXSL(..Contents, compiledTransfrom, .updatedContents))
+	$$$ThrowOnError(..Contents.Clear())
+	$$$ThrowOnError(..Contents.CopyFrom(updatedContents))
 	$$$ThrowOnError(..%Save())
 }
 
diff --git a/tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml b/tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml
new file mode 100755
index 00000000..5089633c
--- /dev/null
+++ b/tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<MsgFile Language="en">
+   <MsgDomain Domain="HTTPStatus">
+      <Message Id="100Continue">100 Continue %1</Message>
+      <Message Id="101SwitchingProtocols">101 Switching Protocols %1</Message>
+      <Message Id="102Processing">102 Processing %1</Message>
+      <Message Id="200OK">200 OK %1</Message>
+      <Message Id="201Created">201 Created %1</Message>
+      <Message Id="202Accepted">202 Accepted %1</Message>
+      <Message Id="203NonAuthoritative">203 Non-Authoritative Information %1</Message>
+      <Message Id="204NoContent">204 No Content %1</Message>
+      <Message Id="205ResetContent">205 Reset Content %1</Message>
+      <Message Id="206PartialContent">206 Partial Content %1</Message>
+      <Message Id="207MultiStatus">207 Multi-Status %1</Message>
+      <Message Id="208AlreadyReported">208 Already Reported %1</Message>
+      <Message Id="226InstanceManipulationUsed">226 Instance Manipulation Used %1</Message>
+      <Message Id="300MultipleChoices">300 Multiple Choices %1</Message>
+      <Message Id="301MovedPermanently">301 Moved Permanently %1</Message>
+      <Message Id="302Found">302 Found %1</Message>
+      <Message Id="303SeeOther">303 See Other %1</Message>
+      <Message Id="304NotModified">304 Not Modified %1</Message>
+      <Message Id="305UseProxy">305 Use Proxy %1</Message>
+      <Message Id="306SwitchProxy">306 Switch Proxy %1</Message>
+      <Message Id="307TemporaryRedirect">307 Temporary Redirect %1</Message>
+      <Message Id="308PermanentRedirect">308 Permanent Redirect %1</Message>
+      <Message Id="400BadRequest">400 Bad Request %1</Message>
+      <Message Id="401Unauthorized">401 Unauthorized %1</Message>
+      <Message Id="402PaymentRequired">402 Payment Required %1</Message>
+      <Message Id="403Forbidden">403 Forbidden %1</Message>
+      <Message Id="404NotFound">404 Not Found %1</Message>
+      <Message Id="405MethodNotAllowed">405 Method Not Allowed %1</Message>
+      <Message Id="406NotAcceptable">406 Not Acceptable %1</Message>
+      <Message Id="407ProxyAuthenticationRequired">407 Proxy Authentication Required %1</Message>
+      <Message Id="408RequestTimeout">408 Request Timeout %1</Message>
+      <Message Id="409Conflict">409 Conflict %1</Message>
+      <Message Id="410Gone">410 Gone %1</Message>
+      <Message Id="411LengthRequired">411 Length Required %1</Message>
+      <Message Id="412PreconditionFailed">412 Precondition Failed %1</Message>
+      <Message Id="413PayloadTooLarge">413 Payload Too Large %1</Message>
+      <Message Id="414URITooLong">414 URI Too Long %1</Message>
+      <Message Id="415UnsupportedMediaType">415 Unsupported Media Type %1</Message>
+      <Message Id="416RangeNotSatisfiable">416 Range Not Satisfiable %1</Message>
+      <Message Id="417ExpectationFailed">417 Expectation Failed %1</Message>
+      <Message Id="418ImaTeapot">418 I'm a teapot %1</Message>
+      <Message Id="421MisdirectedRequest">421 Misdirected Request %1</Message>
+      <Message Id="422UnprocessableEntity">422 Unprocessable Entity %1</Message>
+      <Message Id="423Locked">423 Locked %1</Message>
+      <Message Id="424FailedDependency">424 Failed Dependency %1</Message>
+      <Message Id="426UpgradeRequired">426 Upgrade Required %1</Message>
+      <Message Id="428PreconditionRequired">428 Precondition Required %1</Message>
+      <Message Id="429TooManyRequests">429 Too Many Requests %1</Message>
+      <Message Id="431RequestHeaderFieldsTooLarge">431 Request Header Fields Too Large %1</Message>
+      <Message Id="440LoginTimeout">440 Login Timeout %1</Message>
+      <Message Id="449RetryWith">449 Retry With %1</Message>
+      <Message Id="451LegalReasons">451 Unavailable For Legal Reasons %1</Message>
+      <Message Id="500InternalServerError">500 Internal Server Error %1</Message>
+      <Message Id="501NotImplemented">501 Not Implemented %1</Message>
+      <Message Id="502BadGateway">502 Bad Gateway %1</Message>
+      <Message Id="503ServiceUnavailable">503 Service Unavailable %1</Message>
+      <Message Id="504GatewayTimeout">504 Gateway Timeout %1</Message>
+      <Message Id="505HTTPVersionNotSupported">505 HTTP Version Not Supported %1</Message>
+      <Message Id="506VariantAlsoNegotiates">506 Variant Also Negotiates %1</Message>
+      <Message Id="507InsufficientStorage">507 Insufficient Storage %1</Message>
+      <Message Id="508LoopDetected">508 Loop Detected %1</Message>
+      <Message Id="509BandwidthLimitExceeded">509 Bandwidth Limit Exceeded %1</Message>
+      <Message Id="510NotExtended">510 Not Extended %1</Message>
+      <Message Id="511NetworkAuthenticationRequired">511 Network Authentication Required %1</Message>
+      <Message Id="598NetworkReadTimeoutError">598 Network Read Timeout Error %1</Message>
+      <Message Id="599NetworkConnectTimeoutError">599 Network Connect Timeout Error %1</Message>
+   </MsgDomain>
+</MsgFile>

From 2eae5fea1392dcba54d3a76648e10971248694c1 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Tue, 28 Jan 2025 14:43:03 -0500
Subject: [PATCH 13/16] refactor: use Follows to check mod-vers compatibility

and rename modifier -permit-downgrade to -force
---
 src/cls/IPM/General/SemanticVersion.cls         |  7 -------
 src/cls/IPM/Main.cls                            | 17 ++++++++++-------
 .../Test/PM/Integration/ModuleVersion.cls       | 10 +++++++---
 3 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/src/cls/IPM/General/SemanticVersion.cls b/src/cls/IPM/General/SemanticVersion.cls
index 9fc4676c..3976d680 100644
--- a/src/cls/IPM/General/SemanticVersion.cls
+++ b/src/cls/IPM/General/SemanticVersion.cls
@@ -261,13 +261,6 @@ Method WithBuild(pBuild As %String) As %IPM.General.SemanticVersion
 	Quit tVer
 }
 
-Method IsLowerThan(pVersion As %IPM.General.SemanticVersion) As %Boolean
-{
-	Quit (..Major < pVersion.Major) || 
-		((..Major = pVersion.Major) && (..Minor < pVersion.Minor)) || 
-		((..Major = pVersion.Major) && (..Minor = pVersion.Minor) && (..Patch < pVersion.Patch))
-}
-
 Storage Default
 {
 <Data name="SemanticVersionState">
diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index d59b094c..1bbdd2fa 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -723,7 +723,7 @@ generate /my/path -export 00000,PacketName2,IgnorePacket2^00000,PacketName3,Igno
 
 	<modifier name="prerelease" value="true" aliases="p" description="Set the prerelease to a specific value" />
 	<modifier name="build" value="true" aliases="b" description="Set the build to a specific value" />
-	<modifier name="permit-downgrade" description="Permit the version to be downgraded. By default, trying to downgrade the version will fail" />
+	<modifier name="force" description="Permit the version to be downgraded. By default, trying to downgrade the version will fail" />
 	<modifier name="quiet" aliases="q" description="Suppress output (except for errors)" />
 
 	<example description="Sets the version of the module HS.JSON to 1.2.3">
@@ -735,8 +735,8 @@ generate /my/path -export 00000,PacketName2,IgnorePacket2^00000,PacketName3,Igno
 	<example description="Bump the minor version and set prerelease to 'alpha' and build to 'xyz'. If current version is 1.2.3, the new version will be 1.3.0-alpha+xyz">
 		module-version HS.JSON minor -prerelease alpha -build xyz
 	</example>
-	<example description="Downgrade the version to 1.2.3. If the current version is 1.3.0, this will still work because the permit-downgrade flag is set.">
-		module-version HS.JSON 1.2.3 -permit-downgrade
+	<example description="Downgrade the version to 1.2.3. If the current version is 1.3.0, this will still work because the force flag is set.">
+		module-version HS.JSON 1.2.3 -force
 	</example>
 </command>
 
@@ -3290,7 +3290,7 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 {
 	Set modName = $Get(pCommandInfo("parameters","module"))
 	Set quiet = $$$HasModifier(pCommandInfo,"quiet")
-	Set permitDowngrade = $$$HasModifier(pCommandInfo,"permit-downgrade")
+	Set force = $$$HasModifier(pCommandInfo,"force")
 	If (modName = "") {
 		$$$ThrowOnError($$$ERROR($$$GeneralError,"No module name specified."))
 	}
@@ -3332,9 +3332,12 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 		Set semver = semver.WithBuild($$$GetModifier(pCommandInfo,"build"))
 	}
 
-	// Ensure semver is not lower than the current version, unless permit-downgrade is set
-	If ('permitDowngrade) && (semver.IsLowerThan(mod.Version)) {
-		$$$ThrowOnError($$$ERROR($$$GeneralError,"Cannot set version to "_semver.ToString()_" as it is lower than the current version "_mod.VersionString))
+	// Ensure semver is not lower than the current version, unless force is set
+	If ('force) && ('semver.Follows(mod.Version)) {
+		Set msg = $$$FormatText("Cannot set version to %1 as it is not strictly higher than the current version %2 (Use -force to override)", semver.ToString(), mod.VersionString)
+		Set msg = msg _ $Char(10, 13) _ "Note: when either version has a nonempty prerelease value, and differ from the other by major.minor.patch, neither version is considered strictly higher than the other."
+		Set msg = msg _ $Char(10, 13) _ "      See https://github.com/npm/node-semver?tab=readme-ov-file#prerelease-tags for more information."
+		$$$ThrowOnError($$$ERROR($$$GeneralError, msg))
 	}
 	If (semver.ToString() = mod.Version.ToString()) {
 		If 'quiet {
diff --git a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
index 6b9540e8..2e200f2a 100644
--- a/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
+++ b/tests/integration_tests/Test/PM/Integration/ModuleVersion.cls
@@ -7,7 +7,7 @@ XData AllCases [ MimeType = application/json ]
 {
 [
   {
-    "args": "major -prerelease alpha",
+    "args": "major -prerelease alpha -force",
     "expected": "1.0.0-alpha"
   },
   {
@@ -19,11 +19,15 @@ XData AllCases [ MimeType = application/json ]
     "expected": "0.0.3"
   },
   {
-    "args": "-prerelease alpha -build mybuild",
+    "args": "-prerelease alpha -build mybuild -force",
     "expected": "0.0.2-alpha+mybuild"
   },
   {
     "args": "3.4.5-abc+xyz",
+    "expected": ""
+  },
+  {
+    "args": "3.4.5-abc+xyz -force",
     "expected": "3.4.5-abc+xyz"
   },
   {
@@ -35,7 +39,7 @@ XData AllCases [ MimeType = application/json ]
     "expected": ""
   },
   {
-    "args": "0.0.1 -permit-downgrade",
+    "args": "0.0.1 -force",
     "expected": "0.0.1"
   },
   {

From 32f1b2f2039c78ef3739f34dcd30d5124b64e204 Mon Sep 17 00:00:00 2001
From: isc-tleavitt <73311181+isc-tleavitt@users.noreply.github.com>
Date: Wed, 29 Jan 2025 11:48:40 -0500
Subject: [PATCH 14/16] fix: proper source control handling

%Studio.AbstractDocument handles calling OnBeforeSave/OnAfterSave if %SourceControl is defined.
---
 src/cls/IPM/Main.cls                        | 18 +++++--
 src/cls/IPM/StudioDocument/Module.cls       | 59 +++++++++++++++++++++
 src/cls/IPM/StudioDocument/ModuleStream.cls | 51 ------------------
 3 files changed, 73 insertions(+), 55 deletions(-)

diff --git a/src/cls/IPM/Main.cls b/src/cls/IPM/Main.cls
index 1bbdd2fa..aeed8915 100644
--- a/src/cls/IPM/Main.cls
+++ b/src/cls/IPM/Main.cls
@@ -3351,17 +3351,27 @@ ClassMethod ModuleVersion(ByRef pCommandInfo)
 	}
 
 	Set initTLevel = $TLevel
+	Set ex = $$$NULLOREF
 	TSTART
 	Try {
+		New %SourceControl
+		Set docName = modName_".ZPM"
+		Do ##class(%Studio.SourceControl.Interface).SourceControlCreate()
+		If $IsObject($Get(%SourceControl)) {
+			Write !,"Checking out "_docName
+			$$$ThrowOnError(%SourceControl.CheckOut(docName))
+		}
 		Set mod.Version = semver
 		Set mod.VersionString = semver.ToString()
 		$$$ThrowOnError(mod.%Save())
-		Do stream.UpdateVersion(semver)
+		Do ##class(%IPM.StudioDocument.Module).UpdateVersion(modName,semver)
 		TCOMMIT
 	} Catch ex {
-		While ($TLevel > initTLevel) {
-			TROLLBACK 1
-		}
+	}
+	While ($TLevel > initTLevel) {
+		TROLLBACK 1
+	}
+	If $IsObject(ex) {
 		Throw ex
 	}
 }
diff --git a/src/cls/IPM/StudioDocument/Module.cls b/src/cls/IPM/StudioDocument/Module.cls
index 422f7a0d..3022a778 100644
--- a/src/cls/IPM/StudioDocument/Module.cls
+++ b/src/cls/IPM/StudioDocument/Module.cls
@@ -344,6 +344,65 @@ Method ImportFromXML(stream As %RegisteredObject, flags As %String) As %Status
 	Quit $$$OK
 }
 
+/// XSLT to replace the top-level module version with a new value
+XData UpdateVersionTransform [ XMLNamespace = "http://www.intersystems.com/studio/document" ]
+{
+<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+  <xsl:param name="replacement" select="'replacementValue'" />
+
+  <xsl:template match="@*|node()">
+    <xsl:copy>
+      <xsl:apply-templates select="@*|node()" />
+    </xsl:copy>
+  </xsl:template>
+
+  <xsl:template match="Module/Version">
+    <xsl:copy>
+      <xsl:value-of select="$replacement" />
+    </xsl:copy>
+  </xsl:template>
+
+</xsl:stylesheet>
+}
+
+/// Returns a compiled XSLT to update a module's version to the specified <var>semver</var> in its XML representation
+ClassMethod CompiledUpdateVersionXSLT(semver As %IPM.General.SemanticVersion) As %XML.XSLT.CompiledStyleSheet
+{
+	Set tXData = ##class(%Dictionary.CompiledXData).IDKEYOpen($ClassName(), "UpdateVersionTransform",,.tSC)
+	$$$ThrowOnError(tSC)
+	Set s = ""
+	While 'tXData.Data.AtEnd {
+		Set s = s _ tXData.Data.Read()
+	}
+	Set s = $REPLACE(s, "replacementValue", semver.ToString())
+	Set stream = ##class(%Stream.TmpCharacter).%New()
+	$$$ThrowOnError(stream.Write(s))
+	$$$ThrowOnError(stream.Rewind())
+	Set tSC = ##class(%XML.XSLT.CompiledStyleSheet).CreateFromStream(stream, .compiledStyleSheet)
+	$$$ThrowOnError(tSC)
+
+	Quit compiledStyleSheet
+}
+
+/// Updates the version of <var>moduleName</var> to <var>semver</var>
+ClassMethod UpdateVersion(moduleName As %String, semver As %IPM.General.SemanticVersion)
+{
+	// Can't use %IPM.Repo.XSLTProvider because we need to pass a parameter
+	Set compiledTransfrom = ..CompiledUpdateVersionXSLT(semver)
+	Set document = ##class(%Library.RoutineMgr).%OpenId(moduleName_".ZPM")
+	If '$IsObject(document) {
+		// %Library.RoutineMgr:%OpenId doesn't have a byref status arg.
+		$$$ThrowStatus($Get(%objlasterror,$$$ERROR($$$GeneralError,"Unknown error occurred.")))
+	}
+
+	$$$ThrowOnError(document.Code.Rewind())
+	$$$ThrowOnError(##class(%XML.XSLT.Transformer).TransformStreamWithCompiledXSL(document.Code, compiledTransfrom, .updatedContents))
+	$$$ThrowOnError(document.Code.Clear())
+	$$$ThrowOnError(document.Code.CopyFrom(updatedContents))
+	$$$ThrowOnError(document.%Save())
+}
+
 XData ExternalXSL
 {
 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
diff --git a/src/cls/IPM/StudioDocument/ModuleStream.cls b/src/cls/IPM/StudioDocument/ModuleStream.cls
index a0ced651..bf4f3ae1 100644
--- a/src/cls/IPM/StudioDocument/ModuleStream.cls
+++ b/src/cls/IPM/StudioDocument/ModuleStream.cls
@@ -1,59 +1,8 @@
 Class %IPM.StudioDocument.ModuleStream Extends %IPM.StudioDocument.AbstractStream
 {
 
-XData UpdateVersionTransform [ XMLNamespace = "http://www.intersystems.com/studio/document" ]
-{
-<?xml version="1.0" encoding="UTF-8"?>
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-  <xsl:param name="replacement" select="'replacementValue'" />
-
-  <xsl:template match="@*|node()">
-    <xsl:copy>
-      <xsl:apply-templates select="@*|node()" />
-    </xsl:copy>
-  </xsl:template>
-
-  <xsl:template match="Module/Version">
-    <xsl:copy>
-      <xsl:value-of select="$replacement" />
-    </xsl:copy>
-  </xsl:template>
-
-</xsl:stylesheet>
-}
-
 Parameter DEFAULTGLOBAL = "^IPM.StudioDoc.ModuleStream";
 
-Method CompiledUpdateVersionXSLT(semver As %IPM.General.SemanticVersion) As %XML.XSLT.CompiledStyleSheet
-{
-	Set tXData = ##class(%Dictionary.CompiledXData).IDKEYOpen($ClassName(), "UpdateVersionTransform",,.tSC)
-	$$$ThrowOnError(tSC)
-	Set s = ""
-	While 'tXData.Data.AtEnd {
-		Set s = s _ tXData.Data.Read()
-	}
-	Set s = $REPLACE(s, "replacementValue", semver.ToString())
-	Set stream = ##class(%Stream.TmpCharacter).%New()
-	$$$ThrowOnError(stream.Write(s))
-	$$$ThrowOnError(stream.Rewind())
-	Set tSC = ##class(%XML.XSLT.CompiledStyleSheet).CreateFromStream(stream, .compiledStyleSheet)
-	$$$ThrowOnError(tSC)
-
-	Quit compiledStyleSheet
-}
-
-Method UpdateVersion(semver As %IPM.General.SemanticVersion)
-{
-	// Can't use %IPM.Repo.XSLTProvider because we need to pass a parameter
-	Set compiledTransfrom = ..CompiledUpdateVersionXSLT(semver)
-
-	$$$ThrowOnError(..Contents.Rewind())
-	$$$ThrowOnError(##class(%XML.XSLT.Transformer).TransformStreamWithCompiledXSL(..Contents, compiledTransfrom, .updatedContents))
-	$$$ThrowOnError(..Contents.Clear())
-	$$$ThrowOnError(..Contents.CopyFrom(updatedContents))
-	$$$ThrowOnError(..%Save())
-}
-
 Storage Default
 {
 <Data name="ModuleStreamDefaultData">

From 338d7bf5a6d643c811831d9071b9180595b66b0c Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 29 Jan 2025 15:25:27 -0500
Subject: [PATCH 15/16] style: fix a typo in variable naming

---
 src/cls/IPM/StudioDocument/Module.cls | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cls/IPM/StudioDocument/Module.cls b/src/cls/IPM/StudioDocument/Module.cls
index 3022a778..6b2c1c6f 100644
--- a/src/cls/IPM/StudioDocument/Module.cls
+++ b/src/cls/IPM/StudioDocument/Module.cls
@@ -389,7 +389,7 @@ ClassMethod CompiledUpdateVersionXSLT(semver As %IPM.General.SemanticVersion) As
 ClassMethod UpdateVersion(moduleName As %String, semver As %IPM.General.SemanticVersion)
 {
 	// Can't use %IPM.Repo.XSLTProvider because we need to pass a parameter
-	Set compiledTransfrom = ..CompiledUpdateVersionXSLT(semver)
+	Set compiledTransform = ..CompiledUpdateVersionXSLT(semver)
 	Set document = ##class(%Library.RoutineMgr).%OpenId(moduleName_".ZPM")
 	If '$IsObject(document) {
 		// %Library.RoutineMgr:%OpenId doesn't have a byref status arg.
@@ -397,7 +397,7 @@ ClassMethod UpdateVersion(moduleName As %String, semver As %IPM.General.Semantic
 	}
 
 	$$$ThrowOnError(document.Code.Rewind())
-	$$$ThrowOnError(##class(%XML.XSLT.Transformer).TransformStreamWithCompiledXSL(document.Code, compiledTransfrom, .updatedContents))
+	$$$ThrowOnError(##class(%XML.XSLT.Transformer).TransformStreamWithCompiledXSL(document.Code, compiledTransform, .updatedContents))
 	$$$ThrowOnError(document.Code.Clear())
 	$$$ThrowOnError(document.Code.CopyFrom(updatedContents))
 	$$$ThrowOnError(document.%Save())

From 87d304f9b5de44e59fb4fd9fdb60fbd8fb652d02 Mon Sep 17 00:00:00 2001
From: Shuheng Liu <shuheng.liu@intersystems.com>
Date: Wed, 29 Jan 2025 18:17:09 -0500
Subject: [PATCH 16/16] style: clean up file generated during integration tests

---
 .../resource-test/localize/HTTPStatuses.xml   | 71 -------------------
 1 file changed, 71 deletions(-)
 delete mode 100755 tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml

diff --git a/tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml b/tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml
deleted file mode 100755
index 5089633c..00000000
--- a/tests/integration_tests/Test/PM/Integration/_data/resource-test/localize/HTTPStatuses.xml
+++ /dev/null
@@ -1,71 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<MsgFile Language="en">
-   <MsgDomain Domain="HTTPStatus">
-      <Message Id="100Continue">100 Continue %1</Message>
-      <Message Id="101SwitchingProtocols">101 Switching Protocols %1</Message>
-      <Message Id="102Processing">102 Processing %1</Message>
-      <Message Id="200OK">200 OK %1</Message>
-      <Message Id="201Created">201 Created %1</Message>
-      <Message Id="202Accepted">202 Accepted %1</Message>
-      <Message Id="203NonAuthoritative">203 Non-Authoritative Information %1</Message>
-      <Message Id="204NoContent">204 No Content %1</Message>
-      <Message Id="205ResetContent">205 Reset Content %1</Message>
-      <Message Id="206PartialContent">206 Partial Content %1</Message>
-      <Message Id="207MultiStatus">207 Multi-Status %1</Message>
-      <Message Id="208AlreadyReported">208 Already Reported %1</Message>
-      <Message Id="226InstanceManipulationUsed">226 Instance Manipulation Used %1</Message>
-      <Message Id="300MultipleChoices">300 Multiple Choices %1</Message>
-      <Message Id="301MovedPermanently">301 Moved Permanently %1</Message>
-      <Message Id="302Found">302 Found %1</Message>
-      <Message Id="303SeeOther">303 See Other %1</Message>
-      <Message Id="304NotModified">304 Not Modified %1</Message>
-      <Message Id="305UseProxy">305 Use Proxy %1</Message>
-      <Message Id="306SwitchProxy">306 Switch Proxy %1</Message>
-      <Message Id="307TemporaryRedirect">307 Temporary Redirect %1</Message>
-      <Message Id="308PermanentRedirect">308 Permanent Redirect %1</Message>
-      <Message Id="400BadRequest">400 Bad Request %1</Message>
-      <Message Id="401Unauthorized">401 Unauthorized %1</Message>
-      <Message Id="402PaymentRequired">402 Payment Required %1</Message>
-      <Message Id="403Forbidden">403 Forbidden %1</Message>
-      <Message Id="404NotFound">404 Not Found %1</Message>
-      <Message Id="405MethodNotAllowed">405 Method Not Allowed %1</Message>
-      <Message Id="406NotAcceptable">406 Not Acceptable %1</Message>
-      <Message Id="407ProxyAuthenticationRequired">407 Proxy Authentication Required %1</Message>
-      <Message Id="408RequestTimeout">408 Request Timeout %1</Message>
-      <Message Id="409Conflict">409 Conflict %1</Message>
-      <Message Id="410Gone">410 Gone %1</Message>
-      <Message Id="411LengthRequired">411 Length Required %1</Message>
-      <Message Id="412PreconditionFailed">412 Precondition Failed %1</Message>
-      <Message Id="413PayloadTooLarge">413 Payload Too Large %1</Message>
-      <Message Id="414URITooLong">414 URI Too Long %1</Message>
-      <Message Id="415UnsupportedMediaType">415 Unsupported Media Type %1</Message>
-      <Message Id="416RangeNotSatisfiable">416 Range Not Satisfiable %1</Message>
-      <Message Id="417ExpectationFailed">417 Expectation Failed %1</Message>
-      <Message Id="418ImaTeapot">418 I'm a teapot %1</Message>
-      <Message Id="421MisdirectedRequest">421 Misdirected Request %1</Message>
-      <Message Id="422UnprocessableEntity">422 Unprocessable Entity %1</Message>
-      <Message Id="423Locked">423 Locked %1</Message>
-      <Message Id="424FailedDependency">424 Failed Dependency %1</Message>
-      <Message Id="426UpgradeRequired">426 Upgrade Required %1</Message>
-      <Message Id="428PreconditionRequired">428 Precondition Required %1</Message>
-      <Message Id="429TooManyRequests">429 Too Many Requests %1</Message>
-      <Message Id="431RequestHeaderFieldsTooLarge">431 Request Header Fields Too Large %1</Message>
-      <Message Id="440LoginTimeout">440 Login Timeout %1</Message>
-      <Message Id="449RetryWith">449 Retry With %1</Message>
-      <Message Id="451LegalReasons">451 Unavailable For Legal Reasons %1</Message>
-      <Message Id="500InternalServerError">500 Internal Server Error %1</Message>
-      <Message Id="501NotImplemented">501 Not Implemented %1</Message>
-      <Message Id="502BadGateway">502 Bad Gateway %1</Message>
-      <Message Id="503ServiceUnavailable">503 Service Unavailable %1</Message>
-      <Message Id="504GatewayTimeout">504 Gateway Timeout %1</Message>
-      <Message Id="505HTTPVersionNotSupported">505 HTTP Version Not Supported %1</Message>
-      <Message Id="506VariantAlsoNegotiates">506 Variant Also Negotiates %1</Message>
-      <Message Id="507InsufficientStorage">507 Insufficient Storage %1</Message>
-      <Message Id="508LoopDetected">508 Loop Detected %1</Message>
-      <Message Id="509BandwidthLimitExceeded">509 Bandwidth Limit Exceeded %1</Message>
-      <Message Id="510NotExtended">510 Not Extended %1</Message>
-      <Message Id="511NetworkAuthenticationRequired">511 Network Authentication Required %1</Message>
-      <Message Id="598NetworkReadTimeoutError">598 Network Read Timeout Error %1</Message>
-      <Message Id="599NetworkConnectTimeoutError">599 Network Connect Timeout Error %1</Message>
-   </MsgDomain>
-</MsgFile>