#include "main.h"

#define TEST_PKG_NB 1
#define TEST_RFL_NB 0

cbmachine ww;

int _TESTdouble (mmachine m)
{
	int number;
	
	MMechostr(0, "_TESTdouble entering !\n");
	
	number = MTOI (MMpull (m));
	number = number * 2;
	MMpush (m, ITOM (number));
	return 0;
}


char* test_name[TEST_PKG_NB]=
{
    "_TESTdouble"
};

int (*test_fun[TEST_PKG_NB])(mmachine m)=
{
	_TESTdouble
};

int test_narg[TEST_PKG_NB]=
{
	1
};

char* test_type[TEST_PKG_NB]=
{
	"fun [I] I"
};


int ScolLoadPlugin (mmachine m, cbmachine w)
{
    int k = 0;
    ww = w;

    MMechostr(0, "\nSCOLloadTEST library loading !\n");

    k = PKhardpak(m, "TESTengine", TEST_PKG_NB, test_name, test_fun, test_narg, test_type);

    MMechostr(MSKDEBUG, "\nSCOLloadTEST library loaded !\n");

    return 0;
}