/******************************************************************** * Tasmota lib * * To use: `import wire` * * 2 wire communication - I2C *******************************************************************/ #include "be_object.h" #include "be_string.h" #include "be_gc.h" extern int b_wire_init(bvm *vm); extern int b_wire_begintransmission(bvm *vm); extern int b_wire_endtransmission(bvm *vm); extern int b_wire_requestfrom(bvm *vm); extern int b_wire_available(bvm *vm); extern int b_wire_write(bvm *vm); extern int b_wire_read(bvm *vm); extern int b_wire_scan(bvm *vm); extern int b_wire_validwrite(bvm *vm); extern int b_wire_validread(bvm *vm); extern int b_wire_detect(bvm *vm); /******************************************************************** "def read_bytes(addr,reg,size) " "self._begin_transmission(addr) " "self._write(reg) " "self._end_transmission(false) " "self._request_from(addr,size) " "var ret=bytes(size) " "while (self._available()) " "ret..self._read() " "end " "return ret " "end " ********************************************************************/ /******************************************************************** ** Solidified function: read_bytes ********************************************************************/ be_define_local_const_str(read_bytes_str_name, "read_bytes", -718234123, 0, 10, 0); be_define_local_const_str(read_bytes_str_source, "string", 398550328, 0, 6, 0); be_define_local_const_str(read_bytes_str_0, "_begin_transmission", -1515506120, 0, 19, 0); be_define_local_const_str(read_bytes_str_1, "_write", -2079504471, 0, 6, 0); be_define_local_const_str(read_bytes_str_2, "_end_transmission", -1057486896, 0, 17, 0); be_define_local_const_str(read_bytes_str_3, "_request_from", -329818692, 0, 13, 0); be_define_local_const_str(read_bytes_str_4, "_available", 1306196581, 0, 10, 0); be_define_local_const_str(read_bytes_str_5, "_read", 346717030, 0, 5, 0); static const bvalue read_bytes_ktab[6] = { { { .s=be_local_const_str(read_bytes_str_0) }, BE_STRING}, { { .s=be_local_const_str(read_bytes_str_1) }, BE_STRING}, { { .s=be_local_const_str(read_bytes_str_2) }, BE_STRING}, { { .s=be_local_const_str(read_bytes_str_3) }, BE_STRING}, { { .s=be_local_const_str(read_bytes_str_4) }, BE_STRING}, { { .s=be_local_const_str(read_bytes_str_5) }, BE_STRING}, }; static const uint32_t read_bytes_code[24] = { 0x8C100100, // 0000 GETMET R4 R0 R256 0x5C180200, // 0001 MOVE R6 R1 0x7C100400, // 0002 CALL R4 2 0x8C100101, // 0003 GETMET R4 R0 R257 0x5C180400, // 0004 MOVE R6 R2 0x7C100400, // 0005 CALL R4 2 0x8C100102, // 0006 GETMET R4 R0 R258 0x50180000, // 0007 LDBOOL R6 0 0 0x7C100400, // 0008 CALL R4 2 0x8C100103, // 0009 GETMET R4 R0 R259 0x5C180200, // 000A MOVE R6 R1 0x5C1C0600, // 000B MOVE R7 R3 0x7C100600, // 000C CALL R4 3 0x60100002, // 000D GETGBL R4 G2 0x5C140600, // 000E MOVE R5 R3 0x7C100200, // 000F CALL R4 1 0x8C140104, // 0010 GETMET R5 R0 R260 0x7C140200, // 0011 CALL R5 1 0x78160003, // 0012 JMPF R5 #0017 0x8C140105, // 0013 GETMET R5 R0 R261 0x7C140200, // 0014 CALL R5 1 0x40140805, // 0015 CONNECT R5 R4 R5 0x7001FFF8, // 0016 JMP #0010 0x80040800, // 0017 RET 1 R4 }; static const bproto read_bytes_proto = { NULL, // bgcobject *next 8, // type GC_CONST, // marked 8, // nstack 0, // nupvals 4, // argc 0, // varg NULL, // bgcobject *gray NULL, // bupvaldesc *upvals (bvalue*) &read_bytes_ktab, // ktab NULL, // bproto **ptab (binstruction*) &read_bytes_code, // code be_local_const_str(read_bytes_str_name), // name 24, // codesize 6, // nconst 0, // nproto be_local_const_str(read_bytes_str_source), // source #if BE_DEBUG_RUNTIME_INFO /* debug information */ NULL, // lineinfo 0, // nlineinfo #endif #if BE_DEBUG_VAR_INFO NULL, // varinfo 0, // nvarinfo #endif }; const bclosure read_bytes_closure = { NULL, // bgcobject *next 36, // type GC_CONST, // marked 0, // nupvals NULL, // bgcobject *gray (bproto*) &read_bytes_proto, // proto { NULL } // upvals }; /*******************************************************************/ /******************************************************************** "def write_bytes(addr,reg,b) " "self._begin_transmission(addr) " "self._write(reg) " "self._write(b) " "self._end_transmission() " "end " ********************************************************************/ /******************************************************************** ** Solidified function: write_bytes ********************************************************************/ be_define_local_const_str(write_bytes_str_name, "write_bytes", 1227543792, 0, 11, 0); be_define_local_const_str(write_bytes_str_source, "string", 398550328, 0, 6, 0); be_define_local_const_str(write_bytes_str_0, "_begin_transmission", -1515506120, 0, 19, 0); be_define_local_const_str(write_bytes_str_1, "_write", -2079504471, 0, 6, 0); be_define_local_const_str(write_bytes_str_2, "_end_transmission", -1057486896, 0, 17, 0); static const bvalue write_bytes_ktab[3] = { { { .s=be_local_const_str(write_bytes_str_0) }, BE_STRING}, { { .s=be_local_const_str(write_bytes_str_1) }, BE_STRING}, { { .s=be_local_const_str(write_bytes_str_2) }, BE_STRING}, }; static const uint32_t write_bytes_code[12] = { 0x8C100100, // 0000 GETMET R4 R0 R256 0x5C180200, // 0001 MOVE R6 R1 0x7C100400, // 0002 CALL R4 2 0x8C100101, // 0003 GETMET R4 R0 R257 0x5C180400, // 0004 MOVE R6 R2 0x7C100400, // 0005 CALL R4 2 0x8C100101, // 0006 GETMET R4 R0 R257 0x5C180600, // 0007 MOVE R6 R3 0x7C100400, // 0008 CALL R4 2 0x8C100102, // 0009 GETMET R4 R0 R258 0x7C100200, // 000A CALL R4 1 0x80000000, // 000B RET 0 R0 }; static const bproto write_bytes_proto = { NULL, // bgcobject *next 8, // type GC_CONST, // marked 7, // nstack 0, // nupvals 4, // argc 0, // varg NULL, // bgcobject *gray NULL, // bupvaldesc *upvals (bvalue*) &write_bytes_ktab, // ktab NULL, // bproto **ptab (binstruction*) &write_bytes_code, // code be_local_const_str(write_bytes_str_name), // name 12, // codesize 3, // nconst 0, // nproto be_local_const_str(write_bytes_str_source), // source #if BE_DEBUG_RUNTIME_INFO /* debug information */ NULL, // lineinfo 0, // nlineinfo #endif #if BE_DEBUG_VAR_INFO NULL, // varinfo 0, // nvarinfo #endif }; const bclosure write_bytes_closure = { NULL, // bgcobject *next 36, // type GC_CONST, // marked 0, // nupvals NULL, // bgcobject *gray (bproto*) &write_bytes_proto, // proto { NULL } // upvals }; /*******************************************************************/ // #if !BE_USE_PRECOMPILED_OBJECT #if 1 // TODO we will do pre-compiled later void be_load_wirelib(bvm *vm) { static const bnfuncinfo members[] = { { "_bus", NULL }, // bus number { "init", b_wire_init }, { "_begin_transmission", b_wire_begintransmission }, { "_end_transmission", b_wire_endtransmission }, { "_request_from", b_wire_requestfrom }, { "_available", b_wire_available }, { "_write", b_wire_write }, { "_read", b_wire_read }, { "scan", b_wire_scan }, { "write", b_wire_validwrite }, { "read", b_wire_validread }, { "detect", b_wire_detect }, { NULL, (bntvfunc) BE_CLOSURE }, /* mark section for berry closures */ { "read_bytes", (bntvfunc) &read_bytes_closure }, { "write_bytes", (bntvfunc) &write_bytes_closure }, { NULL, NULL } }; be_regclass(vm, "Wire", members); } #else /* @const_object_info_begin module tasmota (scope: global, depend: 1) { get_free_heap, func(l_getFreeHeap) } @const_object_info_end */ #include "../generate/be_fixed_tasmota.h" #endif