sig/ffi_type.cpp

   1 #include "minimal/stdlib.h"
   2
   3 #include "sig/ffi_type.hpp"
   4 #include "sig/types.hpp"
   5
   6 #define ffi_type_slonglong ffi_type_sint64
   7 #define ffi_type_ulonglong ffi_type_uint64
   8
   9 namespace sig {
  10
  11 void sig_ffi_types(
  12     apr_pool_t *pool,
  13     ffi_type *(*sig_ffi_type)(apr_pool_t *, struct Type *),
  14     struct Signature *signature,
  15     ffi_type **types,
  16     size_t skip = 0,
  17     size_t offset = 0
  18 ) {
  19     _assert(signature->count >= skip);
  20     for (size_t index = skip; index != signature->count; ++index)
  21         types[index - skip + offset] = (*sig_ffi_type)(pool, signature->elements[index].type);
  22 }
  23
  24 ffi_type *ObjectiveC(apr_pool_t *pool, struct Type *type) {
  25     switch (type->primitive) {
  26         case typename_P: return &ffi_type_pointer;
  27
  28         case union_P:
  29             /* XXX: we can totally make this work */
  30             _assert(false);
  31         break;
  32
  33         case string_P: return &ffi_type_pointer;
  34         case selector_P: return &ffi_type_pointer;
  35         case object_P: return &ffi_type_pointer;
  36         case boolean_P: return &ffi_type_uchar;
  37         case uchar_P: return &ffi_type_uchar;
  38         case uint_P: return &ffi_type_uint;
  39         case ulong_P: return &ffi_type_ulong;
  40         case ulonglong_P: return &ffi_type_ulonglong;
  41         case ushort_P: return &ffi_type_ushort;
  42
  43         case array_P:
  44             /* XXX: implement */
  45             _assert(false);
  46         break;
  47
  48         case pointer_P: return &ffi_type_pointer;
  49
  50         case bit_P:
  51             /* XXX: we can totally make this work */
  52             _assert(false);
  53         break;
  54
  55         case char_P: return &ffi_type_schar;
  56         case double_P: return &ffi_type_double;
  57         case float_P: return &ffi_type_float;
  58         case int_P: return &ffi_type_sint;
  59         case long_P: return &ffi_type_slong;
  60         case longlong_P: return &ffi_type_slonglong;
  61         case short_P: return &ffi_type_sshort;
  62
  63         case void_P: return &ffi_type_void;
  64
  65         case struct_P: {
  66             ffi_type *aggregate = reinterpret_cast<ffi_type *>(apr_palloc(pool, sizeof(ffi_type)));
  67             aggregate->size = 0;
  68             aggregate->alignment = 0;
  69             aggregate->type = FFI_TYPE_STRUCT;
  70
  71             aggregate->elements = reinterpret_cast<ffi_type **>(apr_palloc(pool, (type->data.signature.count + 1) * sizeof(ffi_type *)));
  72             sig_ffi_types(pool, &ObjectiveC, &type->data.signature, aggregate->elements);
  73             aggregate->elements[type->data.signature.count] = NULL;
  74
  75             return aggregate;
  76         } break;
  77
  78         default:
  79             _assert(false);
  80         break;
  81     }
  82 }
  83
  84 ffi_type *Java(apr_pool_t *pool, struct Type *type) {
  85     switch (type->primitive) {
  86         case typename_P: return &ffi_type_pointer;
  87         case union_P: return &ffi_type_pointer;
  88         case string_P: return &ffi_type_pointer;
  89         case selector_P: return &ffi_type_pointer;
  90         case object_P: return &ffi_type_pointer;
  91         case boolean_P: return &ffi_type_uchar;
  92         case uchar_P: return &ffi_type_uchar;
  93         case uint_P: return &ffi_type_uint;
  94         case ulong_P: return &ffi_type_ulong;
  95         case ulonglong_P: return &ffi_type_ulonglong;
  96         case ushort_P: return &ffi_type_ushort;
  97         case array_P: return &ffi_type_pointer;
  98         case pointer_P: return &ffi_type_pointer;
  99
 100         /* XXX: bit type */
 101         case bit_P: return &ffi_type_uint;
 102
 103         case char_P: return &ffi_type_schar;
 104         case double_P: return &ffi_type_double;
 105         case float_P: return &ffi_type_double;
 106         case int_P: return &ffi_type_sint;
 107         case long_P: return &ffi_type_slong;
 108         case longlong_P: return &ffi_type_slonglong;
 109         case short_P: return &ffi_type_sshort;
 110         case void_P: return &ffi_type_void;
 111         case struct_P: return &ffi_type_pointer;
 112
 113         default:
 114             _assert(false);
 115         break;
 116     }
 117 }
 118
 119 void sig_ffi_cif(
 120     apr_pool_t *pool,
 121     ffi_type *(*sig_ffi_type)(apr_pool_t *, struct Type *),
 122     struct Signature *signature,
 123     ffi_cif *cif,
 124     size_t skip,
 125     ffi_type **types,
 126     size_t offset
 127 ) {
 128     if (types == NULL)
 129         types = reinterpret_cast<ffi_type **>(apr_palloc(pool, (signature->count - 1) * sizeof(ffi_type *)));
 130     ffi_type *type = (*sig_ffi_type)(pool, signature->elements[0].type);
 131     sig_ffi_types(pool, sig_ffi_type, signature, types, 1 + skip, offset);
 132     ffi_status status = ffi_prep_cif(cif, FFI_DEFAULT_ABI, signature->count - 1 - skip + offset, type, types);
 133     _assert(status == FFI_OK);
 134 }
 135
 136 }