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

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





forall( [C], [S] ) $\C{// Class size, Students in class}$
struct School {
        @array( int, C )@ classIds; $\C{// nested VLAs}$
        @array( int, S )@ studentIds;
        @array( int, C, S )@ preferences; $\C{// multidimensional}$
};



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

forall( [C], [S] )
void ?{}( School( C, S ) & this ) {}

forall( [C], [S] )
        void ^?{}( School( C, S ) & this ) {}














forall( [C], [S] )
void init( @School( C, S ) & classes@, int class, int student, int pref ) with( classes ) {
        classIds[class] = class; $\C{// handle dynamic offsets of fields within structure}$
        studentIds[student] = student;
        preferences[class][student] = pref;
}














int main() {
        int classes, students;
        sin | classes | students;
        @School( classes, students ) school;@
        int class, student, preference;
        // read data into school calling init
        // for each student's class/preferences
        try {
                for ( ) {
                        sin | class | student | preference;
                        init( school, class, student, preference );
                }
        } catch( end_of_file * ) {}
        for ( s; students ) {
                sout | "student" | s | nonl;
                for ( c; classes ) {
                        sout | school.preferences[c][s] | nonl;
                }
                sout | nl;
        }
}



/*
$\$$ cat school1
2 2
0 0 1
1 0 7
0 1 12
1 1 13
$\$$ a.out < school1
student 0 1 7
student 1 12 13

$\$$ cat school2
3 3
0 0 1
1 0 7
2 0 8
0 1 12
1 1 13
2 1 14
0 2 26
1 2 27
2 2 28
$\$$ a.out < school2
student 0 1 7 8
student 1 12 13 14
student 2 26 27 28
*/

// Local Variables: //
// compile-command: "sed -f sedcmd hello-accordion.cfa > ../build/tmp.cfa; cfa ../build/tmp.cfa -Wall -Wextra" //
// End: //