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

grongier/pex/data/PEX/Utils.cls

@@ -1,413 +0,0 @@
-/* Copyright (c) 2021 by InterSystems Corporation.
-   Cambridge, Massachusetts, U.S.A.  All rights reserved.
-   Confidential property of InterSystems Corporation. */
-
-Include Ensemble
-
-Class Grongier.PEX.Utils Extends %RegisteredObject
-{
-
-ClassMethod dispatchRegisterComponent(
-	pModule As %String,
-	pRemoteClassname As %String,
-	pCLASSPATHS As %String = "",
-	pOverwrite As %Boolean = 0,
-	pProxyClassname As %String = "") As %Status
-{
-	set tSc = $$$OK
-	$$$ThrowOnError(##class(Grongier.PEX.Utils).RegisterComponent(pModule, pRemoteClassname, pCLASSPATHS, pOverwrite , pProxyClassname))
-	return tSc
-}
-
-/// "bo","Duplex","/irisdev/app/src/python/demo/duplex/",1,"Duplex.Duplex"
-ClassMethod RegisterComponent(
-	pModule As %String,
-	pRemoteClassname As %String,
-	pCLASSPATHS As %String = "",
-	pOverwrite As %Boolean = 0,
-	pProxyClassname As %String = "") As %Status
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	#dim tLanguage,tExtraClasspaths,tDelimiter,tOnePath As %String = ""
-	#dim tClassDetails,tRemoteSettings As %String = ""
-	#dim tClasspaths As %ListOfDataTypes
-	
-	Quit:(""=pRemoteClassname) $$$ERROR($$$EnsErrGeneral,"Remote Classname must be specified in order to register a Production EXtensions component")
-	Quit:(""=pModule) $$$ERROR($$$EnsErrGeneral,"Must specify the module of the remote code.")
-		
-	Try {
-
-		$$$ThrowOnError(..GetRemoteClassInfo(pRemoteClassname,pModule,pCLASSPATHS,.tClassDetails,.tRemoteSettings))
-
-		Set tConnectionSettings("Classpaths") = pCLASSPATHS
-		Set tConnectionSettings("Module") = pModule
-		Set tConnectionSettings("Classname") = pRemoteClassname
-		Set:(""=pProxyClassname) pProxyClassname = "User."_pRemoteClassname
-		
-		$$$ThrowOnError(..GenerateProxyClass(pProxyClassname,.tConnectionSettings,tClassDetails,tRemoteSettings,pOverwrite))
-
-	} Catch ex {
-		set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
-		set tSC = $$$ERROR($$$EnsErrGeneral,msg)
-	}
-
-	Quit tSC
-}
-
-ClassMethod DeleteComponentProxy(pClassname As %String = "") As %Status
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	#dim tIsPEX As %Boolean = 0
-	#dim tClass As %Dictionary.CompiledClass
-	
-	Quit:(""=pClassname) $$$ERROR($$$EnsErrGeneral,"Remote class name must be specified.")
-	
-	Try {
-		
-		If '##class(%Dictionary.ClassDefinition).%ExistsId(pClassname) {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("No proxy class defined for remote class '%1'.",pClassname))
-			Quit
-		}
-		If $classmethod(pClassname,"%Extends","Grongier.PEX.Common") {
-			Set tClass = ##class(%Dictionary.CompiledClass).%OpenId(pClassname,,.tSC)
-			Quit:$$$ISERR(tSC)
-			If '$IsObject(tClass) {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Proxy class for remote class '%1' could not be opened.",pClassname))
-				Quit
-			}
-			Set tIsPEX = ("Grongier.PEX.Utils" = tClass.GeneratedBy)
-		}
-		If tIsPEX {
-			Set tSC = ##class(%Dictionary.ClassDefinition).%DeleteId(pClassname)
-			If $$$ISERR(tSC) {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Unable to delete proxy class for remote class '%1' : '%2'.",pClassname,$System.Status.GetErrorText(tSC)))
-				Quit
-			}
-		} Else {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Cannot delete class '%1' because it is not a PEX proxy class.",pClassname))
-			Quit
-		}
-		
-	} Catch ex {
-		Set tSC = ex.AsStatus()
-	}
-	
-	Quit tSC
-}
-
-// ..GetRemoteClassInfo(pRemoteClassname,pModule,pCLASSPATHS,.tClassDetails,.tRemoteSettings)
-
-ClassMethod GetRemoteClassInfo(
-	pRemoteClassname As %String,
-	pModule As %String,
-	pClasspaths As %String,
-	ByRef pClassDetails,
-	ByRef pRemoteSettings) As %Status [ Internal, Private ]
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	#dim tGateway As %External.Gateway
-	#dim tGatewayProxy As %Net.Remote.Object
-	
-	Try {
-		if pClasspaths '="" {
-			set sys = ##class(%SYS.Python).Import("sys")
-			set delimiter = $s($system.Version.GetOS()="Windows":";",1:":")
-			set extraClasspaths = $tr(pClasspaths,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"(pModule)
-		set class = builtins.getattr(module, pRemoteClassname)
-		set tClass = class."__new__"(class)
-
-
-		If $IsObject(tClass) {
-			#; List of information about the class as a whole - $lb(SuperClass, Description, InfoURL, IconURL, Adapter)
-			Set pClassDetails = tClass."_get_info"()
-			#; List of information about the various properties of the class
-			#; List of lists of form $lb(propName,dataType,defaultVal,required,category,description)
-			Set pRemoteSettings = tClass."_get_properties"()
-		} Else {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Error opening gateway proxy for class '%1'"),pRemoteClassname)
-		}
-	} Catch ex {
-		set msg = $System.Status.GetOneStatusText(ex.AsStatus(),1)
-		set tSC = $$$ERROR($$$EnsErrGeneral,msg)
-	}
-	
-	Quit tSC
-}
-
-/// Set tConnectionSettings("Classpaths") = pCLASSPATHS
-/// Set tConnectionSettings("Module") = pModule
-/// Set tConnectionSettings("Classname") = pRemoteClassname
-/// Set:(""=pProxyClassname) pProxyClassname = pRemoteClassname
-/// 
-/// Set tSC = ..GenerateProxyClass(pProxyClassname,.tConnectionSettings,tClassDetails,tRemoteSettings,pOverwrite)
-/// "bo","Duplex","/irisdev/app/src/python/demo/duplex/",1,"Duplex.Duplex"
-ClassMethod GenerateProxyClass(
-	pClassname As %String,
-	ByRef pConnectionSettings,
-	pClassDetails As %String = "",
-	pRemoteSettings As %String = "",
-	pOverwrite As %Boolean = 0) As %Status [ Internal, Private ]
-{
-	#dim tSC As %Status = $$$OK
-	#dim ex As %Exception.AbstractException
-	
-	Quit:(""=pClassname) $$$ERROR($$$EnsErrGeneral,"Class name must be specified in order to generate a proxy class for this Production EXtensions component")
-	
-	Try {
-
-		If ##class(%Dictionary.ClassDefinition).%ExistsId(pClassname) {
-			If 'pOverwrite {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Proxy class '%1' already exists.",pClassname))
-				Quit
-			} Else {
-				#dim tIsPEX As %Boolean = 0
-				If $classmethod(pClassname,"%Extends","Grongier.PEX.Common") {
-					#dim tClass As %Dictionary.CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(pClassname)
-					If '$IsObject(tClass) {
-						Set tSC = $$$ERROR($$$EnsErrGeneral,"Class not found")
-						Quit
-					}
-					Set tIsPEX = ("Grongier.PEX.Utils" = tClass.GeneratedBy)
-				}
-				If tIsPEX {
-					Set tSC = ##class(%Dictionary.ClassDefinition).%DeleteId(pClassname)
-					If $$$ISERR(tSC) {
-						Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Unable to delete existing proxy class '%1' : '%2'.",pClassname,$System.Status.GetErrorText(tSC)))
-						Quit
-					}
-				} Else {
-					Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Cannot overwrite class '%1' because it is not a PEX proxy class.",pClassname))
-					Quit
-				}
-			}
-		}
-		
-		#; create subclass of the ObjectScript Business Host
-		#dim tCOSClass As %Dictionary.ClassDefinition
-		Set tCOSClass = ##class(%Dictionary.ClassDefinition).%New()
-		Set tCOSClass.Name = pClassname
-
-		#dim tSuperClass As %String = pClassDetails."__getitem__"(0)
-		If (""=tSuperClass) {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,"No PEX superclass found.")
-			Quit
-		}
-		If '$Case($P(tSuperClass,".",*),"DuplexProcess":1,"DuplexService":1,"DuplexOperation":1,"InboundAdapter":1,"OutboundAdapter":1,"BusinessService":1,"BusinessProcess":1,"BusinessOperation":1,:0) {
-			Set tSC = $$$ERROR($$$EnsErrGeneral,"Invalid superclass")
-			Quit
-		}
-		Set tSuperClass = "Grongier.PEX."_$P(tSuperClass,".",*)
-		
-		Set tCOSClass.Super = tSuperClass
-		Set tCOSClass.GeneratedBy = $CLASSNAME()
-		Set tCOSClass.ClassVersion = $$$CLASSDEFINITIONVERSION
-		#dim tDescription As %String = pClassDetails."__getitem__"(1)
-		If (""'=tDescription) {
-			Set tCOSClass.Description = $Replace(tDescription,$C(10),$C(13,10))
-		}
-		
-		#; Do not display any of the connection settings
-		#dim tSETTINGSParamValue As %String = "%classname:Python $type,%module:Python $type,%settings:Python $type,%classpaths:Python $type"
-		
-		#; Create the %classname property
-		#dim tPropClassname As %Dictionary.PropertyDefinition = ##class(%Dictionary.PropertyDefinition).%New()
-		Set tPropClassname.Name = "%classname"
-		Set tPropClassname.Type = "%String"
-		Set tPropClassname.InitialExpression = $$$quote(pConnectionSettings("Classname"))
-		Set tPropClassname.Internal = 1
-		Set tSC = tCOSClass.Properties.Insert(tPropClassname)
-		Quit:$$$ISERR(tSC)
-		
-		#; Create the %classpaths property
-		#dim tPropClasspaths As %Dictionary.PropertyDefinition = ##class(%Dictionary.PropertyDefinition).%New()
-		Set tPropClasspaths.Name = "%classpaths"
-		Set tPropClasspaths.Type = "%String"
-		Set tSC = tPropClasspaths.Parameters.SetAt("","MAXLEN")
-		Quit:$$$ISERR(tSC)
-		Set tPropClasspaths.InitialExpression = $$$quote(pConnectionSettings("Classpaths"))
-		Set tPropClasspaths.Description = "One or more Classpaths (separated by '|' character) needed in addition to the ones configured in the Remote Gateway"
-		Set tSC = tCOSClass.Properties.Insert(tPropClasspaths)
-		Quit:$$$ISERR(tSC)
-		
-		#; Create the %module property
-		#dim tPropLanguage As %Dictionary.PropertyDefinition = ##class(%Dictionary.PropertyDefinition).%New()
-		Set tPropLanguage.Name = "%module"
-		Set tPropLanguage.Type = "%String"
-		Set tPropLanguage.Internal = 1
-		Set tPropLanguage.InitialExpression = $$$quote(pConnectionSettings("Module"))
-		Set tSC = tCOSClass.Properties.Insert(tPropLanguage)
-		Quit:$$$ISERR(tSC)
-
-		#; Create other properties
-		#dim tMethod As %Dictionary.MethodDefinition = ##class(%Dictionary.MethodDefinition).%New()
-		Set tMethod.Name = "SetPropertyValues"
-		
-		#dim tCustomProp As %Dictionary.PropertyDefinition
-		#dim tPropInfo,tPropName,tDataType,tDefault,tDesc,tPropCat,tContext As %String
-		#; each remote setting is of form $lb(propName,dataType,defaultVal,required,category,description,editorContext)
-		For i=1:1:$ll(pRemoteSettings) {
-			Set tPropInfo = $lg(pRemoteSettings,i)
-			Continue:""=tPropInfo ; this shouldn't happen, but just in case
-			Set tPropName = $lg(tPropInfo,1)
-			Set tDataType = $lg(tPropInfo,2)
-			If (""=tPropName) || (""=tDataType) {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,"All properties must have a name and datatype defined")
-				Quit
-			}
-			Set tCustomProp = ##class(%Dictionary.PropertyDefinition).%New()
-			Set tCustomProp.Name = tPropName
-			If $Case(tDataType,"String":1,"Integer":1,"Boolean":1,"Numeric":1,:0) {
-				Set tDataType = "%"_tDataType
-			} ElseIf '##class(%Dictionary.ClassDefinition).%ExistsId(tDataType) {
-				Set tDataType = "%String"
-			}
-			Set tCustomProp.Type = tDataType
-			Set tDefault = $lg(tPropInfo,3)
-			If ""'=tDefault {
-				Set tCustomProp.InitialExpression = $$$quote(tDefault)
-			}
-			Set tCustomProp.Required = $lg(tPropInfo,4,0)
-			Set tDesc = $lg(tPropInfo,6)
-			If ""'=tDesc {
-				Set tDesc = $zstrip($Replace(tDesc,$C(10),$C(13,10)),"<>W")
-				Set:$E(tDesc,*-1,*)=$C(13,10) tDesc = $E(tDesc,1,*-2)
-				Set tCustomProp.Description = tDesc
-			}
-			
-			Set tSC = tCOSClass.Properties.Insert(tCustomProp)
-			Quit:$$$ISERR(tSC)
-			
-			Set tPropCat = $lg(tPropInfo,5,"Additional")
-			Set tSETTINGSParamValue = tSETTINGSParamValue_","_tPropName_":"_tPropCat
-			
-			Set tSC = tMethod.Implementation.WriteLine($char(9)_"try {")	Quit:$$$ISERR(tSC)
-			Set tSC = tMethod.Implementation.WriteLine($char(9,9)_"set $property(..%gatewayProxy,"_$$$quote(tPropName)_") = .."_tPropName)	Quit:$$$ISERR(tSC)
-			Set tSC = tMethod.Implementation.WriteLine($char(9)_"} catch ex {")	Quit:$$$ISERR(tSC)
-			Set tSC = tMethod.Implementation.WriteLine($char(9,9)_"$$$LOGWARNING(ex.DisplayString())")	Quit:$$$ISERR(tSC)
-			Set tSC = tMethod.Implementation.WriteLine($char(9)_"}")	Quit:$$$ISERR(tSC)
-		}
-		
-		If $Case(tSuperClass,"Grongier.PEX.BusinessService":1,"Grongier.PEX.BusinessOperation":1,"Grongier.PEX.DuplexService":1,"Grongier.PEX.DuplexOperation":1,:0) {
-			set builtins = ##class(%SYS.Python).Import("builtins")
-			If (builtins.len(pClassDetails)>4) { //Adaptor
-
-				#dim tAdapterClass = pClassDetails."__getitem__"(4)
-				#; May want to issue a warning in the UI if the Adapter class does not exist
-				#; but we don't check here because it does compile and may just be that the user is registering the Service/Operation before the Adapter
-				#dim tADAPTERParam As %Dictionary.ParameterDefinition = ##class(%Dictionary.ParameterDefinition).%New()
-				Set tADAPTERParam.Name = "ADAPTER"
-				Set tADAPTERParam.Default = tAdapterClass
-				Set tSC = tCOSClass.Parameters.Insert(tADAPTERParam)
-				Quit:$$$ISERR(tSC)
-			}
-		}
-
-		set type = ""
-		set:($Case(tSuperClass,"Grongier.PEX.InboundAdapter":1,"Grongier.PEX.OutboundAdapter":1,:0)) type = "Adapter"
-		set tSETTINGSParamValue = $REPLACE(tSETTINGSParamValue,"$type",type)
-		
-		#dim tSETTINGSParam As %Dictionary.ParameterDefinition = ##class(%Dictionary.ParameterDefinition).%New()
-		Set tSETTINGSParam.Name = "SETTINGS"
-		Set tSETTINGSParam.Default = tSETTINGSParamValue
-		Set tSC = tCOSClass.Parameters.Insert(tSETTINGSParam)
-		Quit:$$$ISERR(tSC)
-		
-		Set tSC = tCOSClass.%Save()
-		Quit:$$$ISERR(tSC)
-		
-		Set tSC = $System.OBJ.Compile(pClassname,"-d")
-		
-	} Catch ex {
-		Set tSC = ex.AsStatus()
-	}
-	
-	Quit tSC
-}
-
-ClassMethod CreateProduction(
-	package As %String = "test",
-	name As %String = "AutoCreatedProduction",
-	xdata As %CharacterStream) As %Status
-{
-  #Dim produtionClassName As %String = package _ "." _ name
-  If ('$ZName(produtionClassName, 4))
-  {
-  Return $System.Status.Error(5001, "Invalid Production package or name.")
-  }
-  #Dim productionDefinition As %Dictionary.ClassDefinition
-  // Check if the production already exists
-  If (##class(%Dictionary.ClassDefinition).%ExistsId(produtionClassName))
-  {
-	// Open the production
-	set productionDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(produtionClassName)
-  }
-  Else
-  {
-	// Create the production definition
-    set productionDefinition = ##Class(%Dictionary.ClassDefinition).%New()
-  }
-  //
-  Set productionDefinition.Name         = produtionClassName
-  Set productionDefinition.Super        = "Ens.Production"
-  Set productionDefinition.ClassVersion = 25
-  //
-  // Check if the XData Definition already exists
-  If (##Class(%Dictionary.XDataDefinition).%ExistsId(produtionClassName_"||ProductionDefinition"))
-  {
-	// delete the XData Definition
-	$$$ThrowOnError(##Class(%Dictionary.XDataDefinition).%DeleteId(produtionClassName_"||ProductionDefinition"))
-  }
-  #Dim xdataDefinition As %Dictionary.XDataDefinition = ##Class(%Dictionary.XDataDefinition).%New()
-  //
-  Set xdataDefinition.Name = "ProductionDefinition"
-  //
-  Do xdataDefinition.Data.CopyFrom(xdata)
-  //
-  // Insert XData Definition into Production Definition
-  Do productionDefinition.XDatas.Insert(xdataDefinition)
-  //
-  #Dim statusCode As %Status = productionDefinition.%Save()
-  //
-  If ($System.Status.IsError(statusCode))
-  {
-  Return statusCode
-  }
-  // Compile the production class
-  return $System.OBJ.Compile(produtionClassName,"k-d")
-}
-
-/// Export a production to an XML string
-ClassMethod ExportProduction(pProductionName As %String) As %String
-{
-	Set sc = $$$OK
-	set xdata = ""
-	// Check if the XData Definition exists
-	If (##Class(%Dictionary.XDataDefinition).%ExistsId(pProductionName_"||ProductionDefinition"))
-	{
-		// Open the XData Definition
-		Set xdataDefinition = ##Class(%Dictionary.XDataDefinition).%OpenId(pProductionName_"||ProductionDefinition")
-		Set xdata = xdataDefinition.Data
-	}
-	Else
-	{
-		$$$ThrowOnError($System.Status.Error(5001, "Production does not exist."))
-	}
-	Return xdata
-}
-
-}

iris/iris_site.py

@@ -1,13 +0,0 @@
-import sys
-from os import sep as __os_sep
-from site import getsitepackages as __sitegetsitepackages
-
-#ubuntu needs dist-packages for pandas to be able to be imported
-#ubu 18 doesnt have os.sep in sys.executable
-def set_site_path(platform_name):
-   if "ubuntu" in platform_name:
-      if __os_sep in sys.executable:
-         __siteprefixes = [__os_sep + sys.executable.split(__os_sep)[1]]
-      else:
-         __siteprefixes = ['/usr']
-      sys.path = sys.path + __sitegetsitepackages(__siteprefixes)

iris/irisbuiltins.py

@@ -1,97 +0,0 @@
-from collections import abc
-
-#
-# IRIS Exceptions
-#
-class SQLError(Exception):
-    """Error raised on an invalid IRIS SQL statement
-
-    Attributes:
-        sqlcode -- IRIS SQL error code
-        message -- Error description
-        statement -- Statement that failed
-    """
-
-    def __init__(self,sqlcode,message,statement=None):
-        self.sqlcode = sqlcode
-        self.message = message
-        self.statement = statement
-        super().__init__(self.message)
-
-#
-# Helper to raise a properly formatted AttributeError when we decide that
-# we don't want to handle a last-chance method.
-#
-def _no_such_method(target,method):
-    raise AttributeError(f"'{target.__class__.__name__}' has no attribute '{method}'")
-
-#
-# irisbuiltins:  Implements impedence matching methods for projecting IRIS behavior
-#                over Python objects.
-#
-class irisbuiltins:
-
-    #
-    # Common functions for mapping Python collection behavior to IRIS behavior
-    #
-    # NOTE: With Sequences, the indicies are 0 based for Python and 1 based
-    #       for IRIS.
-    #
-    
-    def Count(self):
-        if isinstance(self,abc.Mapping) or isinstance(self,abc.Sequence):
-           return len(self)
-        _no_such_method(self,"Count")
-
-    def GetAt(self,index):
-        if isinstance(self,abc.Mapping):
-            return self[index]
-        if isinstance(self,abc.Sequence):
-            return self[index-1]
-        _no_such_method(self,"GetAt")
-
-    def SetAt(self,value,index):
-        if isinstance(self,abc.Mapping):
-            self[index] = value
-            return
-        if isinstance(self,abc.Sequence):
-            self[index-1] = value
-            return
-        _no_such_method(self,"SetAt")
-
-    def Insert(self,value):
-        if isinstance(self,abc.Sequence):
-            self.append(value)
-            return
-        _no_such_method(self,"Insert")
-
-    def InsertAt(self,value,index):
-        if isinstance(self,abc.Sequence):
-            self.insert(index-1,value)
-            return
-        _no_such_method(self,"InsertAt")
-
-    def Clear(self):
-        if isinstance(self,abc.Mapping) or isinstance(self,abc.Sequence):
-           self.clear()
-           return
-        _no_such_method(self,"Clear")
-
-    def IsDefined(self,key):
-        if isinstance(self,abc.Mapping):
-            return (key in self)
-        _no_such_method(self,"IsDefined")
-
-    def Find(self,value):
-        if isinstance(self,abc.Sequence):
-            return self.index(value)+1
-        if isinstance(self,abc.Mapping):
-            for (k,v) in self.items():
-                if v == value:
-                    return k
-            return None;
-        _no_such_method(self,"Find")
-
-#
-# End-of-file
-#