main.c

a super good method for designing finite state machine

/*****************************************************************************
* PELICAN crossing example
* Last Updated for Version: 1.5.00
* Date of the Last Update:  Sep 17, 2006
*
* Copyright (C) 2002-2006 Quantum Leaps, LLC. All rights reserved.
*
* This software may be distributed and modified under the terms of the GNU
* General Public License version 2 (GPL) as published by the Free Software
* Foundation and appearing in the file GPL.TXT included in the packaging of
* this file. Please note that GPL Section 2[b] requires that all works based
* on this software must also be made publicly available under the terms of
* the GPL ("Copyleft").
*
* Alternatively, this software may be distributed and modified under the
* terms of Quantum Leaps commercial licenses, which expressly allow the
* licensees to retain the proprietary status of their code. The licensees
* who use this software under one of Quantum Leaps commercial licenses do
* not use this software under the GPL and therefore are not subject to any
* of its terms.
*
* Contact information:
* Quantum Leaps Web site:  http://www.quantum-leaps.com
* Quantum Leaps licensing: http://www.quantum-leaps.com/licensing
* Quantum Leaps products:  http://www.quantum-leaps.com/products
* e-mail:                  [e-mail]
*****************************************************************************/
#include "qpn_port.h"                                       /* QP-nano port */
#include "bsp.h"                             /* Board Support Package (BSP) */
#include "pelican.h"                               /* application interface */

/*..........................................................................*/
static Pelican l_pelican;
static QEvent  l_pelicanQueue[1];

static Ped     l_ped;

/*..........................................................................*/
/* CAUTION: the QF_active[] array must be initialized consistently with
* the priority assignement in pelican.h
*/
QActiveCB const Q_ROM QF_active[] = {
    { (QActive *)0,          (QEvent *)0,    0                     },
    { (QActive *)&l_pelican, l_pelicanQueue, Q_DIM(l_pelicanQueue) },
    { (QActive *)&l_ped,     (QEvent *)0,    0                     }
};
uint8_t const Q_ROM QF_activeNum = Q_DIM(QF_active) - 1;

/*..........................................................................*/
void main (void) {
    BSP_init();                                     /* initialize the board */

    Pelican_ctor(&l_pelican);
    Ped_ctor(&l_ped, 15);           /* init Ped, set # PED_WAITING attempts */

    QF_run();                                /* transfer control to QF-nano */
}