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

#include "../ppport.h"

#ifdef _
#undef _
#endif

#include <Etk.h>
#include <Ecore.h>
#include <Ecore_Data.h>

#include "EtkTypes.h"
#include "EtkSignals.h"

MODULE = Etk::Main	PACKAGE = Etk::Main	PREFIX = etk_main_

void
etk_main_run()
      ALIAS:
	Run=1
	CODE:
	etk_main();

void
etk_main_iterate()
      ALIAS:
	Iterate=1

void
etk_main_quit()
      ALIAS:
	Quit=1

MODULE = Etk		PACKAGE = Etk	PREFIX = etk_

Etk_Bool
etk_init()
      ALIAS:
	Init=1
	CODE:
	RETVAL = etk_init(0, NULL);
	__etk_perl_init();
	OUTPUT:
	RETVAL

void
etk_shutdown()
      ALIAS:
	Shutdown=1
	CODE:
	etk_shutdown();
	//FreeObjectCache();