Changes in tests/forall.cfa [aca0d2f:39d9b32]

File:

• tests/forall.cfa (modified) (11 diffs)

tests/forall.cfa

@@ -10 +10 @@
 // Created On       : Wed May  9 08:48:15 2018
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Feb 23 20:29:59 2023
-// Update Count     : 91
-//
-
-#include <fstream.hfa>
+// Last Modified On : Sat Jun  5 10:06:08 2021
+// Update Count     : 36
+//
 
 void g1() {
-        forall( T ) T f( T p ) { sout | 'f'; return p;  };
-        void f( int p ) { sout | p; };
-        void g( void ) { sout | 'g'; };
-        void h( void (*p)(void) ) { p(); };
-
-        int x = 1;
-        void (*y)(void) = g;
-        char z = 'a';
-        float w = 3.5;
+        forall( T ) T f( T ) {};
+        void f( int ) {};
+        void h( void (*p)(void) ) {};
+
+        int x;
+        void (*y)(void);
+        char z;
+        float w;
 
         f( x );
@@ -31 +28 @@
         f( z );
         f( w );
-        h( y );
-        f( y );
         h( f( y ) );
 }
 
 void g2() {
-        forall( T ) void f( T, T ) { sout | "fT"; }
-        forall( T, U ) void f( T, U ) { sout | "fTU"; }
+        forall( T ) void f( T, T ) {}
+        forall( T, U ) void f( T, U ) {}
 
         int x;
         float y;
-        int * z;
-        float * w;
-
-        f( x, x );
-        f( y, y );
-        f( w, w );
+        int *z;
+        float *w;
+
         f( x, y );
         f( z, w );
@@ -58 +50 @@
 
 forall( T )
-void swap( T & left, T & right ) {                                              // by reference
-    T temp = left;
-    left = right;
-    right = temp;
-}
-
-forall( T )
-[ T, T ] swap( T i, T j ) {                                                             // by value
-    return [ j, i ];
-}
-
-forall( T ) trait sumable {
+void swap( T left, T right ) {
+        T temp = left;
+        left = right;
+        right = temp;
+}
+
+trait sumable( T ) {
         void ?{}( T &, zero_t );                                                        // 0 literal constructor
         T ?+?( T, T );                                                                          // assortment of additions
@@ -77 +64 @@
 }; // sumable
 
-forall( T | sumable( T ) )                                                              // use trait
+forall( T | sumable( T ) )                                              // use trait
 T sum( size_t size, T a[] ) {
         T total = 0;                                                                            // initialize by 0 constructor
@@ -85 +72 @@
 } // sum
 
-forall( T | { T ?+?( T, T ); T ?++( T & ); [T] ?+=?( T &, T ); } )
+forall( T | { T ?+?( T, T ); T ?++( T & ); [T] ?+=?( T &,T ); } )
 T twice( T t ) {
         return t + t;
@@ -95 +82 @@
 }
 
-void fred() {
-        int x = 1, y = 2, a[10] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 };
+int fred() {
+        int x = 1, y = 2, a[10];
         float f;
 
-        sout | x | y;
         swap( x, y );
-        sout | x | y | nl | swap( x, y );
-        // [ x, y ] = swap( y, x );
-        sout | twice( ' ' ) | ' ' | twice( 0hh ) | twice( 1h ) | twice( 0n ) | twice( 2 )
-                 | twice( 3.2f ) | twice( 3.2 ) | twice( 3.2d ) | twice( 3.2+1.5i ) | twice( x );
+        twice( x );
         f = min( 4.0, 3.0 );
-        sout | f | min( 4.0, 3.0 );
-        sout | sum( 10, a );
+        sum( 10, a );
 }
 
@@ -195 +177 @@
 
 forall( T ) struct S { T t; } (int) x, y, z;
-static forall( T ) struct { T t; } (int) a, b, c;
+forall( T ) struct { T t; } (int) a, b, c;
 
 forall( T ) static forall( S ) {
@@ -204 +186 @@
 
 forall( T ) {
-//      extern "C" {
+        extern "C" {
                 struct SS { T t; };
-                T foo( T p ) { return p; }
-//      }
+                T foo( T ) {}
+        }
 }
 
@@ -213 +195 @@
 W(int,int) w;
 
-void jane() {
+int jane() {
 //      int j = bar( 3, 4 );
         int k = baz( 3, 4, 5 );
         int i = foo( 3 );
-        sout | k | i;
 }
 
@@ -230 +211 @@
         T t;
         T t2 = t;
-        sout | &tr | tp;
 }
 
@@ -262 +242 @@
 
 int main( void ) {
-        g1();
-        g2();
-        fred();
-        jane();
+    #pragma GCC warning "Compiled"                      // force non-empty .expect file, NO TABS!!!
 }