iris-pex-embedded-python 3.0.1b9__tar.gz → 3.0.1b10__tar.gz

{iris_pex_embedded_python-3.0.1b9/src/iris_pex_embedded_python.egg-info → iris_pex_embedded_python-3.0.1b10}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.1
 Name: iris_pex_embedded_python
-Version: 3.0.1b9
+Version: 3.0.1b10
 Summary: Iris Interoperability based on Embedded Python
 Author-email: grongier <guillaume.rongier@intersystems.com>
 License: MIT License

{iris_pex_embedded_python-3.0.1b9 → iris_pex_embedded_python-3.0.1b10}/pyproject.toml

@@ -3,7 +3,7 @@ requires = ["setuptools", "wheel"]
 
 [project]
 name = "iris_pex_embedded_python"
-version = "3.0.1b9"
+version = "3.0.1b10"
 description = "Iris Interoperability based on Embedded Python"
 readme = "README.md"
 authors = [

{iris_pex_embedded_python-3.0.1b9 → iris_pex_embedded_python-3.0.1b10}/src/iop/_business_host.py

@@ -1,3 +1,4 @@
+import asyncio
 import datetime
 import pickle
 import codecs
@@ -133,7 +134,6 @@ class _BusinessHost(_Common):
         Raises:
         TypeError: if request is not of type Message or IRISObject.
         """
-
         return self.iris_handle.dispatchSendRequestSync(target,request,timeout,description)
 
     @input_serialzer_param(1,'request')
@@ -151,6 +151,17 @@ class _BusinessHost(_Common):
         """
         
         return self.iris_handle.dispatchSendRequestAsync(target,request,description)
+    
+    async def send_request_async_ng(self, target, request, timeout=-1, description=None):
+        """ Send the specified message to the target business process or business operation asynchronously.
+        Parameters:
+        target: a string that specifies the name of the business process or operation to receive the request. 
+            The target is the name of the component as specified in the Item Name property in the production definition, not the class name of the component.
+        request: specifies the message to send to the target. The request is an instance of IRISObject or of a subclass of Message.
+            If the target is a built-in ObjectScript component, you should use the IRISObject class. The IRISObject class enables the PEX framework to convert the message to a class supported by the target.
+        description: an optional string parameter that sets a description property in the message header. The default is None.
+        """
+        return await _send_request_async_ng(target, request, timeout ,description, self)
 
     def send_multi_request_sync(self, target_request:list, timeout=-1, description=None)->list:
         """ Send the specified list of tuple (target,request) to business process or business operation synchronously.
@@ -550,3 +561,60 @@ class IrisJSONDecoder(json.JSONDecoder):
             else:
                 ret[key] = value
         return ret
+
+class _send_request_async_ng(asyncio.Future):
+
+    _message_header_id = 0
+    _queue_name = ""
+    _end_time = 0
+    _response = None
+    _done = False
+
+    def __init__(self, target, request, timeout=-1, description=None, host=None):
+        super().__init__()
+        self.target = target
+        self.request = request
+        self.timeout = timeout
+        self.description = description
+        self.host = host
+        self._iris_handle = host.iris_handle
+        asyncio.create_task(self.send())
+
+    async def send(self):
+        # init parameters
+        message_header_id = iris.ref()
+        queue_name = iris.ref()
+        end_time = iris.ref()
+        request = self.host._dispatch_serializer(self.request)
+
+        # send request
+        self._iris_handle.dispatchSendRequestAsyncNG(
+            self.target, request, self.timeout, self.description,
+            message_header_id, queue_name, end_time)
+        
+        # get byref values
+        self._message_header_id = message_header_id.value
+        self._queue_name = queue_name.value
+        self._end_time = end_time.value
+
+        while not self._done:
+            await asyncio.sleep(0.1)
+            self.is_done()
+
+        self.set_result(self._response)
+
+    def is_done(self):
+        response = iris.ref()
+        status = self._iris_handle.dispatchIsRequestDone(self.timeout, self._end_time,
+                                                         self._queue_name, self._message_header_id,
+                                                         response)
+        
+        self._response = self.host._dispatch_deserializer(response.value)
+
+        if status == 2: # message found
+            self._done = True
+        elif status == 1: # message not found
+            pass
+        else:
+            self._done = True
+            self.set_exception(RuntimeError(iris.system.Status.GetOneStatusText(status)))

{iris_pex_embedded_python-3.0.1b9 → iris_pex_embedded_python-3.0.1b10}/src/iop/cls/IOP/Common.cls

@@ -139,12 +139,12 @@ Method SetPropertyValues()
 }
 
 Method dispatchSendRequestSync(
-	target,
-	request,
+	pTarget,
+	pRequest,
 	timeout,
-	description) As %String
+	pDescription) As %String
 {
-    set tSC = ..SendRequestSync(target,request,.objResponse,timeout,description)
+    set tSC = ..SendRequestSync(pTarget,pRequest,.objResponse,timeout,pDescription)
     if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
     quit $g(objResponse)
 }
@@ -162,7 +162,7 @@ Method dispatchSendRequestSyncMultiple(
 
     set tSC = ..SendRequestSyncMultiple(.tCallStructList,pTimeout)
     if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-    
+
     // Convert multidimensional array to Python list
     set tResponseList = builtins.list()
     
@@ -173,11 +173,11 @@ Method dispatchSendRequestSyncMultiple(
 }
 
 Method dispatchSendRequestAsync(
-	target,
-	request,
-	description)
+	pTarget,
+	pRequest,
+	pDescription)
 {
-    set tSC = ..SendRequestAsync(target,request,description)
+    set tSC = ..SendRequestAsync(pTarget,pRequest,pDescription)
     if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
     quit
 }
@@ -223,4 +223,116 @@ ClassMethod OnGetConnections(
     quit
 }
 
+Method dispatchSendRequestAsyncNG(
+	pTarget,
+	pRequest,
+	pTimeout,
+	pDescription,
+	ByRef pMessageHeaderId,
+	ByRef pQueueName,
+	ByRef pEndTime) As %String
+{
+	set tSC=$$$OK, tResponse=$$$NULLOREF
+	try {
+
+        set tTargetDispatchName=pTarget
+        set tTargetConfigName=$get($$$DispatchNameToConfigName(pTarget))
+        if tTargetConfigName="" set tSC=$$$EnsError($$$EnsErrBusinessDispatchNameNotRegistered,tTargetDispatchName) quit
+        set tTargetBusinessClass = $$$ConfigClassName(tTargetConfigName)
+        set tINVOCATION=$classmethod(tTargetBusinessClass,"%GetParameter","INVOCATION")
+        if (tINVOCATION'="Queue")&&(tINVOCATION'="InProc") set tSC=$$$ERROR($$$EnsErrParameterInvocationInvalid,tTargetBusinessClass) quit
+
+        quit:$$$ISERR(tSC)
+        ;
+        set tStartTime=$zh
+        set:pTimeout'=-1 tEndTime=$zh+pTimeout
+
+        if tINVOCATION="InProc" {
+            set tTimeout=$s(pTimeout=-1:-1,1:tEndTime-$zh)
+            if (pTimeout'=-1)&&(tTimeout<0) quit
+            set tSC=..SendRequestSync(tTargetConfigName,pRequest,.tResponse,tTimeout,pDescription)
+            return tResponse
+        } elseif tINVOCATION="Queue" {
+            Set tSessionId=..%SessionId
+            Set tSuperSession = ..%SuperSession
+            Set tSC = ##class(Ens.MessageHeader).NewRequestMessage(.tRequestHeader,pRequest,.tSessionId,.tSuperSession) quit:$$$ISERR(tSC)
+            Set ..%SessionId=tSessionId
+            Set ..%SuperSession=tSuperSession
+            Set tRequestHeader.SourceConfigName = ..%ConfigName
+            Set tRequestHeader.TargetConfigName = tTargetConfigName
+            Set tRequestHeader.SourceBusinessType = $$$ConfigBusinessType($$$DispatchNameToConfigName(..%ConfigName))
+            Set tRequestHeader.TargetBusinessType = $$$ConfigBusinessType($$$DispatchNameToConfigName(tTargetConfigName))
+            Set tRequestHeader.TargetQueueName = $$$getConfigQueueName($$$DispatchNameToConfigName(tTargetConfigName),..%SessionId)
+            Set tRequestHeader.ReturnQueueName = $$$queueSyncCallQueueName
+            Set tRequestHeader.BusinessProcessId = ""
+            Set tRequestHeader.Priority = $$$eMessagePriorityAsync
+            Set tRequestHeader.Description = pDescription
+            Set tSC = ##class(Ens.Queue).Create($$$queueSyncCallQueueName) quit:$$$ISERR(tSC)
+            Set tSC = ##class(Ens.Queue).EnQueue(tRequestHeader) quit:$$$ISERR(tSC)
+            Set pMessageHeaderId = tRequestHeader.MessageId()
+            Set pQueueName = $$$queueSyncCallQueueName
+            Set:(pTimeout'=-1) pEndTime = tEndTime
+        }
+	}
+	catch {
+		set tSC = $$$EnsSystemError
+	}
+	quit tSC
+}
+
+Method dispatchIsRequestDone(
+	pTimeout,
+	pEndTime,
+	pQueueName,
+	pMessageHeaderId,
+	ByRef pResponse) As %Status
+{
+
+    set tSC=$$$OK
+    try {
+        set tTimeout=$s(pTimeout=-1:-1,1:pEndTime-$zh)
+
+        set tSC = ##class(Ens.Queue).DeQueue($$$queueSyncCallQueueName,.tResponseHeader,tTimeout,.tIsTimedOut,0) Quit:$$$ISERR(tSC)
+
+        quit:$IsObject(tResponseHeader)=0
+
+        set tFound = $select(tResponseHeader.CorrespondingMessageId: pMessageHeaderId=tResponseHeader.CorrespondingMessageId, 1: 0)
+        if tFound=0 {
+
+            set tSC = ##class(Ens.Queue).EnQueue(tResponseHeader)
+            Kill $$$EnsActiveMessage($$$SystemName_":"_$Job)
+        }
+        else {
+
+            if tIsTimedOut || ((pTimeout'=-1)&&(tTimeout<0)) {
+
+                do tResponseHeader.SetStatus($$$eMessageStatusDiscarded)
+                return $$$ERROR($$$EnsErrFailureTimeout, tTimeout, $$$StatusDisplayString(tSC), $$$CurrentClass)
+            }
+            if tResponseHeader.IsError {
+
+                do tResponseHeader.SetStatus($$$eMessageStatusCompleted)
+                return $$$EnsError($$$EnsErrGeneral,"Error message received: "_tResponseHeader.ErrorText)
+                
+            }
+            if tResponseHeader.MessageBodyClassName'="" {
+
+                set tResponse = $classmethod(tResponseHeader.MessageBodyClassName,"%OpenId",tResponseHeader.MessageBodyId,,.tSC)
+                if '$IsObject(tResponse) return $$$EnsError($$$EnsErrGeneral,"Could not open MessageBody "_tResponseHeader.MessageBodyId_" for MessageHeader #"_tResponseHeader.%Id()_" with body class "_tResponseHeader.MessageBodyClassName_":"_$$$StatusDisplayString(tSC)) 
+            } else {
+
+                set tResponse=$$$NULLOREF
+            }
+            set pResponse=tResponse
+            do tResponseHeader.SetStatus($$$eMessageStatusCompleted)
+            set tSC = 2
+
+        }
+    }
+	catch ex {
+		set tSC = ex.AsStatus()
+	}
+	quit tSC
+}
+
 }

{iris_pex_embedded_python-3.0.1b9 → iris_pex_embedded_python-3.0.1b10/src/iris_pex_embedded_python.egg-info}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.1
 Name: iris_pex_embedded_python
-Version: 3.0.1b9
+Version: 3.0.1b10
 Summary: Iris Interoperability based on Embedded Python
 Author-email: grongier <guillaume.rongier@intersystems.com>
 License: MIT License