PEdestrian LIght CONtrolled (PELICAN) crossing example PEdestrian LIght CONtrolled (PELICAN) crossing BSP_signalCars(CARS_RED); BSP_signalPeds(PEDS_DONT_WALK); QF_stop(); BSP_signalCars(CARS_RED); BSP_signalCars(CARS_GREEN); /* one-shot timeout in CARS_GREEN_MIN_TOUT ticks */ QActive_armX(&me->super, 0U, CARS_GREEN_MIN_TOUT, 0U); QActive_disarmX(&me->super, 0U); BSP_showState("carsGreenNoPed"); BSP_showState("carsGreenInt"); BSP_showState("carsGreenPedWait"); BSP_showState("carsYellow"); BSP_signalCars(CARS_YELLOW); /* one-shot timeout in CARS_YELLOW_TOUT ticks */ QActive_armX(&me->super, 0U, CARS_YELLOW_TOUT, 0U); QActive_disarmX(&me->super, 0U); BSP_signalPeds(PEDS_DONT_WALK); BSP_showState("pedsWalk"); BSP_signalPeds(PEDS_WALK); /* one-shot timeout in PEDS_WALK_TOUT ticks */ QActive_armX(&me->super, 0U, PEDS_WALK_TOUT, 0U); QActive_disarmX(&me->super, 0U); BSP_showState("pedsFlash"); /* periodic timeout in PEDS_FLASH_TOUT and every PEDS_FLASH_TOUT ticks */ QActive_armX(&me->super, 0U, PEDS_FLASH_TOUT, PEDS_FLASH_TOUT); me->flashCtr = (PEDS_FLASH_NUM * 2U) + 1U; QActive_disarmX(&me->super, 0U); me->flashCtr != 0U --me->flashCtr; (me->flashCtr & 1U) == 0U BSP_signalPeds(PEDS_DONT_WALK); else BSP_signalPeds(PEDS_BLANK); else BSP_showState("offline"); /* periodic timeout in OFF_FLASH_TOUT and every OFF_FLASH_TOUT ticks */ QActive_armX(&me->super, 0U, OFF_FLASH_TOUT, OFF_FLASH_TOUT); me->flashCtr = 0U; QActive_disarmX(&me->super, 0U); me->flashCtr ^= 1U; (me->flashCtr & 1U) == 0U BSP_signalCars(CARS_RED); BSP_signalPeds(PEDS_DONT_WALK); else BSP_signalCars(CARS_BLANK); BSP_signalPeds(PEDS_BLANK); QF_stop(); constructor QActive_ctor(&AO_Pelican.super, Q_STATE_CAST(&Pelican_initial)); #ifndef PELICAN_H #define PELICAN_H enum PelicanSignals { PEDS_WAITING_SIG = Q_USER_SIG, OFF_SIG, ON_SIG, TERMINATE_SIG }; /* active objects ................................................*/ $declare(components::Pelican_ctor) extern struct Pelican AO_Pelican; #endif /* PELICAN_H */ #include "qpn.h" /* QP-nano */ #include "bsp.h" /* Board Support Package (BSP) */ #include "pelican.h" /* application interface */ /*Q_DEFINE_THIS_FILE*/ #define CARS_GREEN_MIN_TOUT (QTimeEvtCtr)(BSP_TICKS_PER_SEC * 8U) #define CARS_YELLOW_TOUT (QTimeEvtCtr)(BSP_TICKS_PER_SEC * 3U) #define PEDS_WALK_TOUT (QTimeEvtCtr)(BSP_TICKS_PER_SEC * 3U) #define PEDS_FLASH_TOUT (QTimeEvtCtr)(BSP_TICKS_PER_SEC / 5U) #define PEDS_FLASH_NUM (uint8_t)(5U * 2U) #define OFF_FLASH_TOUT (QTimeEvtCtr)(BSP_TICKS_PER_SEC / 2U) /* Pelican class declaration -----------------------------------------------*/ $declare(components::Pelican) /* Global objects ----------------------------------------------------------*/ struct Pelican AO_Pelican; /* the single instance of the Pelican AO */ /* Pelican class definition ------------------------------------------------*/ $define(components::Pelican_ctor) $define(components::Pelican)