#include <EXTERN.h>
#include <perl.h>
#include <stdio.h>
#include <stdlib.h>
#include "GIEAsnmp.h"

#define CLIENT_ID "INTERFACE"


static PerlInterpreter *my_perl;
int count;
int counter;
char *queue;
char *tempPop;
char *temp;
int i = 0;


EXTERN_C void xs_init _((void));

EXTERN_C void boot_DynaLoader _((CV* cv));

EXTERN_C void
xs_init(void)
{
                 
	char *file = __FILE__;
	dXSUB_SYS;
	

	/* DynaLoader is a special case */
	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);


}

struct interpreter * perlstart()
{

char *my_argv[] = { "", "dataquery.pl"};
                 
my_perl = perl_alloc();



perl_construct(my_perl);


perl_parse(my_perl, xs_init, 2, my_argv, (char **)NULL);


return (my_perl);

}



void perlstop(struct interpreter *my_perl)
{

perl_destruct (my_perl);

perl_free(my_perl);

}