#include <assert.h>
#include <stdio.h>
#include <squirrel.h>
#include <sqstdio.h>
#include <sqstdaux.h>
#include "type.h"
#include "memory_manage.h"
#include "squirrel_wrap.h"
#include "flash_device.h"

static void call(HSQUIRRELVM v, const char *devicename)
{
	sq_pushroottable(v);
	sq_pushstring(v, _SC("flash_device_get"), -1);
	if(SQ_SUCCEEDED(sq_get(v,-2))){
		sq_pushroottable(v);
		sq_pushstring(v, _SC(devicename), -1);
		SQRESULT r = sq_call(v, 2, SQTrue, SQTrue);
		assert(r == SQ_OK);
		r++; //avoid warning unused variable with -DNDEBUG
	}
}
static bool long_get(HSQUIRRELVM v, const char *field, long *ret)
{
	sq_pushstring(v, _SC(field), -1);
	SQRESULT r = sq_get(v, -2);
	if(r != SQ_OK){
		return false;
	}
	if(sq_gettype(v, -1) != OT_INTEGER){
		return false;
	}
	SQInteger i;
	r = sq_getinteger(v, -1, &i);
	if(r != SQ_OK){
		return false;
	}
	*ret = (long) i;
	sq_pop(v, 1);
	return true;
}
static bool bool_get(HSQUIRRELVM v, const char *field, bool *ret)
{
	sq_pushstring(v, _SC(field), -1);
	SQRESULT r = sq_get(v, -2);
	if(r != SQ_OK){
		return false;
	}
	if(sq_gettype(v, -1) != OT_BOOL){
		return false;
	}
	SQBool i;
	r = sq_getbool(v, -1, &i);
	if(r != SQ_OK){
		return false;
	}
	if(i == SQTrue){
		*ret = true;
	}else{
		*ret = false;
	}
	sq_pop(v, 1);
	return true;
}
bool flash_device_get(const char *name, struct flash_device *t)
{
	HSQUIRRELVM v = qr_open(); 
	if(SQ_FAILED(sqstd_dofile(v, _SC("flashdevice.nut"), SQFalse, SQTrue))){
		puts("flash device script error");
		qr_close(v);
		return false;
	}
	SQInteger top = sq_gettop(v);
	call(v, name);
	if(sq_gettype(v, -1) != OT_TABLE){
		goto field_error;
	}
	t->name = name;
	if(long_get(v, "capacity", &t->capacity) == false){
		goto field_error;
	}
	if(long_get(v, "pagesize", &t->pagesize) == false){
		goto field_error;
	}
	if(long_get(v, "erase_wait", &t->erase_wait) == false){
		goto field_error;
	}
	if(bool_get(v, "erase_require", &t->erase_require) == false){
		goto field_error;
	}
	if(bool_get(v, "retry", &t->retry) == false){
		goto field_error;
	}
	if(long_get(v, "command_mask", &t->command_mask) == false){
		goto field_error;
	}
	long dd;
	if(long_get(v, "id_manufacurer", &dd) == false){
		goto field_error;
	}
	t->id_manufacurer = dd;
	if(long_get(v, "id_device", &dd) == false){
		goto field_error;
	}
	t->id_device = dd;
	sq_settop(v, top);
	qr_close(v);
	return true;

field_error:
	puts("script field error");
	qr_close(v);
	return false;
}
