/*
 * Copyright (c) 2014 Chris Johns <chrisj@rtems.org>.  All rights reserved.
 *
 * The license and distribution terms for this file may be
 * found in the file LICENSE in this distribution or at
 * http://www.rtems.org/license/LICENSE.
 */

#include "dl-o2.h"

#include <dlfcn.h>

#include <rtems/test-info.h>

#define printf(...) rtems_printf(&rtems_test_printer, __VA_ARGS__);

typedef int (*func1_t)(int argc, const char* argv[]);

static void* find_sym(const char* name)
{
  void* sym = dlsym(RTLD_DEFAULT, name);
  if (sym == NULL)
    printf("dlsym failed: not found: %s\n", name);
  return sym;
}

static int dl_o1_callback(const char* message, int count)
{
  printf("dl_o1_callback: %s\n", message);
  return count + 1;
}

/*
 * Yes a decl in the source. This is a modules main and I could not find which
 * header main is defined in.
 */
int rtems_main (int argc, const char* argv[]);

#define PDOUBLE(_d) ((int) (_d)), (int) ((_d) * 100.0) % 100

int rtems_main (int argc, const char* argv[])
{
  func1_t f1;
  double  f2_ret;
  int     arg;
  int     ret;

  printf("Loaded module: argc:%d [%s]\n", argc, __FILE__);
  for (arg = 0; arg < argc; ++arg)
    printf("  %d: %s\n", arg, argv[arg]);

  f1 = find_sym ("dl_o2_func1");
  if (f1 == NULL)
    return 0;

  if (f1 (argc, argv) != argc)
  {
    printf("rtems_main: dl_o2_func1 returned bad value\n");
    return 0;
  }

  f2_ret = dl_o2_func2 (7.1, 33.0);
  printf("rtems_main: dl_o2_func2 returned: %d.%02d\n",
         PDOUBLE(f2_ret));
  if (f2_ret != (7.1 * 33.0))
  {
    printf("rtems_main: dl_o2_func2 returned a bad\n");
    return 0;
  }

  ret = dl_o2_func3 (dl_o1_callback, 1);
  printf ("rtems_main: callback count: %d\n", ret);

  return argc;
}