Changeset dbff8ec for doc/theses/mike_brooks_MMath/programs/hello-accordion.cfa

Timestamp:

Jul 10, 2024, 3:39:37 AM (21 months ago)

Author:

JiadaL <j82liang@…>

Branches:

master, stuck-waitfor-destruct

Children:

725f777f

Parents:

bb336a6 (diff), f3811df (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

File:

• doc/theses/mike_brooks_MMath/programs/hello-accordion.cfa (modified) (5 diffs)

doc/theses/mike_brooks_MMath/programs/hello-accordion.cfa

@@ -2 +2 @@
 #include <stdlib.hfa>
 #include <array.hfa>
+#include <locale.h>                                                     // setlocale
 
 
@@ -7 +8 @@
 
 
-
-
-forall( T, [Nclients], [Ncosts] )
-struct request {
-        unsigned int requestor_id;
-        array( T, Nclients ) impacted_client_ids; // nested VLA
-        array( float, Ncosts ) cost_contribs; // nested VLA
-        float total_cost;
+forall( T, @[NprovTerty]@, @[Nmunicipalities]@ )
+struct CanadaPop {
+        array( T, @NprovTerty@ ) provTerty; $\C{// nested VLA}$
+        array( T, @Nmunicipalities@ ) municipalities; $\C{// nested VLA}$
+        int total_pt, total_mun;
 };
 
@@ -20 +18 @@
 // TODO: understand (fix?) why these are needed (autogen seems to be failing ... is typeof as struct member nayok?)
 
-forall( T, [Nclients], [Ncosts] )
-        void ?{}( T &, request( T, Nclients, Ncosts ) & this ) {}
+forall( T, [NprovTerty], [Nmunicipalities] )
+        void ?{}( T &, CanadaPop( T, NprovTerty, Nmunicipalities ) & this ) {}
 
-forall( T &, [Nclients], [Ncosts] )
-        void ^?{}( request( T, Nclients, Ncosts ) & this ) {}
+forall( T &, [NprovTerty], [Nmunicipalities] )
+        void ^?{}( CanadaPop( T, NprovTerty, Nmunicipalities ) & this ) {}
 
 
@@ -39 +37 @@
 
 
-forall( T, [Nclients], [Ncosts] )
-void summarize( request( T, Nclients, Ncosts ) & r ) {
-        r.total_cost = 0;
-        for( i; Ncosts )
-                r.total_cost += r.cost_contribs[i];
-        // say the cost is per-client, to make output vary
-        r.total_cost *= Nclients;
+
+forall( T, [NprovTerty], [Nmunicipalities] )
+void check( CanadaPop( T, NprovTerty, Nmunicipalities ) & pop ) with( pop ) {
+        total_pt = total_mun = 0;
+        for ( i; NprovTerty ) total_pt += provTerty[i];
+        for ( i; Nmunicipalities ) total_mun += municipalities[i];
 }
 
@@ -59 +56 @@
 
 
+
+
 int main( int argc, char * argv[] ) {
-        const int ncl = ato( argv[1] );
-        const int nco = 2;
-
-        request( int, ncl, nco ) r;
-        r.cost_contribs[0] = 100;
-        r.cost_contribs[1] = 0.1;
-
-        summarize(r);
-        sout | "Total cost:" | r.total_cost;
+        const int npt = ato( argv[1] ), nmun = ato( argv[2] );
+        @CanadaPop( int, npt, nmun ) pop;@
+        // read in population numbers
+        @check( pop );@
+        sout | setlocale( LC_NUMERIC, getenv( "LANG" ) );
+        sout | "Total province/territory:" | pop.total_pt;
+        sout | "Total municipalities:" | pop.total_mun;
 }
 /*
-$\$$ ./a.out 5
-Total cost: 500.5
-$\$$ ./a.out 6
-Total cost: 600.6
+$\$$ ./a.out  13  3573
+Total province/territory: 36,991,981
+Total municipalities: 36,991,981
 */
+
+// Local Variables: //
+// compile-command: "sed -f sedcmd hello-accordion.cfa > ../build/tmp.cfa; cfa ../build/tmp.cfa -Wall -Wextra" //
+// End: //