Changeset 11ab0b4a

Timestamp:

Oct 3, 2023, 5:31:46 PM (19 months ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

master

Children:

cf34e82

Parents:

46f9f02

Message:

add corun/cofor statement, update old cofor

Files:

• libcfa/src/concurrency/cofor.cfa (modified) (1 diff)
• libcfa/src/concurrency/cofor.hfa (modified) (2 diffs)
• src/Parser/lex.ll (modified) (2 diffs)
• src/Parser/parser.yy (modified) (5 diffs)

libcfa/src/concurrency/cofor.cfa

@@ -20 +20 @@
 }
 
-void cofor( ssize_t low, ssize_t high, __cofor_body_t loop_body ) libcfa_public {
+void __Cofor__( ssize_t low, ssize_t high, __cofor_body_t loop_body ) libcfa_public {
         ssize_t range = high - low;
   if ( range <= 0 ) return;

libcfa/src/concurrency/cofor.hfa

@@ -5 +5 @@
 typedef void (*__cofor_body_t)( ssize_t );
 
-void cofor( ssize_t low, ssize_t high, __cofor_body_t loop_body );
+void __Cofor__( ssize_t low, ssize_t high, __cofor_body_t loop_body );
 
 #define COFOR( lidname, low, high, loopbody ) \
@@ -12 +12 @@
                         loopbody \
                 } \
-                cofor( low, high, __CFA_loopLambda__ ); \
+                __Cofor__( low, high, __CFA_loopLambda__ ); \
         }
 

src/Parser/lex.ll

@@ -10 +10 @@
  * Created On       : Sat Sep 22 08:58:10 2001
  * Last Modified By : Peter A. Buhr
- * Last Modified On : Mon Oct  2 17:15:11 2023
- * Update Count     : 772
+ * Last Modified On : Tue Oct  3 17:10:57 2023
+ * Update Count     : 773
  */
 
@@ -241 +241 @@
 choose                  { KEYWORD_RETURN(CHOOSE); }                             // CFA
 coerce                  { KEYWORD_RETURN(COERCE); }                             // CFA
+corun                   { KEYWORD_RETURN(CORUN); }                              // CFA
+cofor                   { KEYWORD_RETURN(COFOR); }                              // CFA
 _Complex                { KEYWORD_RETURN(COMPLEX); }                    // C99
 __complex               { KEYWORD_RETURN(COMPLEX); }                    // GCC

src/Parser/parser.yy

@@ -10 +10 @@
 // Created On       : Sat Sep  1 20:22:55 2001
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Sep  4 18:28:12 2023
-// Update Count     : 6393
+// Last Modified On : Tue Oct  3 17:14:12 2023
+// Update Count     : 6396
 //
 
@@ -350 +350 @@
 %token IF ELSE SWITCH CASE DEFAULT DO WHILE FOR BREAK CONTINUE GOTO RETURN
 %token CHOOSE FALLTHRU FALLTHROUGH WITH WHEN WAITFOR WAITUNTIL // CFA
+%token CORUN COFOR
 %token DISABLE ENABLE TRY THROW THROWRESUME AT                  // CFA
 %token ASM                                                                                              // C99, extension ISO/IEC 9899:1999 Section J.5.10(1)
@@ -422 +423 @@
 %type<stmt> with_statement
 %type<expr> with_clause_opt
+%type<stmt> corun_statement                             cofor_statement
 %type<stmt> exception_statement
 %type<clause> handler_clause                    finally_clause
@@ -1140 +1142 @@
         | waitfor_statement
         | waituntil_statement
+        | corun_statement
+        | cofor_statement
         | exception_statement
         | enable_disable_statement
@@ -1713 +1717 @@
         wor_waituntil_clause                                                            %prec THEN
                 { $$ = new StatementNode( build_waituntil_stmt( yylloc, $1 ) ); }
+        ;
+
+corun_statement:
+        CORUN statement
+                { SemanticError( yylloc, "corun statement is currently unimplemented." ); $$ = nullptr; }
+        ;
+
+cofor_statement:
+        COFOR '(' for_control_expression_list ')' statement
+                { SemanticError( yylloc, "cofor statement is currently unimplemented." ); $$ = nullptr; }
         ;