mono/tests/libtest.c

   1 #include <stdio.h>
   2 #include <string.h>
   3
   4 int mono_test_many_int_arguments (int a, int b, int c, int d, int e,
   5                                   int f, int g, int h, int i, int j);
   6 short mono_test_many_short_arguments (short a, short b, short c, short d, short e,
   7                                       short f, short g, short h, short i, short j);
   8 char mono_test_many_char_arguments (char a, char b, char c, char d, char e,
   9                                     char f, char g, char h, char i, char j);
  10
  11 int
  12 mono_test_many_int_arguments (int a, int b, int c, int d, int e, int f, int g, int h, int i, int j)
  13 {
  14         return a + b + c + d + e + f + g + h + i + j;
  15 }
  16
  17 short
  18 mono_test_many_short_arguments (short a, short b, short c, short d, short e, short f, short g, short h, short i, short j)
  19 {
  20         return a + b + c + d + e + f + g + h + i + j;
  21 }
  22
  23 char
  24 mono_test_many_byte_arguments (char a, char b, char c, char d, char e, char f, char g, char h, char i, char j)
  25 {
  26         return a + b + c + d + e + f + g + h + i + j;
  27 }
  28
  29 int
  30 mono_test_puts_static (char *s)
  31 {
  32         printf ("TEST %s\n", s);
  33         return 1;
  34 }
  35
  36 typedef int (*SimpleDelegate3) (int a, int b);
  37
  38 int
  39 mono_invoke_delegate (SimpleDelegate3 delegate)
  40 {
  41         int res;
  42
  43         printf ("start invoke %p\n", delegate);
  44
  45         res = delegate (2, 3);
  46
  47         printf ("end invoke\n");
  48
  49         return res;
  50 }
  51
  52 int
  53 mono_test_marshal_char (short a1)
  54 {
  55         if (a1 = 'a')
  56                 return 0;
  57
  58         return 1;
  59 }
  60
  61 int
  62 mono_test_marshal_array (int *a1)
  63 {
  64         int i, sum = 0;
  65
  66         for (i = 0; i < 50; i++)
  67                 sum += a1 [i];
  68
  69         return sum;
  70 }
  71
  72 typedef struct {
  73         int a;
  74         int b;
  75         int c;
  76         char *d;
  77 } simplestruct;
  78
  79 simplestruct
  80 mono_test_return_vtype ()
  81 {
  82         simplestruct res;
  83
  84         res.a = 0;
  85         res.b = 1;
  86         res.c = 0;
  87         res.d = "TEST";
  88         printf ("mono_test_return_vtype\n");
  89         return res;
  90 }
  91
  92 typedef simplestruct (*ReturnVTypeDelegate) (simplestruct ss);
  93
  94 simplestruct
  95 mono_test_return_vtype2 (ReturnVTypeDelegate func)
  96 {
  97         simplestruct res;
  98         simplestruct res1;
  99
 100         res.a = 1;
 101         res.b = 0;
 102         res.c = 1;
 103         res.d = "TEST";
 104         printf ("mono_test_return_vtype2\n");
 105
 106         res1 = func (res);
 107
 108         printf ("UA: %d\n", res1.a);
 109         printf ("UB: %d\n", res1.b);
 110         printf ("UC: %d\n", res1.c);
 111         printf ("UD: %s\n", res1.d);
 112
 113         return res1;
 114 }
 115
 116 typedef char* (*ReturnStringDelegate) (char *s);
 117
 118 char *
 119 mono_test_return_string (ReturnStringDelegate func)
 120 {
 121         char *res;
 122
 123         printf ("mono_test_return_string\n");
 124
 125         res = func ("TEST");
 126
 127         printf ("got string: %s\n", res);
 128         return res;
 129 }
 130
 131 typedef int (*RefVTypeDelegate) (int a, simplestruct *ss, int b);
 132
 133 int
 134 mono_test_ref_vtype (int a, simplestruct *ss, int b, RefVTypeDelegate func)
 135 {
 136         if (a == 1 && b == 2 && ss->a == 0 && ss->b == 1 && ss->c == 0 &&
 137             !strcmp (ss->d, "TEST1")) {
 138                 ss->a = 1;
 139                 ss->b = 0;
 140                 ss->c = 1;
 141                 ss->d = "TEST2";
 142
 143                 return func (a, ss, b);
 144         }
 145
 146         return 1;
 147 }
 148
 149 typedef struct {
 150         int a;
 151         int (*func) (int);
 152 } DelegateStruct;
 153
 154 int
 155 mono_test_marshal_delegate_struct (DelegateStruct ds)
 156 {
 157         return ds.func (ds.a);
 158 }
 159
 160 int
 161 mono_test_marshal_struct (simplestruct ss)
 162 {
 163         if (ss.a == 0 && ss.b == 1 && ss.c == 0 &&
 164             !strcmp (ss.d, "TEST"))
 165                 return 0;
 166
 167         return 1;
 168 }
 169
 170
 171 typedef int (*SimpleDelegate) (int a);
 172
 173 int
 174 mono_test_marshal_delegate (SimpleDelegate delegate)
 175 {
 176         return delegate (2);
 177 }
 178
 179 typedef int (*SimpleDelegate2) (simplestruct ss);
 180
 181 int
 182 mono_test_marshal_delegate2 (SimpleDelegate2 delegate)
 183 {
 184         simplestruct ss;
 185         int res;
 186
 187         ss.a = 0;
 188         ss.b = 1;
 189         ss.c = 0;
 190         ss.d = "TEST";
 191
 192         printf ("Calling delegate from unmanaged code\n");
 193         res = delegate (ss);
 194         printf ("GOT %d\n", res);
 195
 196         return res;
 197 }
 198
 199 int
 200 mono_test_marshal_stringbuilder (char *s, int n)
 201 {
 202         const char m[] = "This is my message.  Isn't it nice?";
 203         strncpy(s, m, n);
 204         return 0;
 205 }
 206
 207 typedef struct {
 208 } EmptyStruct;
 209
 210 /* this does not work on Redhat gcc 2.96 */
 211 #if 0
 212 int
 213 mono_test_empty_struct (int a, EmptyStruct es, int b)
 214 {
 215         if (a == 1 && b == 2)
 216                 return 0;
 217         return 1;
 218 }
 219 #endif