src/grovel/grovel-common.h

   1 #include <cstdio>
   2 #include <cstdlib>
   3 #include <cstring>
   4
   5 #define CFFI_BUFSIZE 65536
   6
   7 \f
   8
   9 ///////////
  10 //
  11 // Printers
  12 //
  13 ///////////
  14
  15 char* cffi_print_value(signed int value)
  16 {
  17     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  18     snprintf(buf, CFFI_BUFSIZE-1, "%d.", value);
  19     return buf;
  20 }
  21
  22 char* cffi_print_value(unsigned int value)
  23 {
  24     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  25     snprintf(buf, CFFI_BUFSIZE-1, "%u.", value);
  26     return buf;
  27 }
  28
  29 char* cffi_print_value(signed long value)
  30 {
  31     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  32     snprintf(buf, CFFI_BUFSIZE-1, "%ld.", value);
  33     return buf;
  34 }
  35
  36 char* cffi_print_value(unsigned long value)
  37 {
  38     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  39     snprintf(buf, CFFI_BUFSIZE-1, "%lu.", value);
  40     return buf;
  41 }
  42
  43 char* cffi_print_value(signed long long value)
  44 {
  45     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  46     snprintf(buf, CFFI_BUFSIZE-1, "%lld.", value);
  47     return buf;
  48 }
  49
  50 char* cffi_print_value(unsigned long long value)
  51 {
  52     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  53     snprintf(buf, CFFI_BUFSIZE-1, "%llu.", value);
  54     return buf;
  55 }
  56
  57 char* cffi_print_value(double value)
  58 {
  59     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  60     snprintf(buf, CFFI_BUFSIZE-1, "#.(let ((*read-default-float-format* 'double-float)) (read-from-string \"%.20E\"))", value);
  61     return buf;
  62 }
  63
  64 char* cffi_print_value(void *value)
  65 {
  66     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  67     snprintf(buf, CFFI_BUFSIZE-1, "%lld.", (signed long long)value);
  68     return buf;
  69 }
  70
  71 char* cffi_print_value(void (*value)())
  72 {
  73     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  74     snprintf(buf, CFFI_BUFSIZE-1, "%lld.", (signed long long)value);
  75     return buf;
  76 }
  77
  78 char* cffi_print_value(void (*value)(int))
  79 {
  80     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  81     snprintf(buf, CFFI_BUFSIZE-1, "%lld.", (signed long long)value);
  82     return buf;
  83 }
  84
  85 char* cffi_type_name(int signed_p, int size)
  86 {
  87     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
  88     if (signed_p) {
  89         switch (size) {
  90         case 1: snprintf(buf, CFFI_BUFSIZE-1, ":int8"); break;
  91         case 2: snprintf(buf, CFFI_BUFSIZE-1, ":int16"); break;
  92         case 4: snprintf(buf, CFFI_BUFSIZE-1, ":int32"); break;
  93         case 8: snprintf(buf, CFFI_BUFSIZE-1, ":int64"); break;
  94         default: goto error;
  95         }
  96     } else {
  97         switch(size) {
  98         case 1: snprintf(buf, CFFI_BUFSIZE-1, ":uint8"); break;
  99         case 2: snprintf(buf, CFFI_BUFSIZE-1, ":uint16"); break;
 100         case 4: snprintf(buf, CFFI_BUFSIZE-1, ":uint32"); break;
 101         case 8: snprintf(buf, CFFI_BUFSIZE-1, ":uint64"); break;
 102         default: goto error;
 103         }
 104     }
 105
 106     goto ok;
 107
 108 error:
 109     snprintf(buf, CFFI_BUFSIZE-1, "(cl:error \"No type of size ~D.\" %d)\n", size);
 110 ok:
 111     return buf;
 112 }
 113
 114 \f
 115
 116 ////////////////
 117 //
 118 // Helper macros
 119 //
 120 ////////////////
 121
 122 #ifndef offsetof
 123 # define offsetof(type, slot) ((long) ((char *) &(((type *) 0)->slot)))
 124 #endif
 125 #define CFFI_SIZEOFSLOT(type, slot) (sizeof(((type *) 0)->slot))
 126 #define CFFI_SIZEOFSLOTMEMBER(type, slot) (sizeof(((type *) 0)->slot[0]))
 127
 128 #define CFFI_STRINGIFY(x) #x
 129 #define CFFI_TYPE_SIGNED_P(type) (((type)-1)<0LL)
 130
 131 \f
 132
 133 ///////////////////////
 134 //
 135 // Definers - functions
 136 //
 137 ///////////////////////
 138
 139 void cffi_defconstant(FILE *output, char *name, char *value, char *docstring)
 140 {
 141     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
 142     if (docstring)
 143         snprintf(buf, CFFI_BUFSIZE-1, "\n  \"%s\"", docstring);
 144     fprintf(output, "(cl:defconstant %s %s%s)\n", name, value, buf);
 145 }
 146
 147 void cffi_deftypedef(FILE *output, char *lisp_name, char *aggregate_type)
 148 {
 149     fprintf(output, "(cffi:defctype %s (:%s %s))\n",
 150             lisp_name, aggregate_type, lisp_name);
 151 }
 152
 153 void cffi_deftypesize(FILE *output, char *type, int type_size)
 154 {
 155     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
 156     snprintf(buf, CFFI_BUFSIZE-1, "size-of-%s", type);
 157     cffi_defconstant(output, buf, cffi_print_value(type_size), NULL);
 158 }
 159
 160 void cffi_defctype(FILE *output, char *type, char *canonical_type, int type_size)
 161 {
 162     fprintf(output, "(cffi:defctype %s %s)\n", type, canonical_type);
 163     cffi_deftypesize(output, type, type_size);
 164 }
 165
 166 void cffi_defcstruct_start(FILE *output, char *lisp_name, int type_size, char *docstring)
 167 {
 168     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
 169     if (docstring)
 170         snprintf(buf, CFFI_BUFSIZE-1, "\n  \"%s\"", docstring);
 171     fprintf(output, "(cffi:defcstruct (%s :size %s)%s", lisp_name,
 172             cffi_print_value(type_size), buf);
 173 }
 174
 175 void cffi_signal_missing_definition(FILE *output, char *lisp_name)
 176 {
 177     fprintf(output, "(cl:warn 'iolib-grovel:missing-definition :name '%s)\n", lisp_name);
 178 }
 179
 180 void cffi_defcstruct_slot(FILE *output, char *slot_lname, char *slot_ltype, int count,
 181                           unsigned slot_offset)
 182 {
 183     fprintf(output, "\n  (%s %s :count %s :offset %s)",
 184             slot_lname, slot_ltype,
 185             cffi_print_value(count),
 186             cffi_print_value(slot_offset));
 187 }
 188
 189 void cffi_defcunion_slot(FILE *output, char *slot_lname, char *slot_ltype, int count)
 190 {
 191     fprintf(output, "\n  (%s %s :count %s)",
 192             slot_lname, slot_ltype,
 193             cffi_print_value(count));
 194 }
 195
 196 void cffi_defcunion_start(FILE *output, char *lisp_name, int type_size, char *docstring)
 197 {
 198     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
 199     if (docstring)
 200         snprintf(buf, CFFI_BUFSIZE-1, "\n  \"%s\"", docstring);
 201     fprintf(output, "(cffi:defcunion (%s :size %s)%s", lisp_name,
 202             cffi_print_value(type_size), buf);
 203 }
 204
 205 void cffi_defcenum_start(FILE *output, char *lisp_name, char *base_type, char *docstring)
 206 {
 207     static char buf[CFFI_BUFSIZE]; memset(buf, 0, CFFI_BUFSIZE);
 208     if (docstring)
 209         snprintf(buf, CFFI_BUFSIZE-1, "\n  \"%s\"", docstring);
 210     fprintf(output, "(cffi:defcenum (%s %s)%s", lisp_name, base_type, buf);
 211 }
 212
 213 void cffi_defcenum_member(FILE *output, char *lisp_name, char *value, char *docstring)
 214 {
 215     fprintf(output, "\n  (%s %s)", lisp_name, value);
 216 }
 217
 218 \f
 219
 220 ////////////////////
 221 //
 222 // Definers - macros
 223 //
 224 ////////////////////
 225
 226 #define CFFI_DEFCONSTANT(name, value, docstring)                        \
 227     cffi_defconstant(output, name, cffi_print_value(value), docstring)
 228
 229 #define CFFI_DEFTYPEDEF(lisp_name, aggregate_type)      \
 230     cffi_deftypedef(output, lisp_name, aggregate_type)
 231
 232 #define CFFI_DEFTYPESIZE(lisp_name, ctype)              \
 233     cffi_deftypesize(output, lisp_name, sizeof(ctype))
 234
 235 #define CFFI_DEFCTYPE(lisp_name, ctype)                                 \
 236     cffi_defctype(output, lisp_name, cffi_type_name(CFFI_TYPE_SIGNED_P(ctype), sizeof(ctype)), sizeof(ctype))
 237
 238 #define CFFI_DEFCSTRUCT_START(lisp_name, ctype, docstring)              \
 239     cffi_defcstruct_start(output, lisp_name, sizeof(ctype), docstring)
 240
 241 #define CFFI_DEFCSTRUCT_END                     \
 242     fprintf(output, ")\n")
 243
 244 #define CFFI_DEFCSTRUCT_SLOT(struct_name, slot_cname, slot_lname, slot_ltype, count) \
 245     cffi_defcstruct_slot(output, slot_lname, slot_ltype, count,         \
 246                          offsetof(struct_name, slot_cname))
 247
 248 #define CFFI_DEFCSTRUCT_SLOT_AUTO(struct_name, slot_cname, slot_lname, slot_ltype) \
 249     cffi_defcstruct_slot(output, slot_lname, slot_ltype,                \
 250                          ((CFFI_SIZEOFSLOT(struct_name, slot_cname)) /  \
 251                           (CFFI_SIZEOFSLOTMEMBER(struct_name, slot_cname))), \
 252                          offsetof(struct_name, slot_cname))
 253
 254 #define CFFI_DEFCUNION_START(lisp_name, ctype, docstring)               \
 255     cffi_defcunion_start(output, lisp_name, sizeof(ctype), docstring)
 256
 257 #define CFFI_DEFCUNION_END                      \
 258     fprintf(output, ")\n")
 259
 260 #define CFFI_DEFCUNION_SLOT(union_name, slot_cname, slot_lname, slot_ltype, count) \
 261     cffi_defcunion_slot(output, slot_lname, slot_ltype, count)
 262
 263 #define CFFI_DEFCUNION_SLOT_AUTO(union_name, slot_cname, slot_lname, slot_ltype) \
 264     cffi_defcunion_slot(output, slot_lname, slot_ltype,                 \
 265                         ((CFFI_SIZEOFSLOT(union_name, slot_cname)) /    \
 266                          (CFFI_SIZEOFSLOTMEMBER(union_name, slot_cname))))
 267
 268 #define CFFI_DEFCENUM_START(lisp_name, base_type, docstring)            \
 269     cffi_defcenum_start(output, lisp_name, base_type, docstring)
 270
 271 #define CFFI_DEFCENUM_END                       \
 272     fprintf(output, ")\n")
 273
 274 #define CFFI_DEFCENUM_MEMBER(lisp_name, cname, docstring)       \
 275     cffi_defcenum_member(output, lisp_name, cffi_print_value(cname), docstring)