iris-pex-embedded-python 2.3.28b2__py3-none-any.whl → 3.0.0__py3-none-any.whl

grongier/cls/Grongier/PEX/PrivateSession/Duplex.cls

@@ -2,259 +2,7 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.PrivateSessionDuplex Extends (Grongier.PEX.Common, Ens.BusinessDuplex) [ Abstract, System = 4 ]
+Class Grongier.PEX.PrivateSessionDuplex Extends IOP.PrivateSessionDuplex [ Abstract, System = 4 ]
 {
 
-/// Domain for error messages   
-Parameter DOMAIN = "PrivateSession";
-
-Parameter SETTINGS = "DuplexTargetConfigName,%classname:Python BusinessProcess,%module:Python BusinessProcess,%settings:Python BusinessProcess,%classpaths:Python BusinessProcess";
-
-/// Configuration item(s) to which to send messages
-Property DuplexTargetConfigName As %String(MAXLEN = 1000);
-
-/// This holds the deferred response token
-Property DeferredResponseToken As %String;
-
-/// This holds data that is not yet ready for processing
-Property ReceivedDataQueue As list Of %Library.Persistent;
-
-/// This method is called by the TCP Adapter when a message is received.
-Method OnProcessInput(
-	pInput As %Persistent,
-	Output pOutput As %Persistent,
-	ByRef pHint As %String) As %Status
-{
-	set tSC = $$$OK
-	try {
-		try {
-			set ..%class."_wait_for_next_call_interval" = ..%WaitForNextCallInterval
-		}catch {}
-            set pOutput = ..%class."_dispatch_on_process_input"(pInput)
-		try {
-			set ..%WaitForNextCallInterval = ..%class."_wait_for_next_call_interval"
-		}catch {}
-} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method dispatchSendDocumentToProcess(pDocument) As %String
-{
-	set tSC = ..SendDocumentToProcess(pDocument)
-	if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-	quit
-}
-
-Method SendDocumentToProcess(pDocument As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        If '..%InPrivateSession Set tSC=..StartPrivateSession() Quit:$$$ISERR(tSC)
-        If ..DeferredResponseToken'="" {
-            Set tSC=..SendDeferredResponse(..DeferredResponseToken,pDocument) If $$$ISERR(tSC) Quit
-            Set ..DeferredResponseToken=""
-        } else {
-            Do ..ReceivedDataQueue.Insert(pDocument)
-        }
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method StartPrivateSession() As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        If ..%InPrivateSession Quit
-        Set tSC = ..RegisterPrivateSession() Quit:$$$ISERR(tSC)
-        Set tSC=..SendRequestAsync(..DuplexTargetConfigName,##class(Grongier.PEX.PrivateSession.Message.Start).%New()) Quit:$$$ISERR(tSC)
-        Set tSC = ..OnPrivateSessionStarted(1) Quit:$$$ISERR(tSC)
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method StopPrivateSession(pAttachedMessage As %Persistent = "") As %Status
-{
-    #dim tSC As %Status = $$$OK
-    #dim tMessageHeaderId As %String
-    #dim tRequestHeader As Ens.MessageHeader
-    try {
-	    If ..%InPrivateSession {
-	        #; Target might receive stop message before this job unregisters and therefore need to remove queue pointer 
-	        If ..DeferredResponseToken'="" {
-		        try {
-					Set tMessageHeaderId=$p(..DeferredResponseToken,"|",1)
-					Set tRequestHeader=##Class(Ens.MessageHeader).%OpenId(tMessageHeaderId,,.tSC) Quit:$$$ISERR(tSC)
-					If $$$ConfigSessionQueueName(..%ConfigName,..%PrivateSessionId)'=tRequestHeader.ReturnQueueName {
-			        	Kill $$$ConfigSessionQueueName(..%ConfigName,..%PrivateSessionId)
-					}
-					Set tRequestHeader=""
-		        } catch {}
-	        }
-			Set tSC=..SendDocumentToProcess(##class(Grongier.PEX.PrivateSession.Message.Stop).%New(pAttachedMessage)) Quit:$$$ISERR(tSC)
-            Set tSC=..UnRegisterPrivateSession()
-            set ..DeferredResponseToken=""
-            
-            #; Ensure all messages are delivered including STOP message (JN1098)
-            #; Do ..ReceivedDataQueue.Clear()
-            Set tSC=..OnPrivateSessionStopped(1) Quit:$$$ISERR(tSC)
-        }
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method RegisterPrivateSession() As %Status
-{
-	If ..%InPrivateSession Quit $$$OK
-	If ..%SessionId="" Set tSC=..ForceSessionId() Quit:$$$ISERR(tSC) tSC
-	Set ..%PrivateSessionId=..%SessionId
-	Set tSC = ##class(Ens.Queue).Create(..QueueName()) Quit:$$$ISERR(tSC) tSC
-
-    try {
-        Set tSC=..Adapter.OpenEventDevice() 
-    }
-    catch {
-
-    }
-	
-	Set $$$ConfigSessionQueueName(..%ConfigName,..%SessionId)=..QueueName()
-	$$$sysTRACE("Registered Private Session '"_..%PrivateSessionId_"'")
-	Quit $$$OK
-}
-
-Method UnRegisterPrivateSession() As %Status
-{
-	If '..%InPrivateSession Quit $$$OK
-	Kill $$$ConfigSessionQueueName(..%ConfigName,..%PrivateSessionId)
-    try {
-        Set tSC=..Adapter.CloseEventDevice()
-    }
-    catch {
-
-    }
-	 
-	Set tSC=##class(Ens.Queue).Delete(..QueueName(),"*") Quit:$$$ISERR(tSC) tSC
-	$$$sysTRACE("Unregistered Private Session '"_..%PrivateSessionId_"'")
-	Set ..%PrivateSessionId=""
-	Set ..%SessionId=""
-	Kill $$$JobSessionId
-	Quit $$$OK
-}
-
-XData MessageMap
-{
-<MapItems>
-<MapItem MessageType="Grongier.PEX.PrivateSession.Message.Start"><Method>OnMsgPrivateSessionStart</Method></MapItem>
-<MapItem MessageType="Grongier.PEX.PrivateSession.Message.Stop"><Method>OnMsgPrivateSessionStop</Method></MapItem>
-<MapItem MessageType="Grongier.PEX.PrivateSession.Message.Poll"><Method>OnMsgPrivateSessionPoll</Method></MapItem>
-</MapItems>
-}
-
-Method OnMsgPrivateSessionStart(
-	pRequest As Grongier.PEX.PrivateSession.Message.Start,
-	Output pResponse As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        Set tSC=..RegisterPrivateSession() Quit:$$$ISERR(tSC)
-        Set tSC=..OnPrivateSessionStarted(0) Quit:$$$ISERR(tSC)
-        Kill %objlasterror Set pResponse=##class(Grongier.PEX.PrivateSession.Message.Ack).%New()
-        If '$IsObject(pResponse) Set tSC=$$$ERROR($$$FailedToNewClass,"Grongier.PEX.PrivateSession.Message.Ack") Quit
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method OnMsgPrivateSessionStop(
-	pRequest As Grongier.PEX.PrivateSession.Message.Stop,
-	Output pResponse As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        Set tSC=..UnRegisterPrivateSession() Quit:$$$ISERR(tSC)
-        set ..DeferredResponseToken=""
-        do ..ReceivedDataQueue.Clear()
-        Set tSC=..OnPrivateSessionStopped(0,pRequest.AttachedMessage) Quit:$$$ISERR(tSC)
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-Method OnMsgPrivateSessionPoll(
-	pPollIn As Grongier.PEX.PrivateSession.Message.Poll,
-	Output pResponse As %Library.Persistent) As %Status
-{
-    #dim tSC As %Status = $$$OK
-    #dim tToken As %String
-    try  {
-        If ..ReceivedDataQueue.Count() {
-            Set pResponse=..ReceivedDataQueue.GetAt(1)
-            do ..ReceivedDataQueue.RemoveAt(1)
-        } Else {
-            Set tSC=..DeferResponse(.tToken) If $$$ISERR(tSC) Quit
-            Set ..DeferredResponseToken=tToken
-        }
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
-/// Return an array of connections for drawing lines on the config diagram
-ClassMethod OnGetConnections(
-	Output pArray As %String,
-	pItem As Ens.Config.Item)
-{
-    Do ##super(.pArray,pItem)
-    If pItem.GetModifiedSetting("DuplexTargetConfigName",.tValue) {
-        Set tOne=$ZStrip(tValue,"<>W")
-        Set:""'=tOne pArray(tOne)=""
-    }
-}
-
-Method OnPrivateSessionStarted(pSelfGenerated As %Boolean) As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_private_session_started"($this,pSelfGenerated)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method OnPrivateSessionStopped(
-	pSelfGenerated As %Boolean,
-	pAttachedMessage As %Persistent = "") As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_private_session_stopped"($this,pSelfGenerated,pAttachedMessage)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method OnTearDown() As %Status
-{
-    #dim tSC As %Status = $$$OK
-    try {
-        If ..%InPrivateSession Set tSC=..StopPrivateSession() Quit:$$$ISERR(tSC)
-        do ..%class."_dispatch_on_tear_down"()
-    } catch {
-        Set tSC=$$$EnsSystemError
-    }
-    Quit tSC
-}
-
 }

grongier/cls/Grongier/PEX/PrivateSession/Message/Ack.cls

@@ -3,29 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Ack Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Ack Extends IOP.PrivateSession.Message.Ack [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	Write $$$Text("(session-ack)")
-}
-
 Storage Default
 {
-<Data name="AckDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.PrivateSe9756.AckD</DataLocation>
-<DefaultData>AckDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.PrivateSe9756.AckD</IdLocation>
-<IndexLocation>^Grongier.PEX.PrivateSe9756.AckI</IndexLocation>
-<StreamLocation>^Grongier.PEX.PrivateSe9756.AckS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/PrivateSession/Message/Poll.cls

@@ -3,29 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Poll Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Poll Extends IOP.PrivateSession.Message.Poll [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	Write $$$Text("(poll-data)")
-}
-
 Storage Default
 {
-<Data name="PollDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.PrivateS9756.PollD</DataLocation>
-<DefaultData>PollDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.PrivateS9756.PollD</IdLocation>
-<IndexLocation>^Grongier.PEX.PrivateS9756.PollI</IndexLocation>
-<StreamLocation>^Grongier.PEX.PrivateS9756.PollS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/PrivateSession/Message/Start.cls

@@ -3,29 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Start Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Start Extends IOP.PrivateSession.Message.Start [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	Write $$$Text("(session-start)")
-}
-
 Storage Default
 {
-<Data name="StartDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.Private9756.StartD</DataLocation>
-<DefaultData>StartDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.Private9756.StartD</IdLocation>
-<IndexLocation>^Grongier.PEX.Private9756.StartI</IndexLocation>
-<StreamLocation>^Grongier.PEX.Private9756.StartS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/PrivateSession/Message/Stop.cls

@@ -3,45 +3,11 @@
    Confidential property of InterSystems Corporation. */
 
 /// This class is a DICOM framework class
-Class Grongier.PEX.PrivateSession.Message.Stop Extends (%Persistent, Ens.Util.MessageBodyMethods) [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.PrivateSession.Message.Stop Extends IOP.PrivateSession.Message.Stop [ ClassType = persistent, Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter DOMAIN = "PrivateSession";
-
-/// The message body
-Property AttachedMessage As %Persistent(CLASSNAME = 1);
-
-/// From 'Ens.Util.MessageBodyMethods'
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	If $IsObject(..AttachedMessage) {
-		Write $$$FormatText($$$Text("(session-stop) with AttachedMessage [%1] "),$classname(..AttachedMessage))
-	} Else {
-		Write $$$Text("(session-stop)")
-	}
-}
-
-Method %OnNew(initvalue As %RegisteredObject) As %Status [ Private, ProcedureBlock = 1, ServerOnly = 1 ]
-{
-	Set ..AttachedMessage=initvalue
-	Quit $$$OK
-}
-
 Storage Default
 {
-<Data name="StopDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>AttachedMessage</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.PrivateS9756.StopD</DataLocation>
-<DefaultData>StopDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.PrivateS9756.StopD</IdLocation>
-<IndexLocation>^Grongier.PEX.PrivateS9756.StopI</IndexLocation>
-<StreamLocation>^Grongier.PEX.PrivateS9756.StopS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/Test.cls

@@ -1,61 +1,9 @@
 /// Description
-Class Grongier.PEX.Test Extends %Persistent
+Class Grongier.PEX.Test Extends IOP.Test
 {
 
-/// Register
-ClassMethod Register() As %Status
-{
-	Set sc = $$$OK
-	zw ##class(Grongier.PEX.Utils).RegisterComponent("MyBusinessOperationWithAdapter","MyBusinessOperationWithAdapter","/irisdev/app/src/python/demo/",1,"PEX.MyBusinessOperationWithAdapter")
-	#dim array as %ArrayOfObjects
-	Return sc
-}
-
-ClassMethod TestBO() As %Status
-{
-	try {
-	Set sc = $$$OK
-	set mybo = ##class(Grongier.PEX.BusinessOperation).%New("mybo")
-	set mybo.%classpaths = "/irisdev/app/src/python/demo"
-	set mybo.%module = "MyBusinessOperationWithAdapter"
-	set mybo.%classname = "MyBusinessOperationWithAdapter"
-	$$$ThrowOnError(mybo.OnInit())
-	set request = ##class(Ens.StringRequest).%New("hello")
-	set request = ##class(EnsLib.PEX.Message).%New()
-	set request.%classname = "MyRequest.MyRequest"
-	set dyna = {"requestString":"hello!"}
-	set request.%jsonObject = dyna
-	Try {
-		$$$ThrowOnError(mybo.OnMessage(request,.response))
-		zw response
-	} catch importEx {
-		WRITE $System.Status.GetOneStatusText(importEx.AsStatus(),1),!
-	}
-	} catch ex {
-		WRITE $System.Status.GetOneStatusText(ex.AsStatus(),1),!
-	}
-
-	Return sc
-}
-
-/// List
-ClassMethod PythonList() [ Language = python ]
-{
-return [ 1, 3 ]
-}
-
 Storage Default
 {
-<Data name="TestDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-<DataLocation>^Grongier.PEX.TestD</DataLocation>
-<DefaultData>TestDefaultData</DefaultData>
-<IdLocation>^Grongier.PEX.TestD</IdLocation>
-<IndexLocation>^Grongier.PEX.TestI</IndexLocation>
-<StreamLocation>^Grongier.PEX.TestS</StreamLocation>
 <Type>%Storage.Persistent</Type>
 }