hsc.h

/*
 * Copyright (c) Meta Platforms, Inc. and affiliates.
 * All rights reserved.
 *
 * This source code is licensed under the BSD-style license found in the
 * LICENSE file in the root directory of this source tree.
 */

#pragma once

#include <HsFFI.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/*
 * Utilities for use with hsc2hs.
 */

/*
 * #{ alignment T }
 *
 * Produces the minimal alignment of a data type.
 * NOTE: we can't use the macro that comes with hsc2hs, because
 * it doesn't build clearly under clang. TODO(14913295): upstream this
 */
#undef hsc_alignment
#define hsc_alignment(x...)                                           \
  do {                                                                \
    struct __anon_x__ {                                               \
      char a;                                                         \
      x b;                                                            \
    };                                                                \
    hsc_printf("%lu", (unsigned long)offsetof(struct __anon_x__, b)); \
  } while (0)

/*
 * #{ verbatim C++ code }
 *
 * Inserts any C++ code as it is in the code generator. An example use
 * case can be: #{ verbatim using namespace facebook::nodeapi; }
 */
#undef hsc_verbatim
#define hsc_verbatim(...) __VA_ARGS__

extern "C" HsPtr itaniumMangle(HsPtr a1, size_t l);

#define hsc_print_args(n)       \
  for (int i = 0; i < n; i++) { \
    hsc_printf("x%d ", i);      \
  }

#define hsc_check_unsafe_wrapper(f, n, sig)          \
  hsc_printf("%s_ %s\n", #f, #sig);                  \
  hsc_printf("%s %s\n", #f, #sig);                   \
  hsc_printf("%s ", #f);                             \
  hsc_print_args(n);                                 \
  hsc_printf("= checkUnsafe \"%s\" $ %s_ ", #f, #f); \
  hsc_print_args(n) hsc_printf("\n");