aMethodInvokable

SetMethod

Example

function Hello(name : CString) return CString
   return 'hi ' + name
endFunc 

procedure invokeHello
   uses aMethodInvokable, aMethodDesc, aDataValue, aDataAdapterFactory, aDataAdapterContext, 
      aDataAdapter, aDataDocument, Doc
   
   var invokable : aMethodInvokable
   var e : aDataValue
   var factory : aDataAdapterFactory
   var context : aDataAdapterContext
   var adapter : aDataAdapter
   var document : aDataDocument
   var parameters : aDataDocument
   var output : Text
   
   factory = Doc.wGetSystemAdapterFactory
   context = factory.GetNewAdapterContext
   new(invokable)
   new(parameters)
   parameters.Map('name').SetCString('nicolas')
   invokable.SetMethod(MetaModelEntity(self.Hello))
   if invokable.DeserializeParameters(parameters, context)
      if invokable.Invoke(self, e)
         new(document)
         if invokable.SerializeResult(document, context)
         ;=> hi Nicolas
         endIf
      endIf
   endIf
   dispose(context)
endProc