source: src/tests/tupleVariadic.c @ 0c286cf

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc
Last change on this file since 0c286cf was 0c286cf, checked in by Rob Schluntz <rschlunt@…>, 7 years ago

update tupleVariadic test for nullary and unary cases

  • Property mode set to 100644
File size: 2.0 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// tuplePolymorphism.c --
8//
9// Author           : Rob Schluntz
10// Created On       : Fri Dec 16 10:25:35 2016
11// Last Modified By : Rob Schluntz
12// Last Modified On : Fri Dec 21 14:42:48 2016
13// Update Count     : 2
14//
15
16forall(otype T) T * malloc();
17
18forall(otype T, ttype Params | sized(T) | { void ?{}(T *, Params); })
19T * new(Params p) {
20        return ((T*)malloc()){ p };
21}
22
23struct array {
24        int * data;
25        int size;
26};
27
28// xxx - eventually this will be collapsed...x
29void ?{}(array * a) {
30        a->size = 0;
31        a->data = 0;
32        printf("called ?{} with no a\n");
33}
34
35void ?{}(array * a, int a0) {
36        a->size = 1;
37        a->data = (int*)malloc(sizeof(int)*a->size);
38        a->data[0] = a0;
39        printf("called ?{} with a: %d\n", a0);
40}
41
42void ?{}(array * a, int a0, int a1) {
43        a->size = 2;
44        a->data = (int*)malloc(sizeof(int)*a->size);
45        a->data[0] = a0;
46        a->data[1] = a1;
47        printf("called ?{} with a: %d %d\n", a0, a1);
48}
49
50void ?{}(array * a, int a0, int a1, int a2) {
51        a->size = 3;
52        a->data = (int*)malloc(sizeof(int)*a->size);
53        a->data[0] = a0;
54        a->data[1] = a1;
55        a->data[2] = a2;
56        printf("called ?{} with a: %d %d %d\n", a0, a1, a2);
57}
58
59// test use of a tuple argument
60[void] ?{}(array * a, [int, int, int, int] args) {
61        int a0, a1, a2, a3;
62        [a0, a1, a2, a3] = args;
63        a->size = 4;
64        a->data = malloc(sizeof(int)*a->size);
65        a->data[0] = a0;
66        a->data[1] = a1;
67        a->data[2] = a2;
68        a->data[3] = a3;
69        printf("called ?{} with a: %d %d %d %d\n", a0, a1, a2, a3);
70}
71
72void print(array * x) {
73        printf("array = { ");
74        for (int i = 0; i < x->size; ++i) {
75                printf("%d, ", x->data[i]);
76        }
77        printf("}\n");
78}
79
80int main() {
81        array * x0 = new();
82        print(x0);
83
84        array * x1 = new(999);
85        print(x1);
86
87        array * x2 = new(123, 456);
88        print(x2);
89
90        array * x3 = new(100, 200, 300);
91        print(x3);
92
93        array * x4 = new(10, 2, 3, 4);
94        print(x4);
95}
96
97// Local Variables: //
98// tab-width: 4 //
99// End: //
100
Note: See TracBrowser for help on using the repository browser.