Changes in libcfa/src/bits/sequence_example.cfa [b37515b:5e82d56]

File:

• libcfa/src/bits/sequence_example.cfa (modified) (3 diffs)

libcfa/src/bits/sequence_example.cfa

@@ -17 +17 @@
         Sequence(Fred) fred;
         SeqIter(Fred) fredIter = { fred };
-        Fred & f;
+        Fred * f;
+        int i;
 
         sout | nlOff;                                                                           // turn off auto newline
 
         for ( ; fredIter >> f; ) {                                                      // empty list
-                sout | f.i | ' ';
+                sout | f->i | ' ';
         }
         sout | "empty" | nl;
         
-        for ( i; 10 ) {
-                add( fred, *new( 2 * i ) );
+        for ( i = 0; i < 10; i += 1 ) {
+                add( fred, new( 2 * i ) );
         }
 
-        for ( SeqIter(Fred) iter = { fred }; iter >> f; ) {
-                sout | f.i | ' ';
+        for ( over( fredIter, fred ); fredIter >> f; ) {
+                sout | f->i | ' ';
         }
         sout | nl;
 
-        for ( i; 9 ) {
-                delete( &dropHead( fred ) );
+        for ( i = 0; i < 9; i += 1 ) {
+                delete( dropHead( fred ) );
         }
 
         for ( over( fredIter, fred ); fredIter >> f; ) {
-                sout | f.i | ' ';
+                sout | f->i | ' ';
         }
         sout | nl;
         
-        for ( i; 10 ) {
-                addTail( fred, *new( 2 * i + 1 ) );
+        for ( i = 0; i < 10; i += 1 ) {
+                addTail( fred, new( 2 * i + 1 ) );
         }
         for ( over( fredIter, fred ); fredIter >> f; ) {
-                sout | f.i | ' ';
+                sout | f->i | ' ';
         }
         sout | nl;
 
-        for ( i; 9 ) {
-                delete( &dropTail( fred ) );
+        for ( i = 0; i < 9; i += 1 ) {
+                delete( dropTail( fred ) );
         }
         for ( over( fredIter, fred ); fredIter >> f; ) {
-                sout | f.i | ' ';
+                sout | f->i | ' ';
         }
         sout | nl;
 
         for ( over( fredIter, fred ); fredIter >> f; ) {
-                delete( &f );
+                delete( f );
         }
 
@@ -79 +80 @@
         Sequence(Mary) baz;
         SeqIter(Mary) maryIter = { mary };
-        Mary & m;
+        Mary * m;
 
         for ( ; maryIter >> m; ) {                                                      // empty list
-                sout | m.i | m.j | ' ';
+                sout | m->i | m->j | ' ';
         }
         sout | "empty" | nl;
         
-        for ( i; 10 ) {
-                add( mary, *new( 2 * i ) );
-                add( baz, *new( 2 * i ) );
+        for ( i = 0; i < 10; i += 1 ) {
+                add( mary, new( 2 * i ) );
+                add( baz, new( 2 * i ) );
         }
 
-        for ( SeqIter(Mary) iter = { mary }; iter >> m; ) {
-                sout | m.i | m.j | ' ';
+        for ( over( maryIter, mary ); maryIter >> m; ) {
+                sout | m->i | m->j | ' ';
         }
         sout | nl;
         
-        for ( i; 9 ) {
-                delete( &dropHead( mary ) );
+        for ( i = 0; i < 9; i += 1 ) {
+                delete( dropHead( mary ) );
         }
 
         for ( over( maryIter, mary ); maryIter >> m; ) {
-                sout | m.i | m.j | ' ';
+                sout | m->i | m->j | ' ';
         }
         sout | nl;
         
-        for ( i; 10 ) {
-                addTail( mary, *new( 2 * i + 1 ) );
+        for ( i = 0; i < 10; i += 1 ) {
+                addTail( mary, new( 2 * i + 1 ) );
         }
         for ( over( maryIter, mary ); maryIter >> m; ) {
-                sout | m.i | m.j | ' ';
+                sout | m->i | m->j | ' ';
         }
         sout | nl;
 
-        for ( i; 9 ) {
-                delete( &dropTail( mary ) );
+        for ( i = 0; i < 9; i += 1 ) {
+                delete( dropTail( mary ) );
         }
         for ( over( maryIter, mary ); maryIter >> m; ) {
-                sout | m.i | m.j | ' ';
+                sout | m->i | m->j | ' ';
         }
         sout | nl;
@@ -124 +125 @@
 
         for ( over( maryIter, baz ); maryIter >> m; ) {
-                sout | m.i | m.j | ' ';
+                sout | m->i | m->j | ' ';
         }
         sout | "empty" | nl;
 
         for ( over( maryIter, mary ); maryIter >> m; ) {
-                sout | m.i | m.j | ' ';
+                sout | m->i | m->j | ' ';
         }
         sout | nl;
 
         for ( over( maryIter, mary ); maryIter >> m; ) {
-                delete( &m );
+                delete( m );
         }
 }
 
 // Local Variables: //
-// compile-command: "cfa sequence_example.cfa" //
+// compile-command: "cfa sequence_example.cc" //
 // End: //