93 lines
2.1 KiB
C
93 lines
2.1 KiB
C
// Module for interfacing with adc
|
|
|
|
#include "module.h"
|
|
#include "lauxlib.h"
|
|
#include "platform.h"
|
|
|
|
#include "c_types.h"
|
|
#include "user_interface.h"
|
|
|
|
// Lua: read(id) , return system adc
|
|
static int adc_sample( lua_State* L )
|
|
{
|
|
unsigned id = luaL_checkinteger( L, 1 );
|
|
MOD_CHECK_ID( adc, id );
|
|
unsigned val = 0xFFFF & system_adc_read();
|
|
lua_pushinteger( L, val );
|
|
return 1;
|
|
}
|
|
|
|
// Lua: readvdd33()
|
|
static int adc_readvdd33( lua_State* L )
|
|
{
|
|
lua_pushinteger(L, system_get_vdd33 ());
|
|
return 1;
|
|
}
|
|
|
|
// Lua: adc.force_init_mode(x)
|
|
static int adc_init107( lua_State *L )
|
|
{
|
|
uint8_t byte107 = luaL_checkinteger (L, 1);
|
|
|
|
int erridx = -1;
|
|
const char *errmsg[] = {
|
|
"out of memory",
|
|
"flash read error",
|
|
"flash erase error",
|
|
"flash write error"
|
|
};
|
|
#define return_error(idx) do { erridx = idx; goto out; } while (0)
|
|
|
|
|
|
uint32 init_sector = flash_safe_get_sec_num () - 4;
|
|
|
|
char *init_data = malloc (SPI_FLASH_SEC_SIZE);
|
|
if (!init_data)
|
|
return_error(0);
|
|
|
|
if (SPI_FLASH_RESULT_OK != flash_safe_read (
|
|
init_sector * SPI_FLASH_SEC_SIZE,
|
|
(uint32 *)init_data, sizeof(init_data)))
|
|
return_error(1);
|
|
|
|
// If it's already the correct value, we don't need to force it
|
|
if (init_data[107] == byte107)
|
|
{
|
|
free (init_data);
|
|
lua_pushboolean (L, false);
|
|
return 1;
|
|
}
|
|
|
|
// Nope, it differs, we need to rewrite it
|
|
init_data[107] = byte107;
|
|
if (SPI_FLASH_RESULT_OK != flash_safe_erase_sector (init_sector))
|
|
return_error(2);
|
|
|
|
if (SPI_FLASH_RESULT_OK != flash_safe_write (
|
|
init_sector * SPI_FLASH_SEC_SIZE,
|
|
(uint32 *)init_data, sizeof(init_data)))
|
|
return_error(3);
|
|
|
|
out:
|
|
free (init_data);
|
|
if (erridx >= 0)
|
|
return luaL_error(L, errmsg[erridx]);
|
|
else
|
|
{
|
|
lua_pushboolean (L, true);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
// Module function map
|
|
static const LUA_REG_TYPE adc_map[] = {
|
|
{ LSTRKEY( "read" ), LFUNCVAL( adc_sample ) },
|
|
{ LSTRKEY( "readvdd33" ), LFUNCVAL( adc_readvdd33 ) },
|
|
{ LSTRKEY( "force_init_mode" ), LFUNCVAL( adc_init107 ) },
|
|
{ LSTRKEY( "INIT_ADC" ), LNUMVAL( 0x00 ) },
|
|
{ LSTRKEY( "INIT_VDD33" ),LNUMVAL( 0xff ) },
|
|
{ LNILKEY, LNILVAL }
|
|
};
|
|
|
|
NODEMCU_MODULE(ADC, "adc", adc_map, NULL);
|