main.c

量子编程源代码 量子编程源代码

/*****************************************************************************
* Product:  QHsmTst/C example
* Last Updated for Version: 3.4.00
* Date of the Last Update:  Sep 03, 2007
*
*                    Q u a n t u m     L e a P s
*                    ---------------------------
*                    innovating embedded systems
*
* Copyright (C) 2002-2007 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 supersede
* the GPL and are specifically designed for licensees interested in
* retaining the proprietary status of their code.
*
* Contact information:
* Quantum Leaps Web site:  http://www.quantum-leaps.com
* e-mail:                  [e-mail]
*****************************************************************************/
#include "qep_port.h"
#include "qhsmtst.h"
#include "qassert.h"

#include <termios.h>
#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

Q_DEFINE_THIS_FILE

/* local objects -----------------------------------------------------------*/
static QHsmTst l_test;
static FILE *l_outFile = (FILE *)0;
struct termios l_saved;

/*..........................................................................*/
void Q_assert_handler(char const Q_ROM * const Q_ROM_VAR file, int line) {
    fprintf(stderr, "Assertion failed in %s, line %d", file, line);
    tcsetattr(0, TCSANOW, &l_saved);
    exit(-1);
}
/*..........................................................................*/
void QHsmTst_display(QHsmTst *me, char const *msg) {
    (void)me;
    fprintf(l_outFile, msg);
}
/*..........................................................................*/
void QHsmTst_exit(QHsmTst *me) {
    (void)me;              /* suppress the "unreferenced parameter" warning */
    printf("Bye, Bye!");
    tcsetattr(0, TCSANOW, &l_saved);
    exit(0);
}
/*..........................................................................*/
static void dispatch(QSignal sig) {
    QEvent e;
    Q_REQUIRE((A_SIG <= sig) && (sig <= I_SIG));
    e.sig = sig;
    fprintf(l_outFile, "\n%c:", 'A' + sig - A_SIG);
    QHsm_dispatch((QHsm *)&l_test, &e);               /* dispatch the event */
}
/*..........................................................................*/
int main(int argc, char *argv[]) {
    QHsmTst_ctor(&l_test);

    tcgetattr(0, &l_saved);         /* save the current terminal attributes */

    if (argc > 1) {                                  /* file name provided? */
        l_outFile = fopen(argv[1], "w");
    }

    if (l_outFile == (FILE *)0) {                   /* interactive version? */
        struct termios tio;                 /* modified terminal attributes */

        memcpy(&tio, &l_saved, sizeof(struct termios));  /* init attributes */
        tio.c_lflag &= ~ICANON;                   /* disable canonical mode */
        tcsetattr(0, TCSANOW, &tio);              /* set the new attributes */

        l_outFile = stdout;            /* use the stdout as the output file */

        printf("QHsmTst example, built on %s at %s,\n"
               "QEP/C: %s.\nPress ESC to quit...\n",
               __DATE__, __TIME__, QEP_getVersion());

        QHsm_init((QHsm *)&l_test, (QEvent *)0);   /* trigger initial tran. */

        for (;;) {                                            /* event loop */
            QEvent e;
            char c;

            printf("\n>");
            fflush(stdout);
            read(0, &c, 1);          /* read one character from the console */
            printf(": ");
            fflush(stdout);

            if ('a' <= c && c <= 'i') {                        /* in range? */
                e.sig = (QSignal)(c - 'a' + A_SIG);
            }
            else if ('A' <= c && c <= 'I') {                   /* in range? */
                e.sig = (QSignal)(c - 'A' + A_SIG);
            }
            else if (c == '\33') {                          /* the ESC key? */
                e.sig = TERMINATE_SIG;    /* terminate the interactive test */
            }
            else {
                e.sig = IGNORE_SIG;
            }

            QHsm_dispatch((QHsm *)&l_test, &e);       /* dispatch the event */
        }
    }
    else {                                                 /* batch version */
        printf("QHsmTst example, built on %s at %s, QEP/C %s\n"
               "output saved to %s\n",
               __DATE__, __TIME__, QEP_getVersion(),
               argv[1]);

        fprintf(l_outFile, "QHsmTst example, QEP/C %s\n",
                QEP_getVersion());

        QHsm_init((QHsm *)&l_test, (QEvent *)0);   /* trigger initial tran. */

                                       /* testing of dynamic transitions... */
        dispatch(A_SIG);
        dispatch(B_SIG);
        dispatch(D_SIG);
        dispatch(E_SIG);
        dispatch(I_SIG);
        dispatch(F_SIG);
        dispatch(I_SIG);
        dispatch(I_SIG);
        dispatch(F_SIG);
        dispatch(A_SIG);
        dispatch(B_SIG);
        dispatch(D_SIG);
        dispatch(D_SIG);
        dispatch(E_SIG);
        dispatch(G_SIG);
        dispatch(H_SIG);
        dispatch(H_SIG);
        dispatch(C_SIG);
        dispatch(G_SIG);
        dispatch(C_SIG);
        dispatch(C_SIG);

        fclose(l_outFile);
    }

    return 0;
}