#include <stdio.h>
#include <stdlib.h>
#include <dlfcn.h>
#include <EXTERN.h>
#include <perl.h>

void *handle;			/* for dl */

static PerlInterpreter *my_perl;

void (*boot_DynaLoader)(pTHX_ CV* cv);

CV* Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename) {
  CV* (*imp)(tTHX, const char*, XSUBADDR_t, const char*);
  imp = (CV* (*)(tTHX, const char*, XSUBADDR_t, const char*)) dlsym( handle, "Perl_newXS" );
  return (*imp)(my_perl, name, subaddr, filename);
}

void xs_init(pTHX) {
    static const char file[] = __FILE__;
    dXSUB_SYS;
    PERL_UNUSED_CONTEXT;
    newXS( "DynaLoader::boot_DynaLoader", boot_DynaLoader, file );
}

int main( int argc, char **argv, char **env ) {
  /* open shared lib */
  handle = dlopen("perl530.so", RTLD_LAZY);
  if ( !handle ) {
    fprintf( stderr, "%s\n", dlerror() );
    exit(EXIT_FAILURE);
  }

  /* Get entry point for perl_alloc */
  void* (*perl_alloc)();
  perl_alloc = (void*(*)()) dlsym(handle, "perl_alloc");
  /* Call perl_alloc */
  my_perl = (*perl_alloc)();

  /* perl_construct */
  void (*perl_construct)(void*);
  perl_construct = (void(*)(void*)) dlsym(handle, "perl_construct");
  (*perl_construct)(my_perl);

  /* boot_DynaLoader */
  boot_DynaLoader = (void (*)(pTHX_ CV* cv)) dlsym(handle, "boot_DynaLoader");
 
  /* perl_parse */
  void (*perl_parse)(void*, void*, int, char**, char**);
  perl_parse = (void(*)(void*, void*, int, char**, char**)) dlsym(handle, "perl_parse");
  (*perl_parse)(my_perl, xs_init, argc, argv, env);

  /* perl_run */
  int (*perl_run)(void*);
  perl_run = (int(*)(void*)) dlsym(handle, "perl_run");
  int result = (*perl_run)(my_perl);

  /* perl_destruct */
  void(*perl_destruct)(void*);
  perl_destruct = (void(*)(void*)) dlsym(handle, "perl_destruct");
  (*perl_destruct)(my_perl);

  /* perl_free */
  void(*perl_free)(void*);
  perl_free = (void(*)(void*)) dlsym(handle, "perl_free");
  (*perl_free)(my_perl);

  return result;
}