Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • tests/coroutine/fmtLines.cfa

    rf8cd310 r107b01a  
    1010// Created On       : Sun Sep 17 21:56:15 2017
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Fri Mar 22 13:41:16 2019
    13 // Update Count     : 58
     12// Last Modified On : Wed Dec 12 22:45:36 2018
     13// Update Count     : 48
    1414//
    1515
     
    2424void main( Format & fmt ) with( fmt ) {
    2525        for () {                                                                                        // for as many characters
    26                 for ( g = 0; g < 5; g += 1 ) {                                  // groups of 5 blocks
    27                         for ( b = 0; b < 4; b += 1 ) {                          // blocks of 4 characters
     26                for ( g; 5 ) {                                                                  // groups of 5 blocks
     27                        for ( b; 4 ) {                                                          // blocks of 4 characters
    2828                                for () {                                                                // for newline characters
    2929                                        suspend();
    30                                   if ( ch != '\n' ) break;                              // ignore newline
     30                                        if ( ch != '\n' ) break;                        // ignore newline
    3131                                } // for
    3232                                sout | ch;                                                              // print character
     
    6363// Local Variables: //
    6464// tab-width: 4 //
    65 // compile-command: "cfa fmtLines.cfa" //
     65// compile-command: "cfa fmtLines.c" //
    6666// End: //
Note: See TracChangeset for help on using the changeset viewer.