LcCall.cs

Go to the documentation of this file.

 
/* LABEL-NO */
 
/*****************************************************************************/
/*                                                                           */
/*                                   misc                                    */
/*                                                                           */
/*****************************************************************************/
 
using System;
using System.Runtime.InteropServices;
using csmkkernel;
 
namespace cslcconfig {
 
  public partial class LcConfigC
  {
 
    public delegate void LcConfigIncludeCCB( string incDir, string path, MkBufferListC ret);
    public delegate void LcSettingDeleteCCB( long cfsH );
 
    internal struct LcCall {
      public LcConfigIncludeCCB callC;
      public LcSettingDeleteCCB callS;
 
      public LcCall(IntPtr rt, LcConfigIncludeCCB val) {
        callC = val;
        callS = null;
      }
 
      public LcCall(IntPtr rt, LcSettingDeleteCCB val) {
        callC = null;
        callS = val;
      }
    }
 
    private static MkErrorE LcConfigIncludeCall (IntPtr mkrt, IntPtr cfg, IntPtr incDir, IntPtr path, IntPtr ret)
    {
      IntPtr data = Lc.LcConfigGetIncludeFunc(cfg);
      if (data == IntPtr.Zero) return MkErrorE.OK;
      LcCall dataC = (LcCall)GCHandle.FromIntPtr(data).Target;
      if (dataC.callC == null) return MkErrorE.OK;
 
//printBool(MqS.MqObjCheck(hdl),"check:hdl");
 
      // call the function
      try {
        dataC.callC(Marshal.PtrToStringAnsi(incDir), Marshal.PtrToStringAnsi(path), MkBufferListC.MkBufferListC_ObjNew(ret));
      } catch (Exception ex) {
        IntPtr cstr = Marshal.StringToHGlobalAnsi("LcConfigIncludeCall");
        MkExceptionC.Catch(mkrt,cfg,ex,cstr);
        Marshal.FreeHGlobal(cstr);
      }
 
      // everything is OK
      return Mk.CsRuntimeErrorGetCode(mkrt);
    }
 
    private static MkErrorE LcSettingDeleteCall(IntPtr mkrt, IntPtr cfg, IntPtr cfs)
    {
      IntPtr data = Lc.LcConfigGetSettingDeleteFunc(cfg);
      if (data == IntPtr.Zero) return MkErrorE.OK;
      LcCall dataC = (LcCall)GCHandle.FromIntPtr(data).Target;
      if (dataC.callS == null) return MkErrorE.OK;
 
//printBool(MqS.MqObjCheck(hdl),"check:hdl");
 
      long hdl = Mk.MkObjectHandleGet(mkrt,cfs);
 
      // call the function
      try {
        dataC.callS(hdl);
      } catch (Exception ex) {
        IntPtr cstr = Marshal.StringToHGlobalAnsi("LcSettingDeleteCall");
        MkExceptionC.Catch(mkrt,cfg,ex,cstr);
        Marshal.FreeHGlobal(cstr);
      }
 
      // everything is OK
      return Mk.CsRuntimeErrorGetCode(mkrt);
    }
 
    private static void LcConfigIncludeFree (IntPtr mkrt, IntPtr cfg) {
      IntPtr data = Lc.LcConfigGetIncludeFunc(cfg);
      if (data == IntPtr.Zero) return;
      GCHandle.FromIntPtr(data).Free();
      data = IntPtr.Zero;
    }
 
    private static void LcSettingDeleteFree (IntPtr mkrt, IntPtr cfg) {
      IntPtr data = Lc.LcConfigGetSettingDeleteFunc(cfg);
      if (data == IntPtr.Zero) return;
      GCHandle.FromIntPtr(data).Free();
      data = IntPtr.Zero;
    }
 
  } // END - class "LcConfigC"
} // END - namespace "cslcconfig"