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

grongier/cls/Grongier/PEX/BusinessOperation.cls

@@ -2,34 +2,7 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.BusinessOperation Extends (Ens.BusinessOperation, Grongier.PEX.Common) [ Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.BusinessOperation Extends IOP.BusinessOperation [ Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter SETTINGS = "%classname:Python BusinessOperation,%module:Python BusinessOperation,%settings:Python BusinessOperation,%classpaths:Python BusinessOperation";
-
-Method OnMessage(
-	request As %Library.Persistent,
-	Output response As %Library.Persistent) As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_message"(request)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-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/cls/Grongier/PEX/BusinessProcess.cls

@@ -2,122 +2,11 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.BusinessProcess Extends (Ens.BusinessProcess, Grongier.PEX.Common) [ Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.BusinessProcess Extends IOP.BusinessProcess [ Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter SETTINGS = "%classname:Python BusinessProcess,%module:Python BusinessProcess,%settings:Python BusinessProcess,%classpaths:Python BusinessProcess";
-
-Property persistentProperties As array Of %String(MAXLEN = "");
-
-Method dispatchReply(response)
-{
-	set tSC = ..Reply(response)
-	if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-	quit
-}
-
-Method dispatchSetTimer(
-	timeout,
-	completionKey)
-{
-	set tSC = ..SetTimer(timeout,$g(completionKey))
-	if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-	quit
-}
-
-Method dispatchSendRequestAsync(
-	target,
-	request,
-	responseRequired,
-	completionKey,
-	description)
-{
-    set tSC = ..SendRequestAsync(target,request,responseRequired,completionKey,description)
-    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-    quit
-}
-
-Method OnRequest(
-	request As %Persistent,
-	Output response As %Persistent) As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_request"($this,request)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-/// Handle a 'Response'
-Method OnResponse(
-	request As %Persistent,
-	Output response As %Persistent,
-	callRequest As %Persistent,
-	callResponse As %Persistent,
-	pCompletionKey As %String) As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_response"($this,request,response,callRequest,callResponse,pCompletionKey)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method OnComplete(
-	request As %Library.Persistent,
-	ByRef response As %Library.Persistent) As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_complete"($this,request,response)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
-Method getPersistentProperty(name)
-{
-	quit ..persistentProperties.GetAt(name)
-}
-
-Method setPersistentProperty(
-	name,
-	value)
-{
-	quit ..persistentProperties.SetAt(value,name)
-}
-
 Storage Default
 {
-<Data name="BusinessProcessDefaultData1">
-<Subscript>"BusinessProcess"</Subscript>
-<Value name="1">
-<Value>%classpaths</Value>
-</Value>
-<Value name="2">
-<Value>%classname</Value>
-</Value>
-<Value name="3">
-<Value>%module</Value>
-</Value>
-<Value name="4">
-<Value>%settings</Value>
-</Value>
-<Value name="5">
-<Value>%class</Value>
-</Value>
-</Data>
-<Data name="persistentProperties">
-<Attribute>persistentProperties</Attribute>
-<Structure>subnode</Structure>
-<Subscript>"Grongier.PEX.BusinessProcess.persistentProperties"</Subscript>
-</Data>
-<DefaultData>BusinessProcessDefaultData1</DefaultData>
 <Type>%Storage.Persistent</Type>
 }
 

grongier/cls/Grongier/PEX/BusinessService.cls

@@ -2,34 +2,7 @@
    Cambridge, Massachusetts, U.S.A.  All rights reserved.
    Confidential property of InterSystems Corporation. */
 
-Class Grongier.PEX.BusinessService Extends (Ens.BusinessService, Grongier.PEX.Common) [ Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.BusinessService Extends IOP.BusinessService [ Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-Parameter SETTINGS = "%classname:Python BusinessService,%module:Python BusinessService,%settings:Python BusinessService,%classpaths:Python BusinessService";
-
-Method dispatchProcessInput(pInput As %RegisteredObject) As %RegisteredObject
-{
-	
-	quit ..%class."on_process_input"(pInput)
-}
-
-Method OnProcessInput(
-	request As %RegisteredObject,
-	Output response As %RegisteredObject) As %Status
-{
-	set tSC = $$$OK
-	try {
-		try {
-			set ..%class."_wait_for_next_call_interval" = ..%WaitForNextCallInterval
-		} catch {}
-		set response = ..%class."_dispatch_on_process_input"(request)
-		try {
-			set ..%WaitForNextCallInterval = ..%class."_wait_for_next_call_interval"
-		} catch {}
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
 }

grongier/cls/Grongier/PEX/Common.cls

@@ -4,200 +4,7 @@
 
 Include Ensemble
 
-Class Grongier.PEX.Common [ Abstract, ClassType = "", ProcedureBlock, System = 4 ]
+Class Grongier.PEX.Common Extends IOP.Common [ Abstract, ClassType = "", ProcedureBlock, System = 4 ]
 {
 
-/// One or more Classpaths (separated by '|' character) needed in addition to the ones configured in the Java Gateway Service
-Property %classpaths As %String(MAXLEN = "");
-
-Property %classname As %String(MAXLEN = "");
-
-Property %module As %String(MAXLEN = "");
-
-Property %settings As %String(MAXLEN = "");
-
-/// Instance of class
-Property %class As %SYS.Python;
-
-/// Get Class
-Method GetClass() As %SYS.Python
-{
-    Return ..%class
-}
-
-/// Get Classname
-Method GetClassname() As %String
-{
-    Return ..%classname
-}
-
-/// Get Classname
-Method GetModule() As %String
-{
-    Return ..%module
-}
-
-Method OnInit() As %Status
-{
-    set tSC = $$$OK
-    try {
-        $$$ThrowOnError(..Connect())
-        do ..%class."_dispatch_on_init"($this)
-    } catch ex {
-        set tSC = ex.AsStatus()
-    }
-    quit tSC
-}
-
-ClassMethod SetPythonPath(pClasspaths)
-{
-    set sys = ##class(%SYS.Python).Import("sys")
-
-    for i=0:1:(sys.path."__len__"()-1) {
-        Try {
-            if sys.path."__getitem__"(i) = pClasspaths {
-                do sys.path."__delitem__"(i)
-            }
-        }
-        Catch ex {
-            // do nothing
-        }
-
-    }
-    do sys.path.insert(0, pClasspaths)
-}
-
-Method Connect() As %Status
-{
-    set tSC = $$$OK
-    try {
-        
-        set container = $this
-        
-        //set classpass
-        if ..%classpaths '="" {
-            set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
-            set extraClasspaths = $tr(container.%classpaths,delimiter,"|")
-            for i=1:1:$l(extraClasspaths,"|") {
-                set onePath = $p(extraClasspaths,"|",i)
-                set onePath = ##class(%File).NormalizeDirectory(onePath)
-                do ..SetPythonPath(onePath)
-            }
-        }
-        if $isObject(..%class)=0 {
-            set importlib = ##class(%SYS.Python).Import("importlib")
-            set builtins = ##class(%SYS.Python).Import("builtins")
-            set module = importlib."import_module"(..%module)
-            set class = builtins.getattr(module, ..%classname)
-            set ..%class = class."__new__"(class)
-        }
-        ;
-        if ..%Extends("Grongier.PEX.InboundAdapter") || ..%Extends("Grongier.PEX.OutboundAdapter") {
-            do ..%class."_set_iris_handles"($this,..BusinessHost)
-        } elseif $this.%Extends("Grongier.PEX.BusinessProcess") {
-            do ..%class."_set_iris_handles"($this,$$$NULLOREF)
-        } else {
-            do ..%class."_set_iris_handles"($this,..Adapter)
-        }
-        ;
-        do ..SetPropertyValues()
-        ;
-        try {
-            do ..%class."_dispatch_on_connected"($this)
-        } catch ex {
-            $$$LOGWARNING(ex.DisplayString())
-        }
-        ;
-    } catch ex {
-        set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
-        set tSC = $$$ERROR($$$EnsErrGeneral,msg)
-    }
-    quit tSC
-}
-
-Method OnTearDown() As %Status
-{
-    set tSC = $$$OK
-    do ..%class."_dispatch_on_tear_down"()
-    quit tSC
-}
-
-Method SetPropertyValues()
-{
-    set remoteSettings = $tr(..%settings,$c(13))
-    for i=1:1:$l(remoteSettings,$c(10)) {
-        set oneLine = $p(remoteSettings,$c(10),i)
-        set property = $p(oneLine,"=",1) continue:property=""
-        set value = $p(oneLine,"=",2,*)
-        try {
-            set $property(..%class,property) = value
-        } catch ex {
-            $$$LOGWARNING(ex.DisplayString())
-        }
-    }
-    quit
-}
-
-Method dispatchSendRequestSync(
-	target,
-	request,
-	timeout,
-	description) As %String
-{
-    set tSC = ..SendRequestSync(target,request,.objResponse,timeout,description)
-    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-    quit $g(objResponse)
-}
-
-Method dispatchSendRequestAsync(
-	target,
-	request,
-	description)
-{
-    set tSC = ..SendRequestAsync(target,request,description)
-    if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-    quit
-}
-
-ClassMethod OnGetConnections(
-	Output pArray As %String,
-	pItem As Ens.Config.Item)
-{
-    // finds any settings of type Ens.DataType.ConfigName
-    do ..GetPropertyConnections(.pArray,pItem)
-
-    // Get settings
-    do pItem.GetModifiedSetting("%classpaths", .tClasspaths)
-    do pItem.GetModifiedSetting("%classname", .tClassname)
-    do pItem.GetModifiedSetting("%module", .tModule)
-
-    // try to instantiate class
-    if tClasspaths '="" {
-            set sys = ##class(%SYS.Python).Import("sys")
-            set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
-            set extraClasspaths = $tr(tClasspaths,delimiter,"|")
-            for i=1:1:$l(extraClasspaths,"|") {
-                set onePath = $p(extraClasspaths,"|",i)
-                set onePath = ##class(%File).NormalizeDirectory(onePath)
-                if onePath?1"$$IRISHOME"1P.E set onePath = $e($system.Util.InstallDirectory(),1,*-1)_$e(onePath,11,*)
-                if onePath'="" do sys.path.append(onePath)
-            }
-    }
-    set importlib = ##class(%SYS.Python).Import("importlib")
-    set builtins = ##class(%SYS.Python).Import("builtins")
-    set module = importlib."import_module"(tModule)
-    set class = builtins.getattr(module, tClassname)
-    set tClass = class."__new__"(class)
-
-    set tPythonList = tClass."on_get_connections"()
-    set tPythonListLen = tPythonList."__len__"()
-    for i=0:1:(tPythonListLen-1) {
-        set tPythonItem = tPythonList."__getitem__"(i)
-        set pArray(tPythonItem) = ""
-		#; set ^AALog(pItem.Name,tPythonItem) = ""
-    }
-
-    quit
-}
-
 }

grongier/cls/Grongier/PEX/Director.cls

@@ -4,54 +4,7 @@
 
 Include (%occInclude, Ensemble)
 
-Class Grongier.PEX.Director [ Inheritance = right, ProcedureBlock, System = 4 ]
+Class Grongier.PEX.Director Extends IOP.Director [ Inheritance = right, ProcedureBlock, System = 4 ]
 {
 
-ClassMethod dispatchCreateBusinessService(pTargetDispatchName As %String) As Ens.BusinessService
-{
-	set tSC = ##class(Ens.Director).CreateBusinessService(pTargetDispatchName,.service)
-	if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
-	quit service
-}
-
-ClassMethod dispatchListProductions() As %String
-{
-	// Loop over the productions in this namespace
-	Set tRS = ##class(%ResultSet).%New("Ens.Config.Production:ProductionStatus")
-	If '$IsObject(tRS) Set tSC = %objlasterror Quit
-	
-	Set tSC = tRS.Execute()
-	Quit:$$$ISERR(tSC)
-	
-	set tDict = ##class(%SYS.Python).Import("builtins").dict()
-
-	While (tRS.Next()) {
-		Set tProduction = tRS.Data("Production")
-		Set tInfo = ##class(%SYS.Python).Import("builtins").dict()
-		do tInfo."__setitem__"("Status",tRS.Data("Status"))
-		do tInfo."__setitem__"("LastStartTime",tRS.Data("LastStartTime"))
-		do tInfo."__setitem__"("LastStopTime",tRS.Data("LastStopTime"))
-		do tInfo."__setitem__"("AutoStart",$G(^Ens.AutoStart)=tProduction)
-		do tDict."__setitem__"(tProduction,tInfo)
-	}
-
-	Kill tRS
-
-	return tDict
-}
-
-ClassMethod StatusProduction() As %String
-{
-	Set sc = $$$OK
-	Set tInfo = ##class(%SYS.Python).Import("builtins").dict()
-	$$$ThrowOnError(##class(Ens.Director).GetProductionStatus(.tProdName,.tStatus))
-	do tInfo."__setitem__"("Production",tProdName)
-	do tInfo."__setitem__"("Status",$CASE(tStatus,$$$eProductionStateRunning:"running",
-												$$$eProductionStateStopped:"stopped",
-												$$$eProductionStateSuspended:"suspended",
-												$$$eProductionStateTroubled:"toubled",
-												:"unknown"))
-	Return tInfo
-}
-
 }

grongier/cls/Grongier/PEX/Duplex/Operation.cls

@@ -1,29 +1,4 @@
-Class Grongier.PEX.DuplexOperation Extends Grongier.PEX.PrivateSessionDuplex
+Class Grongier.PEX.DuplexOperation Extends IOP.DuplexOperation
 {
 
-ClassMethod OnBusinessType(pItem As Ens.Config.Item) As %Integer
-{
-    Quit $$$eHostTypeOperation
-}
-
-XData MessageMap
-{
-<MapItems>
-<MapItem MessageType="Ens.Request"><Method>OnMessage</Method></MapItem>
-</MapItems>
-}
-
-Method OnMessage(
-	request As %Library.Persistent,
-	Output response As %Library.Persistent) As %Status
-{
-	set tSC = $$$OK
-	try {
-		set response = ..%class."_dispatch_on_message"(request)
-	} catch ex {
-		set tSC = ex.AsStatus()
-	}
-	quit tSC
-}
-
 }