/*
 *  COPYRIGHT (c) 2012 Chris Johns <chrisj@rtems.org>
 *
 *  The license and distribution terms for this file may be
 *  found in the file LICENSE in this distribution or at
 *  http://www.rtems.com/license/LICENSE.
 */
/**
 * @file
 *
 * @ingroup rtl
 *
 * @brief RTEMS POSIX Dynamic Module Loading Interface.
 *
 * This is the POSIX interface to run-time loading of code into RTEMS.
 */

#include <stdint.h>
#include <dlfcn.h>
#include <rtl.h>

static rtems_rtl_obj_t*
dl_get_obj_from_handle (void* handle)
{
  rtems_rtl_obj_t* obj;
  
  /*
   * Handle the special cases provided in NetBSD and Sun documentation.
   *   http://download.oracle.com/docs/cd/E19253-01/816-5168/dlsym-3c/index.html
   * We currently do not manage the loading dependences in the module mappings
   * so we cannot handle the searching based on loading order where overriding
   * can occur.
   */
   
  if ((handle == RTLD_DEFAULT) || (handle == RTLD_SELF))
    obj = rtems_rtl_baseimage ();
  else
    obj = rtems_rtl_check_handle (handle);

  return obj;
}

void*
dlopen (const char* name, int mode)
{
  rtems_rtl_obj_t* obj = NULL;

  if (!rtems_rtl_lock ())
    return NULL;
  
  _rtld_debug.r_state = RT_ADD;
  _rtld_debug_state ();

  if (name)
    obj = rtems_rtl_load_object (name, mode);
  else
    obj = rtems_rtl_baseimage ();

  _rtld_debug.r_state = RT_CONSISTENT;
  _rtld_debug_state();

  rtems_rtl_unlock ();
  
  return obj;
}

int
dlclose (void* handle)
{
  rtems_rtl_obj_t* obj;
  int              r;
  
  if (!rtems_rtl_lock ())
    return -1;
  
  obj = rtems_rtl_check_handle (handle);
  if (!obj)
  {
    rtems_rtl_unlock ();
    return -1;
  }

  _rtld_debug.r_state = RT_DELETE;
  _rtld_debug_state ();

  r = rtems_rtl_unload_object (obj) ? 0 : -1;

  _rtld_debug.r_state = RT_CONSISTENT;
  _rtld_debug_state ();

  rtems_rtl_unlock ();

  return r;
}

void*
dlsym (void* handle, const char *symbol)
{
  rtems_rtl_obj_t*     obj;
  rtems_rtl_obj_sym_t* sym;
  void*                symval = NULL;
  
  if (!rtems_rtl_lock ())
    return NULL;

  obj = dl_get_obj_from_handle (handle);
  if (obj)
  {
    sym = rtems_rtl_symbol_obj_find (obj, symbol);
    if (sym)
      symval = sym->value;
  }
  
  rtems_rtl_unlock ();
  
  return symval;
}

char*
dlerror (void)
{
  static char msg[64];
  rtems_rtl_get_error (msg, sizeof (msg));
	return msg;
}

int
dlinfo (void* handle, int request, void* p)
{
  rtems_rtl_obj_t* obj;
  int              rc = -1;
  
  if (!rtems_rtl_lock () || !p)
    return -1;

  obj = dl_get_obj_from_handle (handle);
  if (obj)
  {
    switch (request)
    {
      case RTLD_DI_UNRESOLVED:
        *((int*) p) = rtems_rtl_obj_unresolved (obj) ? 1 : 0;
        rc = 0;
        break;
      default:
        break;
    }
  }
  
  rtems_rtl_unlock ();
  
  return rc;
}