//${AOs::Table::SM::active::paused} .......................................... Q_STATE_DEF(Table, paused) { QP::QState status_; switch (e->sig) { //${AOs::Table::SM::active::paused} case Q_ENTRY_SIG: { BSP_displayPaused(1U); status_ = Q_RET_HANDLED; break; } //${AOs::Table::SM::active::paused} case Q_EXIT_SIG: { BSP_displayPaused(0U); status_ = Q_RET_HANDLED; break; } //${AOs::Table::SM::active::paused::PAUSE} case PAUSE_SIG: { status_ = tran(&serving); break; } //${AOs::Table::SM::active::paused::HUNGRY} case HUNGRY_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // philo ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!m_isHungry[n])); m_isHungry[n] = true; BSP_displayPhilStat(n, HUNGRY); status_ = Q_RET_HANDLED; break; } //${AOs::Table::SM::active::paused::DONE} case DONE_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // phil ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!m_isHungry[n])); BSP_displayPhilStat(n, THINKING); uint8_t m = LEFT(n); /* both forks of Phil[n] must be used */ Q_ASSERT((m_fork[n] == USED) && (m_fork[m] == USED)); m_fork[m] = FREE; m_fork[n] = FREE; status_ = Q_RET_HANDLED; break; } default: { status_ = super(&active); break; } } return status_; }
// ${AOs::Table::SM::active::paused} QP::QState Table::paused(Table * const me, QP::QEvt const * const e) { QP::QState status_; switch (e->sig) { // ${AOs::Table::SM::active::paused::PAUSE} case PAUSE_SIG: { static struct { QP::QMState const *target; QP::QActionHandler act[3]; } const tatbl_ = { // transition-action table &serving_s, { Q_ACTION_CAST(&paused_x), // exit Q_ACTION_CAST(&serving_e), // entry Q_ACTION_CAST(0) // zero terminator } }; status_ = QM_TRAN(&tatbl_); break; } // ${AOs::Table::SM::active::paused::HUNGRY} case HUNGRY_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // philo ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!me->m_isHungry[n])); me->m_isHungry[n] = true; BSP_displayPhilStat(n, HUNGRY); status_ = QM_HANDLED(); break; } // ${AOs::Table::SM::active::paused::DONE} case DONE_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // phil ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!me->m_isHungry[n])); BSP_displayPhilStat(n, THINKING); uint8_t m = LEFT(n); /* both forks of Phil[n] must be used */ Q_ASSERT((me->m_fork[n] == USED) && (me->m_fork[m] == USED)); me->m_fork[m] = FREE; me->m_fork[n] = FREE; status_ = QM_HANDLED(); break; } default: { status_ = QM_SUPER(); break; } } return status_; }
//${AOs::Table::SM} .......................................................... Q_STATE_DEF(Table, initial) { //${AOs::Table::SM::initial} (void)e; // suppress the compiler warning about unused parameter QS_OBJ_DICTIONARY(&l_table); QS_FUN_DICTIONARY(&QP::QHsm::top); QS_FUN_DICTIONARY(&Table::initial); QS_FUN_DICTIONARY(&Table::active); QS_FUN_DICTIONARY(&Table::serving); QS_FUN_DICTIONARY(&Table::paused); QS_SIG_DICTIONARY(DONE_SIG, (void *)0); // global signals QS_SIG_DICTIONARY(EAT_SIG, (void *)0); QS_SIG_DICTIONARY(PAUSE_SIG, (void *)0); QS_SIG_DICTIONARY(TERMINATE_SIG, (void *)0); QS_SIG_DICTIONARY(HUNGRY_SIG, this); // signal just for Table subscribe(DONE_SIG); subscribe(PAUSE_SIG); subscribe(TERMINATE_SIG); for (uint8_t n = 0U; n < N_PHILO; ++n) { m_fork[n] = FREE; m_isHungry[n] = false; BSP_displayPhilStat(n, THINKING); } QS_FUN_DICTIONARY(&active); QS_FUN_DICTIONARY(&serving); QS_FUN_DICTIONARY(&paused); return tran(&serving); }
// ${AOs::Table::SM::active::serving} QP::QState Table::serving_e(Table * const me) { for (uint8_t n = 0U; n < N_PHILO; ++n) { // give permissions to eat... if (me->m_isHungry[n] && (me->m_fork[LEFT(n)] == FREE) && (me->m_fork[n] == FREE)) { me->m_fork[LEFT(n)] = USED; me->m_fork[n] = USED; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, n), me); me->m_isHungry[n] = false; BSP_displayPhilStat(n, EATING); } } return QM_ENTRY(&serving_s); }
//${AOs::Table::SM} .......................................................... QP::QState Table::initial(Table * const me, QP::QEvt const * const e) { static struct { QP::QMState const *target; QP::QActionHandler act[2]; } const tatbl_ = { // transition-action table &serving_s, { Q_ACTION_CAST(&serving_e), // entry Q_ACTION_CAST(0) // zero terminator } }; // ${AOs::Table::SM::initial} (void)e; // suppress the compiler warning about unused parameter QS_OBJ_DICTIONARY(&l_table); QS_FUN_DICTIONARY(&QP::QHsm::top); QS_FUN_DICTIONARY(&Table::initial); QS_FUN_DICTIONARY(&Table::active); QS_FUN_DICTIONARY(&Table::serving); QS_FUN_DICTIONARY(&Table::paused); QS_SIG_DICTIONARY(DONE_SIG, (void *)0); // global signals QS_SIG_DICTIONARY(EAT_SIG, (void *)0); QS_SIG_DICTIONARY(PAUSE_SIG, (void *)0); QS_SIG_DICTIONARY(TERMINATE_SIG, (void *)0); QS_SIG_DICTIONARY(HUNGRY_SIG, me); // signal just for Table me->subscribe(DONE_SIG); me->subscribe(PAUSE_SIG); me->subscribe(TERMINATE_SIG); for (uint8_t n = 0U; n < N_PHILO; ++n) { me->m_fork[n] = FREE; me->m_isHungry[n] = false; BSP_displayPhilStat(n, THINKING); } return QM_TRAN_INIT(&tatbl_); }
//${AOs::Table::SM::active::serving} ......................................... Q_STATE_DEF(Table, serving) { QP::QState status_; switch (e->sig) { //${AOs::Table::SM::active::serving} case Q_ENTRY_SIG: { for (uint8_t n = 0U; n < N_PHILO; ++n) { // give permissions to eat... if (m_isHungry[n] && (m_fork[LEFT(n)] == FREE) && (m_fork[n] == FREE)) { m_fork[LEFT(n)] = USED; m_fork[n] = USED; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, n), this); m_isHungry[n] = false; BSP_displayPhilStat(n, EATING); } } status_ = Q_RET_HANDLED; break; } //${AOs::Table::SM::active::serving::HUNGRY} case HUNGRY_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // phil ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!m_isHungry[n])); BSP_displayPhilStat(n, HUNGRY); uint8_t m = LEFT(n); //${AOs::Table::SM::active::serving::HUNGRY::[bothfree]} if ((m_fork[m] == FREE) && (m_fork[n] == FREE)) { m_fork[m] = USED; m_fork[n] = USED; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, n), this); BSP_displayPhilStat(n, EATING); status_ = Q_RET_HANDLED; } //${AOs::Table::SM::active::serving::HUNGRY::[else]} else { m_isHungry[n] = true; status_ = Q_RET_HANDLED; } break; } //${AOs::Table::SM::active::serving::DONE} case DONE_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // phil ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!m_isHungry[n])); BSP_displayPhilStat(n, THINKING); uint8_t m = LEFT(n); // both forks of Phil[n] must be used Q_ASSERT((m_fork[n] == USED) && (m_fork[m] == USED)); m_fork[m] = FREE; m_fork[n] = FREE; m = RIGHT(n); // check the right neighbor if (m_isHungry[m] && (m_fork[m] == FREE)) { m_fork[n] = USED; m_fork[m] = USED; m_isHungry[m] = false; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, m), this); BSP_displayPhilStat(m, EATING); } m = LEFT(n); // check the left neighbor n = LEFT(m); // left fork of the left neighbor if (m_isHungry[m] && (m_fork[n] == FREE)) { m_fork[m] = USED; m_fork[n] = USED; m_isHungry[m] = false; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, m), this); BSP_displayPhilStat(m, EATING); } status_ = Q_RET_HANDLED; break; } //${AOs::Table::SM::active::serving::EAT} case EAT_SIG: { Q_ERROR(); status_ = Q_RET_HANDLED; break; } //${AOs::Table::SM::active::serving::PAUSE} case PAUSE_SIG: { status_ = tran(&paused); break; } default: { status_ = super(&active); break; } } return status_; }
// ${AOs::Table::SM::active::serving} QP::QState Table::serving(Table * const me, QP::QEvt const * const e) { QP::QState status_; switch (e->sig) { // ${AOs::Table::SM::active::serving::HUNGRY} case HUNGRY_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // phil ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!me->m_isHungry[n])); BSP_displayPhilStat(n, HUNGRY); uint8_t m = LEFT(n); // ${AOs::Table::SM::active::serving::HUNGRY::[bothfree]} if ((me->m_fork[m] == FREE) && (me->m_fork[n] == FREE)) { me->m_fork[m] = USED; me->m_fork[n] = USED; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, n), me); BSP_displayPhilStat(n, EATING); status_ = QM_HANDLED(); } // ${AOs::Table::SM::active::serving::HUNGRY::[else]} else { me->m_isHungry[n] = true; status_ = QM_HANDLED(); } break; } // ${AOs::Table::SM::active::serving::DONE} case DONE_SIG: { uint8_t n = Q_EVT_CAST(TableEvt)->philoNum; // phil ID must be in range and he must be not hungry Q_ASSERT((n < N_PHILO) && (!me->m_isHungry[n])); BSP_displayPhilStat(n, THINKING); uint8_t m = LEFT(n); // both forks of Phil[n] must be used Q_ASSERT((me->m_fork[n] == USED) && (me->m_fork[m] == USED)); me->m_fork[m] = FREE; me->m_fork[n] = FREE; m = RIGHT(n); // check the right neighbor if (me->m_isHungry[m] && (me->m_fork[m] == FREE)) { me->m_fork[n] = USED; me->m_fork[m] = USED; me->m_isHungry[m] = false; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, m), me); BSP_displayPhilStat(m, EATING); } m = LEFT(n); // check the left neighbor n = LEFT(m); // left fork of the left neighbor if (me->m_isHungry[m] && (me->m_fork[n] == FREE)) { me->m_fork[m] = USED; me->m_fork[n] = USED; me->m_isHungry[m] = false; QP::QF::PUBLISH(Q_NEW(TableEvt, EAT_SIG, m), me); BSP_displayPhilStat(m, EATING); } status_ = QM_HANDLED(); break; } // ${AOs::Table::SM::active::serving::EAT} case EAT_SIG: { Q_ERROR(); status_ = QM_HANDLED(); break; } // ${AOs::Table::SM::active::serving::PAUSE} case PAUSE_SIG: { static struct { QP::QMState const *target; QP::QActionHandler act[2]; } const tatbl_ = { // transition-action table &paused_s, { Q_ACTION_CAST(&paused_e), // entry Q_ACTION_CAST(0) // zero terminator } }; status_ = QM_TRAN(&tatbl_); break; } default: { status_ = QM_SUPER(); break; } } return status_; }