/*
xdrv_10_scripter.ino - script support for Tasmota
Copyright (C) 2021 Gerhard Mutz and Theo Arends
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see .
*/
#ifdef USE_SCRIPT
#ifndef USE_RULES
/*********************************************************************************************\
for documentation see up to date docs in file SCRIPTER.md
uses about 17 k of flash
to do
optimize code for space
remarks
goal is fast execution time, minimal use of ram and intuitive syntax
therefore =>
case sensitive cmds and vars (lowercase uses time and code)
no math hierarchy (costs ram and execution time, better group with brackets, anyhow better readable for beginners)
(will probably make math hierarchy an ifdefed option)
keywords if then else endif, or, and are better readable for beginners (others may use {})
// to doo
\*********************************************************************************************/
#define XDRV_10 10
#define SCRIPT_DEBUG 0
#ifndef MAXVARS
#define MAXVARS 50
#endif
#ifndef MAXSVARS
#define MAXSVARS 5
#endif
#define MAXNVARS MAXVARS-MAXSVARS
#ifndef MAXFILT
#define MAXFILT 5
#endif
#define SCRIPT_SVARSIZE 20
#ifndef SCRIPT_MAXSSIZE
#define SCRIPT_MAXSSIZE 48
#endif
#define SCRIPT_EOL '\n'
#define SCRIPT_FLOAT_PRECISION 2
#define PMEM_SIZE sizeof(Settings.script_pram)
#define SCRIPT_MAXPERM (PMEM_SIZE)-4/sizeof(float)
#define MAX_SCRIPT_SIZE MAX_RULE_SIZE*MAX_RULE_SETS
#ifndef MAX_SARRAY_NUM
#define MAX_SARRAY_NUM 32
#endif
uint32_t EncodeLightId(uint8_t relay_id);
uint32_t DecodeLightId(uint32_t hue_id);
#define SPECIAL_EEPMODE_SIZE 6200
#ifdef USE_UFILESYS
#undef USE_SCRIPT_FATFS
#define USE_SCRIPT_FATFS -1
#pragma message "universal file system used"
#else // USE_UFILESYS
// eeprom script
#ifdef EEP_SCRIPT_SIZE
#ifdef ESP32
#error "unsupported option for ESP32"
#endif
#ifdef USE_24C256
#pragma message "script 24c256 file option used"
#else
#if EEP_SCRIPT_SIZE==SPECIAL_EEPMODE_SIZE
#pragma message "internal compressed eeprom script buffer used"
#else
#error "unsupported eeprom option used"
#endif
#endif // USE_24C256
#else // EEP_SCRIPT_SIZE
// default
#pragma message "script compression option used"
#endif // EEP_SCRIPT_SIZE
#endif // USE_UFILESYS
#include
#define SCRIPT_COMPRESS compressor.unishox_compress
#define SCRIPT_DECOMPRESS compressor.unishox_decompress
#ifndef UNISHOXRSIZE
#define UNISHOXRSIZE 2560
#endif
#ifndef STASK_PRIO
#define STASK_PRIO 1
#endif
#ifdef USE_SCRIPT_TIMER
#include
Ticker Script_ticker1;
Ticker Script_ticker2;
Ticker Script_ticker3;
Ticker Script_ticker4;
void Script_ticker1_end(void) {
Script_ticker1.detach();
Run_Scripter(">ti1", 4, 0);
}
void Script_ticker2_end(void) {
Script_ticker2.detach();
Run_Scripter(">ti2", 4, 0);
}
void Script_ticker3_end(void) {
Script_ticker3.detach();
Run_Scripter(">ti3", 4, 0);
}
void Script_ticker4_end(void) {
Script_ticker4.detach();
Run_Scripter(">ti4", 4, 0);
}
#endif
// EEPROM MACROS
// i2c eeprom
#define EEP_WRITE(A,B,C) eeprom_writeBytes(A, B, (uint8_t*)C);
#define EEP_READ(A,B,C) eeprom_readBytes(A, B, (uint8_t*)C);
#ifdef ESP8266
#ifdef USE_24C256
#undef EEP_INIT
#define EEP_INIT(A) eeprom_init(A)
#else
#undef EEP_INIT
#define EEP_INIT(A) alt_eeprom_init(A)
#endif
#endif
extern uint8_t sml_json_enable;
#if defined(EEP_SCRIPT_SIZE) && !defined(ESP32)
// seems to be the last untouched sector, beside OTA and serial Flash
#define SPEC_SCRIPT_FLASH 0x000F2000
uint32_t eeprom_block;
// these support only one 4 k block below EEPROM this steals 4k of application area
uint32_t alt_eeprom_init(uint32_t size) {
//EEPROM.begin(size);
//eeprom_block = (uint32_t)&_EEPROM_start - 0x40200000 - SPI_FLASH_SEC_SIZE;
eeprom_block = SPEC_SCRIPT_FLASH;
return 1;
}
void alt_eeprom_writeBytes(uint32_t adr, uint32_t len, uint8_t *buf) {
uint32_t *lwp=(uint32_t*)buf;
ESP.flashEraseSector(eeprom_block / SPI_FLASH_SEC_SIZE);
ESP.flashWrite(eeprom_block , lwp, SPI_FLASH_SEC_SIZE);
}
void alt_eeprom_readBytes(uint32_t adr, uint32_t len, uint8_t *buf) {
uint32_t *lwp=(uint32_t*)buf;
ESP.flashRead(eeprom_block , lwp, SPI_FLASH_SEC_SIZE);
}
#endif // EEP_SCRIPT_SIZE
#include "FS.h"
#if USE_SCRIPT_FATFS==-1
#ifdef ESP32
//#include "FS.h"
//#include "FFat.h"
#else
//#include
#endif
#endif // LITTLEFS_SCRIPT_SIZE
// offsets epoch readings by 1.1.2019 00:00:00 to fit into float with second resolution
#ifndef EPOCH_OFFSET
#define EPOCH_OFFSET 1546300800
#endif
enum {OPER_EQU=1,OPER_PLS,OPER_MIN,OPER_MUL,OPER_DIV,OPER_PLSEQU,OPER_MINEQU,OPER_MULEQU,OPER_DIVEQU,OPER_EQUEQU,OPER_NOTEQU,OPER_GRTEQU,OPER_LOWEQU,OPER_GRT,OPER_LOW,OPER_PERC,OPER_XOR,OPER_AND,OPER_OR,OPER_ANDEQU,OPER_OREQU,OPER_XOREQU,OPER_PERCEQU};
enum {SCRIPT_LOGLEVEL=1,SCRIPT_TELEPERIOD,SCRIPT_EVENT_HANDLED,SML_JSON_ENABLE,SCRIPT_EPOFFS};
#ifdef USE_UFILESYS
extern uint8_t ufs_type;
extern FS *ufsp;
#ifndef UFSYS_SIZE
#define UFSYS_SIZE 8192
#endif
#define FAT_SCRIPT_NAME "/script.txt"
#endif // USE_UFILESYS
extern "C" void homekit_main(char *, uint32_t);
#ifdef SUPPORT_MQTT_EVENT
#include // Import LinkedList library
typedef struct {
String Event;
String Topic;
String Key;
} MQTT_Subscription;
LinkedList subscriptions;
#endif //SUPPORT_MQTT_EVENT
#ifdef USE_DISPLAY
#ifdef USE_TOUCH_BUTTONS
#include
#ifndef MAX_TOUCH_BUTTONS
#define MAX_TOUCH_BUTTONS 16
#endif
extern VButton *buttons[MAX_TOUCH_BUTTONS];
#endif
#endif
typedef union {
#if defined(USE_SCRIPT_GLOBVARS) || defined(USE_HOMEKIT)
uint16_t data;
#else
uint8_t data;
#endif
struct {
uint8_t is_string : 1; // string or number
uint8_t is_permanent : 1;
uint8_t is_timer : 1;
uint8_t is_autoinc : 1;
uint8_t changed : 1;
uint8_t settable : 1;
uint8_t is_filter : 1;
uint8_t constant : 1;
#ifdef USE_SCRIPT_GLOBVARS
uint8_t global : 1;
#endif
#ifdef USE_SCRIPT_GLOBVARS
uint8_t hchanged : 1;
#endif
};
} SCRIPT_TYPE;
struct T_INDEX {
uint8_t index;
SCRIPT_TYPE bits;
};
struct M_FILT {
#ifdef LARGE_ARRAYS
uint16_t numvals;
uint16_t index;
#else
uint8_t numvals;
uint8_t index;
#endif // LARGE_ARRAYS
float maccu;
float rbuff[1];
};
#ifdef LARGE_ARRAYS
#undef AND_FILT_MASK
#undef OR_FILT_MASK
#define AND_FILT_MASK 0x7fff
#define OR_FILT_MASK 0x8000
#undef MAX_ARRAY_SIZE
#define MAX_ARRAY_SIZE 1000
#else
#undef AND_FILT_MASK
#undef OR_FILT_MASK
#define AND_FILT_MASK 0x7f
#define OR_FILT_MASK 0x80
#undef MAX_ARRAY_SIZE
#define MAX_ARRAY_SIZE 127
#endif
typedef union {
uint8_t data;
struct {
uint8_t nutu8 : 1;
uint8_t nutu7 : 1;
uint8_t nutu6 : 1;
uint8_t nutu5 : 1;
uint8_t nutu4 : 1;
uint8_t nutu3 : 1;
uint8_t is_dir : 1;
uint8_t is_open : 1;
};
} FILE_FLAGS;
typedef union {
uint8_t data;
struct {
uint8_t nutu8 : 1;
uint8_t nutu7 : 1;
uint8_t nutu6 : 1;
uint8_t nutu5 : 1;
uint8_t nutu4 : 1;
uint8_t nutu3 : 1;
uint8_t udp_connected : 1;
uint8_t udp_used : 1;
};
} UDP_FLAGS;
typedef union {
uint8_t data;
struct {
uint8_t nutu8 : 1;
uint8_t nutu7 : 1;
uint8_t nutu6 : 1;
uint8_t nutu5 : 1;
uint8_t nutu4 : 1;
uint8_t nutu3 : 1;
bool fsys : 1;
bool eeprom : 1;
};
} FS_FLAGS;
struct GVARS {
JsonParserObject *jo;
int16_t numind;
int16_t strind;
};
#define NUM_RES 0xfe
#define STR_RES 0xfd
#define VAR_NV 0xff
#define NTYPE 0
#define STYPE 0x80
#ifndef FLT_MAX
#define FLT_MAX 99999999
#endif
#define SFS_MAX 4
// global memory
struct SCRIPT_MEM {
float *fvars; // number var pointer
float *s_fvars; // shadow var pointer
struct T_INDEX *type; // type and index pointer
struct M_FILT *mfilt;
char *glob_vnp; // var name pointer
#ifdef SCRIPT_LARGE_VNBUFF
uint16_t *vnp_offset;
#else
uint8_t *vnp_offset;
#endif
char *glob_snp; // string vars pointer
char *scriptptr;
char *section_ptr;
char *scriptptr_bu;
char *script_ram;
uint16_t script_size;
uint8_t *script_pram;
uint16_t script_pram_size;
uint8_t numvars;
void *script_mem;
uint16_t script_mem_size;
uint8_t script_dprec;
uint8_t script_lzero;
uint8_t var_not_found;
uint8_t glob_error;
uint8_t max_ssize;
uint8_t script_loglevel;
FS_FLAGS FLAGS;
uint8_t si_num[3];
uint8_t siro_num[3];
uint8_t sind_num;
char *last_index_string[3];
#ifdef USE_SCRIPT_FATFS
File files[SFS_MAX];
FILE_FLAGS file_flags[SFS_MAX];
uint8_t script_sd_found;
char flink[2][14];
#endif //USE_SCRIPT_FATFS
#ifdef USE_SCRIPT_GLOBVARS
UDP_FLAGS udp_flags;
IPAddress last_udp_ip;
WiFiUDP Script_PortUdp;
IPAddress script_udp_remote_ip;
#endif // USE_SCRIPT_GLOBVARS
char web_mode;
uint8_t glob_script = 0;
uint8_t fast_script = 0;
uint32_t script_lastmillis;
bool event_handeled = false;
#ifdef USE_BUTTON_EVENT
int8_t script_button[MAX_KEYS];
#endif //USE_BUTTON_EVENT
#ifdef USE_HOMEKIT
bool homekit_running = false;
#endif // USE_HOMEKIT
uint32_t epoch_offset = EPOCH_OFFSET;
} glob_script_mem;
uint8_t tasm_cmd_activ=0;
void flt2char(float num, char *nbuff) {
dtostrfd(num, glob_script_mem.script_dprec, nbuff);
}
// convert float to char with leading zeros
void f2char(float num, uint32_t dprec, uint32_t lzeros, char *nbuff) {
dtostrfd(num, dprec, nbuff);
if (lzeros>1) {
// check leading zeros
uint32_t nd = num;
nd/=10;
nd+=1;
if (lzeros>nd) {
// insert zeros
char cpbuf[24];
char *cp = cpbuf;
for (uint32_t cnt = 0; cnt < lzeros - nd; cnt++) {
*cp++='0';
}
*cp=0;
strcat(cpbuf,nbuff);
strcpy(nbuff,cpbuf);
}
}
}
char *GetNumericArgument(char *lp,uint8_t lastop,float *fp, struct GVARS *gv);
char *GetStringArgument(char *lp,uint8_t lastop,char *cp, struct GVARS *gv);
char *ForceStringVar(char *lp,char *dstr);
void send_download(void);
uint8_t UfsReject(char *name);
void ScriptEverySecond(void) {
if (bitRead(Settings.rule_enabled, 0)) {
struct T_INDEX *vtp = glob_script_mem.type;
float delta = (millis() - glob_script_mem.script_lastmillis) / 1000.0;
glob_script_mem.script_lastmillis = millis();
for (uint8_t count=0; count0) {
// decrement
*fp -= delta;
if (*fp<0) *fp = 0;
}
}
if (vtp[count].bits.is_autoinc) {
// increments timers
float *fp = &glob_script_mem.fvars[vtp[count].index];
if (*fp>=0) {
*fp += delta;
}
}
}
Run_Scripter(">S", 2, 0);
#ifdef USE_HOMEKIT
if (glob_script_mem.homekit_running == false) {
uint8_t homekit_found = Run_Scripter(">h", -2, 0);
if (homekit_found == 99) {
if (!TasmotaGlobal.global_state.wifi_down) {
homekit_main(glob_script_mem.section_ptr, 0);
glob_script_mem.homekit_running = true;
}
}
}
#endif // USE_HOMEKIT
}
}
void SetChanged(uint32_t index) {
glob_script_mem.type[index].bits.changed = 1;
#ifdef USE_SCRIPT_GLOBVARS
#ifdef USE_HOMEKIT
glob_script_mem.type[index].bits.hchanged = 1;
#endif
#endif
//AddLog(LOG_LEVEL_INFO, PSTR("Change: %d"), index);
}
#define SCRIPT_SKIP_SPACES while (*lp==' ' || *lp=='\t') lp++;
#define SCRIPT_SKIP_EOL while (*lp==SCRIPT_EOL) lp++;
float *Get_MFAddr(uint8_t index, uint16_t *len, uint16_t *ipos);
// allocates all variables and presets them
int16_t Init_Scripter(void) {
char *script;
int16_t err = 0;
script = glob_script_mem.script_ram;
if (!*script) return -999;
// scan lines for >DEF
uint16_t lines = 0;
uint16_t nvars = 0;
uint16_t svars = 0;
uint16_t vars = 0;
char *lp = script;
uint16_t imemsize = (MAXVARS*10) + 4;
uint8_t *imemptr = (uint8_t*)calloc(imemsize, 1);
if (!imemptr) {
return -7;
}
//ClaimSerial();
//SetSerialBaudrate(115200);
//Serial.printf("size %d\n",imemsize);
//Serial.printf("stack %d\n",GetStack()); // 2848
// 2896
//char vnames[MAXVARS*10];
char *vnames = (char*)imemptr;
char *vnp[MAXVARS];
float fvalues[MAXVARS];
struct T_INDEX vtypes[MAXVARS];
/*
uint32_t imemp = (uint32_t)imemptr;
imemp += (MAXVARS*10);
imemp = (imemp & 0xfffc) + 4;
Serial.printf(">1 %x\n",imemp);
char *vnp[MAXVARS];
//char **vnp = (char**)imemp;
imemp += (sizeof(char*)*MAXVARS);
imemp = (imemp & 0xfffc) + 4;
Serial.printf(">2 %x\n",imemp);
float fvalues[MAXVARS];
//float *fvalues = (float*)imemp;
imemp += (sizeof(float*)*MAXVARS);
imemp = (imemp & 0xfffc) + 4;
Serial.printf(">3 %x\n",imemp);
struct T_INDEX vtypes[MAXVARS];
//struct T_INDEX *vtypes = (struct T_INDEX*)imemp;
*/
char *vnames_p = vnames;
char **vnp_p = vnp;
char strings[MAXSVARS*SCRIPT_MAXSSIZE];
char *snp[MAXSVARS];
struct M_FILT mfilt[MAXFILT];
char *strings_p = strings;
char **snp_p = snp;
uint8_t numperm = 0;
uint8_t numflt = 0;
uint16_t count;
glob_script_mem.max_ssize = SCRIPT_SVARSIZE;
glob_script_mem.scriptptr = 0;
char init = 0;
while (1) {
// check line
// skip leading spaces
SCRIPT_SKIP_SPACES
// skip empty line
if (*lp=='\n' || *lp=='\r') goto next_line;
// skip comment
if (*lp==';') goto next_line;
if (init) {
// init section
if (*lp=='>' || !*lp) {
init = 0;
break;
}
char *op = strchr(lp, '=');
if (op) {
vtypes[vars].bits.data = 0;
// found variable definition
if (*lp=='p' && *(lp+1)==':') {
lp += 2;
if (numpermMAXFILT) {
if (imemptr) free(imemptr);
return -6;
}
} else {
vtypes[vars].bits.is_filter = 0;
}
*vnp_p++ = vnames_p;
while (lpMAXNVARS) {
if (imemptr) free(imemptr);
return -1;
}
if (vtypes[vars].bits.is_filter) {
while (isdigit(*op) || *op=='.' || *op=='-') {
op++;
}
while (*op==' ') op++;
if (isdigit(*op)) {
// lenght define follows
uint16_t flen = atoi(op);
if (flen>MAX_ARRAY_SIZE) {
// limit array size
flen = MAX_ARRAY_SIZE;
}
mfilt[numflt-1].numvals &= OR_FILT_MASK;
mfilt[numflt-1].numvals |= flen&AND_FILT_MASK;
}
}
} else {
// string vars
op++;
*snp_p ++= strings_p;
while (*op!='\"') {
if (*op==SCRIPT_EOL) break;
*strings_p++ = *op++;
}
*strings_p++ = 0;
vtypes[vars].bits.is_string = 1;
vtypes[vars].index = svars;
svars++;
if (svars>MAXSVARS) {
if (imemptr) free(imemptr);
return -2;
}
}
vars++;
if (vars>MAXVARS) {
if (imemptr) free(imemptr);
return -3;
}
}
} else {
if (!strncmp(lp, ">D", 2)) {
lp += 2;
SCRIPT_SKIP_SPACES
if (isdigit(*lp)) {
uint8_t ssize = atoi(lp)+1;
if (ssize<10 || ssize>SCRIPT_MAXSSIZE) ssize=SCRIPT_MAXSSIZE;
glob_script_mem.max_ssize = ssize;
}
init = 1;
}
}
// next line
next_line:
lp = strchr(lp, SCRIPT_EOL);
if (!lp) break;
lp++;
}
uint16_t fsize = 0;
for (count=0; count MAXVNSIZ) {
free(glob_script_mem.script_mem);
if (imemptr) free(imemptr);
return -5;
}
}
// variables usage info
AddLog(LOG_LEVEL_INFO, PSTR("Script: nv=%d, tv=%d, vns=%d, ram=%d"), nvars, svars, index, glob_script_mem.script_mem_size);
// copy string variables
char *cp1 = glob_script_mem.glob_snp;
char *sp = strings;
for (count = 0; countnumvals = mfilt[count].numvals;
mp += sizeof(struct M_FILT) + ((mfilt[count].numvals & AND_FILT_MASK) - 1) * sizeof(float);
}
glob_script_mem.numvars = vars;
glob_script_mem.script_dprec = SCRIPT_FLOAT_PRECISION;
glob_script_mem.script_lzero = 0;
glob_script_mem.script_loglevel = LOG_LEVEL_INFO;
#if SCRIPT_DEBUG>2
struct T_INDEX *dvtp = glob_script_mem.type;
for (uint8_t count = 0; count0
ClaimSerial();
SetSerialBaudrate(9600);
#endif //SCRIPT_DEBUG
// store start of actual program here
glob_script_mem.scriptptr = lp - 1;
glob_script_mem.scriptptr_bu = glob_script_mem.scriptptr;
#ifdef USE_SCRIPT_GLOBVARS
if (glob_script_mem.udp_flags.udp_used) {
Script_Init_UDP();
glob_script_mem.glob_script = Run_Scripter(">G", -2, 0);
}
#endif //USE_SCRIPT_GLOBVARS
if (imemptr) {
free(imemptr);
}
return err;
}
#ifdef USE_SCRIPT_GLOBVARS
#define SCRIPT_UDP_BUFFER_SIZE 128
#define SCRIPT_UDP_PORT 1999
void Restart_globvars(void) {
Script_Stop_UDP();
Script_Init_UDP();
}
void Script_Stop_UDP(void) {
if (!glob_script_mem.udp_flags.udp_used) return;
if (glob_script_mem.udp_flags.udp_connected) {
glob_script_mem.Script_PortUdp.flush();
glob_script_mem.Script_PortUdp.stop();
glob_script_mem.udp_flags.udp_connected = 0;
}
}
void Script_Init_UDP() {
if (TasmotaGlobal.global_state.network_down) return;
if (!glob_script_mem.udp_flags.udp_used) return;
if (glob_script_mem.udp_flags.udp_connected) return;
if (glob_script_mem.Script_PortUdp.beginMulticast(WiFi.localIP(), IPAddress(239,255,255,250), SCRIPT_UDP_PORT)) {
AddLog(LOG_LEVEL_DEBUG, PSTR(D_LOG_UPNP "SCRIPT UDP started"));
glob_script_mem.udp_flags.udp_connected = 1;
} else {
AddLog(LOG_LEVEL_DEBUG, PSTR(D_LOG_UPNP "SCRIPT UDP failed"));
glob_script_mem.udp_flags.udp_connected = 0;
}
}
void Script_PollUdp(void) {
if (TasmotaGlobal.global_state.network_down) return;
if (!glob_script_mem.udp_flags.udp_used) return;
if (glob_script_mem.udp_flags.udp_connected ) {
while (glob_script_mem.Script_PortUdp.parsePacket()) {
char packet_buffer[SCRIPT_UDP_BUFFER_SIZE];
int32_t len = glob_script_mem.Script_PortUdp.read(packet_buffer, SCRIPT_UDP_BUFFER_SIZE - 1);
packet_buffer[len] = 0;
glob_script_mem.script_udp_remote_ip = glob_script_mem.Script_PortUdp.remoteIP();
//AddLog(LOG_LEVEL_DEBUG, PSTR("UDP: Packet %s - %d - %s"), packet_buffer, len, script_udp_remote_ip.toString().c_str());
AddLog(LOG_LEVEL_DEBUG, PSTR("UDP: Packet %s - %d - %_I"), packet_buffer, len, (uint32_t)glob_script_mem.script_udp_remote_ip);
char *lp=packet_buffer;
if (!strncmp(lp,"=>", 2)) {
lp += 2;
char *cp=strchr(lp, '=');
if (cp) {
char vnam[32];
for (uint32_t count = 0; countG", 2, 0);
}
}
}
}
optimistic_yield(100);
}
} else {
Script_Init_UDP();
}
}
void script_udp_sendvar(char *vname,float *fp,char *sp) {
if (!glob_script_mem.udp_flags.udp_used) return;
if (!glob_script_mem.udp_flags.udp_connected) return;
char sbuf[SCRIPT_MAXSSIZE + 4];
strcpy(sbuf, "=>");
strcat(sbuf, vname);
strcat(sbuf, "=");
if (fp) {
char flstr[16];
dtostrfd(*fp, 8, flstr);
strcat(sbuf, flstr);
AddLog(LOG_LEVEL_DEBUG, PSTR("num var updated - %s"), sbuf);
} else {
strcat(sbuf, sp);
AddLog(LOG_LEVEL_DEBUG, PSTR("string var updated - %s"), sbuf);
}
glob_script_mem.Script_PortUdp.beginPacket(IPAddress(239, 255, 255, 250), SCRIPT_UDP_PORT);
// Udp.print(String("RET UC: ") + String(recv_Packet));
glob_script_mem.Script_PortUdp.write((const uint8_t*)sbuf, strlen(sbuf));
glob_script_mem.Script_PortUdp.endPacket();
}
#endif //USE_SCRIPT_GLOBVARS
#ifdef USE_LIGHT
#ifdef USE_WS2812
void ws2812_set_array(float *array ,uint32_t len, uint32_t offset) {
Ws2812ForceSuspend();
for (uint32_t cnt = 0; cntSettings.light_pixels) break;
uint32_t col = array[cnt];
Ws2812SetColor(index + 1, col>>16, col>>8, col, 0);
}
Ws2812ForceUpdate();
}
#endif //USE_WS2812
#endif //USE_LIGHT
float median_array(float *array, uint16_t len) {
uint8_t ind[len];
uint8_t mind = 0;
uint8_t index = 0;
uint8_t flg;
float min = FLT_MAX;
for (uint8_t hcnt = 0; hcntnumvals & AND_FILT_MASK;
if (ipos) *ipos = mflp->index;
return mflp->rbuff;
}
mp += sizeof(struct M_FILT) + ((mflp->numvals & AND_FILT_MASK) - 1) * sizeof(float);
}
return 0;
}
char *isvar(char *lp, uint8_t *vtype, struct T_INDEX *tind, float *fp, char *sp, struct GVARS *gv);
float *get_array_by_name(char *name, uint16_t *alen) {
struct T_INDEX ind;
uint8_t vtype;
isvar(name, &vtype, &ind, 0, 0, 0);
if (vtype==VAR_NV) return 0;
if (vtype&STYPE) return 0;
uint16_t index = glob_script_mem.type[ind.index].index;
if (glob_script_mem.type[ind.index].bits.is_filter) {
float *fa = Get_MFAddr(index, alen, 0);
return fa;
}
return 0;
}
float Get_MFVal(uint8_t index, int16_t bind) {
uint8_t *mp = (uint8_t*)glob_script_mem.mfilt;
for (uint8_t count = 0; countnumvals & AND_FILT_MASK;
if (!bind) {
return mflp->index;
}
if (bind<0) {
return maxind;
}
if (bind < 1 || bind > maxind ) bind = 1;
return mflp->rbuff[bind - 1];
}
mp += sizeof(struct M_FILT) + ((mflp->numvals & AND_FILT_MASK) - 1) * sizeof(float);
}
return 0;
}
void Set_MFVal(uint8_t index, uint16_t bind, float val) {
uint8_t *mp = (uint8_t*)glob_script_mem.mfilt;
for (uint8_t count = 0; countnumvals & AND_FILT_MASK;
if (!bind) {
if (val < 0 || val >= maxind) val = 0;
mflp->index = val;
} else {
if (bind >= 1 && bind <= maxind) {
mflp->rbuff[bind-1] = val;
}
}
return;
}
mp += sizeof(struct M_FILT) + ((mflp->numvals & AND_FILT_MASK) - 1) * sizeof(float);
}
}
float Get_MFilter(uint8_t index) {
uint8_t *mp = (uint8_t*)glob_script_mem.mfilt;
for (uint8_t count = 0; countnumvals & OR_FILT_MASK) {
// moving average
return mflp->maccu / (mflp->numvals & AND_FILT_MASK);
} else {
// median, sort array indices
return median_array(mflp->rbuff, mflp->numvals);
}
}
mp += sizeof(struct M_FILT) + ((mflp->numvals & AND_FILT_MASK) - 1) * sizeof(float);
}
return 0;
}
void Set_MFilter(uint8_t index, float invar) {
uint8_t *mp = (uint8_t*)glob_script_mem.mfilt;
for (uint8_t count = 0; countnumvals & OR_FILT_MASK) {
// moving average
mflp->maccu -= mflp->rbuff[mflp->index];
mflp->maccu += invar;
mflp->rbuff[mflp->index] = invar;
mflp->index++;
if (mflp->index>=(mflp->numvals&AND_FILT_MASK)) mflp->index = 0;
} else {
// median
mflp->rbuff[mflp->index] = invar;
mflp->index++;
if (mflp->index>=mflp->numvals) mflp->index = 0;
}
break;
}
mp += sizeof(struct M_FILT) + ((mflp->numvals & AND_FILT_MASK) - 1) * sizeof(float);
}
}
#define MEDIAN_SIZE 5
#define MEDIAN_FILTER_NUM 2
struct MEDIAN_FILTER {
float buffer[MEDIAN_SIZE];
int8_t index;
} script_mf[MEDIAN_FILTER_NUM];
float DoMedian5(uint8_t index, float in) {
if (index>=MEDIAN_FILTER_NUM) index = 0;
struct MEDIAN_FILTER* mf = &script_mf[index];
mf->buffer[mf->index] = in;
mf->index++;
if (mf->index>=MEDIAN_SIZE) mf->index = 0;
return median_array(mf->buffer, MEDIAN_SIZE);
}
#ifdef USE_LIGHT
uint32_t HSVToRGB(uint16_t hue, uint8_t saturation, uint8_t value) {
float r = 0, g = 0, b = 0;
struct HSV {
float H;
float S;
float V;
} hsv;
hsv.H = hue;
hsv.S = (float)saturation / 100.0;
hsv.V = (float)value / 100.0;
if (hsv.S == 0) {
r = hsv.V;
g = hsv.V;
b = hsv.V;
} else {
int i;
float f, p, q, t;
if (hsv.H == 360)
hsv.H = 0;
else
hsv.H = hsv.H / 60;
i = (int)trunc(hsv.H);
f = hsv.H - i;
p = hsv.V * (1.0 - hsv.S);
q = hsv.V * (1.0 - (hsv.S * f));
t = hsv.V * (1.0 - (hsv.S * (1.0 - f)));
switch (i)
{
case 0:
r = hsv.V;
g = t;
b = p;
break;
case 1:
r = q;
g = hsv.V;
b = p;
break;
case 2:
r = p;
g = hsv.V;
b = t;
break;
case 3:
r = p;
g = q;
b = hsv.V;
break;
case 4:
r = t;
g = p;
b = hsv.V;
break;
default:
r = hsv.V;
g = p;
b = q;
break;
}
}
uint8_t ir, ig, ib;
ir = r * 255;
ig = g * 255;
ib = b * 255;
uint32_t rgb = (ir<<16) | (ig<<8) | ib;
return rgb;
}
#endif //USE_LIGHT
#ifdef USE_ANGLE_FUNC
uint32_t pulse_time_hl;
uint32_t pulse_time_lh;
uint32_t pulse_ltime_hl;
uint32_t pulse_ltime_lh;
uint8_t pt_pin;
#define MPT_DEBOUNCE 10
void IRAM_ATTR MP_Timer(void) {
uint32_t level = digitalRead(pt_pin&0x3f);
uint32_t ms = millis();
uint32_t time;
if (level) {
// rising edge
pulse_ltime_lh = ms;
time = ms - pulse_ltime_hl;
if (time>MPT_DEBOUNCE) pulse_time_hl = time;
} else {
// falling edge
pulse_ltime_hl = ms;
time = ms - pulse_ltime_lh;
if (time>MPT_DEBOUNCE) pulse_time_lh = time;
}
}
uint32_t MeasurePulseTime(int32_t in) {
if (in >= 0) {
// define pin;
pt_pin = in;
pinMode(pt_pin & 0x3f, INPUT_PULLUP);
attachInterrupt(pt_pin & 0x3f, MP_Timer, CHANGE);
pulse_ltime_lh = millis();
pulse_ltime_hl = millis();
return 0;
}
uint32_t ptime;
if (in==-1) {
ptime = pulse_time_lh;
pulse_time_lh = 0;
} else {
ptime = pulse_time_hl;
pulse_time_hl = 0;
}
return ptime;
}
#endif // USE_ANGLE_FUNC
#ifdef USE_SCRIPT_GLOBVARS
uint32_t match_vars(char *dvnam, float **fp, char **sp, uint32_t *ind) {
uint16_t olen = strlen(dvnam);
struct T_INDEX *vtp = glob_script_mem.type;
for (uint32_t count = 0; count 0 && glob_script_mem.last_index_string[isind]) {
free(glob_script_mem.last_index_string[isind]);
}
char *sstart = lp;
uint8_t slen = 0;
for (uint32_t cnt = 0; cnt < SCRIPT_IS_STRING_MAXSIZE; cnt++) {
if (*lp == '\n' || *lp == '"' || *lp == 0) {
lp++;
if (cnt > 0 && !slen) {
slen++;
}
glob_script_mem.siro_num[isind] = slen;
break;
}
if (*lp == '|') {
slen++;
}
lp++;
}
glob_script_mem.si_num[isind] = fvar;
if (glob_script_mem.si_num[isind] > 0) {
if (glob_script_mem.si_num[isind] > MAX_SARRAY_NUM) {
glob_script_mem.si_num[isind] = MAX_SARRAY_NUM;
}
glob_script_mem.last_index_string[isind] = (char*)calloc(glob_script_mem.max_ssize*glob_script_mem.si_num[isind], 1);
for (uint32_t cnt = 0; cntstrind = index;
glob_script_mem.sind_num = isind;
if (glob_script_mem.last_index_string[isind]) {
if (!glob_script_mem.si_num[isind]) {
if (index <= glob_script_mem.siro_num[isind]) {
GetTextIndexed(str, sizeof(str), index , glob_script_mem.last_index_string[isind]);
}
} else {
if (index > glob_script_mem.si_num[isind]) {
index = glob_script_mem.si_num[isind];
}
strlcpy(str,glob_script_mem.last_index_string[isind] + (index * glob_script_mem.max_ssize), glob_script_mem.max_ssize);
}
}
lp++;
if (sp) strlcpy(sp, str, glob_script_mem.max_ssize);
return lp;
}
// vtype => ff=nothing found, fe=constant number,fd = constant string else bit 7 => 80 = string, 0 = number
// no flash strings here for performance reasons!!!
char *isvar(char *lp, uint8_t *vtype, struct T_INDEX *tind, float *fp, char *sp, struct GVARS *gv) {
uint16_t count,len = 0;
uint8_t nres = 0;
char vname[64];
float fvar = 0;
tind->index = 0;
tind->bits.data = 0;
if (isdigit(*lp) || (*lp=='-' && isdigit(*(lp+1))) || *lp=='.') {
// isnumber
if (fp) {
if (*lp=='0' && *(lp+1)=='x') {
lp += 2;
*fp = strtol(lp, 0, 16);
} else {
*fp = CharToFloat(lp);
}
}
if (*lp=='-') lp++;
while (isdigit(*lp) || *lp=='.') {
if (*lp==0 || *lp==SCRIPT_EOL) break;
lp++;
}
tind->bits.constant = 1;
tind->bits.is_string = 0;
*vtype = NUM_RES;
return lp;
}
if (*lp=='"') {
lp++;
while (*lp!='"') {
if (*lp==0 || *lp==SCRIPT_EOL) break;
uint8_t iob = *lp;
if (iob=='\\') {
lp++;
if (*lp=='t') {
iob = '\t';
} else if (*lp=='n') {
iob = '\n';
} else if (*lp=='r') {
iob = '\r';
} else if (*lp=='\\') {
iob = '\\';
} else {
lp--;
}
if (sp) *sp++ = iob;
} else {
if (sp) *sp++ = iob;
}
lp++;
}
if (sp) *sp = 0;
*vtype = STR_RES;
tind->bits.constant = 1;
tind->bits.is_string = 1;
return lp + 1;
}
if (*lp=='-') {
// inverted var
nres = 1;
lp++;
}
const char *term="\n\r ])=+-/*%>index = VAR_NV;
glob_script_mem.var_not_found = 1;
return lp;
}
struct T_INDEX *vtp = glob_script_mem.type;
char dvnam[32];
strcpy (dvnam, vname);
uint8_t olen = len;
if (gv) {
gv->numind = -1;
gv->strind = -1;
}
char *ja = strchr(dvnam, '[');
if (ja) {
*ja = 0;
ja++;
olen = strlen(dvnam);
}
for (count = 0; countindex = count; // overwrite with global var index
if (vtp[count].bits.is_string==0) {
*vtype = NTYPE | index;
if (vtp[count].bits.is_filter) {
if (ja) {
lp += olen + 1;
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
if (gv) gv->numind = fvar;
fvar = Get_MFVal(index, fvar);
len = 1;
} else {
fvar = Get_MFilter(index);
}
} else {
if (ja) continue;
fvar = glob_script_mem.fvars[index];
}
if (nres) fvar = -fvar;
if (fp) *fp = fvar;
} else {
*vtype = STYPE|index;
if (sp) strlcpy(sp, glob_script_mem.glob_snp + (index * glob_script_mem.max_ssize), SCRIPT_MAXSSIZE);
}
return lp + len;
}
}
}
if (gv && gv->jo) {
// look for json input
JsonParserObject *jpo = gv->jo;
char jvname[64];
strcpy(jvname, vname);
const char* str_value;
uint8_t aindex;
String vn;
char *ja=strchr(jvname, '[');
if (ja) {
// json array
*ja = 0;
ja++;
// fetch array index
float fvar;
GetNumericArgument(ja, OPER_EQU, &fvar, 0);
aindex = fvar;
if (aindex<1 || aindex>6) aindex = 1;
aindex--;
}
if (jpo->isValid()) {
char *subtype = strchr(jvname, '#');
char *subtype2;
if (subtype) {
*subtype = 0;
subtype++;
subtype2 = strchr(subtype, '#');
if (subtype2) {
*subtype2 = 0;
*subtype2++;
}
}
vn = jvname;
str_value = (*jpo)[vn].getStr();
if ((*jpo)[vn].isValid()) {
if (subtype) {
JsonParserObject jobj1 = (*jpo)[vn];
if (jobj1.isValid()) {
vn = subtype;
jpo = &jobj1;
str_value = (*jpo)[vn].getStr();
if ((*jpo)[vn].isValid()) {
// 2. stage
if (subtype2) {
JsonParserObject jobj2 = (*jpo)[vn];
if ((*jpo)[vn].isValid()) {
vn = subtype2;
jpo = &jobj2;
str_value = (*jpo)[vn].getStr();
if ((*jpo)[vn].isValid()) {
goto skip;
} else {
goto chknext;
}
} else {
goto chknext;
}
}
// end
goto skip;
}
} else {
goto chknext;
}
}
skip:
if (ja) {
// json array
str_value = (*jpo)[vn].getArray()[aindex].getStr();
}
if (str_value && *str_value) {
if ((*jpo)[vn].isStr()) {
if (!strncmp(str_value, "ON", 2)) {
if (fp) *fp = 1;
goto nexit;
} else if (!strncmp(str_value, "OFF", 3)) {
if (fp) *fp = 0;
goto nexit;
} else {
*vtype = STR_RES;
tind->bits.constant = 1;
tind->bits.is_string = 1;
if (sp) strlcpy(sp, str_value, SCRIPT_MAXSSIZE);
return lp + len;
}
} else {
if (fp) {
if (!strncmp(vn.c_str(), "Epoch", 5)) {
*fp = atoi(str_value) - (uint32_t)glob_script_mem.epoch_offset;
} else {
*fp = CharToFloat((char*)str_value);
}
}
nexit:
*vtype = NUM_RES;
tind->bits.constant = 1;
tind->bits.is_string = 0;
return lp + len;
}
}
}
}
}
chknext:
switch (vname[0]) {
case 'a':
#ifdef USE_ANGLE_FUNC
if (!strncmp(vname, "acos(", 5)) {
lp=GetNumericArgument(lp + 5, OPER_EQU, &fvar, gv);
fvar = acosf(fvar);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "abs(", 4)) {
lp=GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
fvar = fabs(fvar);
lp++;
len = 0;
goto exit;
}
#endif
if (!strncmp(vname, "asc(", 4)) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 4, OPER_EQU, str, gv);
fvar = str[0];
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "adc(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
while (*lp==' ') lp++;
float fvar1 = 1;
if (*lp!=')') {
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, gv);
if (fvar1<32 || fvar1>39) fvar1 = 32;
}
lp++;
if (fvar > 7) fvar = 7;
#ifdef ESP32
// ESP32
#ifdef USE_ADC
fvar = AdcRead(fvar1, fvar);
#else
fvar = 999.999;
#endif // USE_ADC
#else
// ESP8266
#ifndef USE_ADC_VCC
fvar = AdcRead(17, fvar);
#else
fvar = (float)ESP.getVcc() / 1000.0;
#endif // USE_ADC_VCC
#endif // ESP32
len = 0;
goto exit;
}
break;
case 'b':
if (!strncmp(vname, "boot", 4)) {
if (TasmotaGlobal.rules_flag.system_boot) {
TasmotaGlobal.rules_flag.system_boot = 0;
fvar = 1;
}
goto exit;
}
#ifdef USE_BUTTON_EVENT
if (!strncmp(vname, "bt[", 3)) {
// tasmota button state
GetNumericArgument(vname+3, OPER_EQU, &fvar, gv);
uint32_t index = fvar;
if (index<1 || index>MAX_KEYS) index = 1;
fvar = glob_script_mem.script_button[index - 1];
glob_script_mem.script_button[index - 1] |= 0x80;
len++;
goto exit;
}
#endif //USE_BUTTON_EVENT
break;
case 'c':
if (!strncmp(vname, "chg[", 4)) {
// var changed
struct T_INDEX ind;
uint8_t vtype;
isvar(vname + 4, &vtype, &ind, 0, 0, gv);
if (!ind.bits.constant) {
uint8_t index = glob_script_mem.type[ind.index].index;
if (glob_script_mem.fvars[index] != glob_script_mem.s_fvars[index]) {
// var has changed
glob_script_mem.s_fvars[index] = glob_script_mem.fvars[index];
fvar = 1;
len++;
goto exit;
} else {
fvar = 0;
len++;
goto exit;
}
}
}
#ifdef ESP32
if (!strncmp(vname, "core", 4)) {
fvar = xPortGetCoreID();
goto exit;
}
#ifdef USE_M5STACK_CORE2
if (!strncmp(vname, "c2ps(", 5)) {
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, gv);
while (*lp==' ') lp++;
float fvar1;
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, gv);
fvar = Core2SetAxpPin(fvar, fvar1);
lp++;
len=0;
goto exit;
}
#endif // USE_M5STACK_CORE2
#ifdef USE_SCRIPT_TASK
if (!strncmp(vname, "ct(", 3)) {
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar, gv);
while (*lp==' ') lp++;
float fvar1;
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, gv);
while (*lp==' ') lp++;
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
float prio = STASK_PRIO;
if (*lp!=')') {
lp = GetNumericArgument(lp, OPER_EQU, &prio, gv);
}
lp++;
fvar = scripter_create_task(fvar, fvar1, fvar2, prio);
len = 0;
goto exit;
}
#endif //USE_SCRIPT_TASK
#endif //ESP32
#ifdef USE_ANGLE_FUNC
if (!strncmp(vname, "cos(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
fvar = cosf(fvar);
lp++;
len = 0;
goto exit;
}
#endif
break;
case 'd':
if (!strncmp(vname, "day", 3)) {
fvar = RtcTime.day_of_month;
goto exit;
}
if (!strncmp(vname, "dvnm", 4)) {
if (sp) strlcpy(sp, SettingsText(SET_DEVICENAME), glob_script_mem.max_ssize);
goto strexit;
}
break;
case 'e':
if (!strncmp(vname, "epoch", 5)) {
fvar = UtcTime() - (uint32_t)glob_script_mem.epoch_offset;
goto exit;
}
if (!strncmp(vname, "epoffs", 6)) {
fvar = (uint32_t)glob_script_mem.epoch_offset;
tind->index = SCRIPT_EPOFFS;
goto exit_settable;
}
if (!strncmp(vname, "eres", 4)) {
fvar = glob_script_mem.event_handeled;
tind->index = SCRIPT_EVENT_HANDLED;
goto exit_settable;
}
#ifdef USE_ENERGY_SENSOR
if (!strncmp(vname, "enrg[", 5)) {
lp=GetNumericArgument(lp + 5, OPER_EQU, &fvar, gv);
while (*lp==' ') lp++;
switch ((uint32_t)fvar) {
case 0:
fvar = Energy.total;
break;
case 1:
fvar = Energy.voltage[0];
break;
case 2:
fvar = Energy.voltage[1];
break;
case 3:
fvar = Energy.voltage[2];
break;
case 4:
fvar = Energy.current[0];
break;
case 5:
fvar = Energy.current[1];
break;
case 6:
fvar = Energy.current[2];
break;
case 7:
fvar = Energy.active_power[0];
break;
case 8:
fvar = Energy.active_power[1];
break;
case 9:
fvar = Energy.active_power[2];
break;
case 10:
fvar = Energy.start_energy;
break;
case 11:
fvar = Energy.daily;
break;
case 12:
fvar = (float)Settings.energy_kWhyesterday/100000.0;
break;
default:
fvar = 99999;
break;
}
len = 0;
lp++;
goto exit;
}
#endif //USE_ENERGY_SENSOR
break;
case 'f':
//#define DEBUG_FS
#ifdef USE_SCRIPT_FATFS
if (!strncmp(vname, "fo(", 3)) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
while (*lp==' ') lp++;
uint8_t mode = 0;
if ((*lp=='r') || (*lp=='w') || (*lp=='a')) {
switch (*lp) {
case 'r':
mode = 0;
break;
case 'w':
mode = 1;
break;
case 'a':
mode = 2;
break;
}
lp++;
} else {
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
mode = fvar;
}
fvar = -1;
for (uint8_t cnt = 0;cntopen(str, FS_FILE_READ);
if (glob_script_mem.files[cnt].isDirectory()) {
glob_script_mem.files[cnt].rewindDirectory();
glob_script_mem.file_flags[cnt].is_dir = 1;
} else {
glob_script_mem.file_flags[cnt].is_dir = 0;
}
}
else {
if (mode==1) {
glob_script_mem.files[cnt] = ufsp->open(str,FS_FILE_WRITE);
#ifdef DEBUG_FS
AddLog(LOG_LEVEL_INFO, PSTR("open file for write %d"), cnt);
#endif
} else {
glob_script_mem.files[cnt] = ufsp->open(str,FS_FILE_APPEND);
#ifdef DEBUG_FS
AddLog(LOG_LEVEL_INFO, PSTR("open file for append %d"), cnt);
#endif
}
}
if (glob_script_mem.files[cnt]) {
fvar = cnt;
glob_script_mem.file_flags[cnt].is_open = 1;
} else {
AddLog(LOG_LEVEL_INFO, PSTR("file open failed"));
}
break;
}
}
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fc(", 3)) {
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar, gv);
if (fvar>=0) {
uint8_t ind = fvar;
if (ind>=SFS_MAX) ind = SFS_MAX - 1;
#ifdef DEBUG_FS
AddLog(LOG_LEVEL_INFO, PSTR("closing file %d"), ind);
#endif
glob_script_mem.files[ind].close();
glob_script_mem.file_flags[ind].is_open = 0;
}
fvar = 0;
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "ff(", 3)) {
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar, gv);
uint8_t ind = fvar;
if (ind>=SFS_MAX) ind = SFS_MAX - 1;
glob_script_mem.files[ind].flush();
fvar = 0;
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fw(", 3)) {
char str[SCRIPT_MAXSSIZE];
lp = ForceStringVar(lp + 3, str);
while (*lp==' ') lp++;
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
uint8_t ind = fvar;
if (ind>=SFS_MAX) ind = SFS_MAX - 1;
if (glob_script_mem.file_flags[ind].is_open) {
fvar = glob_script_mem.files[ind].print(str);
} else {
fvar = 0;
}
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fr(", 3)) {
struct T_INDEX ind;
uint8_t vtype;
uint8_t sindex = 0;
lp = isvar(lp + 3, &vtype, &ind, 0, 0, gv);
if (vtype!=VAR_NV) {
// found variable as result
if ((vtype&STYPE)==0) {
// error
fvar = 0;
goto exit;
} else {
// string result
sindex = glob_script_mem.type[ind.index].index;
}
} else {
// error
fvar = 0;
goto exit;
}
while (*lp==' ') lp++;
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
uint8_t find = fvar;
if (find>=SFS_MAX) find = SFS_MAX - 1;
uint8_t index = 0;
char str[glob_script_mem.max_ssize + 1];
char *cp = str;
if (glob_script_mem.file_flags[find].is_open) {
if (glob_script_mem.file_flags[find].is_dir) {
while (true) {
File entry = glob_script_mem.files[find].openNextFile();
if (entry) {
if (!UfsReject((char*)entry.name())) {
char *ep = (char*)entry.name();
if (*ep=='/') ep++;
char *lcp = strrchr(ep,'/');
if (lcp) {
ep = lcp + 1;
}
strcpy(str, ep);
entry.close();
break;
}
} else {
*cp = 0;
break;
}
entry.close();
}
index = strlen(str);
} else {
while (glob_script_mem.files[find].available()) {
uint8_t buf[1];
glob_script_mem.files[find].read(buf,1);
if (buf[0]=='\t' || buf[0]==',' || buf[0]=='\n' || buf[0]=='\r') {
break;
} else {
*cp++ = buf[0];
index++;
if (index>=glob_script_mem.max_ssize - 1) break;
}
}
*cp = 0;
}
} else {
strcpy(str, "file error");
}
lp++;
strlcpy(glob_script_mem.glob_snp + (sindex * glob_script_mem.max_ssize), str, glob_script_mem.max_ssize);
fvar = index;
len = 0;
goto exit;
}
if (!strncmp(vname, "fd(", 3)) {
char str[glob_script_mem.max_ssize + 1];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
ufsp->remove(str);
lp++;
len = 0;
goto exit;
}
#if defined(ESP32) && defined(USE_WEBCAM)
if (!strncmp(vname, "fwp(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
while (*lp==' ') lp++;
float fvar1;
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, gv);
uint8_t ind = fvar1;
if (ind>=SFS_MAX) ind = SFS_MAX - 1;
if (glob_script_mem.file_flags[ind].is_open) {
uint8_t *buff;
float maxps = WcGetPicstore(-1, 0);
if (fvar<1 || fvar>maxps) fvar = 1;
uint32_t len = WcGetPicstore(fvar - 1, &buff);
if (len) {
//glob_script_mem.files[ind].seek(0,SeekEnd);
fvar = glob_script_mem.files[ind].write(buff, len);
} else {
fvar = 0;
}
//AddLog(LOG_LEVEL_INFO, PSTR("picture save: %d"), len);
} else {
fvar = 0;
}
lp++;
len = 0;
goto exit;
}
#endif //ESP32 && USE_WEBCAM
#ifdef USE_SCRIPT_FATFS_EXT
if (!strncmp(vname, "fe(", 3)) {
char str[glob_script_mem.max_ssize + 1];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
// execute script
File ef = ufsp->open(str, FS_FILE_READ);
if (ef) {
uint16_t fsiz = ef.size();
if (fsiz<2048) {
char *script = (char*)special_malloc(fsiz + 16);
if (script) {
memset(script, 0, fsiz + 16);
ef.read((uint8_t*)script,fsiz);
execute_script(script);
free(script);
fvar = 1;
}
}
ef.close();
}
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fmd(", 4)) {
char str[glob_script_mem.max_ssize + 1];
lp = GetStringArgument(lp + 4, OPER_EQU, str, 0);
fvar = ufsp->mkdir(str);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fmt(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
if (!fvar) {
#ifdef ESP8266
LittleFS.format();
#endif
#ifdef ESP32
LITTLEFS.format();
#endif
} else {
//SD.format();
}
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "frd(", 4)) {
char str[glob_script_mem.max_ssize + 1];
lp = GetStringArgument(lp + 4, OPER_EQU, str, 0);
fvar = ufsp->rmdir(str);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fx(", 3)) {
char str[glob_script_mem.max_ssize + 1];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
if (ufsp->exists(str)) fvar = 1;
else fvar = 0;
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fsi(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
fvar = UfsInfo(fvar, 0);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "fwa(", 4)) {
struct T_INDEX ind;
uint8_t vtype;
lp = isvar(lp + 4, &vtype, &ind, 0, 0, gv);
if (vtype!=VAR_NV && (vtype&STYPE)==0 && glob_script_mem.type[ind.index].bits.is_filter) {
// found array as result
} else {
// error
fvar = 0;
goto exit;
}
while (*lp==' ') lp++;
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
uint8_t index = fvar;
if (index>=SFS_MAX) index = SFS_MAX - 1;
if (glob_script_mem.file_flags[index].is_open) {
uint16_t len = 0;
float *fa = Get_MFAddr(glob_script_mem.type[ind.index].index, &len, 0);
char dstr[24];
for (uint32_t cnt = 0; cnt=SFS_MAX) find = SFS_MAX - 1;
char str[glob_script_mem.max_ssize + 1];
if (glob_script_mem.file_flags[find].is_open) {
uint16_t len = 0;
float *fa = Get_MFAddr(glob_script_mem.type[ind.index].index, &len, 0);
char dstr[24];
for (uint32_t cnt = 0; cnt=glob_script_mem.max_ssize - 1) break;
}
}
*cp = 0;
*fa++=CharToFloat(str);
}
} else {
fvar = 0;
}
lp++;
len = 0;
goto exit;
}
#endif // USE_SCRIPT_FATFS_EXT
if (!strncmp(vname, "fl1(", 4) || !strncmp(vname, "fl2(", 4) ) {
uint8_t lknum = *(lp+2)&3;
char str[glob_script_mem.max_ssize + 1];
lp = GetStringArgument(lp + 4, OPER_EQU, str, 0);
if (lknum<1 || lknum>2) lknum = 1;
strlcpy(glob_script_mem.flink[lknum - 1], str, 14);
lp++;
fvar = 0;
len = 0;
goto exit;
}
if (!strncmp(vname, "fsm", 3)) {
fvar=glob_script_mem.script_sd_found;
//card_init();
goto exit;
}
#endif //USE_SCRIPT_FATFS
if (!strncmp(vname, "freq", 4)) {
#ifdef ESP32
fvar = getCpuFrequencyMhz();
#else
fvar = ESP.getCpuFreqMHz();
#endif
goto exit;
}
if (!strncmp(vname, "frnm", 4)) {
if (sp) strlcpy(sp, SettingsText(SET_FRIENDLYNAME1), glob_script_mem.max_ssize);
goto strexit;
}
break;
case 'g':
if (!strncmp(vname, "gtmp", 4)) {
fvar = TasmotaGlobal.temperature_celsius;
goto exit;
}
if (!strncmp(vname, "ghum", 4)) {
fvar = TasmotaGlobal.humidity;
goto exit;
}
if (!strncmp(vname, "gprs", 4)) {
fvar = TasmotaGlobal.pressure_hpa;
goto exit;
}
if (!strncmp(vname, "gtopic", 6)) {
if (sp) strlcpy(sp, SettingsText(SET_MQTT_GRP_TOPIC), glob_script_mem.max_ssize);
goto strexit;
}
#ifdef USE_WEBSEND_RESPONSE
if (!strncmp(vname, "gwr(", 4)) {
char delim[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 4, OPER_EQU, delim, 0);
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
SCRIPT_SKIP_SPACES
char rstring[SCRIPT_MAXSSIZE];
rstring[0] = 0;
int8_t index = fvar;
char *wd = TasmotaGlobal.mqtt_data;
strlcpy(rstring, wd, glob_script_mem.max_ssize);
if (index) {
if (strlen(wd) && index) {
if (index<0) {
// assume val=xxx
rstring[0] = 0;
char *cp = strstr(wd, delim);
if (cp) {
cp = strchr(cp, '=');
if (cp) {
cp++;
for (uint32_t cnt = 0; cnt < glob_script_mem.max_ssize; cnt++) {
if (*cp==',' || *cp==':' || *cp==0) {
rstring[cnt] = 0;
break;
}
rstring[cnt] = *cp++;
}
}
}
} else {
// preserve mqtt_data
char *mqd = (char*)malloc(MESSZ+2);
if (mqd) {
strlcpy(mqd, TasmotaGlobal.mqtt_data, MESSZ);
wd = mqd;
char *lwd = wd;
while (index) {
char *cp = strstr(wd, delim);
if (cp) {
index--;
if (!index) {
// take this substring
*cp = 0;
strlcpy(rstring, lwd, glob_script_mem.max_ssize);
} else {
wd = cp + strlen(delim);
lwd = wd;
}
} else {
// fail or last string
strlcpy(rstring, lwd, glob_script_mem.max_ssize);
break;
}
}
free(mqd);
}
}
}
}
if (sp) strlcpy(sp, rstring, glob_script_mem.max_ssize);
lp++;
len = 0;
goto strexit;
}
#endif
#ifdef SCRIPT_GET_HTTPS_JP
if (!strncmp(vname, "gjp(", 4)) {
char host[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 4, OPER_EQU, host, 0);
SCRIPT_SKIP_SPACES
char path[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, path, 0);
fvar = call2https(host, path);
lp++;
len = 0;
goto exit;
}
#endif //SCRIPT_GET_HTTPS_JP
break;
case 'h':
if (!strncmp(vname, "hours", 5)) {
fvar = RtcTime.hour;
goto exit;
}
if (!strncmp(vname, "heap", 4)) {
fvar = ESP_getFreeHeap();
goto exit;
}
if (!strncmp(vname, "hn(", 3)) {
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar, gv);
if (fvar<0 || fvar>255) fvar = 0;
lp++;
len = 0;
if (sp) {
sprintf(sp, "%02x", (uint8_t)fvar);
}
goto strexit;
}
if (!strncmp(vname, "hx(", 3)) {
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar, gv);
lp++;
len = 0;
if (sp) {
sprintf(sp, "%08x", (uint32_t)fvar);
}
goto strexit;
}
if (!strncmp(vname, "hd(", 3)) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
fvar = strtol(str, NULL, 16);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "http(", 5)) {
char host[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 5, OPER_EQU, host, 0);
SCRIPT_SKIP_SPACES
char request[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, request, 0);
SCRIPT_SKIP_SPACES
fvar = http_req(host, request);
lp++;
len = 0;
goto exit;
}
#ifdef USE_LIGHT
if (!strncmp(vname, "hsvrgb(", 7)) {
lp = GetNumericArgument(lp + 7, OPER_EQU, &fvar, gv);
if (fvar<0 || fvar>360) fvar = 0;
SCRIPT_SKIP_SPACES
// arg2
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
if (fvar2<0 || fvar2>100) fvar2 = 0;
SCRIPT_SKIP_SPACES
// arg3
float fvar3;
lp = GetNumericArgument(lp, OPER_EQU, &fvar3, gv);
if (fvar3<0 || fvar3>100) fvar3 = 0;
fvar = HSVToRGB(fvar, fvar2, fvar3);
lp++;
len = 0;
goto exit;
}
#endif //USE_LIGHT
#ifdef USE_HOMEKIT
if (!strncmp(vname, "hki(", 4)) {
if (!TasmotaGlobal.global_state.wifi_down) {
// erase nvs
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
homekit_main(0, fvar);
if (fvar >= 98) {
glob_script_mem.homekit_running == false;
}
}
lp++;
len = 0;
goto exit;
}
#endif
break;
case 'i':
if (!strncmp(vname, "int(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
fvar = floor(fvar);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "is(", 3)) {
lp = isargs(lp + 3, 0);
fvar = 0;
len = 0;
goto exit;
}
if (!strncmp(vname, "is1(", 4)) {
lp = isargs(lp + 4, 1);
fvar = 0;
len = 0;
goto exit;
}
if (!strncmp(vname, "is2(", 4)) {
lp = isargs(lp + 4, 2);
fvar = 0;
len = 0;
goto exit;
}
if (!strncmp(vname, "is[", 3)) {
lp = isget(lp + 3, sp, 0, gv);
len = 0;
goto strexit;
}
if (!strncmp(vname, "is1[", 4)) {
lp = isget(lp + 4, sp, 1, gv);
len = 0;
goto strexit;
}
if (!strncmp(vname, "is2[", 4)) {
lp = isget(lp + 4, sp, 2, gv);
len = 0;
goto strexit;
}
break;
case 'l':
if (!strncmp(vname, "lip", 3)) {
if (sp) strlcpy(sp, (const char*)WiFi.localIP().toString().c_str(), glob_script_mem.max_ssize);
goto strexit;
}
#ifdef USE_SCRIPT_GLOBVARS
if (!strncmp(vname, "luip", 4)) {
if (sp) strlcpy(sp, glob_script_mem.last_udp_ip.toString().c_str(), glob_script_mem.max_ssize);
goto strexit;
}
#endif //USE_SCRIPT_GLOBVARS
if (!strncmp(vname, "loglvl", 6)) {
fvar = glob_script_mem.script_loglevel;
tind->index = SCRIPT_LOGLEVEL;
exit_settable:
if (fp) *fp = fvar;
*vtype = NTYPE;
tind->bits.settable = 1;
tind->bits.is_string = 0;
return lp + len;
}
break;
case 'm':
if (!strncmp(vname, "med(", 4)) {
float fvar1;
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar1, gv);
SCRIPT_SKIP_SPACES
// arg2
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
fvar = DoMedian5(fvar1, fvar2);
lp++;
len = 0;
goto exit;
}
#ifdef USE_ANGLE_FUNC
if (!strncmp(vname, "mpt(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
fvar = MeasurePulseTime(fvar);
lp++;
len = 0;
goto exit;
}
#endif //USE_ANGLE_FUNC
if (!strncmp(vname, "micros", 6)) {
fvar = micros();
goto exit;
}
if (!strncmp(vname, "millis", 6)) {
fvar = millis();
goto exit;
}
if (!strncmp(vname, "mins", 4)) {
fvar = RtcTime.minute;
goto exit;
}
if (!strncmp(vname, "month", 5)) {
fvar = RtcTime.month;
goto exit;
}
if (!strncmp(vname, "mqttc", 5)) {
if (TasmotaGlobal.rules_flag.mqtt_connected) {
TasmotaGlobal.rules_flag.mqtt_connected = 0;
fvar = 1;
}
goto exit;
}
if (!strncmp(vname, "mqttd", 5)) {
if (TasmotaGlobal.rules_flag.mqtt_disconnected) {
TasmotaGlobal.rules_flag.mqtt_disconnected = 0;
fvar = 1;
}
goto exit;
}
if (!strncmp(vname, "mqtts", 5)) {
fvar = !TasmotaGlobal.global_state.mqtt_down;
goto exit;
}
if (!strncmp(vname, "mp(", 3)) {
float fvar1;
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar1, gv);
SCRIPT_SKIP_SPACES
while (*lp!=')') {
char *opp = lp;
lp++;
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
SCRIPT_SKIP_SPACES
fvar = fvar1;
if ((*opp=='<' && fvar1' && fvar1>fvar2) ||
(*opp=='=' && fvar1==fvar2)) {
if (*lp!='<' && *lp!='>' && *lp!='=' && *lp!=')' && *lp!=SCRIPT_EOL) {
float fvar3;
lp = GetNumericArgument(lp, OPER_EQU, &fvar3, gv);
SCRIPT_SKIP_SPACES
fvar=fvar3;
} else {
fvar = fvar2;
}
break;
}
while (*lp!='<' && *lp!='>' && *lp!='=' && *lp!=')' && *lp!=SCRIPT_EOL) lp++;
}
len = 0;
goto exit;
}
#ifdef USE_MORITZ
if (!strncmp(vname, "mo(", 3)) {
float fvar1;
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar1, gv);
SCRIPT_SKIP_SPACES
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
SCRIPT_SKIP_SPACES
char rbuff[64];
fvar = mo_getvars(fvar1, fvar2, rbuff);
lp++;
if (sp) strlcpy(sp, rbuff, glob_script_mem.max_ssize);
len = 0;
goto strexit;
}
#endif //USE_MORITZ
break;
case 'p':
if (!strncmp(vname, "pin[", 4)) {
// raw pin level
GetNumericArgument(vname + 4, OPER_EQU, &fvar, gv);
fvar = digitalRead((uint8_t)fvar);
// skip ] bracket
len++;
goto exit;
}
if (!strncmp(vname, "pn[", 3)) {
GetNumericArgument(vname + 3, OPER_EQU, &fvar, gv);
fvar = Pin(fvar);
// skip ] bracket
len++;
goto exit;
}
#if defined(ESP32) && (defined(USE_I2S_AUDIO) || defined(USE_TTGO_WATCH) || defined(USE_M5STACK_CORE2))
if (!strncmp(vname, "pl(", 3)) {
char path[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 3, OPER_EQU, path, 0);
Play_mp3(path);
len++;
len = 0;
goto exit;
}
#endif // USE_I2S_AUDIO
if (!strncmp(vname, "pd[", 3)) {
GetNumericArgument(vname + 3, OPER_EQU, &fvar, gv);
uint8_t gpiopin = fvar;
/*
for (uint8_t i=0;i 0)) {
fvar = TasmotaGlobal.gpio_pin[gpiopin];
// skip ] bracket
len++;
goto exit;
}
fvar = 999;
goto exit;
}
#ifdef ESP32
if (!strncmp(vname, "pheap", 5)) {
fvar = ESP.getFreePsram();
goto exit;
}
#endif //ESP32
if (!strncmp(vname, "prefix1", 7)) {
if (sp) strlcpy(sp, SettingsText(SET_MQTTPREFIX1), glob_script_mem.max_ssize);
goto strexit;
}
if (!strncmp(vname, "prefix2", 7)) {
if (sp) strlcpy(sp, SettingsText(SET_MQTTPREFIX2), glob_script_mem.max_ssize);
goto strexit;
}
if (!strncmp(vname, "prefix3", 7)) {
if (sp) strlcpy(sp, SettingsText(SET_MQTTPREFIX3), glob_script_mem.max_ssize);
goto strexit;
}
if (!strncmp(vname, "pow(", 4)) {
// arg1
float fvar1;
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar1, gv);
SCRIPT_SKIP_SPACES
// arg2
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
lp++;
fvar = FastPrecisePowf(fvar1, fvar2);
len = 0;
goto exit;
}
if (!strncmp(vname, "pwr[", 4)) {
GetNumericArgument(vname + 4, OPER_EQU, &fvar, gv);
uint8_t index = fvar;
if (index<=TasmotaGlobal.devices_present) {
fvar = bitRead(TasmotaGlobal.power, index - 1);
} else {
fvar = -1;
}
len += 1;
goto exit;
}
if (!strncmp(vname, "pc[", 3)) {
GetNumericArgument(vname + 3, OPER_EQU, &fvar, gv);
uint8_t index = fvar;
if (index<1 || index>MAX_COUNTERS) index = 1;
fvar = RtcSettings.pulse_counter[index - 1];
len += 1;
goto exit;
}
break;
case 'r':
if (!strncmp(vname, "ram", 3)) {
fvar = glob_script_mem.script_mem_size + (glob_script_mem.script_size) + (PMEM_SIZE);
goto exit;
}
if (!strncmp(vname, "rnd(", 4)) {
// tasmota switch state
GetNumericArgument(vname + 4, OPER_EQU, &fvar, gv);
if (fvar<0) {
randomSeed(-fvar);
fvar = 0;
} else {
fvar = random(fvar);
}
// skip ] bracket
len++;
goto exit;
}
#if defined(ESP32) && (defined(USE_M5STACK_CORE2))
if (!strncmp(vname, "rec(", 4)) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 4, OPER_EQU, str, 0);
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
fvar = i2s_record(str, fvar);
len++;
goto exit;
}
#endif
break;
case 's':
if (!strncmp(vname, "secs", 4)) {
fvar = RtcTime.second;
goto exit;
}
if (!strncmp(vname, "sw[", 3)) {
// tasmota switch state
GetNumericArgument(vname + 3, OPER_EQU, &fvar, gv);
fvar = SwitchLastState((uint32_t)fvar);
// skip ] bracket
len++;
goto exit;
}
if (!strncmp(vname, "stack", 5)) {
fvar = GetStack();
goto exit;
}
#ifdef ESP32
if (!strncmp(vname, "stkwm", 5)) {
fvar = uxTaskGetStackHighWaterMark(NULL);
goto exit;
}
#endif // ESP32
if (!strncmp(vname, "slen", 4)) {
fvar = strlen(glob_script_mem.script_ram);
goto exit;
}
if (!strncmp(vname, "sl(", 3)) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
lp++;
len = 0;
fvar = strlen(str);
goto exit;
}
if (!strncmp(vname, "sb(", 3)) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
SCRIPT_SKIP_SPACES
float fvar1;
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, gv);
SCRIPT_SKIP_SPACES
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
lp++;
len = 0;
if (fvar1<0) {
fvar1 = strlen(str) + fvar1;
}
memcpy(sp, &str[(uint8_t)fvar1], (uint8_t)fvar2);
sp[(uint8_t)fvar2] = '\0';
goto strexit;
}
if (!strncmp(vname, "st(", 3)) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 3, OPER_EQU, str, 0);
while (*lp==' ') lp++;
char token[2];
token[0] = *lp++;
token[1] = 0;
while (*lp==' ') lp++;
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
// skip ) bracket
lp++;
len = 0;
if (sp) {
// get stringtoken
char *st = strtok(str, token);
if (!st) {
*sp = 0;
} else {
for (uint8_t cnt = 1; cnt<=fvar; cnt++) {
if (cnt==fvar) {
strcpy(sp, st);
break;
}
st = strtok(NULL, token);
if (!st) {
*sp = 0;
break;
}
}
}
}
goto strexit;
}
if (!strncmp(vname, "s(", 2)) {
lp = GetNumericArgument(lp + 2, OPER_EQU, &fvar, gv);
char str[glob_script_mem.max_ssize + 1];
f2char(fvar, glob_script_mem.script_dprec, glob_script_mem.script_lzero, str);
if (sp) strlcpy(sp, str, glob_script_mem.max_ssize);
lp++;
len = 0;
goto strexit;
}
#if defined(ESP32) && (defined(USE_I2S_AUDIO) || defined(USE_TTGO_WATCH) || defined(USE_M5STACK_CORE2))
if (!strncmp(vname, "say(", 4)) {
char text[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp + 4, OPER_EQU, text, 0);
Say(text);
len++;
len = 0;
goto exit;
}
#endif // USE_I2S_AUDIO
#ifdef ESP32
if (!strncmp(vname, "sf(", 3)) {
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar, gv);
if (fvar<80) fvar = 80;
if (fvar>240) fvar = 240;
setCpuFrequencyMhz(fvar);
fvar = getCpuFrequencyMhz();
lp++;
len = 0;
goto exit;
}
#endif //ESP32
#ifdef USE_TTGO_WATCH
if (!strncmp(vname, "slp(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
SCRIPT_SKIP_SPACES
TTGO_Sleep(fvar);
lp++;
len = 0;
goto exit;
}
#endif //USE_TTGO_WATCH
#if defined(USE_TIMERS) && defined(USE_SUNRISE)
if (!strncmp(vname, "sunrise", 7)) {
fvar = SunMinutes(0);
goto exit;
}
if (!strncmp(vname, "sunset", 6)) {
fvar = SunMinutes(1);
goto exit;
}
#endif //USE_TIMERS
#ifdef USE_SHUTTER
if (!strncmp(vname, "sht[", 4)) {
GetNumericArgument(vname + 4, OPER_EQU, &fvar, gv);
uint8_t index = fvar;
if (index<=TasmotaGlobal.shutters_present) {
fvar = Settings.shutter_position[index - 1];
} else {
fvar = -1;
}
len += 1;
goto exit;
}
#endif //USE_SHUTTER
#ifdef USE_ANGLE_FUNC
if (!strncmp(vname, "sin(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
fvar = sinf(fvar);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "sqrt(", 5)) {
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, gv);
fvar = sqrtf(fvar);
lp++;
len = 0;
goto exit;
}
#endif //USE_ANGLE_FUNC
#if defined(USE_SML_M) && defined (USE_SML_SCRIPT_CMD)
if (!strncmp(vname, "sml[", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
SCRIPT_SKIP_SPACES
fvar = SML_GetVal(fvar);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "sml(", 4)) {
float fvar1;
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar1, gv);
SCRIPT_SKIP_SPACES
float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
SCRIPT_SKIP_SPACES
if (fvar2==0) {
float fvar3;
lp = GetNumericArgument(lp, OPER_EQU, &fvar3, gv);
fvar = SML_SetBaud(fvar1, fvar3);
} else if (fvar2==1) {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, str, 0);
fvar = SML_Write(fvar1, str);
} else if (fvar2==2) {
char str[SCRIPT_MAXSSIZE];
str[0] = 0;
fvar = SML_Read(fvar1, str, SCRIPT_MAXSSIZE);
if (sp) strlcpy(sp, str, glob_script_mem.max_ssize);
lp++;
len = 0;
goto strexit;
} else {
#ifdef ED300L
fvar = SML_Status(fvar1);
#else
fvar = 0;
#endif //ED300L
}
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "smlj", 4)) {
fvar = sml_json_enable;
tind->index = SML_JSON_ENABLE;
goto exit_settable;
}
if (!strncmp(vname, "smld(", 5)) {
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, gv);
if (fvar < 1) fvar = 1;
SML_Decode(fvar - 1);
lp++;
len = 0;
goto exit;
}
#endif //USE_SML_M
break;
case 't':
if (!strncmp(vname, "time", 4)) {
fvar = MinutesPastMidnight();
goto exit;
}
if (!strncmp(vname, "tper", 4)) {
fvar = Settings.tele_period;
tind->index = SCRIPT_TELEPERIOD;
goto exit_settable;
}
if (!strncmp(vname, "tinit", 5)) {
fvar = TasmotaGlobal.rules_flag.time_init;
goto exit;
}
if (!strncmp(vname, "tset", 4)) {
fvar = TasmotaGlobal.rules_flag.time_set;
goto exit;
}
if (!strncmp(vname, "tstamp", 6)) {
if (sp) strlcpy(sp, GetDateAndTime(DT_LOCAL).c_str(), glob_script_mem.max_ssize);
goto strexit;
}
if (!strncmp(vname, "topic", 5)) {
if (sp) strlcpy(sp, SettingsText(SET_MQTT_TOPIC), glob_script_mem.max_ssize);
goto strexit;
}
#ifdef USE_SCRIPT_TIMER
if (!strncmp(vname, "ts1(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
if (fvar<10) fvar = 10;
Script_ticker1.attach_ms(fvar, Script_ticker1_end);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "ts2(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
if (fvar<10) fvar = 10;
Script_ticker2.attach_ms(fvar, Script_ticker2_end);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "ts3(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
if (fvar<10) fvar = 10;
Script_ticker3.attach_ms(fvar, Script_ticker3_end);
lp++;
len = 0;
goto exit;
}
if (!strncmp(vname, "ts4(", 4)) {
lp = GetNumericArgument(lp + 4, OPER_EQU, &fvar, gv);
if (fvar<10) fvar = 10;
Script_ticker4.attach_ms(fvar, Script_ticker4_end);
lp++;
len = 0;
goto exit;
}
#endif // USE_SCRIPT_TIMER
#ifdef USE_DISPLAY
#ifdef USE_TOUCH_BUTTONS
if (!strncmp(vname, "tbut[", 5)) {
GetNumericArgument(vname + 5, OPER_EQU, &fvar, gv);
uint8_t index = fvar;
if (index<1 || index>MAX_TOUCH_BUTTONS) index = 1;
index--;
if (buttons[index]) {
fvar = buttons[index]->vpower.on_off;
} else {
fvar = -1;
}
len += 1;
goto exit;
}
#endif //USE_TOUCH_BUTTONS
#endif //USE_DISPLAY
#if 0
if (!strncmp(vname, "test(", 5)) {
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, gv);
uint32_t cycles;
uint64_t accu=0;
char sbuffer[32];
// PSTR performance test
// this is best case since everything will be in cache
// PSTR at least 3 times slower here, will be much slower if cache missed
for (uint16 cnt=0; cnt<1000; cnt++) {
cycles=ESP.getCycleCount();
if (fvar>0) {
snprintf_P(sbuffer, sizeof(sbuffer), PSTR("1234"));
} else {
snprintf(sbuffer, sizeof(sbuffer), "1234");
}
accu += ESP.getCycleCount()-cycles;
}
lp++;
len = 0;
fvar = accu / 1000;
goto exit;
}
#endif
break;
case 'u':
if (!strncmp(vname, "uptime", 6)) {
fvar = MinutesUptime();
goto exit;
}
if (!strncmp(vname, "upsecs", 6)) {
fvar = TasmotaGlobal.uptime;
goto exit;
}
if (!strncmp(vname, "upd[", 4)) {
// var was updated
struct T_INDEX ind;
uint8_t vtype;
isvar(vname + 4, &vtype, &ind, 0, 0, gv);
if (!ind.bits.constant) {
if (!ind.bits.changed) {
fvar = 0;
len++;
goto exit;
} else {
glob_script_mem.type[ind.index].bits.changed = 0;
fvar = 1;
len++;
goto exit;
}
}
goto notfound;
}
break;
case 'w':
#if defined(ESP32) && defined(USE_WEBCAM)
if (!strncmp(vname, "wc(", 3)) {
float fvar1;
lp = GetNumericArgument(lp + 3, OPER_EQU, &fvar1, gv);
SCRIPT_SKIP_SPACES
switch ((uint32)fvar1) {
case 0:
{ float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
fvar = WcSetup(fvar2);
}
break;
case 1:
{ float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
fvar = WcGetFrame(fvar2);
}
break;
case 2:
{ float fvar2,fvar3;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp, OPER_EQU, &fvar3, gv);
fvar = WcSetOptions(fvar2, fvar3);
}
break;
case 3:
fvar = WcGetWidth();
break;
case 4:
fvar = WcGetHeight();
break;
case 5:
{ float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
fvar = WcSetStreamserver(fvar2);
}
break;
case 6:
{ float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
fvar = WcSetMotionDetect(fvar2);
}
break;
#ifdef USE_FACE_DETECT
case 7:
{ float fvar2;
lp = GetNumericArgument(lp, OPER_EQU, &fvar2, gv);
fvar = WcSetFaceDetect(fvar2);
}
break;
#endif //USE_FACE_DETECT
default:
fvar = 0;
}
lp++;
len = 0;
goto exit;
}
#endif //ESP32, USE_WEBCAM
#if defined(USE_TTGO_WATCH) && defined(USE_BMA423)
if (!strncmp(vname, "wdclk", 5)) {
fvar = TTGO_doubleclick();
goto exit;
}
if (!strncmp(vname, "wbut", 4)) {
fvar = TTGO_button();
goto exit;
}
#endif // USE_TTGO_WATCH
#if defined(USE_FT5206)
if (!strncmp(vname, "wtch(", 5)) {
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, gv);
fvar = Touch_Status(fvar);
lp++;
len = 0;
goto exit;
}
#endif // USE_FT5206
if (!strncmp(vname, "wm", 2)) {
fvar = glob_script_mem.web_mode;
goto exit;
}
if (!strncmp(vname, "wday", 4)) {
fvar = RtcTime.day_of_week;
goto exit;
}
if (!strncmp(vname, "wific", 5)) {
if (TasmotaGlobal.rules_flag.wifi_connected) {
TasmotaGlobal.rules_flag.wifi_connected = 0;
fvar = 1;
}
goto exit;
}
if (!strncmp(vname, "wifid", 5)) {
if (TasmotaGlobal.rules_flag.wifi_disconnected) {
TasmotaGlobal.rules_flag.wifi_disconnected = 0;
fvar = 1;
}
goto exit;
}
if (!strncmp(vname, "wifis", 5)) {
fvar = !TasmotaGlobal.global_state.wifi_down;
goto exit;
}
break;
case 'y':
if (!strncmp(vname, "year", 4)) {
fvar = RtcTime.year;
goto exit;
}
break;
default:
break;
}
// nothing valid found
notfound:
if (fp) *fp=0;
*vtype = VAR_NV;
tind->index = VAR_NV;
glob_script_mem.var_not_found = 1;
return lp;
// return constant numbers
exit:
if (fp) *fp = fvar;
*vtype = NUM_RES;
tind->bits.constant = 1;
tind->bits.is_string = 0;
return lp + len;
// return constant strings
strexit:
*vtype = STYPE;
tind->bits.constant = 1;
tind->bits.is_string = 1;
return lp + len;
}
char *getop(char *lp, uint8_t *operand) {
switch (*lp) {
case '=':
if (*(lp + 1)=='=') {
*operand = OPER_EQUEQU;
return lp + 2;
} else {
*operand = OPER_EQU;
return lp + 1;
}
break;
case '+':
if (*(lp + 1)=='=') {
*operand = OPER_PLSEQU;
return lp + 2;
} else {
*operand = OPER_PLS;
return lp + 1;
}
break;
case '-':
if (*(lp + 1)=='=') {
*operand = OPER_MINEQU;
return lp + 2;
} else {
*operand = OPER_MIN;
return lp + 1;
}
break;
case '*':
if (*(lp + 1)=='=') {
*operand = OPER_MULEQU;
return lp + 2;
} else {
*operand = OPER_MUL;
return lp + 1;
}
break;
case '/':
if (*(lp + 1)=='=') {
*operand = OPER_DIVEQU;
return lp + 2;
} else {
*operand = OPER_DIV;
return lp + 1;
}
break;
case '!':
if (*(lp + 1)=='=') {
*operand = OPER_NOTEQU;
return lp + 2;
}
break;
case '>':
if (*(lp + 1)=='=') {
*operand = OPER_GRTEQU;
return lp + 2;
} else {
*operand = OPER_GRT;
return lp + 1;
}
break;
case '<':
if (*(lp + 1)=='=') {
*operand = OPER_LOWEQU;
return lp + 2;
} else {
*operand = OPER_LOW;
return lp + 1;
}
break;
case '%':
if (*(lp + 1)=='=') {
*operand = OPER_PERCEQU;
return lp + 2;
} else {
*operand = OPER_PERC;
return lp + 1;
}
break;
case '^':
if (*(lp + 1)=='=') {
*operand = OPER_XOREQU;
return lp + 2;
} else {
*operand = OPER_XOR;
return lp + 1;
}
break;
case '&':
if (*(lp + 1)=='=') {
*operand = OPER_ANDEQU;
return lp + 2;
} else {
*operand = OPER_AND;
return lp + 1;
}
break;
case '|':
if (*(lp + 1)=='=') {
*operand = OPER_OREQU;
return lp + 2;
} else {
*operand = OPER_OR;
return lp + 1;
}
break;
}
*operand = 0;
return lp;
}
#ifdef ESP8266
extern "C" {
#include
extern cont_t* g_pcont;
}
uint16_t GetStack(void) {
register uint32_t *sp asm("a1");
return (4 * (sp - g_pcont->stack));
}
#else
uint16_t GetStack(void) {
register uint8_t *sp asm("a1");
return (sp - pxTaskGetStackStart(NULL));
}
#endif //ESP8266
char *GetStringArgument(char *lp, uint8_t lastop, char *cp, struct GVARS *gv) {
uint8_t operand = 0;
uint8_t vtype;
char *slp;
struct T_INDEX ind;
char str[SCRIPT_MAXSSIZE],str1[SCRIPT_MAXSSIZE];
while (1) {
lp=isvar(lp, &vtype, &ind, 0, str1, gv);
if (vtype!=STR_RES && !(vtype & STYPE)) {
// numeric type
glob_script_mem.glob_error = 1;
return lp;
}
switch (lastop) {
case OPER_EQU:
strlcpy(str, str1, sizeof(str));
break;
case OPER_PLS:
strncat(str, str1, sizeof(str) - strlen(str1));
break;
}
slp = lp;
lp = getop(lp, &operand);
switch (operand) {
case OPER_EQUEQU:
case OPER_NOTEQU:
case OPER_LOW:
case OPER_LOWEQU:
case OPER_GRT:
case OPER_GRTEQU:
lp = slp;
strcpy(cp, str);
return lp;
break;
default:
break;
}
lastop = operand;
if (!operand) {
strcpy(cp, str);
return lp;
}
}
return lp;
}
char *GetNumericArgument(char *lp, uint8_t lastop, float *fp, struct GVARS *gv) {
uint8_t operand = 0;
float fvar1,fvar;
char *slp;
uint8_t vtype;
struct T_INDEX ind;
while (1) {
// get 1. value
if (*lp=='(') {
lp++;
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, gv);
lp++;
//if (*lp==')') lp++;
} else {
lp = isvar(lp, &vtype, &ind, &fvar1, 0, gv);
if ((vtype!=NUM_RES) && (vtype&STYPE)) {
// string type
glob_script_mem.glob_error = 1;
}
}
switch (lastop) {
case OPER_EQU:
fvar = fvar1;
break;
case OPER_PLS:
fvar += fvar1;
break;
case OPER_MIN:
fvar -= fvar1;
break;
case OPER_MUL:
fvar *= fvar1;
break;
case OPER_DIV:
fvar /= fvar1;
break;
case OPER_PERC:
fvar = fmodf(fvar, fvar1);
break;
case OPER_XOR:
fvar = (uint32_t)fvar ^ (uint32_t)fvar1;
break;
case OPER_AND:
fvar = (uint32_t)fvar & (uint32_t)fvar1;
break;
case OPER_OR:
fvar = (uint32_t)fvar | (uint32_t)fvar1;
break;
default:
break;
}
slp = lp;
lp = getop(lp, &operand);
switch (operand) {
case OPER_EQUEQU:
case OPER_NOTEQU:
case OPER_LOW:
case OPER_LOWEQU:
case OPER_GRT:
case OPER_GRTEQU:
lp = slp;
*fp = fvar;
return lp;
break;
default:
break;
}
lastop = operand;
if (!operand) {
*fp = fvar;
return lp;
}
}
}
char *ForceStringVar(char *lp, char *dstr) {
float fvar;
char *slp = lp;
glob_script_mem.glob_error = 0;
lp = GetStringArgument(lp, OPER_EQU, dstr, 0);
if (glob_script_mem.glob_error) {
// mismatch
lp = GetNumericArgument(slp, OPER_EQU, &fvar, 0);
dtostrfd(fvar, 6, dstr);
glob_script_mem.glob_error = 0;
}
return lp;
}
#ifdef USE_HOMEKIT
extern "C" {
uint32_t Ext_UpdVar(char *vname, float *fvar, uint32_t mode) {
return UpdVar(vname, fvar, mode);
}
void Ext_toLog(char *str) {
toLog(str);
}
char *GetFName(void) {
return SettingsText(SET_FRIENDLYNAME1);
}
}
int32_t UpdVar(char *vname, float *fvar, uint32_t mode) {
uint8_t type;
uint8_t index;
if (*vname == '@') {
vname++;
type = *vname;
vname++;
index = (*vname & 0x0f);
if (index < 1) index = 1;
if (index > 9) index = 9;
switch (type) {
case 'p':
if (mode) {
// set power
ExecuteCommandPower(index, *fvar, SRC_BUTTON);
return 0;
} else {
// read power
*fvar = bitRead(TasmotaGlobal.power, index - 1);
return 1;
}
break;
case 's':
*fvar = SwitchLastState(index - 1);
return 1;
break;
case 'b':
*fvar = Button.last_state[index - 1];
return 1;
break;
}
return 0;
}
struct T_INDEX ind;
uint8_t vtype;
float res = *fvar;
isvar(vname, &vtype, &ind, fvar, 0, 0);
if (vtype != VAR_NV) {
// found variable as result
if (vtype == NUM_RES || (vtype & STYPE) == 0) {
if (mode) {
// set var
//AddLog(LOG_LEVEL_DEBUG, PSTR("write from homekit: %s - %d"), vname, (uint32_t)res);
index = glob_script_mem.type[ind.index].index;
glob_script_mem.fvars[index] = res;
glob_script_mem.type[ind.index].bits.changed = 1;
#ifdef USE_SCRIPT_GLOBVARS
if (glob_script_mem.type[ind.index].bits.global) {
script_udp_sendvar(vname, &res, 0);
}
#endif //USE_SCRIPT_GLOBVARS
return 0;
} else {
// get var
//index = glob_script_mem.type[ind.index].index;
int32_t ret = 0;
#ifdef USE_SCRIPT_GLOBVARS
ret = glob_script_mem.type[ind.index].bits.hchanged;
glob_script_mem.type[ind.index].bits.hchanged = 0;
#endif
//AddLog(LOG_LEVEL_DEBUG, PSTR("read from homekit: %s - %d - %d"), vname, (uint32_t)*fvar, ret);
return ret;
}
} else {
// break;
}
}
return -1;
}
extern "C" {
void Ext_Replace_Cmd_Vars(char *srcbuf, uint32_t srcsize, char *dstbuf, uint32_t dstsize) {
Replace_Cmd_Vars(srcbuf, srcsize, dstbuf, dstsize);
}
}
#endif // USE_HOMEKIT
// replace vars in cmd %var%
void Replace_Cmd_Vars(char *srcbuf, uint32_t srcsize, char *dstbuf, uint32_t dstsize) {
char *cp;
uint16_t count;
uint8_t vtype;
uint8_t dprec = glob_script_mem.script_dprec;
uint8_t lzero = glob_script_mem.script_lzero;
float fvar;
cp = srcbuf;
struct T_INDEX ind;
char string[SCRIPT_MAXSSIZE];
dstsize -= 2;
for (count = 0; count=sizeof(str)) len = sizeof(str);
strlcpy(str, cp, len);
toSLog(str);
}
void toLogEOL(const char *s1,const char *str) {
if (!str) return;
uint8_t index = 0;
char log_data[MAX_LOGSZ];
char *cp = log_data;
strcpy(cp, s1);
cp += strlen(s1);
while (*str) {
if (*str==SCRIPT_EOL) break;
*cp++ = *str++;
}
*cp = 0;
AddLogData(LOG_LEVEL_INFO, log_data);
}
void toSLog(const char *str) {
if (!str) return;
#if SCRIPT_DEBUG>0
while (*str) {
Serial.write(*str);
str++;
}
#endif
}
char *Evaluate_expression(char *lp, uint8_t and_or, uint8_t *result, struct GVARS *gv) {
float fvar,*dfvar,fvar1;
uint8_t numeric;
struct T_INDEX ind;
uint8_t vtype = 0,lastop;
uint8_t res = 0;
char *llp = lp;
char *slp;
SCRIPT_SKIP_SPACES
if (*lp=='(') {
uint8_t res = 0;
uint8_t xand_or = 0;
lp++;
loop:
SCRIPT_SKIP_SPACES
lp = Evaluate_expression(lp, xand_or, &res, gv);
if (*lp==')') {
lp++;
goto exit0;
}
// check for next and or
SCRIPT_SKIP_SPACES
if (!strncmp(lp, "or", 2)) {
lp += 2;
xand_or = 1;
goto loop;
} else if (!strncmp(lp, "and", 3)) {
lp += 3;
xand_or = 2;
goto loop;
}
exit0:
if (!and_or) {
*result = res;
} else if (and_or==1) {
*result|=res;
} else {
*result &= res;
}
goto exit10;
}
llp = lp;
// compare
dfvar = &fvar;
glob_script_mem.glob_error = 0;
slp = lp;
numeric = 1;
lp = GetNumericArgument(lp, OPER_EQU, dfvar, gv);
if (glob_script_mem.glob_error==1) {
// was string, not number
char cmpstr[SCRIPT_MAXSSIZE];
lp = slp;
numeric = 0;
// get the string
lp = isvar(lp, &vtype, &ind, 0, cmpstr, gv);
lp = getop(lp, &lastop);
// compare string
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, str, gv);
if (lastop==OPER_EQUEQU || lastop==OPER_NOTEQU) {
res = strcmp(cmpstr, str);
if (lastop==OPER_EQUEQU) res=!res;
goto exit;
}
} else {
// numeric
// evaluate operand
lp = getop(lp, &lastop);
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, gv);
switch (lastop) {
case OPER_EQUEQU:
res = (*dfvar==fvar1);
break;
case OPER_NOTEQU:
res = (*dfvar!=fvar1);
break;
case OPER_LOW:
res = (*dfvarfvar1);
break;
case OPER_GRTEQU:
res = (*dfvar>=fvar1);
break;
default:
// error
break;
}
exit:
if (!and_or) {
*result = res;
} else if (and_or==1) {
*result |= res;
} else {
*result &= res;
}
}
exit10:
#if IFTHEN_DEBUG>0
char tbuff[128];
sprintf(tbuff,"p1=%d,p2=%d,cmpres=%d,and_or=%d line: ", (int32_t)*dfvar, (int32_t)fvar1, *result, and_or);
toLogEOL(tbuff, llp);
#endif
return lp;
}
#ifdef ESP32
TimerHandle_t beep_th;
void StopBeep( TimerHandle_t xTimer );
void StopBeep( TimerHandle_t xTimer ) {
ledcWriteTone(7, 0);
xTimerStop(xTimer, 0);
}
void esp32_beep(int32_t freq ,uint32_t len) {
if (freq<0) {
if (freq <= -64) freq = 0;
ledcSetup(7, 500, 10);
ledcAttachPin(-freq, 7);
ledcWriteTone(7, 0);
if (!beep_th) {
beep_th = xTimerCreate("beep", 100, pdFALSE, ( void * ) 0, StopBeep);
}
} else {
if (!beep_th) return;
if (!freq) {
ledcWriteTone(7, 0);
xTimerStop(beep_th, 10);
return;
}
if (len < 10) return;
if (xTimerIsTimerActive(beep_th)) return;
ledcWriteTone(7, freq);
uint32_t ticks = pdMS_TO_TICKS(len);
xTimerChangePeriod( beep_th, ticks, 10);
}
}
#endif // ESP32
uint8_t pwmpin[5];
void esp_pwm(int32_t value, uint32 freq, uint32_t channel) {
#ifdef ESP32
if (channel < 1 || channel > 8) channel = 1;
channel += 7;
if (value < 0) {
if (value <= -64) value = 0;
// set range to 10 bit
ledcSetup(channel, freq, 10);
ledcAttachPin(-value, channel);
ledcWrite(channel, 0);
} else {
if (value > 1023) {
value = 1023;
}
ledcWrite(channel, value);
}
#else
// esp8266 default to range 0-1023
if (channel < 1 || channel > 5) channel = 1;
channel-=1;
if (value < 0) {
if (value <= -64) value = 0;
pwmpin[channel] = -value;
pinMode(pwmpin[channel], OUTPUT);
analogWriteFreq(freq);
analogWrite(pwmpin[channel], 0);
} else {
if (value > 1023) {
value = 1023;
}
analogWrite(pwmpin[channel],value);
}
#endif // ESP32
}
//#define IFTHEN_DEBUG
char *scripter_sub(char *lp, uint8_t fromscriptcmd) {
lp += 1;
char *slp = lp;
uint8_t plen = 0;
while (*lp) {
if (*lp=='\n'|| *lp=='\r'|| *lp=='(') {
break;
}
lp++;
plen++;
}
if (fromscriptcmd) {
char *sp = glob_script_mem.scriptptr;
glob_script_mem.scriptptr = glob_script_mem.scriptptr_bu;
Run_Scripter(slp, plen, 0);
glob_script_mem.scriptptr = sp;
} else {
Run_Scripter(slp, plen, 0);
}
lp = slp;
return lp;
}
int16_t Run_script_sub(const char *type, int8_t tlen, struct GVARS *gv);
#define IF_NEST 8
// execute section of scripter
int16_t Run_Scripter(const char *type, int8_t tlen, char *js) {
int16_t retval;
if (!glob_script_mem.scriptptr) {
return -99;
}
if (tasm_cmd_activ && tlen>0) return 0;
struct GVARS gv;
JsonParserObject jo;
if (js) {
//String jss = js; // copy the string to a new buffer, not sure we can change the original buffer
//JsonParser parser((char*)jss.c_str());
JsonParser parser(js);
jo = parser.getRootObject();
gv.jo = &jo;
retval = Run_script_sub(type, tlen, &gv);
} else {
gv.jo = 0;
retval = Run_script_sub(type, tlen, &gv);
}
return retval;
}
int16_t Run_script_sub(const char *type, int8_t tlen, struct GVARS *gv) {
uint8_t vtype=0,sindex,xflg,floop=0,globvindex,fromscriptcmd=0;
char *lp_next;
int16_t globaindex,saindex;
struct T_INDEX ind;
uint8_t operand,lastop,numeric = 1,if_state[IF_NEST],if_exe[IF_NEST],if_result[IF_NEST],and_or,ifstck = 0;
if_state[ifstck] = 0;
if_result[ifstck] = 0;
if_exe[ifstck] = 1;
char cmpstr[SCRIPT_MAXSSIZE];
uint8_t check = 0;
if (tlen<0) {
tlen = abs(tlen);
check = 1;
}
float *dfvar,*cv_count,cv_max,cv_inc;
char *cv_ptr;
float fvar = 0,fvar1,sysvar,swvar;
uint8_t section = 0,sysv_type = 0,swflg = 0;
char *lp = glob_script_mem.scriptptr;
while (1) {
// check line
// skip leading spaces
startline:
SCRIPT_SKIP_SPACES
// skip empty line
SCRIPT_SKIP_EOL
// skip comment
if (*lp==';') goto next_line;
if (!*lp) break;
if (section) {
// we are in section
if (*lp=='>') {
return 0;
}
if (*lp=='#') {
return 0;
}
glob_script_mem.var_not_found = 0;
//#if SCRIPT_DEBUG>0
#ifdef IFTHEN_DEBUG
char tbuff[128];
sprintf(tbuff, "stack=%d,exe=%d,state=%d,cmpres=%d line: ", ifstck, if_exe[ifstck], if_state[ifstck], if_result[ifstck]);
toLogEOL(tbuff, lp);
#endif //IFTHEN_DEBUG
//if (if_state[s_ifstck]==3 && if_result[s_ifstck]) goto next_line;
//if (if_state[s_ifstck]==2 && !if_result[s_ifstck]) goto next_line;
if (!strncmp(lp, "if", 2)) {
lp += 2;
if (ifstck=2) {
lp += 5;
if (ifstck>0) {
if_state[ifstck] = 0;
ifstck--;
}
goto next_line;
} else if (!strncmp(lp, "or", 2) && if_state[ifstck]==1) {
lp += 2;
and_or = 1;
} else if (!strncmp(lp, "and", 3) && if_state[ifstck]==1) {
lp += 3;
and_or = 2;
}
if (*lp=='{' && if_state[ifstck]==1) {
lp += 1; // then
if_state[ifstck] = 2;
if (if_exe[ifstck - 1]) if_exe[ifstck]=if_result[ifstck];
} else if (*lp=='{' && if_state[ifstck]==3) {
lp += 1; // after else
//if_state[ifstck]=3;
} else if (*lp=='}' && if_state[ifstck]>=2) {
lp++; // must check for else
char *slp = lp;
uint8_t iselse = 0;
for (uint8_t count = 0; count<8;count++) {
if (*lp=='}') {
// must be endif
break;
}
if (!strncmp(lp, "else", 4)) {
// is before else, no endif
if_state[ifstck] = 3;
if (if_exe[ifstck-1]) if_exe[ifstck]=!if_result[ifstck];
lp += 4;
iselse = 1;
SCRIPT_SKIP_SPACES
if (*lp=='{') lp++;
break;
}
lp++;
}
if (!iselse) {
lp = slp;
// endif
if (ifstck>0) {
if_state[ifstck] = 0;
ifstck--;
}
goto next_line;
}
}
if (!strncmp(lp, "for", 3)) {
// start for next loop, fetch 3 params
// simple implementation, zero loop count not supported
lp += 3;
SCRIPT_SKIP_SPACES
lp_next = 0;
lp = isvar(lp, &vtype, &ind, 0, 0, gv);
if ((vtype!=VAR_NV) && (vtype&STYPE)==0) {
// numeric var
uint8_t index = glob_script_mem.type[ind.index].index;
cv_count = &glob_script_mem.fvars[index];
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp, OPER_EQU, cv_count, 0);
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp, OPER_EQU, &cv_max, 0);
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp, OPER_EQU, &cv_inc, 0);
//SCRIPT_SKIP_EOL
cv_ptr = lp;
if (*cv_count<=cv_max && cv_inc>0) {
// inc loop
floop = 1;
} else {
// dec loop
floop = 2;
if (cv_inc>0) {
floop = 1;
}
}
} else {
// error
toLogEOL("for error", lp);
}
} else if (!strncmp(lp, "next", 4)) {
lp_next = lp;
if (floop>0) {
// for next loop
*cv_count += cv_inc;
if (floop==1) {
if (*cv_count<=cv_max) {
lp = cv_ptr;
} else {
lp += 4;
floop = 0;
}
} else {
if (*cv_count>=cv_max) {
lp = cv_ptr;
} else {
lp += 4;
floop = 0;
}
}
}
}
if (!strncmp(lp, "switch", 6)) {
lp += 6;
SCRIPT_SKIP_SPACES
char *slp = lp;
lp = GetNumericArgument(lp, OPER_EQU, &swvar, 0);
if (glob_script_mem.glob_error==1) {
// was string, not number
lp = slp;
// get the string
lp = isvar(lp, &vtype, &ind, 0, cmpstr, gv);
swflg = 0x81;
} else {
swflg = 1;
}
} else if (!strncmp(lp, "case", 4) && swflg>0) {
lp += 4;
SCRIPT_SKIP_SPACES
float cvar;
if (!(swflg & 0x80)) {
lp = GetNumericArgument(lp, OPER_EQU, &cvar, 0);
if (swvar!=cvar) {
swflg = 2;
} else {
swflg = 1;
}
} else {
char str[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, str, 0);
if (!strcmp(cmpstr, str)) {
swflg = 0x81;
} else {
swflg = 0x82;
}
}
} else if (!strncmp(lp, "ends", 4) && swflg>0) {
lp += 4;
swflg = 0;
}
if ((swflg & 3)==2) goto next_line;
SCRIPT_SKIP_SPACES
//SCRIPT_SKIP_EOL
if (*lp==SCRIPT_EOL) {
goto next_line;
}
//toLogN(lp,16);
if (!if_exe[ifstck] && if_state[ifstck]!=1) goto next_line;
#ifdef IFTHEN_DEBUG
sprintf(tbuff, "stack=%d,exe=%d,state=%d,cmpres=%d execute line: ", ifstck, if_exe[ifstck], if_state[ifstck], if_result[ifstck]);
toLogEOL(tbuff, lp);
#endif //IFTHEN_DEBUG
if (!strncmp(lp, "break", 5)) {
lp += 5;
if (floop) {
// should break loop
if (lp_next) {
lp = lp_next;
}
floop = 0;
} else {
section = 0;
}
goto next_line;
} else if (!strncmp(lp, "dp", 2) && isdigit(*(lp + 2))) {
lp += 2;
// number precision
if (*(lp + 1)== '.') {
glob_script_mem.script_lzero = atoi(lp);
lp+=2;
}
glob_script_mem.script_dprec = atoi(lp);
goto next_line;
}
#ifdef USE_DISPLAY
else if (!strncmp(lp, "dt", 2)) {
char dstbuf[256];
lp += 2;
SCRIPT_SKIP_SPACES
Replace_Cmd_Vars(lp, 1, dstbuf, sizeof(dstbuf));
char *savptr = XdrvMailbox.data;
XdrvMailbox.data = dstbuf;
XdrvMailbox.data_len = 0;
DisplayText();
XdrvMailbox.data = savptr;
goto next_line;
}
#endif //USE_DISPLAY
else if (!strncmp(lp, "delay(", 6)) {
// delay
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, 0);
delay(fvar);
goto next_line;
} else if (!strncmp(lp, "spinm(", 6)) {
// set pin mode
lp = GetNumericArgument(lp + 6, OPER_EQU, &fvar, 0);
int8_t pinnr = fvar;
SCRIPT_SKIP_SPACES
uint8_t mode = 0;
if ((*lp=='I') || (*lp=='O') || (*lp=='P')) {
switch (*lp) {
case 'I':
mode = 0;
break;
case 'O':
mode = 1;
break;
case 'P':
mode = 2;
break;
}
lp++;
} else {
lp = GetNumericArgument(lp, OPER_EQU, &fvar, 0);
mode = fvar;
}
uint8_t pm=0;
if (mode==0) pm = INPUT;
if (mode==1) pm = OUTPUT;
if (mode==2) pm = INPUT_PULLUP;
pinMode(pinnr, pm);
goto next_line;
} else if (!strncmp(lp, "spin(", 5)) {
// set pin
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, 0);
int8_t pinnr = fvar;
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp, OPER_EQU, &fvar, 0);
int8_t mode = fvar;
digitalWrite(pinnr, mode & 1);
goto next_line;
} else if (!strncmp(lp, "svars", 5)) {
lp += 5;
// save vars
Scripter_save_pvars();
goto next_line;
}
#ifdef USE_SCRIPT_GLOBVARS
else if (!strncmp(lp, "gvr", 3)) {
lp += 3;
// reset global vars udp server
Restart_globvars();
goto next_line;
}
#endif // USE_SCRIPT_GLOBVARS
#ifdef USE_LIGHT
#ifdef USE_WS2812
else if (!strncmp(lp, "ws2812(", 7)) {
lp = isvar(lp + 7, &vtype, &ind, 0, 0, gv);
if (vtype!=VAR_NV) {
SCRIPT_SKIP_SPACES
if (*lp!=')') {
lp = GetNumericArgument(lp, OPER_EQU, &fvar, 0);
} else {
fvar = 0;
}
// found variable as result
uint8_t index = glob_script_mem.type[ind.index].index;
if ((vtype&STYPE)==0) {
// numeric result
if (glob_script_mem.type[ind.index].bits.is_filter) {
uint16_t len = 0;
float *fa = Get_MFAddr(index, &len, 0);
//Serial.printf(">> 2 %d\n",(uint32_t)*fa);
if (fa && len) ws2812_set_array(fa, len, fvar);
}
}
}
goto next_line;
}
#endif //USE_WS2812
#endif //USE_LIGHT
#ifdef ESP32
else if (!strncmp(lp, "beep(", 5)) {
lp = GetNumericArgument(lp + 5, OPER_EQU, &fvar, 0);
SCRIPT_SKIP_SPACES
float fvar1;
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, 0);
esp32_beep(fvar, fvar1);
lp++;
goto next_line;
}
#endif //ESP32
else if (!strncmp(lp, "pwm", 3)) {
lp += 3;
uint8_t channel = 1;
if (*(lp+1)=='(') {
channel = *lp & 0x0f;
#ifdef ESP8266
if (channel > 5) {channel = 5;}
#endif // ESP8266
#ifdef ESP32
if (channel > 8) {channel = 8;}
#endif // ESP32
if (channel < 1) {channel = 1;}
lp += 2;
} else {
if (*lp=='(') {
lp++;
} else {
goto next_line;
}
}
lp = GetNumericArgument(lp, OPER_EQU, &fvar, 0);
SCRIPT_SKIP_SPACES
float fvar1=4000;
if (*lp!=')') {
lp = GetNumericArgument(lp, OPER_EQU, &fvar1, 0);
}
esp_pwm(fvar, fvar1, channel);
lp++;
goto next_line;
}
else if (!strncmp(lp, "wcs", 3)) {
lp+=4;
// skip one space after cmd
char tmp[256];
Replace_Cmd_Vars(lp ,1 , tmp, sizeof(tmp));
WSContentFlush();
WSContentSend_P(PSTR("%s"),tmp);
WSContentFlush();
goto next_line;
}
else if (!strncmp(lp, "rapp", 3)) {
lp+=4;
// skip one space after cmd
char tmp[256];
Replace_Cmd_Vars(lp ,1 , tmp, sizeof(tmp));
ResponseAppend_P(PSTR("%s"), tmp);
goto next_line;
}
#if defined(USE_SENDMAIL) || defined(USE_ESP32MAIL)
else if (!strncmp(lp, "mail", 4)) {
lp+=5;
char tmp[256];
Replace_Cmd_Vars(lp ,1 , tmp, sizeof(tmp));
SendMail(tmp);
goto next_line;
}
#endif
else if (!strncmp(lp,"=>",2) || !strncmp(lp,"->",2) || !strncmp(lp,"+>",2) || !strncmp(lp,"print",5)) {
// execute cmd
uint8_t sflag = 0,pflg = 0,svmqtt,swll;
if (*lp=='p') {
pflg = 1;
lp += 5;
}
else {
if (*lp=='-') sflag = 1;
if (*lp=='+') sflag = 2;
lp += 2;
}
char *slp = lp;
SCRIPT_SKIP_SPACES
#define SCRIPT_CMDMEM 512
char *cmdmem = (char*)malloc(SCRIPT_CMDMEM);
if (cmdmem) {
char *cmd = cmdmem;
uint16_t count;
for (count = 0; count';
lp = GetStringArgument(lp, OPER_EQU, &str[1], 0);
lp++;
//execute_script(str);
char *svd_sp = glob_script_mem.scriptptr;
strcat(str, "\n#");
glob_script_mem.scriptptr = str;
Run_script_sub(">", 1, gv);
glob_script_mem.scriptptr = svd_sp;
}
// check for variable result
if (if_state[ifstck]==1) {
// evaluate exxpression
lp = Evaluate_expression(lp, and_or, &if_result[ifstck], gv);
SCRIPT_SKIP_SPACES
if (*lp=='{' && if_state[ifstck]==1) {
lp += 1; // then
if_state[ifstck] = 2;
if (if_exe[ifstck - 1]) if_exe[ifstck] = if_result[ifstck];
}
goto next_line;
} else {
char *vnp = lp;
lp = isvar(lp, &vtype, &ind, &sysvar, 0, gv);
if (vtype!=VAR_NV) {
#ifdef USE_SCRIPT_GLOBVARS
char varname[16];
uint32_t vnl = (uint32_t)lp - (uint32)vnp;
strncpy(varname, vnp, vnl);
varname[vnl] = 0;
#endif //USE_SCRIPT_GLOBVARS
// found variable as result
globvindex = ind.index; // save destination var index here
if (gv) globaindex = gv->numind;
uint8_t index = glob_script_mem.type[ind.index].index;
if ((vtype&STYPE)==0) {
// numeric result
if (ind.bits.settable || ind.bits.is_filter) {
dfvar = &sysvar;
if (ind.bits.settable) {
sysv_type = ind.index;
} else {
sysv_type = 0;
}
} else {
dfvar = &glob_script_mem.fvars[index];
sysv_type = 0;
}
numeric = 1;
lp = getop(lp, &lastop);
char *slp = lp;
glob_script_mem.glob_error = 0;
lp = GetNumericArgument(lp, OPER_EQU, &fvar, gv);
if (glob_script_mem.glob_error==1) {
// mismatch was string, not number
// get the string and convert to number
lp = isvar(slp, &vtype, &ind, 0, cmpstr, gv);
fvar = CharToFloat(cmpstr);
}
switch (lastop) {
case OPER_EQU:
if (glob_script_mem.var_not_found) {
if (!gv || !gv->jo) toLogEOL("var not found: ",lp);
goto next_line;
}
*dfvar = fvar;
break;
case OPER_PLSEQU:
*dfvar += fvar;
break;
case OPER_MINEQU:
*dfvar -= fvar;
break;
case OPER_MULEQU:
*dfvar *= fvar;
break;
case OPER_DIVEQU:
*dfvar /= fvar;
break;
case OPER_PERCEQU:
*dfvar = fmodf(*dfvar, fvar);
break;
case OPER_ANDEQU:
*dfvar = (uint32_t)*dfvar & (uint32_t)fvar;
break;
case OPER_OREQU:
*dfvar = (uint32_t)*dfvar | (uint32_t)fvar;
break;
case OPER_XOREQU:
*dfvar = (uint32_t)*dfvar ^ (uint32_t)fvar;
break;
default:
// error
break;
}
// var was changed
SetChanged(globvindex);
#ifdef USE_SCRIPT_GLOBVARS
if (glob_script_mem.type[globvindex].bits.global) {
script_udp_sendvar(varname, dfvar, 0);
}
#endif //USE_SCRIPT_GLOBVARS
if (glob_script_mem.type[globvindex].bits.is_filter) {
if (globaindex>=0) {
Set_MFVal(glob_script_mem.type[globvindex].index, globaindex, *dfvar);
} else {
Set_MFilter(glob_script_mem.type[globvindex].index, *dfvar);
}
}
if (sysv_type) {
switch (sysv_type) {
case SCRIPT_LOGLEVEL:
glob_script_mem.script_loglevel = *dfvar;
break;
case SCRIPT_TELEPERIOD:
if (*dfvar<10) *dfvar = 10;
if (*dfvar>300) *dfvar = 300;
Settings.tele_period = *dfvar;
break;
case SCRIPT_EVENT_HANDLED:
glob_script_mem.event_handeled = *dfvar;
break;
case SCRIPT_EPOFFS:
glob_script_mem.epoch_offset = *dfvar;
break;
#if defined(USE_SML_M) && defined (USE_SML_SCRIPT_CMD)
case SML_JSON_ENABLE:
sml_json_enable = *dfvar;
break;
#endif
}
sysv_type = 0;
}
} else {
// string result
numeric = 0;
sindex = index;
saindex = gv->strind;
// string result
char str[SCRIPT_MAXSSIZE];
lp = getop(lp, &lastop);
char *slp = lp;
glob_script_mem.glob_error = 0;
lp = GetStringArgument(lp, OPER_EQU, str, gv);
if ((!gv || !gv->jo) && glob_script_mem.glob_error) {
// mismatch
lp = GetNumericArgument(slp, OPER_EQU, &fvar, 0);
dtostrfd(fvar, 6, str);
glob_script_mem.glob_error = 0;
}
if (!glob_script_mem.var_not_found) {
// var was changed
SetChanged(globvindex);
#ifdef USE_SCRIPT_GLOBVARS
if (glob_script_mem.type[globvindex].bits.global) {
script_udp_sendvar(varname, 0, str);
}
#endif //USE_SCRIPT_GLOBVARS
if (saindex>=0) {
if (lastop==OPER_EQU) {
strlcpy(glob_script_mem.last_index_string[glob_script_mem.sind_num] + (saindex * glob_script_mem.max_ssize), str, glob_script_mem.max_ssize);
} else if (lastop==OPER_PLSEQU) {
strncat(glob_script_mem.last_index_string[glob_script_mem.sind_num] + (saindex * glob_script_mem.max_ssize), str, glob_script_mem.max_ssize);
}
gv->strind = -1;
} else {
if (lastop==OPER_EQU) {
strlcpy(glob_script_mem.glob_snp + (sindex * glob_script_mem.max_ssize), str, glob_script_mem.max_ssize);
} else if (lastop==OPER_PLSEQU) {
strncat(glob_script_mem.glob_snp + (sindex * glob_script_mem.max_ssize), str, glob_script_mem.max_ssize);
}
}
}
}
}
SCRIPT_SKIP_SPACES
if (*lp=='{' && if_state[ifstck]==3) {
lp += 1; // else
//if_state[ifstck]=3;
}
goto next_line;
}
} else {
//Serial.printf(">> decode %s\n",lp );
// decode line
if (*lp=='>' && tlen==1) {
// called from cmdline
lp++;
section = 1;
fromscriptcmd = 1;
goto startline;
}
if (!strncmp(lp, type, tlen)) {
// found section
section = 1;
glob_script_mem.section_ptr = lp;
if (check) {
return 99;
}
// check for subroutine
char *ctype = (char*)type;
if (*ctype=='#') {
// check for parameter
ctype += tlen;
char nxttok = '(';
char *argptr = ctype+tlen;
lp += tlen;
do {
if (*ctype==nxttok && *lp==nxttok) {
float fparam;
numeric = 1;
glob_script_mem.glob_error = 0;
argptr = GetNumericArgument((char*)ctype + 1, OPER_EQU, &fparam, 0);
if (glob_script_mem.glob_error==1) {
// was string, not number
numeric = 0;
// get the string
argptr = GetStringArgument((char*)ctype + 1, OPER_EQU, cmpstr, 0);
}
if (*lp==nxttok) {
// fetch destination
lp++;
lp = isvar(lp, &vtype, &ind, 0, 0, gv);
if (vtype!=VAR_NV) {
// found variable as result
uint8_t index = glob_script_mem.type[ind.index].index;
if ((vtype&STYPE)==0) {
// numeric result
dfvar = &glob_script_mem.fvars[index];
if (numeric) {
*dfvar = fparam;
} else {
// mismatch
*dfvar = CharToFloat(cmpstr);
}
} else {
// string result
sindex = index;
if (!numeric) {
strlcpy(glob_script_mem.glob_snp + (sindex * glob_script_mem.max_ssize), cmpstr, glob_script_mem.max_ssize);
} else {
// mismatch
dtostrfd(fparam, 6, glob_script_mem.glob_snp + (sindex * glob_script_mem.max_ssize));
}
}
}
}
} else {
if (*ctype==nxttok || (*lp!=SCRIPT_EOL && *lp!='?')) {
// revert
section = 0;
}
}
nxttok = ' ';
ctype = argptr;
} while (*lp==' ' && (section == 1) );
}
}
}
// next line
next_line:
if (*lp==SCRIPT_EOL) {
lp++;
} else {
lp = strchr(lp, SCRIPT_EOL);
if (!lp) {
if (section) {
return 0;
} else {
return -1;
}
}
lp++;
}
}
return -1;
}
void ScripterEvery100ms(void) {
static uint8_t xsns_index = 0;
if (bitRead(Settings.rule_enabled, 0) && (TasmotaGlobal.uptime > 4)) {
ResponseClear();
uint16_t script_tele_period_save = TasmotaGlobal.tele_period;
TasmotaGlobal.tele_period = 2;
XsnsNextCall(FUNC_JSON_APPEND, xsns_index);
TasmotaGlobal.tele_period = script_tele_period_save;
if (strlen(TasmotaGlobal.mqtt_data)) {
TasmotaGlobal.mqtt_data[0] = '{';
snprintf_P(TasmotaGlobal.mqtt_data, sizeof(TasmotaGlobal.mqtt_data), PSTR("%s}"), TasmotaGlobal.mqtt_data);
Run_Scripter(">T", 2, TasmotaGlobal.mqtt_data);
}
}
if (bitRead(Settings.rule_enabled, 0)) {
if (glob_script_mem.fast_script == 99) Run_Scripter(">F", 2, 0);
}
}
//mems[5] is 50 bytes in 6.5
// can hold 11 floats or floats + strings
// should report overflow later
void Scripter_save_pvars(void) {
int16_t mlen = 0;
float *fp = (float*)glob_script_mem.script_pram;
mlen+=sizeof(float);
struct T_INDEX *vtp = glob_script_mem.type;
for (uint8_t count = 0; countglob_script_mem.script_pram_size) {
vtp[count].bits.is_permanent = 0;
return;
}
while (len--) {
*fp++ = *fa++;
}
} else {
mlen += sizeof(float);
if (mlen>glob_script_mem.script_pram_size) {
vtp[count].bits.is_permanent = 0;
return;
}
*fp++ = glob_script_mem.fvars[index];
}
}
}
char *cp = (char*)fp;
for (uint8_t count = 0; countglob_script_mem.script_pram_size) {
vtp[count].bits.is_permanent = 0;
return;
}
strcpy(cp, sp);
cp += slen + 1;
}
}
}
// works only with webserver
#ifdef USE_WEBSERVER
#define WEB_HANDLE_SCRIPT "s10"
const char HTTP_BTN_MENU_RULES[] PROGMEM =
"
";
const char HTTP_FORM_SCRIPT[] PROGMEM =
"";
#ifdef USE_SCRIPT_FATFS
const char HTTP_FORM_SCRIPT1c[] PROGMEM =
"";
const char HTTP_FORM_SCRIPT1d[] PROGMEM =
"";
const char S_SCRIPT_FILE_UPLOAD[] PROGMEM = D_SDCARD_UPLOAD;
#endif // USE_SCRIPT_FATFS
uint8_t *script_ex_ptr;
uint16_t uplsize;
uint8_t sc_state;
// upload script and start immediately
void script_upload_start(void) {
//AddLog(LOG_LEVEL_INFO, PSTR("HTP: file upload execute"));
HTTPUpload& upload = Webserver->upload();
if (upload.status == UPLOAD_FILE_START) {
//AddLog(LOG_LEVEL_INFO, PSTR("HTP: upload start"));
script_ex_ptr = (uint8_t*)glob_script_mem.script_ram;
//AddLog(LOG_LEVEL_INFO, PSTR("HTP: upload file %s, %d"),upload.filename.c_str(),upload.totalSize);
if (strcmp(upload.filename.c_str(), "execute_script")) {
Web.upload_error = 1;
WSSend(500, CT_PLAIN, F("500: wrong filename"));
return;
}
if (upload.totalSize>=glob_script_mem.script_size) {
Web.upload_error = 1;
WSSend(500, CT_PLAIN, F("500: file to large"));
return;
}
uplsize = 0;
sc_state = bitRead(Settings.rule_enabled, 0);
bitWrite(Settings.rule_enabled, 0, 0);
} else if(upload.status == UPLOAD_FILE_WRITE) {
//AddLog(LOG_LEVEL_INFO, PSTR("HTP: upload write"));
uint32_t csiz = upload.currentSize;
uint32_t tsiz = glob_script_mem.script_size - 1;
if (uplsizeexists(file)) {
AddLog(LOG_LEVEL_INFO,PSTR("file not found"));
return 0;
}
download_file = ufsp->open(file, FS_FILE_READ);
if (!download_file) {
AddLog(LOG_LEVEL_INFO,PSTR("could not open file"));
return 0;
}
if (download_file.isDirectory()) {
download_file.close();
return 1;
}
uint32_t flen = download_file.size();
download_Client = Webserver->client();
Webserver->setContentLength(flen);
char attachment[100];
char *cp;
for (uint8_t cnt = strlen(file); cnt>=0; cnt--) {
if (file[cnt]=='/') {
cp = &file[cnt + 1];
break;
}
}
snprintf_P(attachment, sizeof(attachment), PSTR("attachment; filename=%s"), cp);
Webserver->sendHeader(F("Content-Disposition"), attachment);
WSSend(200, CT_APP_STREAM, "");
uint8_t buff[512];
uint16_t bread;
// transfer is about 150kb/s
uint8_t cnt = 0;
while (download_file.available()) {
bread = download_file.read(buff, sizeof(buff));
uint16_t bw = download_Client.write((const char*)buff, bread);
if (!bw) break;
cnt++;
if (cnt>7) {
cnt = 0;
if (glob_script_mem.script_loglevel & 0x80) {
// this indeed multitasks, but is slower 50 kB/s
loop();
}
}
}
download_file.close();
download_Client.stop();
return 0;
}
#endif // USE_SCRIPT_FATFS
void HandleScriptTextareaConfiguration(void) {
if (!HttpCheckPriviledgedAccess()) { return; }
if (Webserver->hasArg("save")) {
ScriptSaveSettings();
HandleManagement();
return;
}
}
void HandleScriptConfiguration(void) {
if (!HttpCheckPriviledgedAccess()) { return; }
AddLog(LOG_LEVEL_DEBUG, PSTR(D_LOG_HTTP D_CONFIGURE_SCRIPT));
#ifdef USE_SCRIPT_FATFS
if (Webserver->hasArg("d1")) {
DownloadFile(glob_script_mem.flink[0]);
}
if (Webserver->hasArg("d2")) {
DownloadFile(glob_script_mem.flink[1]);
}
#endif // USE_SCRIPT_FATFS
WSContentStart_P(PSTR(D_CONFIGURE_SCRIPT));
WSContentSendStyle();
WSContentSend_P(HTTP_FORM_SCRIPT);
#ifdef xSCRIPT_STRIP_COMMENTS
uint16_t ssize = glob_script_mem.script_size;
if (bitRead(Settings.rule_enabled, 1)) ssize *= 2;
WSContentSend_P(HTTP_FORM_SCRIPT1,1,1,bitRead(Settings.rule_enabled,0) ? PSTR(" checked") : "",ssize);
#else
WSContentSend_P(HTTP_FORM_SCRIPT1,1,1,bitRead(Settings.rule_enabled,0) ? PSTR(" checked") : "",glob_script_mem.script_size);
#endif // xSCRIPT_STRIP_COMMENTS
// script is to large for WSContentSend_P
if (glob_script_mem.script_ram[0]) {
WSContentFlush();
_WSContentSend(glob_script_mem.script_ram);
}
WSContentSend_P(HTTP_FORM_SCRIPT1b);
#ifdef USE_SCRIPT_FATFS
if (glob_script_mem.script_sd_found) {
WSContentSend_P(HTTP_FORM_SCRIPT1d);
if (glob_script_mem.flink[0][0]) WSContentSend_P(HTTP_FORM_SCRIPT1c, 1, glob_script_mem.flink[0]);
if (glob_script_mem.flink[1][0]) WSContentSend_P(HTTP_FORM_SCRIPT1c, 2, glob_script_mem.flink[1]);
}
#endif //USE_SCRIPT_FATFS
WSContentSend_P(HTTP_SCRIPT_FORM_END);
WSContentSpaceButton(BUTTON_MANAGEMENT);
WSContentStop();
}
void SaveScript(void) {
#ifdef USE_UFILESYS
if (glob_script_mem.FLAGS.fsys == true) {
ufsp->remove(FAT_SCRIPT_NAME);
File file = ufsp->open(FAT_SCRIPT_NAME, FS_FILE_WRITE);
file.write((const uint8_t*)glob_script_mem.script_ram, strlen(glob_script_mem.script_ram));
file.close();
} else {
// fallback to compressed mode
script_compress(Settings.rules[0],MAX_SCRIPT_SIZE-1);
}
#else // USE_UFILESYS
#ifdef EEP_SCRIPT_SIZE
// here we handle EEPROM modes
if (glob_script_mem.FLAGS.eeprom == true) {
if (EEP_SCRIPT_SIZE!=SPECIAL_EEPMODE_SIZE) {
EEP_WRITE(0, EEP_SCRIPT_SIZE, glob_script_mem.script_ram);
} else {
uint8_t *ucs;
ucs = (uint8_t*)calloc(SPI_FLASH_SEC_SIZE + 4, 1);
if (!script_compress((char*)ucs,EEP_SCRIPT_SIZE-1)) {
alt_eeprom_writeBytes(0, EEP_SCRIPT_SIZE, ucs);
}
if (ucs) free(ucs);
}
}
#else
// default mode is compression
script_compress(Settings.rules[0],MAX_SCRIPT_SIZE-1);
#endif // EEP_SCRIPT_SIZE
#endif // USE_UFILESYS
}
void ScriptSaveSettings(void) {
if (Webserver->hasArg("c1")) {
bitWrite(Settings.rule_enabled, 0, 1);
} else {
bitWrite(Settings.rule_enabled, 0, 0);
}
String str = Webserver->arg("t1");
if (*str.c_str()) {
str.replace("\r\n", "\n");
str.replace("\r", "\n");
strlcpy(glob_script_mem.script_ram, str.c_str(), glob_script_mem.script_size);
if (glob_script_mem.script_ram[0]!='>' && glob_script_mem.script_ram[1]!='D') {
AddLog(LOG_LEVEL_INFO, PSTR("script error: must start with >D"));
bitWrite(Settings.rule_enabled, 0, 0);
}
SaveScript();
}
SaveScriptEnd();
}
//
uint32_t script_compress(char *dest, uint32_t size) {
//AddLog(LOG_LEVEL_INFO,PSTR("in string: %s len = %d"),glob_script_mem.script_ram,strlen(glob_script_mem.script_ram));
uint32_t len_compressed = SCRIPT_COMPRESS(glob_script_mem.script_ram, strlen(glob_script_mem.script_ram), dest, size);
if (len_compressed > 0) {
dest[len_compressed] = 0;
AddLog(LOG_LEVEL_INFO,PSTR("script compressed to %d bytes = %d %%"),len_compressed,len_compressed * 100 / strlen(glob_script_mem.script_ram));
return 0;
} else {
AddLog(LOG_LEVEL_INFO, PSTR("script compress error: %d"), len_compressed);
return 1;
}
}
//#endif // USE_SCRIPT_COMPRESSION
void SaveScriptEnd(void) {
#ifdef USE_SCRIPT_GLOBVARS
Script_Stop_UDP();
#endif //USE_SCRIPT_GLOBVARS
if (glob_script_mem.script_mem) {
Scripter_save_pvars();
free(glob_script_mem.script_mem);
glob_script_mem.script_mem = 0;
glob_script_mem.script_mem_size = 0;
}
if (bitRead(Settings.rule_enabled, 0)) {
int16_t res = Init_Scripter();
if (res) {
AddLog(LOG_LEVEL_INFO, PSTR("script init error: %d"), res);
return;
}
Run_Scripter(">B\n", 3, 0);
Run_Scripter(">BS", 3, 0);
glob_script_mem.fast_script = Run_Scripter(">F", -2, 0);
}
}
#endif // USE_WEBSERVER
#if defined(USE_SCRIPT_HUE) && defined(USE_WEBSERVER) && defined(USE_EMULATION) && defined(USE_EMULATION_HUE) && defined(USE_LIGHT)
#define HUE_DEV_MVNUM 5
#define HUE_DEV_NSIZE 16
struct HUE_SCRIPT {
char name[HUE_DEV_NSIZE];
uint8_t type;
uint8_t index[HUE_DEV_MVNUM];
uint8_t vindex[HUE_DEV_MVNUM];
} hue_script[32];
const char SCRIPT_HUE_LIGHTS_STATUS_JSON1[] PROGMEM =
"{\"state\":"
"{\"on\":{state},"
"{light_status}"
"\"alert\":\"none\","
"\"effect\":\"none\","
"\"reachable\":true}"
",\"type\":\"{type}\","
"\"name\":\"{j1\","
"\"modelid\":\"{m1}\","
"\"uniqueid\":\"{j2\","
"\"swversion\":\"5.50.1.19085\"}";
/*
const char SCRIPT_HUE_LIGHTS_STATUS_JSON2[] PROGMEM =
"{\"state\":"
"{\"temperature\": 2674,"
"\"lastupdated\": \"2019-08-04T12:13:04\"},"
"\"config\": {"
"\"on\": true,"
"\"battery\": 100,"
"\"reachable\": true,"
"\"alert\": \"none\","
"\"ledindication\": false,"
"\"usertest\": false,"
"\"pending\": []"
"},"
"\"name\": \"{j1\","
"\"type\": \"ZLLTemperature\","
"\"modelid\": \"SML001\","
"\"manufacturername\": \"Philips\","
"\"swversion\": \"6.1.0.18912\","
"\"uniqueid\": \"{j2\"}";
*/
const char SCRIPT_HUE_LIGHTS_STATUS_JSON2[] PROGMEM =
"{\"state\":{"
"\"presence\":{state},"
"\"lastupdated\":\"2017-10-01T12:37:30\""
"},"
"\"swupdate\":{"
"\"state\":\"noupdates\","
"\"lastinstall\": null"
"},"
"\"config\":{"
"\"on\":true,"
"\"battery\":100,"
"\"reachable\":true,"
"\"alert\":\"none\","
"\"ledindication\":false,"
"\"usertest\":false,"
"\"sensitivity\":2,"
"\"sensitivitymax\":2,"
"\"pending\":[]"
"},"
"\"name\":\"{j1\","
"\"type\":\"ZLLPresence\","
"\"modelid\":\"SML001\","
"\"manufacturername\":\"Philips\","
"\"swversion\":\"6.1.0.18912\","
"\"uniqueid\":\"{j2\""
"}";
/*
Color Ligh
Dimmable Light
Color Temperature Light
Extended Color Light
On/Off light
ZGPSwitch
ZLLSwitch
CLIPSwitch
CLIPOpenClose
CLIPPresence
CLIPTemperature
CLIPHumidity
Daylight
CLIPLightlevel
temperature ZLLTemperature
lightlevel ZLLLightLevel
presence ZLLPresence
*/
/*
case 'T':
response->replace("{type}","ZLLTemperature");
temp=glob_script_mem.fvars[hue_script[hue_devs].index[2]-1];
light_status += "\"temperature\":";
light_status += String(temp*100);
light_status += ",";
break;
case 'L':
response->replace("{type}","ZLLLightLevel");
temp=glob_script_mem.fvars[hue_script[hue_devs].index[2]-1];
light_status += "\"lightlevel\":";
light_status += String(temp);
light_status += ",";
break;
case 'P':
response->replace("{type}","ZLLPresence");
temp=glob_script_mem.fvars[hue_script[hue_devs].index[0]-1];
light_status += "\"presence\":";
if (temp==0)light_status += "false";
else light_status += "true";
light_status += ",";
break;
*/
void Script_HueStatus(String *response, uint16_t hue_devs) {
if (hue_script[hue_devs].type=='p') {
*response += FPSTR(SCRIPT_HUE_LIGHTS_STATUS_JSON2);
response->replace("{j1", hue_script[hue_devs].name);
response->replace("{j2", GetHueDeviceId(hue_devs));
uint8_t pwr = glob_script_mem.fvars[hue_script[hue_devs].index[0] - 1];
response->replace("{state}", (pwr ? "true" : "false"));
return;
}
*response += FPSTR(SCRIPT_HUE_LIGHTS_STATUS_JSON1);
uint8_t pwr = glob_script_mem.fvars[hue_script[hue_devs].index[0] - 1];
response->replace("{state}", (pwr ? "true" : "false"));
String light_status = "";
if (hue_script[hue_devs].index[1]>0) {
// bri
light_status += "\"bri\":";
uint32_t bri = glob_script_mem.fvars[hue_script[hue_devs].index[1] - 1];
if (bri > 254) bri = 254;
if (bri < 1) bri = 1;
light_status += String(bri);
light_status += ",";
}
if (hue_script[hue_devs].index[2]>0) {
// hue
uint32_t hue = glob_script_mem.fvars[hue_script[hue_devs].index[2] - 1];
//hue = changeUIntScale(hue, 0, 359, 0, 65535);
light_status += "\"hue\":";
light_status += String(hue);
light_status += ",";
}
if (hue_script[hue_devs].index[3]>0) {
// sat
uint32_t sat = glob_script_mem.fvars[hue_script[hue_devs].index[3] - 1] ;
if (sat > 254) sat = 254;
if (sat < 1) sat = 1;
light_status += "\"sat\":";
light_status += String(sat);
light_status += ",";
}
if (hue_script[hue_devs].index[4]>0) {
// ct
uint32_t ct = glob_script_mem.fvars[hue_script[hue_devs].index[4] - 1];
light_status += "\"ct\":";
light_status += String(ct);
light_status += ",";
}
float temp;
switch (hue_script[hue_devs].type) {
case 'C':
response->replace("{type}","Color Ligh"); // alexa ok
response->replace("{m1","LST001");
break;
case 'D':
response->replace("{type}","Dimmable Light"); // alexa NO
response->replace("{m1","LWB004");
break;
case 'T':
response->replace("{type}","Color Temperature Light"); // alexa NO
response->replace("{m1","LTW011");
break;
case 'E':
response->replace("{type}","Extended color light"); // alexa ok
response->replace("{m1","LCT007");
break;
case 'S':
response->replace("{type}","On/Off light"); // alexa ok
response->replace("{m1","LCT007");
break;
default:
response->replace("{type}","color light");
response->replace("{m1","LST001");
break;
}
response->replace("{light_status}", light_status);
response->replace("{j1", hue_script[hue_devs].name);
response->replace("{j2", GetHueDeviceId(hue_devs));
}
void Script_Check_Hue(String *response) {
if (!bitRead(Settings.rule_enabled, 0)) return;
uint8_t hue_script_found = Run_Scripter(">H", -2, 0);
if (hue_script_found!=99) return;
char tmp[256];
uint8_t hue_devs = 0;
uint8_t vindex = 0;
char *cp;
char *lp = glob_script_mem.section_ptr + 2;
while (lp) {
SCRIPT_SKIP_SPACES
while (*lp==SCRIPT_EOL) {
lp++;
}
if (!*lp || *lp=='#' || *lp=='>') {
break;
}
if (*lp!=';') {
// check this line
Replace_Cmd_Vars(lp, 1, tmp, sizeof(tmp));
// check for hue defintions
// NAME, TYPE , vars
cp = tmp;
cp = strchr(cp,',');
if (!cp) break;
*cp = 0;
// copy name
strlcpy(hue_script[hue_devs].name, tmp, HUE_DEV_NSIZE);
cp++;
while (*cp==' ') cp++;
// get type
hue_script[hue_devs].type = *cp;
for (vindex = 0; vindex0) *response += ",\"";
else *response += "\"";
}
*response += String(EncodeLightId(hue_devs + TasmotaGlobal.devices_present + 1))+"\":";
Script_HueStatus(response, hue_devs);
//AddLog(LOG_LEVEL_INFO, PSTR("Hue: %s - %d "),response->c_str(), hue_devs);
}
hue_devs++;
}
if (*lp==SCRIPT_EOL) {
lp++;
} else {
lp = strchr(lp, SCRIPT_EOL);
if (!lp) break;
lp++;
}
}
#if 0
if (response) {
AddLog(LOG_LEVEL_DEBUG, PSTR("Hue: %d"), hue_devs);
toLog(">>>>");
toLog(response->c_str());
toLog(response->c_str()+MAX_LOGSZ);
}
#endif
}
const char sHUE_LIGHT_RESPONSE_JSON[] PROGMEM =
"{\"success\":{\"/lights/{id/state/{cm\":{re}}";
const char sHUE_SENSOR_RESPONSE_JSON[] PROGMEM =
"{\"success\":{\"/lights/{id/state/{cm\":{re}}";
const char sHUE_ERROR_JSON[] PROGMEM =
"[{\"error\":{\"type\":901,\"address\":\"/\",\"description\":\"Internal Error\"}}]";
// get alexa arguments
void Script_Handle_Hue(String *path) {
String response;
int code = 200;
uint16_t tmp = 0;
uint16_t hue = 0;
uint8_t sat = 0;
uint8_t bri = 254;
uint16_t ct = 0;
bool resp = false;
uint8_t device = DecodeLightId(atoi(path->c_str()));
uint8_t index = device - TasmotaGlobal.devices_present - 1;
if (Webserver->args()) {
response = "[";
JsonParser parser((char*) Webserver->arg((Webserver->args())-1).c_str());
JsonParserObject root = parser.getRootObject();
JsonParserToken hue_on = root[PSTR("on")];
if (hue_on) {
response += FPSTR(sHUE_LIGHT_RESPONSE_JSON);
response.replace("{id", String(EncodeLightId(device)));
response.replace("{cm", "on");
bool on = hue_on.getBool();
if (on==false) {
glob_script_mem.fvars[hue_script[index].index[0] - 1] = 0;
response.replace("{re", "false");
} else {
glob_script_mem.fvars[hue_script[index].index[0] - 1] = 1;
response.replace("{re", "true");
}
SetChanged(hue_script[index].vindex[0]);
resp = true;
}
parser.setCurrent();
JsonParserToken hue_bri = root[PSTR("bri")];
if (hue_bri) { // Brightness is a scale from 1 (the minimum the light is capable of) to 254 (the maximum). Note: a brightness of 1 is not off.
tmp = hue_bri.getUInt();
bri = tmp;
if (254 <= bri) { bri = 255; }
if (resp) { response += ","; }
response += FPSTR(sHUE_LIGHT_RESPONSE_JSON);
response.replace("{id", String(EncodeLightId(device)));
response.replace("{cm", "bri");
response.replace("{re", String(tmp));
glob_script_mem.fvars[hue_script[index].index[1] - 1] = bri;
SetChanged(hue_script[index].vindex[1]);
resp = true;
}
JsonParserToken hue_xy = root[PSTR("xy")];
if (hue_xy) { // Saturation of the light. 254 is the most saturated (colored) and 0 is the least saturated (white).
float x, y;
JsonParserArray arr_xy = JsonParserArray(hue_xy);
JsonParserToken tok_x = arr_xy[0];
JsonParserToken tok_y = arr_xy[1];
x = tok_x.getFloat();
y = tok_y.getFloat();
String x_str = tok_x.getStr();
String y_str = tok_y.getStr();
uint8_t rr,gg,bb;
XyToRgb(x, y, &rr, &gg, &bb);
RgbToHsb(rr, gg, bb, &hue, &sat, nullptr);
if (resp) { response += ","; }
response += FPSTR(sHUE_LIGHT_RESPONSE_JSON);
response.replace("{id", String(device));
response.replace("{cm", "xy");
response.replace("{re", "[" + x_str + "," + y_str + "]");
glob_script_mem.fvars[hue_script[index].index[2]-1] = hue;
SetChanged(hue_script[index].vindex[2]);
glob_script_mem.fvars[hue_script[index].index[3]-1] = sat;
SetChanged(hue_script[index].vindex[3]);
resp = true;
}
JsonParserToken hue_hue = root[PSTR("hue")];
if (hue_hue) { // The hue value is a wrapping value between 0 and 65535. Both 0 and 65535 are red, 25500 is green and 46920 is blue.
tmp = hue_hue.getUInt();
//hue = changeUIntScale(tmp, 0, 65535, 0, 359);
//tmp = changeUIntScale(hue, 0, 359, 0, 65535);
hue = tmp;
if (resp) { response += ","; }
response += FPSTR(sHUE_LIGHT_RESPONSE_JSON);
response.replace("{id", String(EncodeLightId(device)));
response.replace("{cm", "hue");
response.replace("{re", String(tmp));
glob_script_mem.fvars[hue_script[index].index[2] - 1] = hue;
SetChanged(hue_script[index].vindex[2]);
resp = true;
}
JsonParserToken hue_sat = root[PSTR("sat")];
if (hue_sat) { // Saturation of the light. 254 is the most saturated (colored) and 0 is the least saturated (white).
tmp = hue_sat.getUInt();
sat = tmp;
if (254 <= sat) { sat = 255; }
if (resp) { response += ","; }
response += FPSTR(sHUE_LIGHT_RESPONSE_JSON);
response.replace("{id", String(EncodeLightId(device)));
response.replace("{cm", "sat");
response.replace("{re", String(tmp));
glob_script_mem.fvars[hue_script[index].index[3] - 1] = sat;
SetChanged(hue_script[index].vindex[3]);
resp = true;
}
JsonParserToken hue_ct = root[PSTR("ct")];
if (hue_ct) { // Color temperature 153 (Cold) to 500 (Warm)
ct = hue_ct.getUInt();
if (resp) { response += ","; }
response += FPSTR(sHUE_LIGHT_RESPONSE_JSON);
response.replace("{id", String(EncodeLightId(device)));
response.replace("{cm", "ct");
response.replace("{re", String(ct));
glob_script_mem.fvars[hue_script[index].index[4] - 1] = ct;
SetChanged(hue_script[index].vindex[4]);
resp = true;
}
response += "]";
} else {
response = FPSTR(sHUE_ERROR_JSON);
}
AddLog(LOG_LEVEL_DEBUG_MORE, PSTR(D_LOG_HTTP D_HUE " Result (%s)"), response.c_str());
WSSend(code, CT_APP_JSON, response);
if (resp) {
Run_Scripter(">E", 2, 0);
}
}
#endif // hue interface
#ifdef USE_SCRIPT_SUB_COMMAND
bool Script_SubCmd(void) {
if (!bitRead(Settings.rule_enabled, 0)) return false;
if (tasm_cmd_activ) return false;
//AddLog(LOG_LEVEL_INFO,PSTR(">> %s, %s, %d, %d "),XdrvMailbox.topic, XdrvMailbox.data, XdrvMailbox.payload, XdrvMailbox.index);
char command[CMDSZ];
strlcpy(command, XdrvMailbox.topic, CMDSZ);
if (XdrvMailbox.index > 1) {
char ind[2];
ind[0] = XdrvMailbox.index | 0x30;
ind[1] = 0;
strcat(command, ind);
}
int32_t pl = XdrvMailbox.payload;
char cmdbuff[128];
char *cp = cmdbuff;
*cp++ = '#';
strcpy(cp, command);
uint8_t tlen = strlen(command);
cp += tlen;
if (XdrvMailbox.data_len>0) {
*cp++ = '(';
strncpy(cp, XdrvMailbox.data,XdrvMailbox.data_len);
cp += XdrvMailbox.data_len;
*cp++ = ')';
*cp = 0;
}
//toLog(cmdbuff);
uint32_t res = Run_Scripter(cmdbuff, tlen + 1, 0);
//AddLog(LOG_LEVEL_INFO,">>%d",res);
if (res) {
return false;
}
else {
cp=XdrvMailbox.data;
while (*cp==' ') cp++;
if (isdigit(*cp) || *cp=='-') {
Response_P(S_JSON_COMMAND_NVALUE, command, XdrvMailbox.payload);
} else {
Response_P(S_JSON_COMMAND_SVALUE, command, XdrvMailbox.data);
}
}
return true;
}
#endif //USE_SCRIPT_SUB_COMMAND
void execute_script(char *script) {
char *svd_sp = glob_script_mem.scriptptr;
strcat(script, "\n#");
glob_script_mem.scriptptr = script;
Run_Scripter(">", 1, 0);
glob_script_mem.scriptptr = svd_sp;
}
#define D_CMND_SCRIPT "Script"
#define D_CMND_SUBSCRIBE "Subscribe"
#define D_CMND_UNSUBSCRIBE "Unsubscribe"
enum ScriptCommands { CMND_SCRIPT,CMND_SUBSCRIBE, CMND_UNSUBSCRIBE, CMND_SUBTEST};
const char kScriptCommands[] PROGMEM = D_CMND_SCRIPT "|" D_CMND_SUBSCRIBE "|" D_CMND_UNSUBSCRIBE
#ifdef DEBUG_MQTT_EVENT
"|" "SUBTEST"
#endif
;
bool ScriptCommand(void) {
char command[CMDSZ];
bool serviced = true;
uint8_t index = XdrvMailbox.index;
if (tasm_cmd_activ) return false;
int command_code = GetCommandCode(command, sizeof(command), XdrvMailbox.topic, kScriptCommands);
if (-1 == command_code) {
serviced = false; // Unknown command
}
else if ((CMND_SCRIPT == command_code) && (index > 0)) {
if ((XdrvMailbox.payload >= 0) && (XdrvMailbox.payload < 4)) {
switch (XdrvMailbox.payload) {
case 0: // Off
case 1: // On
bitWrite(Settings.rule_enabled, index -1, XdrvMailbox.payload);
break;
#ifdef xSCRIPT_STRIP_COMMENTS
case 2:
bitWrite(Settings.rule_enabled, 1, 0);
break;
case 3:
bitWrite(Settings.rule_enabled, 1, 1);
break;
#endif //xSCRIPT_STRIP_COMMENTS
}
} else {
if ('>' == XdrvMailbox.data[0]) {
// execute script
snprintf_P (TasmotaGlobal.mqtt_data, sizeof(TasmotaGlobal.mqtt_data), PSTR("{\"%s\":\"%s\"}"), command,XdrvMailbox.data);
if (bitRead(Settings.rule_enabled, 0)) {
for (uint8_t count = 0; count, [, ]
String result = ScriptSubscribe(XdrvMailbox.data, XdrvMailbox.data_len);
Response_P(S_JSON_COMMAND_SVALUE, command, result.c_str());
} else if (CMND_UNSUBSCRIBE == command_code) { //MQTT Un-subscribe command. UnSubscribe
String result = ScriptUnsubscribe(XdrvMailbox.data, XdrvMailbox.data_len);
Response_P(S_JSON_COMMAND_SVALUE, command, result.c_str());
#ifdef DEBUG_MQTT_EVENT
} else if (CMND_SUBTEST == command_code) {
XdrvMailbox.topic = (char*)"tele";
ScriptMqttData();
serviced = true;
#endif
#endif //SUPPORT_MQTT_EVENT
}
return serviced;
}
#ifdef USE_SCRIPT_FATFS
uint16_t xFAT_DATE(uint16_t year, uint8_t month, uint8_t day) {
return (year - 1980) << 9 | month << 5 | day;
}
uint16_t xFAT_TIME(uint8_t hour, uint8_t minute, uint8_t second) {
return hour << 11 | minute << 5 | second >> 1;
}
void dateTime(uint16_t* date, uint16_t* time) {
// return date using FAT_DATE macro to format fields
*date = xFAT_DATE(RtcTime.year,RtcTime.month, RtcTime.day_of_month);
// return time using FAT_TIME macro to format fields
*time = xFAT_TIME(RtcTime.hour,RtcTime.minute,RtcTime.second);
}
#endif //USE_SCRIPT_FATFS
#ifdef SUPPORT_MQTT_EVENT
/*
//#define DEBUG_MQTT_EVENT
// parser object, source keys, delimiter, float result or NULL, string result or NULL, string size
uint32_t JsonParsePath(JsonParserObject *jobj, const char *spath, char delim, float *nres, char *sres, uint32_t slen) {
uint32_t res = 0;
const char *cp = spath;
#ifdef DEBUG_JSON_PARSE_PATH
AddLog(LOG_LEVEL_INFO, PSTR("JSON: parsing json key: %s from json: %s"), cp, jpath);
#endif
JsonParserObject obj = *jobj;
JsonParserObject lastobj = obj;
char selem[32];
uint8_t aindex = 0;
String value = "";
while (1) {
// read next element
for (uint32_t sp=0; sp>> 1");
//toLog(XdrvMailbox.data);
if (XdrvMailbox.data_len < 1 || XdrvMailbox.data_len > MQTT_EVENT_MSIZE) {
return false;
}
String sTopic = XdrvMailbox.topic;
String sData = XdrvMailbox.data;
#ifdef DEBUG_MQTT_EVENT
AddLog(LOG_LEVEL_INFO, PSTR("Script: MQTT Topic %s, Event %s"), XdrvMailbox.topic, XdrvMailbox.data);
#endif
MQTT_Subscription event_item;
//Looking for matched topic
for (uint32_t index = 0; index < subscriptions.size(); index++) {
event_item = subscriptions.get(index);
uint8_t json_valid = 0;
#ifdef DEBUG_MQTT_EVENT
AddLog(LOG_LEVEL_INFO, PSTR("Script: Match MQTT message Topic %s with subscription topic %s and key %s"), sTopic.c_str(), event_item.Topic.c_str(),event_item.Key.c_str());
#endif
if (sTopic.startsWith(event_item.Topic)) {
//This topic is subscribed by us, so serve it
serviced = true;
String value;
String lkey;
if (event_item.Key.length() == 0) { //If did not specify Key
value = sData;
json_valid = 1;
} else { //If specified Key, need to parse Key/Value from JSON data
#ifndef SUPPORT_MQTT_EVENT_MORE
JsonParser parser((char*)sData.c_str());
JsonParserObject jsonData = parser.getRootObject();
String key1 = event_item.Key;
String key2;
if (!jsonData) break; //Failed to parse JSON data, ignore this message.
int dot;
if ((dot = key1.indexOf('.')) > 0) {
key2 = key1.substring(dot+1);
key1 = key1.substring(0, dot);
lkey = key2;
JsonParserToken val = jsonData[key1.c_str()].getObject()[key2.c_str()];
if (!val) break; //Failed to get the key/value, ignore this message.
value = val.getStr();
json_valid = 1;
} else {
JsonParserToken val = jsonData[key1.c_str()];
if (!val) break;
value = val.getStr();
lkey = key1;
json_valid = 1;
}
#else
JsonParser parser((char*)sData.c_str());
JsonParserObject obj = parser.getRootObject();
char sres[64];
uint32_t res = JsonParsePath(&obj, event_item.Key.c_str(), '.', NULL, sres, sizeof(sres));
if (res) {
json_valid = 1;
value = sres;
}
#endif // SUPPORT_MQTT_EVENT_MORE
}
if (json_valid) {
value.trim();
char sbuffer[128];
if (!strncmp(lkey.c_str(), "Epoch", 5)) {
uint32_t ep = atoi(value.c_str()) - (uint32_t)glob_script_mem.epoch_offset;
snprintf_P(sbuffer, sizeof(sbuffer), PSTR(">%s=%d\n"), event_item.Event.c_str(), ep);
} else {
snprintf_P(sbuffer, sizeof(sbuffer), PSTR(">%s=\"%s\"\n"), event_item.Event.c_str(), value.c_str());
}
#ifdef DEBUG_MQTT_EVENT
AddLog(LOG_LEVEL_INFO, PSTR("Script: setting script var %s"), sbuffer);
#endif
//toLog(sbuffer);
execute_script(sbuffer);
}
}
}
return serviced;
}
/********************************************************************************************/
/*
* Subscribe a MQTT topic (with or without key) and assign an event name to it
* Command Subscribe format:
* Subscribe , [, ]
* This command will subscribe a and give it an event name .
* The optional parameter is for parse the specified key/value from MQTT message
* payload with JSON format.
* Subscribe
* Subscribe command without any parameter will list all topics currently subscribed.
* Input:
* data - A char buffer with all the parameters
* data_len - Length of the parameters
* Return:
* A string include subscribed event, topic and key.
*/
String ScriptSubscribe(const char *data, int data_len)
{
MQTT_Subscription subscription_item;
String events;
if (data_len > 0) {
char parameters[data_len + 1];
memcpy(parameters, data, data_len);
parameters[data_len] = '\0';
String event_name, topic, key;
char * pos = strtok(parameters, ",");
if (pos) {
event_name = Trim(pos);
pos = strtok(nullptr, ",");
if (pos) {
topic = Trim(pos);
pos = strtok(nullptr, ",");
if (pos) {
key = Trim(pos);
}
}
}
//AddLog(LOG_LEVEL_DEBUG, PSTR("Script: Subscribe command with parameters: %s, %s, %s."), event_name.c_str(), topic.c_str(), key.c_str());
//event_name.toUpperCase();
if (event_name.length() > 0 && topic.length() > 0) {
//Search all subscriptions
for (uint32_t index = 0; index < subscriptions.size(); index++) {
if (subscriptions.get(index).Event.equals(event_name)) {
//If find exists one, remove it.
String stopic = subscriptions.get(index).Topic + "/#";
MqttUnsubscribe(stopic.c_str());
subscriptions.remove(index);
break;
}
}
//Add "/#" to the topic
if (!topic.endsWith("#")) {
if (topic.endsWith("/")) {
topic.concat("#");
} else {
topic.concat("/#");
}
}
// AddLog(LOG_LEVEL_DEBUG, PSTR("Script: New topic: %s."), topic.c_str());
//MQTT Subscribe
subscription_item.Event = event_name;
subscription_item.Topic = topic.substring(0, topic.length() - 2); //Remove "/#" so easy to match
subscription_item.Key = key;
subscriptions.add(subscription_item);
MqttSubscribe(topic.c_str());
events.concat(event_name + "," + topic
+ (key.length()>0 ? "," : "")
+ key);
} else {
events = D_JSON_WRONG_PARAMETERS;
}
} else {
//If did not specify the event name, list all subscribed event
for (uint32_t index = 0; index < subscriptions.size(); index++) {
subscription_item = subscriptions.get(index);
events.concat(subscription_item.Event + "," + subscription_item.Topic
+ (subscription_item.Key.length()>0 ? "," : "")
+ subscription_item.Key + "; ");
}
}
return events;
}
/********************************************************************************************/
/*
* Unsubscribe specified MQTT event. If no event specified, Unsubscribe all.
* Command Unsubscribe format:
* Unsubscribe []
* Input:
* data - Event name
* data_len - Length of the parameters
* Return:
* list all the events unsubscribed.
*/
String ScriptUnsubscribe(const char * data, int data_len)
{
MQTT_Subscription subscription_item;
String events;
if (data_len > 0) {
for (uint32_t index = 0; index < subscriptions.size(); index++) {
subscription_item = subscriptions.get(index);
if (subscription_item.Event.equalsIgnoreCase(data)) {
String stopic = subscription_item.Topic + "/#";
MqttUnsubscribe(stopic.c_str());
events = subscription_item.Event;
subscriptions.remove(index);
break;
}
}
} else {
//If did not specify the event name, unsubscribe all event
String stopic;
while (subscriptions.size() > 0) {
events.concat(subscriptions.get(0).Event + "; ");
stopic = subscriptions.get(0).Topic + "/#";
MqttUnsubscribe(stopic.c_str());
subscriptions.remove(0);
}
}
return events;
}
#endif // SUPPORT_MQTT_EVENT
#ifdef USE_SCRIPT_WEB_DISPLAY
#ifdef USE_UFILESYS
const char HTTP_SCRIPT_MIMES[] PROGMEM =
"HTTP/1.1 200 OK\r\n"
"Content-disposition: inline; filename=%s"
"Content-type: %s\r\n\r\n";
void ScriptGetSDCard(void) {
if (!HttpCheckPriviledgedAccess()) { return; }
String stmp = Webserver->uri();
char *cp = strstr_P(stmp.c_str(), PSTR("/ufs/"));
// if (cp) Serial.printf(">>>%s\n",cp);
if (cp) {
#ifdef ESP32
cp += 4;
#else
cp += 5;
#endif
if (ufsp) {
if (strstr_P(cp, PSTR("scrdmp.bmp"))) {
SendFile(cp);
return;
} else {
if (ufsp->exists(cp)) {
SendFile(cp);
return;
}
}
}
}
HandleNotFound();
}
extern uint8_t *buffer;
void SendFile(char *fname) {
char buff[512];
const char *mime = 0;
uint8_t sflg = 0;
#ifdef USE_DISPLAY_DUMP
char *sbmp = strstr_P(fname, PSTR("scrdmp.bmp"));
if (sbmp) {
sflg = 1;
}
#endif // USE_DISPLAY_DUMP
char *jpg = strstr_P(fname, PSTR(".jpg"));
if (jpg) {
mime = "image/jpeg";
}
char *bmp = strstr_P(fname, PSTR(".bmp"));
if (bmp) {
mime = "image/bmp";
}
char *html = strstr_P(fname, PSTR(".html"));
if (html) {
mime = "text/html";
}
char *txt = strstr_P(fname, PSTR(".txt"));
if (txt) {
mime = "text/plain";
}
if (!mime) return;
WSContentSend_P(HTTP_SCRIPT_MIMES, fname, mime);
if (sflg) {
#ifdef USE_DISPLAY_DUMP
// screen copy
#define fileHeaderSize 14
#define infoHeaderSize 40
if (buffer) {
uint8_t *bp = buffer;
uint8_t *lbuf = (uint8_t*)special_malloc(Settings.display_width * 3 + 2);
if (!lbuf) return;
uint8_t *lbp;
uint8_t fileHeader[fileHeaderSize];
createBitmapFileHeader(Settings.display_height , Settings.display_width , fileHeader);
Webserver->client().write((uint8_t *)fileHeader, fileHeaderSize);
uint8_t infoHeader[infoHeaderSize];
createBitmapInfoHeader(Settings.display_height, Settings.display_width, infoHeader );
Webserver->client().write((uint8_t *)infoHeader, infoHeaderSize);
for (uint32_t lins = 0; lins>1;
}
bp++;
}
Webserver->client().write((const char*)lbuf, Settings.display_width * 3);
}
if (lbuf) free(lbuf);
Webserver->client().stop();
}
#endif // USE_DISPLAY_DUMP
} else {
File file = ufsp->open(fname,FS_FILE_READ);
uint32_t siz = file.size();
uint32_t len = sizeof(buff);
while (siz > 0) {
if (len>siz) len = siz;
file.read((uint8_t *)buff, len);
Webserver->client().write((const char*)buff, len);
siz -= len;
}
file.close();
}
Webserver->client().stop();
}
#endif // USE_UFILESYS
#ifdef SCRIPT_FULL_WEBPAGE
const char HTTP_WEB_FULL_DISPLAY[] PROGMEM =
"";
const char HTTP_SCRIPT_FULLPAGE1[] PROGMEM =
""
""
""
""
"%s - %s"
"";
void ScriptFullWebpage(void) {
uint32_t fullpage_refresh=10000;
if (!HttpCheckPriviledgedAccess()) { return; }
String stmp = Webserver->uri();
if (Webserver->hasArg("m")) { // Status refresh requested
if (Webserver->hasArg("sv")) {
Script_Check_HTML_Setvars();
}
WSContentBegin(200, CT_HTML);
ScriptWebShow('w');
WSContentEnd();
//Serial.printf("fwp update sv %s\n",stmp.c_str() );
return; //goto redraw;
// } else {
// Serial.printf("fwp update %s\n",stmp.c_str() );
// }
return;
} else {
//Serial.printf("fwp other %s\n",stmp.c_str() );
}
WSContentBegin(200, CT_HTML);
const char *title = "Full Screen";
WSContentSend_P(HTTP_SCRIPT_FULLPAGE1, SettingsText(SET_DEVICENAME), title, fullpage_refresh);
WSContentSend_P(HTTP_SCRIPT_FULLPAGE2, fullpage_refresh);
//WSContentSend_P(PSTR(""));
//WSContentSendStyle();
WSContentSend_P(PSTR(""));
ScriptWebShow('w');
WSContentSend_P(PSTR("
"));
ScriptWebShow('x');
WSContentStop();
}
#endif //SCRIPT_FULL_WEBPAGE
void Script_Check_HTML_Setvars(void) {
if (!HttpCheckPriviledgedAccess()) { return; }
if (Webserver->hasArg("sv")) {
String stmp = Webserver->arg("sv");
//Serial.printf("fwp has arg dv %s\n", stmp.c_str());
char cmdbuf[64];
memset(cmdbuf, 0, sizeof(cmdbuf));
char *cp = cmdbuf;
*cp++ = '>';
strncpy(cp, stmp.c_str(), sizeof(cmdbuf) - 1);
char *cp1 = strchr(cp, '_');
if (!cp1) return;
*cp1 = 0;
char vname[32];
strncpy(vname, cp, sizeof(vname));
*cp1 = '=';
cp1++;
struct T_INDEX ind;
uint8_t vtype;
isvar(vname, &vtype, &ind, 0, 0, 0);
if (vtype!=NUM_RES && vtype&STYPE) {
// string type must insert quotes
uint8_t tlen = strlen(cp1);
memmove(cp1 + 1, cp1, tlen);
*cp1 = '\"';
*(cp1 + tlen +1 ) = '\"';
}
//toLog(cmdbuf);
execute_script(cmdbuf);
Run_Scripter(">E", 2, 0);
}
}
const char SCRIPT_MSG_BUTTONa[] PROGMEM =
"";
const char SCRIPT_MSG_BUTTONa_TBL[] PROGMEM =
" | ";
const char SCRIPT_MSG_BUTTONb[] PROGMEM =
"";
const char SCRIPT_MSG_BUT_START[] PROGMEM =
"";
const char SCRIPT_MSG_BUT_START_TBL[] PROGMEM =
"
";
const char SCRIPT_MSG_BUT_STOP[] PROGMEM =
"";
const char SCRIPT_MSG_BUT_STOP_TBL[] PROGMEM =
"
";
const char SCRIPT_MSG_SLIDER[] PROGMEM =
"
%s
%s%s"
"
";
const char SCRIPT_MSG_CHKBOX[] PROGMEM =
"
";
const char SCRIPT_MSG_TEXTINP[] PROGMEM =
"
";
const char SCRIPT_MSG_NUMINP[] PROGMEM =
"
";
#ifdef USE_GOOGLE_CHARTS
const char SCRIPT_MSG_GTABLE[] PROGMEM =
""
""
""
"";
const char SCRIPT_MSG_TABLE[] PROGMEM =
"";
const char SCRIPT_MSG_GAUGE[] PROGMEM =
"";
const char SCRIPT_MSG_TIMELINE[] PROGMEM =
"";
const char SCRIPT_MSG_GTABLEa[] PROGMEM =
"";
const char SCRIPT_MSG_GOPT1[] PROGMEM =
"title:'%s',isStacked:false";
const char SCRIPT_MSG_GAUGEOPT[] PROGMEM =
"max:%d,redFrom:%d,redTo:%d,yellowFrom:%d,yellowTo:%d";
const char SCRIPT_MSG_GOPT2[] PROGMEM =
"showRowNumber:true,sort:'disable',allowHtml:true,width:'100%%',height:'100%%',cssClassNames:cssc";
const char SCRIPT_MSG_GOPT3[] PROGMEM =
"title:'%s',isStacked:false,vAxes:{0:{maxValue:%d},1:{maxValue:%d}},series:{0:{targetAxisIndex:0},1:{targetAxisIndex:1}}%s";
const char SCRIPT_MSG_GOPT4[] PROGMEM =
//"hAxis:{minValue:new Date(0,1,1,0,0),maxValue:new Date(0,1,2,0,0),format:'HH:mm'}";
"hAxis:{format:'HH:mm',minValue:new Date(0,0,0,0,0),maxValue:new Date(0,0,0,23,59)},theme: 'maximized'";
const char SCRIPT_MSG_GOPT5[] PROGMEM =
"new Date(0,0,0,%d,%d)";
const char SCRIPT_MSG_GOPT6[] PROGMEM =
"title:'%s',isStacked:false,vAxis:{viewWindow:{min:%d,max:%d}}%s";
const char SCRIPT_MSG_GTE1[] PROGMEM = "'%s'";
#define GLIBS_MAIN 1<<0
#define GLIBS_TABLE 1<<1
#define GLIBS_GAUGE 1<<2
#define GLIBS_TIMELINE 1<<3
#ifndef MAX_GARRAY
#define MAX_GARRAY 4
#endif
char *gc_get_arrays(char *lp, float **arrays, uint8_t *ranum, uint16_t *rentries, uint16_t *ipos) {
struct T_INDEX ind;
uint8_t vtype;
uint16 entries = 0;
uint16_t cipos = 0;
uint8_t anum = 0;
while (anum
> 2 %d\n",len);
if (fa && len>=entries) {
if (!entries) {
entries = len;
}
// add array to list
arrays[anum] = fa;
anum++;
}
} else {
// single numeric
arrays[anum] = &glob_script_mem.fvars[index];
anum++;
entries = 1;
}
} else {
lp = lp1;
break;
}
}
}
//Serial.printf(">> %d - %d - %d\n",anum,entries,(uint32_t)*arrays[0]);
*ranum = anum;
*rentries = entries;
*ipos = cipos;
return lp;
}
char *gc_send_labels(char *lp,uint32_t anum) {
WSContentSend_PD("[");
for (uint32_t cnt = 0; cnt < anum + 1; cnt++) {
char label[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, label, 0);
SCRIPT_SKIP_SPACES
WSContentSend_PD(SCRIPT_MSG_GTE1, label);
//Serial.printf("labels %s\n",label);
if (cntw", -2, 0);
} else {
web_script = Run_Scripter(">W", -2, 0);
}
if (web_script==99) {
char tmp[256];
uint8_t optflg = 0;
uint8_t chartindex = 1;
uint8_t google_libs = 0;
char *lp = glob_script_mem.section_ptr + 2;
if (mc=='w') {
while (*lp) {
if (*lp=='\n') break;
lp++;
}
}
char *cv_ptr;
float cv_max=0;
float cv_inc=0;
float *cv_count=0;
while (lp) {
while (*lp==SCRIPT_EOL) {
lp++;
}
if (!*lp || *lp=='#' || *lp=='>') {
break;
}
if (*lp!=';') {
// send this line to web
SCRIPT_SKIP_SPACES
if (!strncmp(lp, "%for ", 5)) {
// for next loop
struct T_INDEX ind;
uint8_t vtype;
lp = isvar(lp + 5, &vtype, &ind, 0, 0, 0);
if ((vtype!=VAR_NV) && (vtype&STYPE)==0) {
uint16_t index = glob_script_mem.type[ind.index].index;
cv_count = &glob_script_mem.fvars[index];
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp , OPER_EQU, cv_count, 0);
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp , OPER_EQU, &cv_max, 0);
SCRIPT_SKIP_SPACES
lp = GetNumericArgument(lp , OPER_EQU, &cv_inc, 0);
cv_ptr = lp;
goto nextwebline;
} else {
continue;
}
} else if (!strncmp(lp, "%next", 5)) {
if (cv_count) {
// for next loop
*cv_count += cv_inc;
if (*cv_count<=cv_max) {
lp = cv_ptr;
} else {
cv_count = 0;
goto nextwebline;
}
} else {
goto nextwebline;
}
} else if (!strncmp(lp, "%=#", 3)) {
// subroutine
lp = scripter_sub(lp + 1, 0);
goto nextwebline;
}
Replace_Cmd_Vars(lp, 1, tmp, sizeof(tmp));
char *lin = tmp;
if ((!mc && (*lin!='$')) || (mc=='w' && (*lin!='$'))) {
/*if (!mc || mc=='w') {
if (*lin=='$') {
lin++;
if (!strncmp(lin,"gc(", 3)) {
goto exgc;
}
}*/
// normal web section
if (*lin=='@') {
lin++;
optflg = 1;
} else {
optflg = 0;
}
// check for input elements
if (!strncmp(lin, "sl(", 3)) {
// insert slider sl(min max var left mid right)
char *lp = lin;
float min;
lp = GetNumericArgument(lp + 3, OPER_EQU, &min, 0);
SCRIPT_SKIP_SPACES
// arg2
float max;
lp = GetNumericArgument(lp, OPER_EQU, &max, 0);
SCRIPT_SKIP_SPACES
float val;
char *slp = lp;
lp = GetNumericArgument(lp, OPER_EQU, &val, 0);
SCRIPT_SKIP_SPACES
char vname[16];
ScriptGetVarname(vname, slp, sizeof(vname));
char left[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, left, 0);
SCRIPT_SKIP_SPACES
char mid[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, mid, 0);
SCRIPT_SKIP_SPACES
char right[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, right, 0);
SCRIPT_SKIP_SPACES
WSContentSend_PD(SCRIPT_MSG_SLIDER, left,mid, right, (uint32_t)min, (uint32_t)max, (uint32_t)val, vname);
} else if (!strncmp(lin, "ck(", 3)) {
char *lp = lin + 3;
char *slp = lp;
float val;
lp = GetNumericArgument(lp, OPER_EQU, &val, 0);
SCRIPT_SKIP_SPACES
char vname[16];
ScriptGetVarname(vname, slp, sizeof(vname));
char label[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, label, 0);
const char *cp;
uint8_t uval;
if (val>0) {
cp = "checked='checked'";
uval = 0;
} else {
cp = "";
uval = 1;
}
WSContentSend_PD(SCRIPT_MSG_CHKBOX, label, (char*)cp, uval, vname);
} else if (!strncmp(lin, "bu(", 3)) {
char *lp = lin + 3;
uint8_t bcnt = 0;
char *found = lin;
while (bcnt<4) {
found = strstr(found, "bu(");
if (!found) break;
found += 3;
bcnt++;
}
uint8_t proz = 100 / bcnt;
if (!optflg && bcnt>1) proz -= 2;
if (optflg) WSContentSend_PD(SCRIPT_MSG_BUT_START_TBL);
else WSContentSend_PD(SCRIPT_MSG_BUT_START);
for (uint32_t cnt = 0; cnt < bcnt; cnt++) {
float val;
char *slp = lp;
lp = GetNumericArgument(lp, OPER_EQU, &val, 0);
SCRIPT_SKIP_SPACES
char vname[16];
ScriptGetVarname(vname, slp, sizeof(vname));
SCRIPT_SKIP_SPACES
char ontxt[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, ontxt, 0);
SCRIPT_SKIP_SPACES
char offtxt[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, offtxt, 0);
char *cp;
uint8_t uval;
if (val>0) {
cp = ontxt;
uval = 0;
} else {
cp = offtxt;
uval = 1;
}
if (bcnt>1 && cnt==bcnt-1) {
if (!optflg) proz += 2;
}
if (!optflg) {
WSContentSend_PD(SCRIPT_MSG_BUTTONa, proz, uval, vname, cp);
} else {
WSContentSend_PD(SCRIPT_MSG_BUTTONa_TBL, proz, uval, vname, cp);
}
if (bcnt>1 && cnt%s "), lin);
} else {
WSContentSend_PD(PSTR("{s}%s{e}"), lin);
}
}
}
// end standard web interface
} else {
// main section interface
if (*lin==mc) {
#ifdef USE_GOOGLE_CHARTS
lin++;
exgc:
char *lp;
if (!strncmp(lin, "gc(", 3)) {
// get google table
lp = lin + 3;
SCRIPT_SKIP_SPACES
const char *type;
const char *func;
char options[312];
uint8_t nanum = MAX_GARRAY;
uint8_t y2f = 0;
uint8_t tonly = 0;
char ctype;
ctype = *lp;
lp++;
if (!(google_libs & GLIBS_MAIN)) {
google_libs |= GLIBS_MAIN;
WSContentSend_PD(SCRIPT_MSG_GTABLE);
}
switch (ctype) {
case 'l':
type = PSTR("LineChart");
break;
case 'b':
type = PSTR("BarChart");
break;
case 'p':
type = PSTR("PieChart");
break;
case 'g':
type = PSTR("Gauge");
if (!(google_libs & GLIBS_GAUGE)) {
google_libs |= GLIBS_GAUGE;
WSContentSend_PD(SCRIPT_MSG_GAUGE);
}
break;
case 't':
type = PSTR("Table");
if (!(google_libs & GLIBS_TABLE)) {
google_libs |= GLIBS_TABLE;
WSContentSend_PD(SCRIPT_MSG_TABLE);
}
break;
case 'T':
type = PSTR("Timeline");
if (!(google_libs & GLIBS_TIMELINE)) {
google_libs |= GLIBS_TIMELINE;
WSContentSend_PD(SCRIPT_MSG_TIMELINE);
}
break;
case 'h':
type = PSTR("Histogram");
break;
case 'c':
type = PSTR("ColumnChart");
break;
case 'C':
type = PSTR("ComboChart");
break;
case 'e':
WSContentSend_PD(SCRIPT_MSG_GTABLEbx, type, chartindex);
chartindex++;
goto nextwebline;
break;
default:
// error
goto nextwebline;
break;
}
if (ctype=='l' && *lp=='f') {
lp++;
func = PSTR(",curveType:'function'");
} else {
func = "";
}
if (*lp=='2') {
lp++;
nanum = 2;
y2f = 1;
}
if (*lp=='t') {
lp++;
tonly = 1;
}
SCRIPT_SKIP_SPACES
//Serial.printf("type %d\n",ctype);
float *arrays[MAX_GARRAY];
uint8_t anum = 0;
uint16_t entries = 0;
uint16_t ipos = 0;
lp = gc_get_arrays(lp, &arrays[0], &anum, &entries, &ipos);
if (anum>nanum) {
goto nextwebline;
}
// we know how many arrays and the number of entries
//Serial.printf("arrays %d\n",anum);
//Serial.printf("entries %d\n",entries);
if (ctype=='T') {
if (anum && !(entries & 1)) {
WSContentSend_PD(SCRIPT_MSG_GTABLEa);
char label[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, label, 0);
SCRIPT_SKIP_SPACES
char lab2[SCRIPT_MAXSSIZE];
lab2[0] = 0;
if (*lp!=')') {
lp = GetStringArgument(lp, OPER_EQU, lab2, 0);
WSContentSend_PD(SCRIPT_MSG_GTABLEe);
} else {
WSContentSend_PD(SCRIPT_MSG_GTABLEd);
}
for (uint32_t ind = 0; ind < anum; ind++) {
char lbl[16];
float *fp = arrays[ind];
GetTextIndexed(lbl, sizeof(lbl), ind, label);
char lbl2[16];
if (lab2[0]) {
GetTextIndexed(lbl2, sizeof(lbl2), ind, lab2);
}
uint32_t ventries = 0;
for (uint32_t cnt = 0; cnt < entries; cnt += 2) {
if (fp[cnt]!=0 && fp[cnt+1]!=0) {
ventries+=2;
} else {
break;
}
}
for (uint32_t cnt = 0; cnt < ventries; cnt += 2) {
WSContentSend_PD("['%s',",lbl);
if (lab2[0]) {
WSContentSend_PD("'%s',",lbl2);
}
uint32_t time = fp[cnt];
WSContentSend_PD(SCRIPT_MSG_GOPT5, time / 60, time % 60);
WSContentSend_PD(",");
time = fp[cnt + 1];
WSContentSend_PD(SCRIPT_MSG_GOPT5, time / 60, time % 60);
WSContentSend_PD("]");
if (cnt < ventries - 2) { WSContentSend_PD(","); }
}
if (ind < anum - 1) {
if (ventries) {
WSContentSend_PD(",");
}
}
}
snprintf_P(options,sizeof(options), SCRIPT_MSG_GOPT4);
}
} else {
// we need to fetch the labels now
WSContentSend_PD(SCRIPT_MSG_GTABLEa);
lp = gc_send_labels(lp, anum);
// now we have to export the values
// fetch label part only once in combo string
char label[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, label, 0);
SCRIPT_SKIP_SPACES
int16_t divflg = 1;
int16_t todflg = -1;
if (!strncmp(label, "cnt", 3)) {
char *cp = &label[3];
//todflg=atoi(&label[3]);
todflg = strtol(cp, &cp, 10);
if (todflg >= entries) todflg = entries - 1;
if (todflg < 0) todflg = 0;
if (*cp=='/') {
cp++;
divflg = strtol(cp, &cp, 10);
}
} else {
char *lp = label;
if (!strncmp(label, "wdh:", 4)) {
// one week hours
todflg = -2;
lp += 4;
}
uint16 segments = 1;
for (uint32_t cnt = 0; cnt < strlen(lp); cnt++) {
if (lp[cnt]=='|') {
segments++;
}
}
divflg = entries / segments;
}
uint32_t aind = ipos;
if (aind>=entries) aind = entries - 1;
for (uint32_t cnt = 0; cnt < entries; cnt++) {
WSContentSend_PD("['");
char lbl[16];
if (todflg>=0) {
sprintf(lbl, "%d:%02d", todflg / divflg, (todflg % divflg) * (60 / divflg) );
todflg++;
if (todflg >= entries) {
todflg = 0;
}
} else {
if (todflg==-1) {
GetTextIndexed(lbl, sizeof(lbl), aind / divflg, label);
} else {
// day,hours,mins
GetTextIndexed(lbl, sizeof(lbl), aind / divflg, label + 4);
sprintf(lbl, "%s-%02d", lbl, aind % divflg);
}
}
WSContentSend_PD(lbl);
WSContentSend_PD("',");
for (uint32_t ind = 0; ind < anum; ind++) {
char acbuff[32];
float *fp = arrays[ind];
f2char(fp[aind], glob_script_mem.script_dprec, glob_script_mem.script_lzero, acbuff);
WSContentSend_PD("%s", acbuff);
if (ind=entries) {
aind = 0;
}
}
// table complete
if (tonly) {
WSContentSend_PD("]);");
goto nextwebline;
}
// get header
char header[SCRIPT_MAXSSIZE];
lp = GetStringArgument(lp, OPER_EQU, header, 0);
SCRIPT_SKIP_SPACES
switch (ctype) {
case 't':
snprintf_P(options, sizeof(options), SCRIPT_MSG_GOPT2);
break;
default:
snprintf_P(options, sizeof(options), SCRIPT_MSG_GOPT1, header);
break;
}
// check for 2 axis option
if (y2f) {
// 2 y axes variant
SCRIPT_SKIP_SPACES
float max1;
lp = GetNumericArgument(lp, OPER_EQU, &max1, 0);
SCRIPT_SKIP_SPACES
float max2;
lp = GetNumericArgument(lp, OPER_EQU, &max2, 0);
SCRIPT_SKIP_SPACES
snprintf_P(options, sizeof(options), SCRIPT_MSG_GOPT3, header, (uint32_t)max1, (uint32_t)max2, func);
} else {
SCRIPT_SKIP_SPACES
if (ctype!='g') {
if (*lp!=')') {
float max1;
lp = GetNumericArgument(lp, OPER_EQU, &max1, 0);
SCRIPT_SKIP_SPACES
float max2;
lp = GetNumericArgument(lp, OPER_EQU, &max2, 0);
SCRIPT_SKIP_SPACES
snprintf_P(options, sizeof(options), SCRIPT_MSG_GOPT6, header, (uint32_t)max1, (uint32_t)max2, func);
}
}
}
if (ctype=='g') {
float yellowFrom;
lp = GetNumericArgument(lp, OPER_EQU, &yellowFrom, 0);
SCRIPT_SKIP_SPACES
float redFrom;
lp = GetNumericArgument(lp, OPER_EQU, &redFrom, 0);
SCRIPT_SKIP_SPACES
float maxValue;
lp = GetNumericArgument(lp, OPER_EQU, &maxValue, 0);
SCRIPT_SKIP_SPACES
float redTo = maxValue;
float yellowTo = redFrom;
snprintf_P(options, sizeof(options), SCRIPT_MSG_GAUGEOPT, (uint32_t)maxValue, (uint32_t)redFrom, (uint32_t)redTo,
(uint32_t)yellowFrom, (uint32_t)yellowTo);
}
}
WSContentSend_PD(SCRIPT_MSG_GTABLEb, options);
WSContentSend_PD(SCRIPT_MSG_GTABLEbx, type, chartindex);
chartindex++;
} else {
WSContentSend_PD(PSTR("%s"), lin);
}
#else
lin++;
WSContentSend_PD(PSTR("%s"), lin);
} else {
// WSContentSend_PD(PSTR("%s"),lin);
#endif //USE_GOOGLE_CHARTS
}
}
}
nextwebline:
if (*lp==SCRIPT_EOL) {
lp++;
} else {
lp = strchr(lp, SCRIPT_EOL);
if (!lp) break;
lp++;
}
}
}
}
#endif //USE_SCRIPT_WEB_DISPLAY
#if defined(USE_SENDMAIL) || defined(USE_ESP32MAIL)
void script_send_email_body(void(*func)(char *)) {
uint8_t msect = Run_Scripter(">m", -2, 0);
if (msect==99) {
char tmp[256];
char *lp = glob_script_mem.section_ptr + 2;
while (lp) {
while (*lp==SCRIPT_EOL) {
lp++;
}
if (!*lp || *lp=='#' || *lp=='>') {
break;
}
if (*lp!=';') {
// send this line to smtp
Replace_Cmd_Vars(lp, 1, tmp, sizeof(tmp));
//client->println(tmp);
func(tmp);
}
if (*lp==SCRIPT_EOL) {
lp++;
} else {
lp = strchr(lp, SCRIPT_EOL);
if (!lp) break;
lp++;
}
}
} else {
//client->println("*");
func((char*)"*");
}
}
#endif //USE_SENDMAIL
#ifdef USE_SCRIPT_JSON_EXPORT
void ScriptJsonAppend(void) {
uint8_t web_script = Run_Scripter(">J", -2, 0);
if (web_script==99) {
char tmp[256];
char *lp = glob_script_mem.section_ptr + 2;
while (lp) {
while (*lp==SCRIPT_EOL) {
lp++;
}
if (!*lp || *lp=='#' || *lp=='>') {
break;
}
if (*lp!=';') {
// send this line to mqtt
if (!strncmp(lp, "%=#", 3)) {
// subroutine
lp = scripter_sub(lp + 1, 0);
} else {
Replace_Cmd_Vars(lp, 1, tmp, sizeof(tmp));
ResponseAppend_P(PSTR("%s"), tmp);
}
}
if (*lp==SCRIPT_EOL) {
lp++;
} else {
lp = strchr(lp, SCRIPT_EOL);
if (!lp) break;
lp++;
}
}
}
}
#endif //USE_SCRIPT_JSON_EXPORT
bool RulesProcessEvent(char *json_event) {
if (bitRead(Settings.rule_enabled, 0)) Run_Scripter(">E", 2, json_event);
return true;
}
#ifdef ESP32
#ifdef USE_SCRIPT_TASK
#ifndef STASK_STACK
#define STASK_STACK 8192-2048
#endif
#if 1
struct ESP32_Task {
uint16_t task_timer;
TaskHandle_t task_t;
} esp32_tasks[2];
void script_task1(void *arg) {
//uint32_t lastms=millis();
//uint32_t time;
while (1) {
//time=millis()-lastms;
//lastms=millis();
//time=esp32_tasks[0].task_timer-time;
//if (timet1", 3, 0);
}
}
}
void script_task2(void *arg) {
//uint32_t lastms=millis();
//uint32_t time;
while (1) {
//time=millis()-lastms;
//lastms=millis();
//time=esp32_tasks[1].task_timer-time;
//if (timet2", 3, 0);
}
}
}
uint32_t scripter_create_task(uint32_t num, uint32_t time, uint32_t core, uint32_t prio) {
//return 0;
BaseType_t res = 0;
if (core > 1) { core = 1; }
if (num == 1) {
if (esp32_tasks[0].task_t) { vTaskDelete(esp32_tasks[0].task_t); }
res = xTaskCreatePinnedToCore(script_task1, "T1", STASK_STACK, NULL, prio, &esp32_tasks[0].task_t, core);
esp32_tasks[0].task_timer = time;
} else {
if (esp32_tasks[1].task_t) { vTaskDelete(esp32_tasks[1].task_t); }
res = xTaskCreatePinnedToCore(script_task2, "T2", STASK_STACK, NULL, prio, &esp32_tasks[1].task_t, core);
esp32_tasks[1].task_timer = time;
}
return res;
}
#else
uint16_t task_timer1;
uint16_t task_timer2;
TaskHandle_t task_t1;
TaskHandle_t task_t2;
void script_task1(void *arg) {
while (1) {
delay(task_timer1);
Run_Scripter(">t1", 3, 0);
}
}
void script_task2(void *arg) {
while (1) {
delay(task_timer2);
Run_Scripter(">t2", 3, 0);
}
}
uint32_t scripter_create_task(uint32_t num, uint32_t time, uint32_t core, uint32_t prio) {
//return 0;
BaseType_t res = 0;
if (core > 1) { core = 1; }
if (num == 1) {
if (task_t1) { vTaskDelete(task_t1); }
res = xTaskCreatePinnedToCore(script_task1, "T1", STASK_STACK, NULL, prio, &task_t1, core);
task_timer1 = time;
} else {
if (task_t2) { vTaskDelete(task_t2); }
res = xTaskCreatePinnedToCore(script_task2, "T2", STASK_STACK, NULL, prio, &task_t2, core);
task_timer2 = time;
}
return res;
}
#endif
#endif // USE_SCRIPT_TASK
#endif // ESP32
int32_t http_req(char *host, char *request) {
HTTPClient http;
int32_t httpCode = 0;
uint8_t mode = 0;
char hbuff[128];
strcpy(hbuff, "http://");
strcat(hbuff, host);
if (*request == '_') {
mode = 1;
request++;
}
if (!mode) {
// GET
strcat(hbuff, request);
//AddLog(LOG_LEVEL_INFO, PSTR("HTTP GET %s"),hbuff);
http.begin(hbuff);
httpCode = http.GET();
} else {
// POST
//AddLog(LOG_LEVEL_INFO, PSTR("HTTP POST %s - %s"),hbuff, request);
http.begin(hbuff);
http.addHeader("Content-Type", "text/plain");
httpCode = http.POST(request);
}
#ifdef USE_WEBSEND_RESPONSE
strlcpy(TasmotaGlobal.mqtt_data, http.getString().c_str(), MESSZ);
//AddLog(LOG_LEVEL_INFO, PSTR("HTTP RESULT %s"), TasmotaGlobal.mqtt_data);
Run_Scripter(">E", 2, TasmotaGlobal.mqtt_data);
glob_script_mem.glob_error = 0;
#endif
http.end();
return httpCode;
}
#ifdef SCRIPT_GET_HTTPS_JP
#ifdef ESP8266
#include "WiFiClientSecureLightBearSSL.h"
#else
#include
#endif //ESP8266
// get tesla powerwall info page json string
uint32_t call2https(const char *host, const char *path) {
if (TasmotaGlobal.global_state.wifi_down) return 1;
uint32_t status = 0;
#ifdef ESP32
WiFiClientSecure *httpsClient;
httpsClient = new WiFiClientSecure;
#else
BearSSL::WiFiClientSecure_light *httpsClient;
httpsClient = new BearSSL::WiFiClientSecure_light(1024, 1024);
#endif
httpsClient->setTimeout(2000);
httpsClient->setInsecure();
#if 0
File file = ufsp->open("/tesla.cer", FS_FILE_READ);
uint16_t fsize = 0;
char *cert = 0;
if (file) {
fsize = file.size();
if (fsize) {
cert = (char*)malloc(fsize +2);
if (cert) {
file.read((uint8_t*)cert, fsize);
file.close();
httpsClient->setCACert(cert);
}
AddLog(LOG_LEVEL_INFO,PSTR(">>> cert %d"),fsize);
}
} else {
httpsClient->setCACert(root_ca);
}
#endif
uint32_t retry = 0;
while ((!httpsClient->connect(host, 443)) && (retry < 5)) {
delay(100);
retry++;
}
if (retry == 5) {
return 2;
}
AddLog(LOG_LEVEL_INFO,PSTR("connected"));
String request;
#if 0
File file = ufsp->open("/login.txt", FS_FILE_READ);
uint16_t fsize = 0;
char *cert = 0;
if (file) {
fsize = file.size();
if (fsize) {
cert = (char*)calloc(fsize +2, 1);
if (cert) {
file.read((uint8_t*)cert, fsize);
file.close();
//httpsClient->setCACert(cert);
}
AddLog(LOG_LEVEL_INFO,PSTR(">>> cert %d"),fsize);
}
}
request = String("POST ") + "/api/login/Basic" + " HTTP/1.1\r\n" + "Host: " + host + "\r\n" + cert + "\r\n" + "Content-Type: application/json" + "\r\n";
httpsClient->print(request);
AddLog_P(LOG_LEVEL_INFO,PSTR(">>> post request %s"),(char*)request.c_str());
String line = httpsClient->readStringUntil('\n');
AddLog(LOG_LEVEL_INFO,PSTR(">>> post response 1a %s"),(char*)line.c_str());
line = httpsClient->readStringUntil('\n');
AddLog(LOG_LEVEL_INFO,PSTR(">>> post response 1b %s"),(char*)line.c_str());
#endif
request = String("GET ") + path +
" HTTP/1.1\r\n" +
"Host: " + host +
"\r\n" + "Connection: close\r\n\r\n";
httpsClient->print(request);
// AddLog_P(LOG_LEVEL_INFO,PSTR(">>> get request %s"),(char*)request.c_str());
while (httpsClient->connected()) {
String line = httpsClient->readStringUntil('\n');
if (line == "\r") {
break;
}
}
String result;
while (httpsClient->available()) {
String line = httpsClient->readStringUntil('\n');
if (line!="") {
result += line;
}
}
httpsClient->stop();
delete httpsClient;
// AddLog(LOG_LEVEL_INFO,PSTR(">>> response 2 %s"),(char*)result.c_str());
Run_Scripter(">jp", 3, (char*)result.c_str());
return 0;
}
#endif // SCRIPT_GET_HTTPS_JP
void cpy2lf(char *dst, uint32_t dstlen, char *src) {
for (uint32_t cnt=0; cntexists(FAT_SCRIPT_NAME)) {
File file = ufsp->open(FAT_SCRIPT_NAME, FS_FILE_READ);
file.read((uint8_t*)script, UFSYS_SIZE);
file.close();
}
script[UFSYS_SIZE - 1] = 0;
// use rules storage for permanent vars
glob_script_mem.script_pram = (uint8_t*)Settings.rules[0];
glob_script_mem.script_pram_size = MAX_SCRIPT_SIZE;
glob_script_mem.FLAGS.fsys = true;
// indicates scripter use no compression
bitWrite(Settings.rule_once, 6, 0);
} else {
AddLog(LOG_LEVEL_INFO,PSTR("UFILESYSTEM fail, using compression!"));
int32_t len_decompressed;
sprt = (char*)calloc(UNISHOXRSIZE + 8,1);
if (!sprt) { break; }
glob_script_mem.script_ram = sprt;
glob_script_mem.script_size = UNISHOXRSIZE;
len_decompressed = SCRIPT_DECOMPRESS(Settings.rules[0], strlen(Settings.rules[0]), glob_script_mem.script_ram, glob_script_mem.script_size);
if (len_decompressed>0) glob_script_mem.script_ram[len_decompressed] = 0;
// indicates scripter use compression
bitWrite(Settings.rule_once, 6, 1);
}
#else // USE_UFILESYS
#ifdef EEP_SCRIPT_SIZE
if (EEP_INIT(EEP_SCRIPT_SIZE)) {
// found 32kb eeprom,
char *script;
if (EEP_SCRIPT_SIZE!=SPECIAL_EEPMODE_SIZE) {
script = (char*)calloc(EEP_SCRIPT_SIZE + 4, 1);
if (!script) break;
glob_script_mem.script_ram = script;
glob_script_mem.script_size = EEP_SCRIPT_SIZE;
EEP_READ(0, EEP_SCRIPT_SIZE, script);
if (*script==0xff) {
memset(script, EEP_SCRIPT_SIZE, 0);
}
script[EEP_SCRIPT_SIZE - 1] = 0;
} else {
uint8_t *ucs;
ucs = (uint8_t*)calloc(SPI_FLASH_SEC_SIZE + 4, 1);
if (!ucs) break;
alt_eeprom_readBytes(0, SPI_FLASH_SEC_SIZE, ucs);
if (*ucs==0xff) {
memset(ucs, SPI_FLASH_SEC_SIZE, 0);
}
ucs[SPI_FLASH_SEC_SIZE - 1] = 0;
script = (char*)calloc(EEP_SCRIPT_SIZE + 4, 1);
if (!script) break;
glob_script_mem.script_ram = script;
glob_script_mem.script_size = EEP_SCRIPT_SIZE;
int32_t len_decompressed;
len_decompressed = SCRIPT_DECOMPRESS((char*)ucs, strlen((char*)ucs), glob_script_mem.script_ram, glob_script_mem.script_size);
if (len_decompressed>0) glob_script_mem.script_ram[len_decompressed] = 0;
if (ucs) free(ucs);
}
// use rules storage for permanent vars
glob_script_mem.script_pram = (uint8_t*)Settings.rules[0];
glob_script_mem.script_pram_size = MAX_SCRIPT_SIZE;
glob_script_mem.FLAGS.eeprom = true;
}
#else // EEP_SCRIPT_SIZE
// default mode is compression
int32_t len_decompressed;
sprt = (char*)calloc(UNISHOXRSIZE + 8,1);
if (!sprt) { break; }
glob_script_mem.script_ram = sprt;
glob_script_mem.script_size = UNISHOXRSIZE;
len_decompressed = SCRIPT_DECOMPRESS(Settings.rules[0], strlen(Settings.rules[0]), glob_script_mem.script_ram, glob_script_mem.script_size);
if (len_decompressed>0) glob_script_mem.script_ram[len_decompressed] = 0;
// indicates scripter use compression
bitWrite(Settings.rule_once, 6, 1);
#endif
#endif // USE_UFILESYS
// indicates scripter enabled (use rules[][] as single array)
bitWrite(Settings.rule_once, 7, 1);
#ifdef USE_BUTTON_EVENT
for (uint32_t cnt = 0; cnt < MAX_KEYS; cnt++) {
glob_script_mem.script_button[cnt] = -1;
}
#endif //USE_BUTTON_EVENT
// a valid script MUST start with >D
if (glob_script_mem.script_ram[0]!='>' && glob_script_mem.script_ram[1]!='D') {
// clr all
memset(glob_script_mem.script_ram, 0 ,glob_script_mem.script_size);
strcpy_P(glob_script_mem.script_ram, PSTR(">D\nscript error must start with >D"));
bitWrite(Settings.rule_enabled, 0, 0);
}
// assure permanent memory is 4 byte aligned
{ uint32_t ptr = (uint32_t)glob_script_mem.script_pram;
ptr &= 0xfffffffc;
ptr += 4;
glob_script_mem.script_pram = (uint8_t*)ptr;
glob_script_mem.script_pram_size -= 4;
}
if (bitRead(Settings.rule_enabled, 0)) Init_Scripter();
// break;
//case FUNC_INIT:
if (bitRead(Settings.rule_enabled, 0)) {
Run_Scripter(">B\n", 3, 0);
glob_script_mem.fast_script = Run_Scripter(">F", -2, 0);
#if defined(USE_SCRIPT_HUE) && defined(USE_WEBSERVER) && defined(USE_EMULATION) && defined(USE_EMULATION_HUE) && defined(USE_LIGHT)
Script_Check_Hue(0);
#endif //USE_SCRIPT_HUE
}
break;
case FUNC_EVERY_100_MSECOND:
ScripterEvery100ms();
break;
case FUNC_EVERY_SECOND:
ScriptEverySecond();
break;
case FUNC_COMMAND:
result = ScriptCommand();
break;
case FUNC_SET_POWER:
#ifdef SCRIPT_POWER_SECTION
if (bitRead(Settings.rule_enabled, 0)) Run_Scripter(">P", 2, 0);
#else
if (bitRead(Settings.rule_enabled, 0)) {
Run_Scripter(">E", 2, 0);
result = glob_script_mem.event_handeled;
}
#endif //SCRIPT_POWER_SECTION
break;
case FUNC_RULES_PROCESS:
if (bitRead(Settings.rule_enabled, 0)) {
if (TasmotaGlobal.rule_teleperiod) { // Signal teleperiod event
if (TasmotaGlobal.mqtt_data[0]) {
Run_Scripter(">T", 2, TasmotaGlobal.mqtt_data);
}
} else {
Run_Scripter(">E", 2, TasmotaGlobal.mqtt_data);
result = glob_script_mem.event_handeled;
}
}
break;
#ifdef USE_WEBSERVER
case FUNC_WEB_ADD_CONSOLE_BUTTON:
if (XdrvMailbox.index) {
XdrvMailbox.index++;
} else {
WSContentSend_P(HTTP_BTN_MENU_RULES);
}
break;
#ifdef USE_SCRIPT_WEB_DISPLAY
case FUNC_WEB_ADD_MAIN_BUTTON:
if (bitRead(Settings.rule_enabled, 0)) {
ScriptWebShow('$');
#ifdef SCRIPT_FULL_WEBPAGE
uint8_t web_script = Run_Scripter(">w", -2, 0);
if (web_script==99) {
char bname[48];
cpy2lf(bname, sizeof(bname), glob_script_mem.section_ptr + 3);
WSContentSend_PD(HTTP_WEB_FULL_DISPLAY, bname);
Webserver->on("/sfd", ScriptFullWebpage);
}
#endif // SCRIPT_FULL_WEBPAGE
#ifdef USE_UFILESYS
Webserver->onNotFound(ScriptGetSDCard);
#endif // USE_UFILESYS
}
break;
#endif // USE_SCRIPT_WEB_DISPLAY
case FUNC_WEB_ADD_HANDLER:
Webserver->on("/" WEB_HANDLE_SCRIPT, HandleScriptConfiguration);
Webserver->on("/ta",HTTP_POST, HandleScriptTextareaConfiguration);
Webserver->on("/exs", HTTP_POST,[]() { Webserver->sendHeader("Location","/exs");Webserver->send(303);}, script_upload_start);
Webserver->on("/exs", HTTP_GET, ScriptExecuteUploadSuccess);
#endif // USE_WEBSERVER
break;
case FUNC_SAVE_BEFORE_RESTART:
if (bitRead(Settings.rule_enabled, 0)) {
Run_Scripter(">R", 2, 0);
Scripter_save_pvars();
}
#ifdef USE_SCRIPT_GLOBVARS
Script_Stop_UDP();
#endif //USE_SCRIPT_GLOBVARS
break;
#ifdef SUPPORT_MQTT_EVENT
case FUNC_MQTT_DATA:
if (bitRead(Settings.rule_enabled, 0)) {
result = ScriptMqttData();
}
break;
#endif //SUPPORT_MQTT_EVENT
#ifdef USE_SCRIPT_WEB_DISPLAY
case FUNC_WEB_SENSOR:
if (bitRead(Settings.rule_enabled, 0)) {
ScriptWebShow(0);
}
break;
#endif //USE_SCRIPT_WEB_DISPLAY
#ifdef USE_SCRIPT_JSON_EXPORT
case FUNC_JSON_APPEND:
if (bitRead(Settings.rule_enabled, 0)) {
ScriptJsonAppend();
}
break;
#endif //USE_SCRIPT_JSON_EXPORT
#ifdef USE_BUTTON_EVENT
case FUNC_BUTTON_PRESSED:
if (bitRead(Settings.rule_enabled, 0)) {
if ((glob_script_mem.script_button[XdrvMailbox.index]&1)!=(XdrvMailbox.payload&1)) {
glob_script_mem.script_button[XdrvMailbox.index] = XdrvMailbox.payload;
Run_Scripter(">b", 2, 0);
}
}
break;
#endif //USE_BUTTON_EVENT
#ifdef USE_SCRIPT_GLOBVARS
case FUNC_LOOP:
Script_PollUdp();
break;
#endif //USE_SCRIPT_GLOBVARS
}
return result;
}
#endif // Do not USE_RULES
#endif // USE_SCRIPT