source: tests/coroutine/devicedriver.cfa @ 2e041e27

// 
// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
// 
// devicedriver.cfa -- 
// 
// Author           : Peter A. Buhr
// Created On       : Sat Mar 16 15:30:34 2019
// Last Modified By : Peter A. Buhr
// Last Modified On : Mon Mar 18 08:29:20 2019
// Update Count     : 79
// 

#include <fstream.hfa>
#include <coroutine.hfa>

enum Status { CONT, MSG, ESTX, ELNTH, ECRC };
coroutine Driver {
        Status status;
        char * msg, byte;
}; // Driver

void ?{}( Driver & d, char * m ) { d.msg = m; }
Status next( Driver & d, char b ) with( d ) {
        byte = b; resume( d ); return status;
} // next

void main( Driver & d ) with( d ) {
        enum { STX = '\002', ESC = '\033', ETX = '\003', MaxMsg = 64 };
        unsigned short int crc;                                                         // error checking
  msg: for () {                                                                                 // parse message
                status = CONT;
                unsigned int lnth = 0, sum = 0;
                while ( byte != STX ) suspend();
          emsg: for () {
                        suspend();
                        choose ( byte ) {                                                       // process byte
                          case STX:
                                status = ESTX; suspend(); continue msg;
                          case ETX:
                                break emsg;
                          case ESC:
                                suspend();
                        } // choose
                        if ( lnth >= MaxMsg ) {                                         // buffer full ?
                                status = ELNTH; suspend(); continue msg;
                        } // if
                        msg[lnth++] = byte;
                        sum += byte;
                } // for
                msg[lnth] = '\0';                                                               // terminate string
                suspend();
                crc = (unsigned char)byte << 8; // prevent sign extension for signed char
                suspend();
                status = (crc | (unsigned char)byte) == sum ? MSG : ECRC;
                suspend();
        } // for
} // main

int main() {
        char msg[65], byte;
        Driver driver = { msg };
  eof: for () {                                                                                 // read until end of file
                sin | byte;                                                                             // read one character
          if ( eof( sin ) ) break eof;                                          // eof ?
                choose( next( driver, byte ) ) {                                // analyse character
                  case MSG:
                        sout | "msg:" | msg;
                  case ESTX:
                        sout | "STX in message";
                  case ELNTH:
                        sout | "message too long";
                  case ECRC:
                        sout | "CRC failure";
                  default: ;
                } // choose
        } // for
} // main

// Local Variables: //
// tab-width: 4 //
// compile-command: "cfa -g -Wall -Wextra devicedriver.cfa" //
// End: //