client 0.6.1.1 release

[unagi/old-svn-converted.git] / client / tag / 0.6.1.1 / anago / flash_device.c

diff --git a/client/tag/0.6.1.1/anago/flash_device.c b/client/tag/0.6.1.1/anago/flash_device.c
new file mode 100644 (file)
index 0000000..ce4c1dc
--- /dev/null
+++ b/client/tag/0.6.1.1/anago/flash_device.c
@@ -0,0 +1,114 @@
+#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;
+}