github.com/prattmic/llgo-embedded@v0.0.0-20150820070356-41cfecea0e1e/third_party/gofrontend/libffi/testsuite/libffi.call/pyobjc-tc.c (about)

     1  /* Area:	ffi_call
     2     Purpose:	Check different structures.
     3     Limitations:	none.
     4     PR:		none.
     5     Originator:	Ronald Oussoren <oussoren@cistron.nl> 20030824	*/
     6  
     7  /* { dg-do run } */
     8  #include "ffitest.h"
     9  
    10  typedef struct Point {
    11  	float x;
    12  	float y;
    13  } Point;
    14  
    15  typedef struct Size {
    16  	float h;
    17  	float w;
    18  } Size;
    19  
    20  typedef struct Rect {
    21  	Point o;
    22  	Size  s;
    23  } Rect;
    24  
    25  int doit(int o, char* s, Point p, Rect r, int last)
    26  {
    27  	printf("CALLED WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
    28  		o, s, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, last);
    29  	return 42;
    30  }
    31  
    32  
    33  int main(void)
    34  {
    35  	ffi_type point_type;
    36  	ffi_type size_type;
    37  	ffi_type rect_type;
    38  	ffi_cif cif;
    39  	ffi_type* arglist[6];
    40  	void* values[6];
    41  	int r;
    42  
    43  	/*
    44  	 *  First set up FFI types for the 3 struct types
    45  	 */
    46  
    47  	point_type.size = 0; /*sizeof(Point);*/
    48  	point_type.alignment = 0; /*__alignof__(Point);*/
    49  	point_type.type = FFI_TYPE_STRUCT;
    50  	point_type.elements = malloc(3 * sizeof(ffi_type*));
    51  	point_type.elements[0] = &ffi_type_float;
    52  	point_type.elements[1] = &ffi_type_float;
    53  	point_type.elements[2] = NULL;
    54  
    55  	size_type.size = 0;/* sizeof(Size);*/
    56  	size_type.alignment = 0;/* __alignof__(Size);*/
    57  	size_type.type = FFI_TYPE_STRUCT;
    58  	size_type.elements = malloc(3 * sizeof(ffi_type*));
    59  	size_type.elements[0] = &ffi_type_float;
    60  	size_type.elements[1] = &ffi_type_float;
    61  	size_type.elements[2] = NULL;
    62  
    63  	rect_type.size = 0;/*sizeof(Rect);*/
    64  	rect_type.alignment =0;/* __alignof__(Rect);*/
    65  	rect_type.type = FFI_TYPE_STRUCT;
    66  	rect_type.elements = malloc(3 * sizeof(ffi_type*));
    67  	rect_type.elements[0] = &point_type;
    68  	rect_type.elements[1] = &size_type;
    69  	rect_type.elements[2] = NULL;
    70  
    71  	/*
    72  	 * Create a CIF
    73  	 */
    74  	arglist[0] = &ffi_type_sint;
    75  	arglist[1] = &ffi_type_pointer;
    76  	arglist[2] = &point_type;
    77  	arglist[3] = &rect_type;
    78  	arglist[4] = &ffi_type_sint;
    79  	arglist[5] = NULL;
    80  
    81  	r = ffi_prep_cif(&cif, FFI_DEFAULT_ABI,
    82  			5, &ffi_type_sint, arglist);
    83  	if (r != FFI_OK) {
    84  		abort();
    85  	}
    86  
    87  
    88  	/* And call the function through the CIF */
    89  
    90  	{
    91  	Point p = { 1.0, 2.0 };
    92  	Rect  r = { { 9.0, 10.0}, { -1.0, -2.0 } };
    93  	int   o = 0;
    94  	int   l = 42;
    95  	char* m = "myMethod";
    96  	ffi_arg result;
    97  
    98  	values[0] = &o;
    99  	values[1] = &m;
   100  	values[2] = &p;
   101  	values[3] = &r;
   102  	values[4] = &l;
   103  	values[5] = NULL;
   104  
   105  	printf("CALLING WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
   106  		o, m, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, l);
   107  
   108  	ffi_call(&cif, FFI_FN(doit), &result, values);
   109  
   110  	printf ("The result is %d\n", (int)result);
   111  
   112  	}
   113  	exit(0);
   114  }