MkCall.cs

Go to the documentation of this file.

 
/* LABEL-NO */
 
/*****************************************************************************/
/*                                                                           */
/*                                   misc                                    */
/*                                                                           */
/*****************************************************************************/
 
using System;
using System.Runtime.InteropServices;
using csmkkernel;
using Mk = csmkkernel.MkKernel;
 
namespace csmkkernel {
 
  public partial class MkObjectC
  {
 
    // [MkObjectDeleteSCB]
    public delegate void MkObjectDeleteSCB(string typeName, int typeHdl, int objHdl);
    // [MkObjectDeleteSCB]
 
    internal struct MkCall {
      public MkObjectDeleteSCB  callSCB;
 
      public MkCall(MkObjectDeleteSCB val) {
        callSCB = val;
      }
    }
 
    private static MkErrorE ObjectDeleteCall (
      IntPtr mkrt, IntPtr obj, IntPtr typeName, Int32 typeHdl, Int32 objHdl, IntPtr data
    ) {
//printBool(MqS.MqObjCheck(hdl),"check:hdl");
      if (data == IntPtr.Zero) return MkErrorE.OK;
      MkCall dataC = (MkCall)GCHandle.FromIntPtr(data).Target;
      if (!Mk.MkSelfExists(obj)) return MkErrorE.OK;
 
      // call the function
      try {
        if (dataC.callSCB != null) {
          dataC.callSCB(Marshal.PtrToStringAnsi(typeName), typeHdl, objHdl);
        }
      } catch (Exception ex) {
        MkErrorC.DEFAULT().Catch (ex);
      }
 
      // everything is OK
      return Mk.CsRuntimeErrorGetCode(mkrt);
    }
 
    private static void ObjectDeleteFree (IntPtr mkrt, ref IntPtr data) {
      GCHandle.FromIntPtr(data).Free();
      data = IntPtr.Zero;
    }
 
  } // END - class "MkObjectC"
 
} // END - namespace "csmkkernel"