iris-pex-embedded-python 2.3.19__py3-none-any.whl → 2.3.21b1__py3-none-any.whl

grongier/iris/Grongier/PEX/OutboundAdapter.cls

@@ -1,34 +0,0 @@
-/* Copyright (c) 2021 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   Confidential property of InterSystems Corporation. */
-
-Class Grongier.PEX.OutboundAdapter Extends (Ens.OutboundAdapter, Grongier.PEX.Common) [ Inheritance = right, ProcedureBlock, System = 4 ]
-{
-
-Property KeepaliveInterval As %Numeric [ InitialExpression = 0 ];
-
-Parameter SETTINGS = "KeepaliveInterval:Python CallInterval,%classname:Python OutboundAdapter,%module:Python OutboundAdapter,%settings:Python OutboundAdapter,%classpaths:Python OutboundAdapter";
-
-Method %DispatchMethod(method As %String, args...) As %ObjectHandle
-{
-	if $quit {
-		quit $method($this.%class,method,args...)
-	} else {
-		do $method($this.%class,method,args...)
-		quit
-	}
-}
-
-Method OnKeepalive(pStatus As %Status = {$$$OK}) As %Status
-{
-	set tSC = $$$OK
-	try {
-		$$$ThrowOnError(##super(pStatus))
-		do ..%class."on_keepalive"()
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-}

grongier/iris/Grongier/PEX/PickleMessage.cls

@@ -1,58 +0,0 @@
-/* Copyright (c) 2021 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   Confidential property of InterSystems Corporation. */
-
-Class Grongier.PEX.PickleMessage Extends (Ens.MessageBody, %CSP.Page)
-{
-
-Property classname As %String(MAXLEN = "");
-
-Property jstr As %Stream.GlobalCharacter [ Internal, Private ];
-
-Method %OnNew(classname) As %Status [ Private, ServerOnly = 1 ]
-{
-	set ..classname = $g(classname)
-	Quit $$$OK
-}
-
-/// This method is called by the Management Portal to determine the content type that will be returned by the <method>%ShowContents</method> method.
-/// The return value is a string containing an HTTP content type.
-Method %GetContentType() As %String
-{
-	Quit "text/html"
-}
-
-/// This method is called by the Management Portal to display a message-specific content viewer.<br>
-/// This method displays its content by writing out to the current device.
-/// The content should match the type returned by the <method>%GetContentType</method> method.<br>
-Method %ShowContents(pZenOutput As %Boolean = 0)
-{
-	// https://github.com/bazh/jquery.json-view
-	&html<<div id="element">#(..classname)#</div>>
-	&html<<div>Pickle Pyhton Message can't be displayed</div>>
-}
-
-Storage Default
-{
-<Data name="MessageDefaultData">
-<Subscript>"Message"</Subscript>
-<Value name="1">
-<Value>classname</Value>
-</Value>
-<Value name="2">
-<Value>json</Value>
-</Value>
-<Value name="3">
-<Value>jstr</Value>
-</Value>
-</Data>
-<Data name="jsonObject">
-<Attribute>jsonObject</Attribute>
-<Structure>node</Structure>
-<Subscript>"Grongier.PEX.Message.jsonObject"</Subscript>
-</Data>
-<DefaultData>MessageDefaultData</DefaultData>
-<Type>%Storage.Persistent</Type>
-}
-
-}

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

@@ -1,247 +0,0 @@
-/* Copyright (c) 2022 by InterSystems Corporation.
-   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 ]
-{
-
-/// 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/iris/Grongier/PEX/PrivateSession/Message/Ack.cls

@@ -1,32 +0,0 @@
-/* Copyright (c) 2022 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   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 ]
-{
-
-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/iris/Grongier/PEX/PrivateSession/Message/Poll.cls

@@ -1,32 +0,0 @@
-/* Copyright (c) 2022 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   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 ]
-{
-
-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/iris/Grongier/PEX/PrivateSession/Message/Start.cls

@@ -1,32 +0,0 @@
-/* Copyright (c) 2022 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   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 ]
-{
-
-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/iris/Grongier/PEX/PrivateSession/Message/Stop.cls

@@ -1,48 +0,0 @@
-/* Copyright (c) 2022 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   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 ]
-{
-
-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/iris/Grongier/PEX/Python.cls

@@ -1,27 +0,0 @@
-/// Description
-Class Grongier.PEX.Python
-{
-
-/// Set classPath
-ClassMethod SetClassPath(classPath As %String) As %Status [ Language = python ]
-{
-import sys
-return sys.path.append(classPath)
-}
-
-/// GetInstanceFromModuleClassName
-ClassMethod GetInstanceFromModuleClassName(modulename, classname) As %SYS.Python [ Language = python ]
-{
-import builtins
-import importlib
-module = importlib.import_module(modulename)
-return getattr(module, classname)()
-}
-
-/// Lenght of python list
-ClassMethod Len(pList) [ Language = python ]
-{
-return len(pList)
-}
-
-}

grongier/iris/Grongier/PEX/Test.cls

@@ -1,62 +0,0 @@
-/// Description
-Class Grongier.PEX.Test Extends %Persistent
-{
-
-/// 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>
-}
-
-}