non_blocking_timed_block.h

//macros for a non blocking wait, periodic or x-times repeated intruction block!

//needs millis() or micros() system function

//should be located inside a fast loop

//usage:

// WAITBLOCK(MSEC,T2B,100) {digitalWrite(LED_PIN, digitalRead(LED_PIN)^1); //...} //fast flashed led

// PERIODIC(MSEC,T2B,500) {digitalWrite(LED_PIN, digitalRead(LED_PIN)^1); //...} //blinky led

// XPERIODIC(MSEC,T2B,500,42) {digitalWrite(LED_PIN, digitalRead(LED_PIN)^1); //...} //42-times blinky led

//hints:

// change the data type in case of shorter time period 

// uint32_t micros() 4µs tick, rolls over after 2^32 /1000/1000/60  = 71.58 min

// uint32_t millis() rolls over after 2^32 /1000/60/60/24 = 49.710 days

// uint16_t micros() 4µs tick, rolls over after 2^16 /1000 = 65.535 ms

// uint16_t millis() rolls over after 2^16 /1000 = 65.535 sec 

// refresh time stamp +=t, if a more exact repeated time period is needed

//todo: -open,+done,!prio,?=questionable

// ?postfix ul for t needed

// ?refresh time stamp via +=t or =millis()/micros() 

#ifndef NONBL_DELAY_H

#define NONBL_DELAY_H

//options

#define USEC micros() //timer tick base

#define MSEC millis()

#define T2B uint16_t  //timer data type

#define T4B uint32_t

//create an unique name from given parameter and line number

#define UNIQUE(name) (name ## __LINE__)

//creates an unique timer for each instance

#define WAITBLOCK(tb, dt, t)                    \

  static dt UNIQUE(tmr) = (dt) tb;              \

  if (tb - UNIQUE(tmr) >= t)

//creates an unique timer for each instance

#define PERIODIC(tb, dt, t)                     \

  static dt UNIQUE(tmr) = (dt) tb;              \

  if ((tb - UNIQUE(tmr) >= t)                   \

  && (UNIQUE(tmr) = tb, 1)) //(UNIQUE(tmr) += t, 1))

//creates an unique timer for each instance, x: repeats 1-255

#define XPERIODIC(tb, dt, t, x)                 \

  static dt UNIQUE(tmr) = (dt) tb;              \

  static uint8_t UNIQUE(xRepeats) = x;          \

  if ((tb - UNIQUE(tmr) >= t)                   \

  && UNIQUE(xRepeats)                           \

  && (UNIQUE(xRepeats)--, UNIQUE(tmr) = tb, 1)) //UNIQUE(tmr) += t, 1))

#endif