source: doc/theses/mike_brooks_MMath/programs/hello-accordion.cfa@ a51dc0d

#include <fstream.hfa>
#include <stdlib.hfa>
#include <array.hfa>
#include <locale.h>                                                     // setlocale





forall( T, @[NprovTerty]@, @[Nmunicipalities]@ )
struct CanPop {
        array( T, @NprovTerty@ ) provTerty; $\C{// nested VLA}$
        array( T, @Nmunicipalities@ ) municipalities; $\C{// nested VLA}$
        int total_pt, total_mun;
};


// TODO: understand (fix?) why these are needed (autogen seems to be failing ... is typeof as struct member nayok?)

forall( T, [NprovTerty], [Nmunicipalities] )
        void ?{}( T &, CanPop( T, NprovTerty, Nmunicipalities ) & this ) {}

forall( T &, [NprovTerty], [Nmunicipalities] )
        void ^?{}( CanPop( T, NprovTerty, Nmunicipalities ) & this ) {}















forall( T, [NprovTerty], [Nmunicipalities] )
void check( CanPop( 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];
}














int main( int argc, char * argv[] ) {
        const int npt = ato( argv[1] ), nmun = ato( argv[2] );
        @CanPop( 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  13  3573
Total province/territory: 36,991,981
Total municipalities: 36,991,981
$\$$ ./a.out  13  3654
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: //