code / tomo

   1 // Type infos and methods for Pointer types
   2 
   3 #pragma once
   4 
   5 #include <stdbool.h>
   6 #include <stdint.h>
   7 
   8 #include "datatypes.h"
   9 #include "types.h"
  10 #include "util.h"
  11 
  12 Text_t Pointer$as_text(const void *x, bool colorize, const TypeInfo_t *type);
  13 PUREFUNC int32_t Pointer$compare(const void *x, const void *y, const TypeInfo_t *type);
  14 PUREFUNC bool Pointer$equal(const void *x, const void *y, const TypeInfo_t *type);
  15 PUREFUNC bool Pointer$is_none(const void *x, const TypeInfo_t *);
  16 void Pointer$serialize(const void *obj, FILE *out, Table_t *pointers, const TypeInfo_t *type);
  17 void Pointer$deserialize(FILE *in, void *outval, List_t *pointers, const TypeInfo_t *type);
  18 
  19 #define Null(t) (t *)NULL
  20 #define POINTER_TYPE(_sigil, _pointed)                                                                                 \
  21     (&(TypeInfo_t){.size = sizeof(void *),                                                                             \
  22                    .align = __alignof__(void *),                                                                       \
  23                    .tag = PointerInfo,                                                                                 \
  24                    .PointerInfo.sigil = _sigil,                                                                        \
  25                    .PointerInfo.pointed = _pointed})
  26 
  27 #define Pointer$metamethods                                                                                            \
  28     {                                                                                                                  \
  29         .as_text = Pointer$as_text,                                                                                    \
  30         .compare = Pointer$compare,                                                                                    \
  31         .equal = Pointer$equal,                                                                                        \
  32         .is_none = Pointer$is_none,                                                                                    \
  33         .serialize = Pointer$serialize,                                                                                \
  34         .deserialize = Pointer$deserialize,                                                                            \
  35     }
  36 
  37 #define Pointer$info(sigil_expr, pointed_info)                                                                         \
  38     &((TypeInfo_t){.size = sizeof(void *),                                                                             \
  39                    .align = __alignof__(void *),                                                                       \
  40                    .tag = PointerInfo,                                                                                 \
  41                    .PointerInfo = {.sigil = sigil_expr, .pointed = pointed_info},                                      \
  42                    .metamethods = Pointer$metamethods})