Add initial support for venv and update related settings

Author: grongierisc

CHANGELOG.md

@@ -5,6 +5,11 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+
+## [unreleased] - Unreleased
+### Added
+- Initial support for venv
+
 ## [3.4.4] - 2025-06-13
 ### Added
 

src/iop/cls/IOP/BusinessProcess.cls

@@ -140,6 +140,9 @@ Storage Default
 <Value name="13">
 <Value>%PythonRuntimeLibraryVersion</Value>
 </Value>
+<Value name="14">
+<Value>%Venv</Value>
+</Value>
 </Data>
 <Data name="persistentProperties">
 <Attribute>persistentProperties</Attribute>

src/iop/cls/IOP/Common.cls

@@ -29,6 +29,8 @@ Property %PythonInterpreterPath As %String(MAXLEN = 255);
 
 Property %traceback As %Boolean [ InitialExpression = 1 ];
 
+Property %Venv As %Boolean [ InitialExpression = 0 ];
+
 Property %PythonPath As %String(MAXLEN = 255);
 
 Property %PythonRuntimeLibrary As %String(MAXLEN = 255);
@@ -84,9 +86,17 @@ Method DisplayTraceback(ex) As %Status
 Method OnInit() As %Status
 {
     set tSC = $$$OK
+    set tSemName = "^PythonSettings"
+    if $SYSTEM.Semaphore.Open(tSemName) '= 1 {
+        // Create the semaphore if it does not exist
+        set tSC = $SYSTEM.Semaphore.Create(tSemName)
+    }
     try {
         LOCK +^PythonSettings:5
-        do ##class(IOP.Utils).SetPythonSettings(..%PythonRuntimeLibrary, ..%PythonPath, ..%PythonRuntimeLibraryVersion)
+
+        if ..%Venv {
+            $$$ThrowOnError(##class(IOP.Utils).SetPythonSettings(..%PythonRuntimeLibrary, ..%PythonPath, ..%PythonRuntimeLibraryVersion))
+        }
 
         do ..DisplayPythonVersion()
 
@@ -102,6 +112,7 @@ Method OnInit() As %Status
 
         set tSC = ..DisplayTraceback(ex)
     }
+    LOCK -^PythonSettings
     quit tSC
 }
 
@@ -226,6 +237,11 @@ Method SetPropertyValues()
     set tSQL = tSQL _ " and name <> '%port'"
     set tSQL = tSQL _ " and name <> '%PythonInterpreterPath'"
     set tSQL = tSQL _ " and name <> '%traceback'"
+    set tSQL = tSQL _ " and name <> '%PythonPath'"
+    set tSQL = tSQL _ " and name <> '%PythonRuntimeLibrary'"
+    set tSQL = tSQL _ " and name <> '%PythonRuntimeLibraryVersion'"
+    set tSQL = tSQL _ " and name <> '%settings'"
+    set tSQL = tSQL _ " and name <> '%Venv'"
 
     set tStmt = ##class(%SQL.Statement).%New()
 

src/iop/cls/IOP/Utils.cls

@@ -240,7 +240,7 @@ ClassMethod GenerateProxyClass(
 		#; Do not display any of the connection settings
  		#dim tSETTINGSParamValue As %String = "%classname:Python $type,%module:Python $type,%settings:Python $type,%classpaths:Python $type"
 		set tSETTINGSParamValue = tSETTINGSParamValue_","_"%enable:Python Debug $type,%timeout:Python Debug $type,%port:Python Debug $type,%PythonInterpreterPath:Python Debug $type,%traceback:Python Debug $type"
-		set tSETTINGSParamValue = tSETTINGSParamValue_","_"%PythonPath:Python Settings $type,%PythonRuntimeLibrary:Python Settings $type,%PythonRuntimeLibraryVersion:Python Settings $type"
+		set tSETTINGSParamValue = tSETTINGSParamValue_","_"%PythonPath:Python Settings $type,%PythonRuntimeLibrary:Python Settings $type,%PythonRuntimeLibraryVersion:Python Settings $type,%Venv:Python Settings $type"
 
 		#dim tPropClassname As %Dictionary.PropertyDefinition = ##class(%Dictionary.PropertyDefinition).%New()
 		Set tPropClassname.Name = "%classname"
@@ -468,10 +468,12 @@ ClassMethod dispatchTestComponent(
 ClassMethod SetPythonSettings(
 	pPythonLib,
 	pPythonPath,
-	pPythonVersion)
+	pPythonVersion) As %Status
 {
     set currentNS = $namespace
     set $NAMESPACE = "%SYS"
+	set tSC = $$$OK
+
     try {
         // Get Config
         $$$ThrowOnError(##Class(Config.config).Get(.Properties))
@@ -491,11 +493,11 @@ ClassMethod SetPythonSettings(
         }
         $$$ThrowOnError(##Class(Config.config).Modify(.Properties))
     } catch ex {
-        set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
-        set ^PLOG=msg
+        set tSC = ex.AsStatus()
     }
 
     set $NAMESPACE = currentNS
+	Quit tSC
 }
 
 }