Python からのデータベース・メソッドおよび関数の呼び出し

  className = 'User.NativeTest'

  comment = ".cmBoolean() tests whether arguments 2 and 3 are equal: "
  boolVal = irispy.classMethodBoolean(className,'cmBoolean',2,3)
  print(className + comment + str(boolVal))

  comment = ".cmBytes returns integer arguments 72,105,33 as a byte array (string value 'Hi!'): "
  byteVal = irispy.classMethodBytes(className,'cmBytes',72,105,33) #ASCI 'Hi!'
  print(className + comment + str(byteVal))

  comment = ".cmString() concatenates 'Hello' with argument string 'World': "
  stringVal = irispy.classMethodString(className,'cmString','World')
  print(className + comment + stringVal)

  comment = ".cmLong() returns the sum of arguments 7+8: "
  longVal = irispy.classMethodInteger(className,'cmLong',7,8)
  print(className + comment + str(longVal))

  comment = ".cmDouble() multiplies argument 4.5 by 1.5: "
  doubleVal = irispy.classMethodFloat(className,'cmDouble',4.5)
  print(className + comment + str(doubleVal))

  comment = ".cmList() returns a $LIST containing arguments 'The answer is ' and 42: "
  listVal = irispy.classMethodIRISList(className,"cmList","The answer is ",42);
  print(className + comment+listVal.get(1)+str(listVal.get(2)))

  comment = ".cmVoid assigns argument value 75 to global node ^cmGlobal: "
  try:
    irispy.kill('cmGlobal') # delete ^cmGlobal if it exists
    irispy.classMethodVoid(className,'cmVoid',75)
    nodeVal = irispy.get('cmGlobal');  #get current value of ^cmGlobal
  except:
    nodeVal = 'FAIL'
  print(className + comment + str(nodeVal))

Class User.NativeTest Extends %Persistent
  {

  ClassMethod cmBoolean(cm1 As %Integer, cm2 As %Integer) As %Boolean
  {
     Quit (cm1=cm2)
  }

  ClassMethod cmBytes(cm1 As %Integer, cm2 As %Integer, cm3 As %Integer) As %Binary
  {
     Quit $CHAR(cm1,cm2,cm3)
  }

  ClassMethod cmString(cm1 As %String) As %String
  {
     Quit "Hello "_cm1
  }

  ClassMethod cmLong(cm1 As %Integer, cm2 As %Integer) As %Integer
  {
     Quit cm1+cm2
  }

  ClassMethod cmDouble(cm1 As %Double) As %Double
  {
     Quit cm1 * 1.5
  }

  ClassMethod cmVoid(cm1 As %Integer)
  {
     Set ^cmGlobal=cm1
     Quit
  }

  ClassMethod cmList(cm1 As %String, cm2 As %Integer)
  {
     Set list = $LISTBUILD(cm1,cm2)
     Quit list
  }
}

USER>write ##class(User.NativeTest).cmString("World")
Hello World

  routineName = 'NativeRoutine'

  comment = ".fnBoolean() tests whether arguments 2 and 3 are equal: "
  boolVal = irispy.functionBoolean('fnBoolean',routineName,2,3)
  print(routineName + comment + str(boolVal))

  comment = ".fnBytes returns integer arguments 72,105,33 as a byte array (string value 'Hi!'): "
  byteVal = irispy.functionBytes('fnBytes',routineName,72,105,33)  #ASCI 'Hi!'
  print(routineName + comment + str(byteVal))

  comment = ".fnString() concatenates 'Hello' with argument string 'World': "
  stringVal = irispy.functionString("fnString",routineName,"World")
  print(routineName + comment + stringVal)

  comment = ".fnLong() returns the sum of arguments 7+8: "
  longVal = irispy.functionInteger('fnLong',routineName,7,8)
  print(routineName + comment + str(longVal))

  comment = ".fnDouble() multiplies argument 4.5 by 1.5: "
  doubleVal = irispy.functionFloat('fnDouble',routineName,4.5)
  print(routineName + comment + str(doubleVal))

  comment = ".fnList() returns a $LIST containing arguments 'The answer is ' and 42: "
  listVal = irispy.functionIRISList("fnList",routineName,"The answer is ",42);
  print(routineName + comment + listVal.get(1)+str(listVal.get(2)));

  comment = ".fnProcedure() assigns argument value 66 to global node ^fnGlobal: "
  try:
    irispy.kill('fnGlobal') # delete ^fnGlobal if it exists
    irispy.procedure('fnProcedure',routineName,66)
    nodeVal = irispy.get('fnGlobal') # get current value of node ^fnGlobal
  except:
    nodeVal = 'FAIL'
  print(routineName + comment + str(nodeVal))

  fnBoolean(fn1,fn2) public {
     quit (fn1=fn2)
  }
  fnBytes(fn1,fn2,fn3) public {
      quit $CHAR(fn1,fn2,fn3)
  }
  fnString(fn1) public {
      quit "Hello "_fn1
  }
  fnLong(fn1,fn2) public {
      quit fn1+fn2
  }
  fnDouble(fn1) public {
      quit fn1 * 1.5
  }
  fnProcedure(fn1) public {
      set ^fnGlobal=fn1
      quit
  }
  fnList(fn1,fn2) public {
      set list = $LISTBUILD(fn1,fn2)
      quit list
  }

USER>write $$fnString^NativeRoutine("World")
Hello World

  dir = "C:/InterSystems/IRIS/mgr/iristemp" # directory to be tested
  value = "error"
  status = 0

  freeMB = iris.IRISReference(None) # set inital value to 0
  print("Variable freeMB is type"+str(type(freeMB)) + ", value=" + str(freeMB.getValue()))
  try:
    print("Calling %SYS.DatabaseQuery.GetDatabaseFreeSpace()... ")
    status = irispy.classMethodObject("%SYS.DatabaseQuery","GetDatabaseFreeSpace",dir,freeMB)
    value = freeMB.getValue()
  except:
    print("Call to class method GetDatabaseFreeSpace() returned error:")
  print("(status=" + str(status) + ") Free space in " + dir + " = " + str(value) + "MB\n")

Variable freeMB is type<class 'iris.IRISReference'>, value=None
Calling %SYS.DatabaseQuery.GetDatabaseFreeSpace()...
(status=1) Free space in C:/InterSystems/IRIS/mgr/iristemp = 10MB