2012-08-14 18:07:04 -04:00
|
|
|
/*****************************************************************************
|
|
|
|
* Product: State-Local Storage Example, 80x86, Vanilla
|
|
|
|
* Last Updated for Version: 4.5.00
|
|
|
|
* Date of the Last Update: May 18, 2012
|
|
|
|
*
|
|
|
|
* Q u a n t u m L e a P s
|
|
|
|
* ---------------------------
|
|
|
|
* innovating embedded systems
|
|
|
|
*
|
|
|
|
* Copyright (C) 2002-2012 Quantum Leaps, LLC. All rights reserved.
|
|
|
|
*
|
|
|
|
* This program is open source software: you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU General Public License as published
|
2013-10-16 16:44:03 -04:00
|
|
|
* by the Free Software Foundation, either version 3 of the License, or
|
2012-08-14 18:07:04 -04:00
|
|
|
* (at your option) any later version.
|
|
|
|
*
|
|
|
|
* Alternatively, this program may be distributed and modified under the
|
|
|
|
* terms of Quantum Leaps commercial licenses, which expressly supersede
|
|
|
|
* the GNU General Public License and are specifically designed for
|
|
|
|
* licensees interested in retaining the proprietary status of their code.
|
|
|
|
*
|
|
|
|
* 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 <http://www.gnu.org/licenses/>.
|
|
|
|
*
|
|
|
|
* Contact information:
|
|
|
|
* Quantum Leaps Web sites: http://www.quantum-leaps.com
|
|
|
|
* http://www.state-machine.com
|
|
|
|
* e-mail: info@quantum-leaps.com
|
|
|
|
*****************************************************************************/
|
|
|
|
#include "qp_port.h" /* the port of the QP framework */
|
|
|
|
#include "bsp.h" /* board support package */
|
|
|
|
#include "num_ent.h"
|
|
|
|
#include "ui.h"
|
|
|
|
|
|
|
|
/* Local-scope objects -----------------------------------------------------*/
|
|
|
|
static QEvt const * l_uiQueueSto[5];
|
|
|
|
static union {
|
|
|
|
void *vp;
|
|
|
|
KeyboardEvt qe;
|
|
|
|
} l_smlPoolSto[5]; /* small event pool */
|
|
|
|
static QSubscrList l_subscrSto[MAX_PUB_SIG];
|
|
|
|
|
|
|
|
/*..........................................................................*/
|
|
|
|
int main(int argc, char *argv[]) {
|
|
|
|
UI_ctor(); /* instantiate the UI Active Object */
|
|
|
|
|
|
|
|
BSP_init(argc, argv); /* initialize the Board Support Package */
|
|
|
|
|
|
|
|
QF_init(); /* initialize the framework and the underlying RT kernel */
|
|
|
|
|
|
|
|
/* initialize the event pools... */
|
|
|
|
QF_poolInit(l_smlPoolSto, sizeof(l_smlPoolSto), sizeof(l_smlPoolSto[0]));
|
|
|
|
// QF_poolInit(l_medPoolSto, sizeof(l_medPoolSto), sizeof(l_medPoolSto[0]));
|
|
|
|
|
|
|
|
QF_psInit(l_subscrSto, Q_DIM(l_subscrSto)); /* init publish-subscribe */
|
|
|
|
|
|
|
|
/* setup the QS filters... */
|
|
|
|
/* send object dictionaries for event queues... */
|
|
|
|
QS_OBJ_DICTIONARY(l_uiQueueSto);
|
|
|
|
|
|
|
|
/* send object dictionaries for event pools... */
|
|
|
|
QS_OBJ_DICTIONARY(l_smlPoolSto);
|
|
|
|
// QS_OBJ_DICTIONARY(l_medPoolSto);
|
|
|
|
|
|
|
|
/* send signal dictionaries for globally published events... */
|
|
|
|
QS_SIG_DICTIONARY(QUIT_SIG, 0);
|
|
|
|
|
|
|
|
/* start the active objects... */
|
|
|
|
QActive_start(AO_UI,
|
|
|
|
1, /* priority */
|
|
|
|
l_uiQueueSto, Q_DIM(l_uiQueueSto), /* evt queue */
|
|
|
|
(void *)0, 0, /* no per-thread stack */
|
|
|
|
(QEvt *)0); /* no initialization event */
|
|
|
|
|
|
|
|
return QF_run(); /* run the QF application */
|
|
|
|
}
|