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
  89         return res;
  90 }
  91
  92 typedef int (*RefVTypeDelegate) (int a, simplestruct *ss, int b);
  93
  94 int
  95 mono_test_ref_vtype (int a, simplestruct *ss, int b, RefVTypeDelegate func)
  96 {
  97         if (a == 1 && b == 2 && ss->a == 0 && ss->b == 1 && ss->c == 0 &&
  98             !strcmp (ss->d, "TEST1")) {
  99                 ss->a = 1;
 100                 ss->b = 0;
 101                 ss->c = 1;
 102                 ss->d = "TEST2";
 103
 104                 return func (a, ss, b);
 105         }
 106
 107         return 1;
 108 }
 109
 110 int
 111 mono_test_marshal_struct (simplestruct ss)
 112 {
 113         if (ss.a == 0 && ss.b == 1 && ss.c == 0 &&
 114             !strcmp (ss.d, "TEST"))
 115                 return 0;
 116
 117         return 1;
 118 }
 119
 120
 121 typedef int (*SimpleDelegate) (int a);
 122
 123 int
 124 mono_test_marshal_delegate (SimpleDelegate delegate)
 125 {
 126         return delegate (2);
 127 }
 128
 129 typedef int (*SimpleDelegate2) (simplestruct ss);
 130
 131 int
 132 mono_test_marshal_delegate2 (SimpleDelegate2 delegate)
 133 {
 134         simplestruct ss;
 135
 136         ss.a = 0;
 137         ss.b = 1;
 138         ss.c = 0;
 139         ss.d = "TEST";
 140
 141         return delegate (ss);
 142 }
 143
 144 int
 145 mono_test_marshal_stringbuilder (char *s, int n)
 146 {
 147         const char m[] = "This is my message.  Isn't it nice?";
 148         strncpy(s, m, n);
 149         return 0;
 150 }
 151
 152 typedef struct {
 153 } EmptyStruct;
 154
 155 int
 156 mono_test_empty_struct (int a, EmptyStruct es, int b)
 157 {
 158         if (a == 1 && b == 2)
 159                 return 0;
 160         return 1;
 161 }