src/ElmSharp/Interop/Interop.Libdl.cs

   1 /*
   2  * Copyright (c) 2016 Samsung Electronics Co., Ltd All Rights Reserved
   3  *
   4  * Licensed under the Apache License, Version 2.0 (the License);
   5  * you may not use this file except in compliance with the License.
   6  * You may obtain a copy of the License at
   7  *
   8  * http://www.apache.org/licenses/LICENSE-2.0
   9  *
  10  * Unless required by applicable law or agreed to in writing, software
  11  * distributed under the License is distributed on an AS IS BASIS,
  12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  13  * See the License for the specific language governing permissions and
  14  * limitations under the License.
  15  */
  16
  17 using System;
  18 using System.Runtime.InteropServices;
  19
  20 internal static partial class Interop
  21 {
  22     internal static partial class Libdl
  23     {
  24         private const int RTLD_NOW = 2;
  25
  26         [DllImport(Libraries.Libdl)]
  27         private static extern IntPtr dlopen(string filename, int flags);
  28
  29         [DllImport(Libraries.Libdl)]
  30         private static extern int dlclose(IntPtr handle);
  31
  32         [DllImport(Libraries.Libdl)]
  33         private static extern IntPtr dlsym(IntPtr handle, string symbol);
  34
  35         [DllImport(Libraries.Libdl)]
  36         private static extern IntPtr dlerror();
  37
  38         internal static IntPtr LoadLibrary(string filename)
  39         {
  40             return dlopen(filename, RTLD_NOW);
  41         }
  42
  43         internal static void FreeLibrary(IntPtr handle)
  44         {
  45             dlclose(handle);
  46         }
  47
  48         internal static IntPtr GetProcAddress(IntPtr handle, string name)
  49         {
  50             dlerror();
  51             var res = dlsym(handle, name);
  52             var errPtr = dlerror();
  53             if (errPtr != IntPtr.Zero)
  54             {
  55                 throw new Exception("dlsym : " + Marshal.PtrToStringAnsi(errPtr));
  56             }
  57             return res;
  58         }
  59     }
  60 }