1*1fd5a2e1SPrashanth Swaminathan/* -*-c-*- */ 2*1fd5a2e1SPrashanth Swaminathan#include "ffitest.h" 3*1fd5a2e1SPrashanth Swaminathan#include <stdio.h> 4*1fd5a2e1SPrashanth Swaminathan#include <stdlib.h> 5*1fd5a2e1SPrashanth Swaminathan#include <stdarg.h> 6*1fd5a2e1SPrashanth Swaminathan#include <complex.h> 7*1fd5a2e1SPrashanth Swaminathan 8*1fd5a2e1SPrashanth Swaminathanstatic _Complex T_C_TYPE gComplexValue1 = 1 + 2 * I; 9*1fd5a2e1SPrashanth Swaminathanstatic _Complex T_C_TYPE gComplexValue2 = 3 + 4 * I; 10*1fd5a2e1SPrashanth Swaminathan 11*1fd5a2e1SPrashanth Swaminathanstatic int cls_variadic(const char *format, ...) 12*1fd5a2e1SPrashanth Swaminathan{ 13*1fd5a2e1SPrashanth Swaminathan va_list ap; 14*1fd5a2e1SPrashanth Swaminathan _Complex T_C_TYPE p1, p2; 15*1fd5a2e1SPrashanth Swaminathan 16*1fd5a2e1SPrashanth Swaminathan va_start (ap, format); 17*1fd5a2e1SPrashanth Swaminathan p1 = va_arg (ap, _Complex T_C_TYPE); 18*1fd5a2e1SPrashanth Swaminathan p2 = va_arg (ap, _Complex T_C_TYPE); 19*1fd5a2e1SPrashanth Swaminathan va_end (ap); 20*1fd5a2e1SPrashanth Swaminathan 21*1fd5a2e1SPrashanth Swaminathan return printf(format, T_CONV creal (p1), T_CONV cimag (p1), 22*1fd5a2e1SPrashanth Swaminathan T_CONV creal (p2), T_CONV cimag (p2)); 23*1fd5a2e1SPrashanth Swaminathan} 24*1fd5a2e1SPrashanth Swaminathan 25*1fd5a2e1SPrashanth Swaminathanstatic void 26*1fd5a2e1SPrashanth Swaminathancls_complex_va_fn(ffi_cif* cif __UNUSED__, void* resp, 27*1fd5a2e1SPrashanth Swaminathan void** args, void* userdata __UNUSED__) 28*1fd5a2e1SPrashanth Swaminathan{ 29*1fd5a2e1SPrashanth Swaminathan char* format = *(char**)args[0]; 30*1fd5a2e1SPrashanth Swaminathan gComplexValue1 = *(_Complex T_C_TYPE*)args[1]; 31*1fd5a2e1SPrashanth Swaminathan gComplexValue2 = *(_Complex T_C_TYPE*)args[2]; 32*1fd5a2e1SPrashanth Swaminathan 33*1fd5a2e1SPrashanth Swaminathan *(ffi_arg*)resp = 34*1fd5a2e1SPrashanth Swaminathan printf(format, 35*1fd5a2e1SPrashanth Swaminathan T_CONV creal (gComplexValue1), T_CONV cimag (gComplexValue1), 36*1fd5a2e1SPrashanth Swaminathan T_CONV creal (gComplexValue2), T_CONV cimag (gComplexValue2)); 37*1fd5a2e1SPrashanth Swaminathan} 38*1fd5a2e1SPrashanth Swaminathan 39*1fd5a2e1SPrashanth Swaminathanint main (void) 40*1fd5a2e1SPrashanth Swaminathan{ 41*1fd5a2e1SPrashanth Swaminathan ffi_cif cif; 42*1fd5a2e1SPrashanth Swaminathan void *code; 43*1fd5a2e1SPrashanth Swaminathan ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); 44*1fd5a2e1SPrashanth Swaminathan void* args[4]; 45*1fd5a2e1SPrashanth Swaminathan ffi_type* arg_types[4]; 46*1fd5a2e1SPrashanth Swaminathan char *format = "%.1f,%.1fi %.1f,%.1fi\n"; 47*1fd5a2e1SPrashanth Swaminathan 48*1fd5a2e1SPrashanth Swaminathan _Complex T_C_TYPE complexArg1 = 1.0 + 22.0 *I; 49*1fd5a2e1SPrashanth Swaminathan _Complex T_C_TYPE complexArg2 = 333.0 + 4444.0 *I; 50*1fd5a2e1SPrashanth Swaminathan ffi_arg res = 0; 51*1fd5a2e1SPrashanth Swaminathan 52*1fd5a2e1SPrashanth Swaminathan arg_types[0] = &ffi_type_pointer; 53*1fd5a2e1SPrashanth Swaminathan arg_types[1] = &T_FFI_TYPE; 54*1fd5a2e1SPrashanth Swaminathan arg_types[2] = &T_FFI_TYPE; 55*1fd5a2e1SPrashanth Swaminathan arg_types[3] = NULL; 56*1fd5a2e1SPrashanth Swaminathan 57*1fd5a2e1SPrashanth Swaminathan /* This printf call is variadic */ 58*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 3, &ffi_type_sint, 59*1fd5a2e1SPrashanth Swaminathan arg_types) == FFI_OK); 60*1fd5a2e1SPrashanth Swaminathan 61*1fd5a2e1SPrashanth Swaminathan args[0] = &format; 62*1fd5a2e1SPrashanth Swaminathan args[1] = &complexArg1; 63*1fd5a2e1SPrashanth Swaminathan args[2] = &complexArg2; 64*1fd5a2e1SPrashanth Swaminathan args[3] = NULL; 65*1fd5a2e1SPrashanth Swaminathan 66*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(cls_variadic), &res, args); 67*1fd5a2e1SPrashanth Swaminathan printf("res: %d\n", (int) res); 68*1fd5a2e1SPrashanth Swaminathan CHECK (res == 24); 69*1fd5a2e1SPrashanth Swaminathan 70*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_closure_loc(pcl, &cif, cls_complex_va_fn, NULL, code) 71*1fd5a2e1SPrashanth Swaminathan == FFI_OK); 72*1fd5a2e1SPrashanth Swaminathan 73*1fd5a2e1SPrashanth Swaminathan res = ((int(*)(char *, ...))(code))(format, complexArg1, complexArg2); 74*1fd5a2e1SPrashanth Swaminathan CHECK (gComplexValue1 == complexArg1); 75*1fd5a2e1SPrashanth Swaminathan CHECK (gComplexValue2 == complexArg2); 76*1fd5a2e1SPrashanth Swaminathan printf("res: %d\n", (int) res); 77*1fd5a2e1SPrashanth Swaminathan CHECK (res == 24); 78*1fd5a2e1SPrashanth Swaminathan 79*1fd5a2e1SPrashanth Swaminathan exit(0); 80*1fd5a2e1SPrashanth Swaminathan} 81