Changeset 427854b for tests/coroutine/devicedriver.cfa

Timestamp:

Mar 2, 2020, 4:59:27 PM (3 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, arm-eh, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

dfa4360

Parents:

37cdd97

Message:

First draft implementation of generators, still missing error checking, testing and clean-up

File:

• tests/coroutine/devicedriver.cfa (modified) (5 diffs)

tests/coroutine/devicedriver.cfa

@@ -1 @@
-// 
+//
 // 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 -- 
-// 
+//
+// devicedriver.cfa --
+//
 // Author           : Peter A. Buhr
 // Created On       : Sat Mar 16 15:30:34 2019
@@ -12 +12 @@
 // Last Modified On : Sat Apr 20 09:07:19 2019
 // Update Count     : 90
-// 
+//
 
 #include <fstream.hfa>
@@ -29 +29 @@
 
 void checkCRC( Driver & d, unsigned int sum ) with( d ) {
-        suspend();
+        suspend;
         unsigned short int crc = byte << 8;                                     // sign extension over written
-        suspend();
+        suspend;
         // prevent sign extension for signed char
         status = (crc | (unsigned char)byte) == sum ? MSG : ECRC;
@@ -41 +41 @@
                 status = CONT;
                 unsigned int lnth = 0, sum = 0;
-                while ( byte != STX ) suspend();
+                while ( byte != STX ) suspend;
           emsg: for () {
-                        suspend();
+                        suspend;
                         choose ( byte ) {                                                       // process byte
                           case STX:
-                                status = ESTX; suspend(); continue msg;
+                                status = ESTX; suspend; continue msg;
                           case ETX:
                                 break emsg;
                           case ESC:
-                                suspend();
+                                suspend;
                         } // choose
                         if ( lnth >= MaxMsg ) {                                         // buffer full ?
-                                status = ELNTH; suspend(); continue msg;
+                                status = ELNTH; suspend; continue msg;
                         } // if
                         msg[lnth++] = byte;
@@ -60 +60 @@
                 msg[lnth] = '\0';                                                               // terminate string
                 checkCRC( d, sum );                                                             // refactor CRC check
-                suspend();
+                suspend;
         } // for
 } // main