Changeset c48b61c for tests/loopctrl.cfa

Timestamp:

Aug 9, 2022, 5:40:36 PM (2 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, ast-experimental, master, pthread-emulation

Children:

571f220

Parents:

52be5948

Message:

update for-control test-programs and expected output

File:

• tests/loopctrl.cfa (modified) (6 diffs)

tests/loopctrl.cfa

@@ -10 +10 @@
 // Created On       : Wed Aug  8 18:32:59 2018
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Aug  8 17:36:57 2022
-// Update Count     : 116
+// Last Modified On : Tue Aug  9 17:29:08 2022
+// Update Count     : 144
 // 
 
@@ -19 +19 @@
         // Test all possible loop syntax.
 
-        int s, c, i;
-
-        for ( c ) {} // start 0 
-        for ( ~= c ) {} // start 0      
-        for ( -~ c ) {} // start c
-        for ( -~= c ) {} // start c
-
-        for ( @ ~ c ) {} // start 0
-        for ( @ ~= c ) {} // start 0
-        for ( @ -~ c ) {} // start c
-        for ( @ -~= c ) {} // start c
-
-        for ( @ ~ c ~ i ) {} // start 0
-        for ( @ ~= c ~ i ) {} // start 0
-        for ( @ -~ c ~ i ) {} // start c
-        for ( @ -~= c ~ i ) {} // start c
-
-        for ( s ~ c ) {} // start s
-        for ( s ~= c ) {} // start s
-        for ( s -~ c ) {} // start c
-        for ( s -~= c ) {} // start c
-
-        for ( s ~ c ~ i ) {} // start s
-        for ( s ~= c ~ i ) {} // start s
-        for ( s -~ c ~ i ) {} // start c
-        for ( s -~= c ~ i ) {} // start c
-
-        for ( j; c ) {} // start 0
-        for ( j; ~= c ) {} // start 0
-        for ( j; -~ c ) {} // start c
-        for ( j; -~= c ) {} // start c
-
-        for ( j; @ ~ c ) {} // start 0
-        for ( j; @ ~= c ) {} // start 0
-        for ( j; @ -~ c ) {} // start c
-        for ( j; @ -~= c ) {} // start c
-
-        for ( j; @ ~ c ~ i ) {} // start 0
-        for ( j; @ ~= c ~ i ) {} // start 0
-        for ( j; @ -~ c ~ i ) {} // start c
-        for ( j; @ -~= c ~ i ) {} // start c
-
-        for ( j; s ~ c ) {} // start s
-        for ( j; s ~= c ) {} // start s
-        for ( j; s -~ c ) {} // start c
-        for ( j; s -~= c ) {} // start c
-
-        for ( j; s ~ c ~ i ) {} // start s
-        for ( j; s ~= c ~ i ) {} // start s
-        for ( j; s -~ c ~ i ) {} // start c
-        for ( j; s -~= c ~ i ) {} // start c
+        int s = 0, c = 10, i = 2;
+
+        for ( c ) { sout | "A"; }                                               sout | nl;
+        for ( ~= c ) { sout | "B"; }                                    sout | nl;
+        for ( -~ c ) { sout | "C"; }                                    sout | nl;
+        for ( -~= c ) { sout | "D"; }                                   sout | nl;
+
+        for ( s ~ c ) { sout | "A"; }                                   sout | nl;
+        for ( s ~= c ) { sout | "B"; }                                  sout | nl;
+        for ( s -~ c ) { sout | "C"; }                                  sout | nl;
+        for ( s -~= c ) { sout | "D"; }                                 sout | nl;
+
+        for ( s ~ c ~ i ) { sout | "A"; }                               sout | nl;
+        for ( s ~= c ~ i ) { sout | "B"; }                              sout | nl;
+        for ( s -~ c ~ i ) { sout | "C"; }                              sout | nl;
+        for ( s -~= c ~ i ) { sout | "D"; }                             sout | nl;
+
+        for ( j; c ) { sout | j; }                                                      sout | nl;
+        for ( j; ~= c ) { sout | j; }                                   sout | nl;
+        for ( j; -~ c ) { sout | j; }                                   sout | nl;
+        for ( j; -~= c ) { sout | j; }                                  sout | nl;
+
+        for ( j; s ~ c ) { sout | j; }                                  sout | nl;
+        for ( j; s ~= c ) { sout | j; }                                 sout | nl;
+        for ( j; s -~ c ) { sout | j; }                                 sout | nl;
+        for ( j; s -~= c ) { sout | j; }                                sout | nl;
+
+        for ( j; s ~ c ~ i ) { sout | j; }                              sout | nl;
+        for ( j; s ~= c ~ i ) { sout | j; }                             sout | nl;
+        for ( j; s -~ c ~ i ) { sout | j; }                             sout | nl;
+        for ( j; s -~= c ~ i ) { sout | j; }                    sout | nl;
 
         // CANNOT DIRECTLY INITIALIZE INDEX VARIABLE, ONLY SINGLE LOOP INDEX VARIABLE IN DECLARATION
 
-        for ( j; c ) {} // start 0
-        for ( int j; c ) {} // start 0
-        for ( int j; ~= c ) {} // start 0
-        for ( int j; -~ c ) {} // start c
-        for ( int j; -~= c ) {} // start c
-
-        for ( int j; @ ~ c ) {} // start 0
-        for ( int j; @ ~= c ) {} // start 0
-        for ( int j; @ -~ c ) {} // start c
-        for ( int j; @ -~= c ) {} // start c
-
-        for ( int j; @ ~ c ~ i ) {} // start 0
-        for ( int j; @ ~= c ~ i ) {} // start 0
-        for ( int j; @ -~ c ~ i ) {} // start c
-        for ( int j; @ -~= c ~ i ) {} // start c
-
-        for ( int j; s ~ c ) {} // start s
-        for ( int j; s ~= c ) {} // start s
-        for ( int j; s -~ c ) {} // start c
-        for ( int j; s -~= c ) {} // start c
-
-        for ( int j; s ~ c ~ i ) {} // start s
-        for ( int j; s ~= c ~ i ) {} // start s
-        for ( int j; s -~ c ~ i ) {} // start c
-        for ( int j; s -~= c ~ i ) {} // start c
-
-        for ( s ~ @ ) {} // start s
-        for ( s -~ @ ) {} // start s
-        for ( s ~ @ ~ i ) {} // start s
-        for ( s -~ @ ~ i ) {} // start s
-        for ( s ~ @ ~ @ ) {} // start s
-
-        for ( j; s ~ @ ) {} // start s
-        for ( j; s -~ @ ) {} // start s
-        for ( j; s ~ @ ~ i ) {} // start s
-        for ( j; s -~ @ ~ i ) {} // start s
-        for ( j; s ~ @ ~ @ ) {} // start s
-
-        for ( int j; s ~ @ ) {} // start s
-        for ( int j; s -~ @ ) {} // start s
-        for ( int j; s ~ @ ~ i ) {} // start s
-        for ( int j; s -~ @ ~ i ) {} // start s
-        for ( int j; s ~ @ ~ @ ) {} // start s
+        for ( j; c ) { sout | j; }                                              sout | nl;
+        for ( int j; c ) { sout | j; }                                  sout | nl;
+        for ( int j; ~= c ) { sout | j; }                               sout | nl;
+        for ( int j; -~ c ) { sout | j; }                               sout | nl;
+        for ( int j; -~= c ) { sout | j; }                              sout | nl;
+
+        for ( int j; s ~ c ) { sout | j; }                              sout | nl;
+        for ( int j; s ~= c ) { sout | j; }                             sout | nl;
+        for ( int j; s -~ c ) { sout | j; }                             sout | nl;
+        for ( int j; s -~= c ) { sout | j; }                    sout | nl;
+
+        for ( int j; s ~ c ~ i ) { sout | j; }                  sout | nl;
+        for ( int j; s ~= c ~ i ) { sout | j; }                 sout | nl;
+        for ( int j; s -~ c ~ i ) { sout | j; }                 sout | nl;
+        for ( int j; s -~= c ~ i ) { sout | j; }                sout | nl;
+
+        for ( j; s ~ @ ) { if ( j == 10 ) break; sout | j; }                            sout | nl;
+        for ( j; s -~ @ ) { if ( j == -10 ) break; sout | j; }                          sout | nl;
+        for ( j; s ~ @ ~ i ) { if ( j == 10 ) break; sout | j; }                        sout | nl;
+        for ( j; s -~ @ ~ i ) { if ( j == -10 ) break; sout | j; }                      sout | nl;
+        for ( j; s ~ @ ~ @ ) { if ( j == 10 ) break; sout | j; j += 1; }        sout | nl;
+
+        for ( int j; s ~ @ ) { if ( j == 10 ) break; sout | j; j += 1; }        sout | nl;
+        for ( int j; s -~ @ ) { if ( j == -10 ) break; sout | j; j -= 1; }      sout | nl;
+        for ( int j; s ~ @ ~ i ) { if ( j == 10 ) break; sout | j; }            sout | nl;
+        for ( int j; s -~ @ ~ i ) { if ( j == -10 ) break; sout | j; }          sout | nl;
+        for ( int j; s ~ @ ~ @ ) { if ( j == 10 ) break; sout | j; j += 1; } sout | nl;
 
         // enum E { A, B, C, D };
-        // for ( e; A ~= C ) {}
-        // for ( e; A ~= D ) {}
-        // for ( e; A -~= D ~ 2 ) {}
-        // for ( e; E ) {}
-        // for ( e; -~ E ) {}
+        // for ( e; A ~= C ) { sout | j; }
+        // for ( e; A ~= D ) { sout | j; }
+        // for ( e; A -~= D ~ 2 ) { sout | j; }
+        // for ( e; E ) { sout | j; }
+        // for ( e; -~ E ) { sout | j; }
 }
 
@@ -156 +120 @@
         for ( ~= 10 ) { sout | "A"; }                                           sout | nl;
         for ( 1 ~= 10 ~ 2 ) { sout | "B"; }                                     sout | nl;
-        for ( 10 -~= 1 ~ 2 ) { sout | "C"; }                            sout | nl;
+        for ( 1 -~= 10 ~ 2 ) { sout | "C"; }                            sout | nl;
         for ( 0.5 ~ 5.5 ) { sout | "D"; }                                       sout | nl;
-        for ( 5.5 -~ 0.5 ) { sout | "E"; }                                      sout | nl | nl;
+        for ( 0.5 -~ 5.5 ) { sout | "E"; }                                      sout | nl | nl;
 
         for ( i; 10 ) { sout | i; }                                                     sout | nl;
         for ( i; ~= 10 ) { sout | i; }                                          sout | nl;
         for ( i; 1 ~= 10 ~ 2 ) { sout | i; }                            sout | nl;
-        for ( i; 10 -~= 1 ~ 2 ) { sout | i; }                           sout | nl;
+        for ( i; 1 -~= 10 ~ 2 ) { sout | i; }                           sout | nl;
         for ( i; 0.5 ~ 5.5 ) { sout | i; }                                      sout | nl;
-        for ( i; 5.5 -~ 0.5 ) { sout | i; }                                     sout | nl;
+        for ( i; 0.5 -~ 5.5 ) { sout | i; }                                     sout | nl;
         for ( ui; 2u ~= 10u ~ 2u ) { sout | ui; }                       sout | nl;
-        for ( ui; 10u -~= 2u ~ 2u ) { sout | ui; }                      sout | nl | nl;
+        for ( ui; 2u -~= 10u ~ 2u ) { sout | ui; }                      sout | nl | nl;
 
         // @ means do nothing
@@ -200 +164 @@
         for ( N ) { sout | "N"; }                                                       sout | nl;
         for ( i; N ) { sout | i; }                                                      sout | nl;
-        for ( i; ~= N ) { sout | i; }                                           sout | nl;
-        for ( i; N -~ 0 ) { sout | i; }                                         sout | nl | nl;
+        for ( i; ~=  N ) { sout | i; }                                          sout | nl;
+        for ( i; -~= N ) { sout | i; }                                          sout | nl | nl;
 
         const int start = 3, comp = 10, inc = 2;
@@ -214 +178 @@
         for ( s; (S){0} ~= (S){10,10} ~ (S){1} ) { sout | s; } sout | nl;
         sout | nl;
-        for ( s; (S){10,10} -~ (S){0} ) { sout | s; }            sout | nl;
-        for ( s; (S){10,10} -~ (S){0} ~ (S){1} ) { sout | s; } sout | nl;
-        for ( s; (S){10,10} -~= (S){0} ) { sout | s; }           sout | nl;
-        for ( s; (S){10,10} -~= (S){0} ~ (S){1} ) { sout | s; } sout | nl | nl;
+        for ( s; (S){0} -~  (S){10,10} ) { sout | s; }           sout | nl;
+        for ( s; (S){0} -~  (S){10,10} ~ (S){1} ) { sout | s; } sout | nl;
+        for ( s; (S){0} -~= (S){10,10} ) { sout | s; }           sout | nl;
+        for ( s; (S){0} -~= (S){10,10} ~ (S){1} ) { sout | s; } sout | nl | nl;
 
         for ( i; 10 : j; -5 ~ @ ) { sout | i | j; } sout | nl;
@@ -232 +196 @@
         for ( j; -5 -~ @ ~ 2 : k; 1.5 ~ @ : i; 10 ) { sout | i | j | k; } sout | nl;
         for ( k; 1.5 ~ @ : j; -5 -~ @ ~ 2 : i; 10 ) { sout | i | j | k; } sout | nl;
+
+        fred();
 }