source: src/tests/tuplePolymorphism.c @ 6250a312

//
// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// tuplePolymorphism.c --
//
// Author           : Rob Schluntz
// Created On       : Tue Nov 16 10:38:00 2016
// Last Modified By : Rob Schluntz
// Last Modified On : Tue Nov 16 10:39:18 2016
// Update Count     : 2
//

// packed is needed so that structs are not passed with the same alignment as function arguments
__attribute__((packed)) struct A {
  double x;
  char y;
  double z;
};

__attribute__((packed)) struct B {
  long long x;
  char y;
  long long z;
};

// ensure that f is a viable candidate for g, even though its parameter structure does not exactly match
[A] f([A, B] x, B y) { printf("%g %c %g %lld %c %lld %lld %c %lld\n", x.0.[x,y,z], x.1.[x,y,z], y.[x,y,z]); return x.0; }
forall(otype T, otype U | { T f(T, U, U); })
void g(T x, U y) { f(x, y, y); }

// add two triples
forall(otype T | { T ?+?(T, T); })
[T, T, T] ?+?([T, T, T] x, [T, T, T] y) {
        return [x.0+y.0, x.1+y.1, x.2+y.2];
}

int main() {
  int x1 = 123, x3 = 456;
  double x2 = 999.123;

  int i1 = 111, i3 = 222;
  double i2 = 333;

  int d1 = 555, d3 = 444;
  double d2 = 666;


  [i1, i2, i3] = ([x1, (int)x2, x3]) + ([9, 2, 3]);
  [d1, d2, d3] = ([x1, x2, x3]) + ([9, 2, 3]);
  printf("%d %g %d\n", i1, i2, i3);
  printf("%d %g %d\n", d1, d2, d3);

  [double, double, double] zzz;
  zzz = [x1, x2, x3];
  printf("%g %g %g\n", zzz);
  [x1, x2, x3] = zzz+zzz;
  printf("%d %g %d\n", x1, x2, x3);

  // ensure non-matching assertions are specialized correctly
  g((A){ 1.21, 'x', 10.21}, (B){ 1111LL, 'v', 54385938LL });
}

forall(otype T)
[T, T] foo([T, T] y) {
        [T, T] x;
        return x;
}

// Local Variables: //
// tab-width: 4 //
// End: //