89 lines
2.5 KiB
C
89 lines
2.5 KiB
C
|
/*
|
||
|
|
* tsl2561.c
|
||
|
|
*
|
||
|
|
* Created on: Aug 21, 2015
|
||
|
|
* Author: Michael Lucas (Aeprox @github)
|
||
|
|
*/
|
||
|
|
#include "lualib.h"
|
||
|
|
#include "lauxlib.h"
|
||
|
|
#include "platform.h"
|
||
|
|
#include "auxmods.h"
|
||
|
|
#include "lrotable.h"
|
||
|
|
#include "../tsl2561/tsl2561.h"
|
||
|
|
|
||
|
|
static uint16_t ch0;
|
||
|
|
static uint16_t ch1;
|
||
|
|
|
||
|
|
static int ICACHE_FLASH_ATTR tsl2561_init(lua_State* L) {
|
||
|
|
uint32_t sda;
|
||
|
|
uint32_t scl;
|
||
|
|
|
||
|
|
if (!lua_isnumber(L, 1) || !lua_isnumber(L, 2)) {
|
||
|
|
return luaL_error(L, "wrong arg range");
|
||
|
|
}
|
||
|
|
|
||
|
|
sda = luaL_checkinteger(L, 1);
|
||
|
|
scl = luaL_checkinteger(L, 2);
|
||
|
|
|
||
|
|
if (scl == 0 || sda == 0) {
|
||
|
|
return luaL_error(L, "no i2c for D0");
|
||
|
|
}
|
||
|
|
|
||
|
|
uint8_t error = tsl2561Init(sda,scl);
|
||
|
|
lua_pushnumber( L, error );
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
static int ICACHE_FLASH_ATTR tsl2561_lua_settiming(lua_State* L) {
|
||
|
|
// check variables
|
||
|
|
if (!lua_isnumber(L, 1) || !lua_isnumber(L, 2)) {
|
||
|
|
return luaL_error(L, "wrong arg range");
|
||
|
|
}
|
||
|
|
uint8_t integration = luaL_checkinteger(L, 1);
|
||
|
|
uint8_t gain = luaL_checkinteger(L, 2);
|
||
|
|
|
||
|
|
lua_pushnumber( L, tsl2561SetTiming(integration, gain) );
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
static int ICACHE_FLASH_ATTR tsl2561_lua_calclux(lua_State* L) {
|
||
|
|
lua_pushnumber( L, tsl2561CalculateLux(ch0,ch1) );
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
static int ICACHE_FLASH_ATTR tsl2561_lua_getchannels(lua_State* L) {
|
||
|
|
uint8_t error = tsl2561GetLuminosity(&ch0,&ch1);
|
||
|
|
lua_pushnumber( L, ch0 );
|
||
|
|
lua_pushnumber( L, ch1 );
|
||
|
|
lua_pushnumber( L, error );
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
#define MIN_OPT_LEVEL 2
|
||
|
|
#include "lrodefs.h"
|
||
|
|
const LUA_REG_TYPE tsl2561_map[] =
|
||
|
|
{
|
||
|
|
{ LSTRKEY( "settiming" ), LFUNCVAL( tsl2561_lua_settiming)},
|
||
|
|
{ LSTRKEY( "calclux" ), LFUNCVAL( tsl2561_lua_calclux )},
|
||
|
|
{ LSTRKEY( "channels_raw" ), LFUNCVAL( tsl2561_lua_getchannels )},
|
||
|
|
{ LSTRKEY( "init" ), LFUNCVAL( tsl2561_init )},
|
||
|
|
|
||
|
|
{ LSTRKEY( "TSL2561_OK" ), LNUMVAL( TSL2561_ERROR_OK ) },
|
||
|
|
{ LSTRKEY( "TSL2561_ERROR_I2CINIT" ), LNUMVAL( TSL2561_ERROR_I2CINIT ) },
|
||
|
|
{ LSTRKEY( "TSL2561_ERROR_I2CBUSY" ), LNUMVAL( TSL2561_ERROR_I2CBUSY ) },
|
||
|
|
{ LSTRKEY( "TSL2561_ERROR_LAST" ), LNUMVAL( TSL2561_ERROR_LAST ) },
|
||
|
|
|
||
|
|
{ LSTRKEY( "TSL2561_INTEGRATIONTIME_13MS" ), LNUMVAL( TSL2561_INTEGRATIONTIME_13MS ) },
|
||
|
|
{ LSTRKEY( "TSL2561_INTEGRATIONTIME_101MS" ), LNUMVAL( TSL2561_INTEGRATIONTIME_101MS ) },
|
||
|
|
{ LSTRKEY( "TSL2561_INTEGRATIONTIME_402MS" ), LNUMVAL( TSL2561_INTEGRATIONTIME_402MS ) },
|
||
|
|
{ LSTRKEY( "TSL2561_GAIN_0X" ), LNUMVAL( TSL2561_GAIN_0X ) },
|
||
|
|
{ LSTRKEY( "TSL2561_GAIN_16X" ), LNUMVAL( TSL2561_GAIN_16X ) },
|
||
|
|
|
||
|
|
{ LNILKEY, LNILVAL}
|
||
|
|
};
|
||
|
|
|
||
|
|
LUALIB_API int luaopen_tsl2561(lua_State *L) {
|
||
|
|
LREGISTER(L, "tsl2561", tsl2561_map);
|
||
|
|
return 1;
|
||
|
|
}
|