source: doc/theses/jiada_liang_MMath/test1.cfa @ b59c21a

#include <fstream.hfa>                                                                  // sout
#include <stdlib.hfa>                                                                   // ato

// integral
enum Letter {
        A = 'A', B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z,
        a = 'a', b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
};
enum( Letter ) Greek { Alph = A, Beta = B, Gamma = G, /* more enums */ Zeta = Z }; // alphabet intersection

enum( char ) Currency { Dollar = '$', Cent = '¢', Yen = '¥', Pound = '£', Euro = 'E' }; // iso-latin-1
enum( Currency ) Europe { Euro = Currency.Euro, Pound = Currency.Pound };

enum( signed char ) srgb { Red = -1, Green = 0, Blue = 1 };
enum( long long int ) BigNum { X = 123_456_789_012_345,  Y = 345_012_789_456_123 };
// non-integral
enum( double ) Math { PI_2 = 1.570796, PI = 3.141597, E = 2.718282 };
enum( _Complex ) Plane { X = 1.5+3.4i, Y = 7+3i, Z = 0+0.5i };
// pointer
enum( const char * ) Name { Fred = "FRED", Mary = "MARY", Jane = "JANE" };
int i, j, k;
enum( int * ) ptr { I = &i,  J = &j,  K = &k };
//enum( int & ) ref { I = i,   J = j,   K = k };
// tuple
//enum( [int, int] ) { T = [ 1, 2 ] };
// function
void f() {}   void g() {}
enum( void (*)() ) funs { F = f,  G = g };
// aggregate
struct Person { char * name; int age, height; };
enum( Person ) friends { Liz = { "ELIZABETH", 22, 170 }, //Beth = Liz,
                                                 Jon = { "Jonathan", 35, 190 } };

enum() Mode { O_RDONLY, O_WRONLY, O_CREAT, O_TRUNC, O_APPEND };
Mode iomode = O_RDONLY;
//bool b = iomode == O_RDONLY || iomode < O_APPEND;     // disallowed
//int www = iomode;     // disallowed

enum( char * ) Colour { Red = "red", Green = "green", Blue = "blue"  };

void fred() {
Letter letter = A;
Greek greek = Beta;
letter = Beta;                                                  // allowed, letter == B
//greek = A;                                                            // disallowed

        for ( Greek l = Alph; posn(l) <= posn(Gamma); l = succ( l ) ) {
                printf( "%s %c %d\n", label( l ), value( l ), posn( l ) );
        }
        for ( Currency c = Dollar; posn(c) <= posn(Currency.Euro); c = succ( c ) ) {
                printf( "%s %c %d\n", label( c ), value( c ), posn( c ) );
        }
}


enum( char * ) Names { Fred = "FRED", Mary = "MARY", Jane = "JANE" };
enum( char * ) Names2 { inline Names, Jack = "JACK", Jill = "JILL" };
enum( char * ) Names3 { inline Names2, Sue = "SUE", Tom = "TOM" };

void f( Names n ) { sout | "Name" | posn( n ); }
void g( Names2 );
void h( Names3 );
void j( char * );

enum color { red, blue, green };
//color c = 0;
//color c = 1;
color c = 2;
int w = red;

// enum(int) Week ! { Mon, Tue, Wed, Thu = 10, Fri, Sat, Sun };
// enum(int) RGB ! { Red, Green, Blue };

// void foo() {
//      with ( Week, RGB ) {
//              weekday = Sun;
//              rgb = Green;
//      }
// }

int main() {
        fred();
        Names name = Fred;
//      f( name );

        int jane_pos = posn( Names.Jane );
        char * jane_value = value( Names.Jane );
        char * jane_label = label( Names.Jane );
        sout | Names.Jane | posn( Names.Jane) | label( Names.Jane ) | value( Names.Jane );
}