use MPV::Simple;

my $ctx = MPV::Simple->new();
$ctx->set_property_string('input-default-bindings','yes');
$ctx->set_property_string('input-vo-keyboard','yes');
$ctx->set_property_string('osc','no');
my $userdata = "test";
my $data = $ctx->set_wakeup_callback(\&func,$userdata);
$ctx->initialize();
$ctx->command();


exit 0;

sub func {print "callback called \n"}

static int pipes[2];

[...]
new [...]
if ( pipe(pipes) < 0) {
            printf("Pipe creation failed\n");
            perror ("pipe");
            exit(EXIT_FAILURE);
        }

void callback()
{
    if (pipes[0] != -1)
        write( pipes[1], &(char){0}, 1);    
}

has_events(MPV__Simple* ctx)
    CODE:
    int ret;
    int pipefd = pipes[0];
    if (pipefd < 0)
        ret = -1;
    else {
        struct pollfd pfds[1] = {
            { .fd = pipefd, .events = POLLIN },
        };
        // Wait until there are possibly new mpv events
        poll(pfds,1,0);
        if (pfds[0].revents & POLLIN) {
            // Empty the pipe. Doing this before calling mpv_wait_event()
            // ensures that no wakeups are missed. It's not so important to
            // make sure the pipe is really empty (it will just cause some
            // additional wakeups in unlikely corner cases).
            char unused[256];
            read(pipefd, unused, sizeof(unused));
            ret = 1;
        }
        else {
            ret = 0;
        }
    }
    RETVAL = ret;
    OUTPUT: RETVAL

if(!current_perl) { 
            parent_perl = PERL_GET_CONTEXT; 
            current_perl = perl_clone(parent_perl, CLONEf_KEEP_PTR_TABLE); 
            PERL_SET_CONTEXT(parent_perl); 
        }

Uint32 add_timer_cb (Uint32 interval, void* param )
{
	Uint32 ret_interval;
    {
    if(!PERL_GET_CONTEXT) { 
        PERL_SET_CONTEXT(current_perl);
    }
    
	[...] 

    }
	
	return ret_interval;
}

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "const-c.inc"

#include <SDL/SDL.h>
#include <SDL/SDL_thread.h>
#define stdout PerlIO_stdout()


#ifndef SDL_PERL_DEFINES_H
#define SDL_PERL_DEFINES_H
#endif

PerlInterpreter *parent_perl = NULL;
extern PerlInterpreter *parent_perl;
PerlInterpreter *current_perl = NULL;


void
sdl_perl_atexit (void)
{
	SDL_Quit();
}


Uint32 add_timer_cb (Uint32 interval, void* param )
{
	Uint32 ret_interval;
	
    {
        if(!PERL_GET_CONTEXT) { 
                PERL_SET_CONTEXT(current_perl); 
    }
    
	dSP;

	int count;

	ENTER;
	SAVETMPS;
	PUSHMARK(SP);
	XPUSHs(sv_2mortal(newSViv(interval)));
	PUTBACK;

	count = call_pv(param,G_SCALAR);

	SPAGAIN;

	if (count != 1 ) croak("callback returned more than 1 value\n");	
		ret_interval = POPi;

	PUTBACK;
	FREETMPS;
	LEAVE;
    
	}
	

	return ret_interval;
}


MODULE = SDLTimer		PACKAGE = SDLTimer		

INCLUDE: const-xs.inc

BOOT:
    PL_perl_destruct_level = 2;

int
init ( flags )
	Uint32 flags
	CODE:
		RETVAL = SDL_Init(SDL_INIT_TIMER);
		atexit(sdl_perl_atexit);

	OUTPUT:
		RETVAL
		

MODULE = SDLTimer		PACKAGE = SDLTimer::Time

SDL_TimerID
time_add_timer ( interval, cmd )
	Uint32 interval
	char *cmd
	CODE:
		if(!current_perl) { 
            parent_perl = PERL_GET_CONTEXT; 
            current_perl = perl_clone(parent_perl, CLONEf_KEEP_PTR_TABLE); 
            PERL_SET_CONTEXT(parent_perl); 
        }
		RETVAL = SDL_AddTimer(interval, add_timer_cb, (void *)cmd);
	OUTPUT:
		RETVAL