source: src/tests/ctor-autogen.c@ d8893ca

// TODO: add error cases (e.g., use of field constructors for managed types, etc.)

enum Color { R, G, B };

// empty struct/union should have generated ctor/dtors
union U {};
struct S {};

struct SimpleUnion {
        int x;
        double y;
        char z;
};

struct SimpleStruct {
        int x;
        double y;
        char z;
};

// struct/union with members with generated ctor/dtors should themselves have generated ctor/dtors
union PopulatedUnion {
        Color c;
        U u;
        S s;
};

struct PopulatedStruct {
        Color c;
        U u;
        S s;
};

// dtype-static generic type is otype
forall(dtype T)
struct DtypeStaticStruct {
  T * data;
  short size;
};

forall(dtype T)
union DtypeStaticUnion {
  T * data;
  short size;
};

// dynamic generic type is otype
forall(otype T)
struct DynamicStruct {
        T x;
};

forall(otype T)
union DynamicUnion {
        T x;
};

// struct/union that contains a generic type is
struct GenericContainingStruct {
        DynamicStruct(int) dsi;
        DynamicStruct(double) dsd;
        DynamicUnion(int) dui;
        DynamicUnion(double) dud;
        DtypeStaticStruct(int) dssi;
        DtypeStaticStruct(float) dssf;
        DtypeStaticUnion(int) dsui;
        DtypeStaticUnion(float) dsuf;
};

union GenericContainingUnion {
        DynamicStruct(int) dsi;
        DynamicStruct(double) dsd;
        DynamicUnion(int) dui;
        DynamicUnion(double) dud;
        DtypeStaticStruct(int) dssi;
        DtypeStaticStruct(float) dssf;
        DtypeStaticUnion(int) dsui;
        DtypeStaticUnion(float) dsuf;
};


forall(otype T)
T identity(T x) { return x; }

// can identity e if only sized or only the assertion, but the combination breaks...
// forall(dtype T | sized(T) | { void ?{}(T &); })
// void identity(T x) {  }

#if ERR1
// managed type - defines a constructor - can't use field constructors
struct Managed {
        int x;
};

void ?{}(Managed & m) { m.x = 0; }

// managed type since it contains a managed type - can't use field constructors
struct InheritManaged {
        Managed m;
};

Managed x = { 123 }; // error
Managed y;           // okay

InheritManaged z = { y };  // error?
#endif

int main() {
        S s;
        U u;
        Color e;

        // identity(R);  Color constant should be Color which is otype
        identity(e);  // Color should be an otype
        identity(u);  // U should be an otype
        identity(s);  // S should be an otype

        SimpleStruct ss;
        SimpleUnion su;

        identity(ss);
        identity(su);

        PopulatedStruct ps;
        PopulatedUnion pu;

        identity(ps); // should recursively be an otype
        identity(pu); // should recursively be an otype

        DynamicStruct(int) dsi;
        DynamicStruct(double) dsd;
        DynamicUnion(int) dui;
        DynamicUnion(double) dud;
        DtypeStaticStruct(int) dssi;
        DtypeStaticStruct(float) dssf;
        DtypeStaticUnion(int) dsui;
        DtypeStaticUnion(float) dsuf;

        identity(dsi);
        identity(dsd);
        // identity(dui); // xxx - codegen errors in generated thunk _temp3 (Box-pass-generated assignment return-temporary)
        // identity(dud);
        identity(dssi);
        identity(dssf);
        identity(dsui);
        identity(dsuf);

        GenericContainingStruct gcs;
        GenericContainingUnion gcu;

        identity(gcs);
        identity(gcu);
}