garnet/generate-bindings

#!/usr/bin/env bash
set -euo pipefail

# TODO this is a complete vibe-coded hack, but the header patching at least is crucial

# Generate Haskell FFI bindings from Rust source code.
#
# Pipeline:
#   1. cargo build       - build the Rust static library
#   2. cbindgen           - generate a C header from the Rust source
#   3. awk                - patch the header for hs-bindgen compatibility
#   4. hs-bindgen-cli     - generate Haskell FFI modules from the C header
#   5. cabal configure    - point Cabal at the Rust build artifacts
#
# Prerequisites: run inside the Nix dev shell (provides gcc, cabal, cbindgen, hs-bindgen-cli).

SCRIPT_DIR="$(cd "$(dirname "$0")" && pwd)"
RUST_DIR="$SCRIPT_DIR/rust"
HASKELL_DIR="$SCRIPT_DIR"
HEADER_NAME="garnet_rs.h"
HEADER="$RUST_DIR/$HEADER_NAME"

# --- Step 1: Build Rust static library ---
echo "=== Building Rust library ==="
cargo build --manifest-path "$RUST_DIR/Cargo.toml"

# --- Step 2: Generate C header with cbindgen ---
echo "=== Running cbindgen ==="
cbindgen \
  --lang c \
  --crate garnet-rs \
  --output "$HEADER" \
  --style tag \
  "$RUST_DIR"

echo "  Raw header written to $HEADER"

# --- Step 3: Patch the header for hs-bindgen compatibility ---
#
# cbindgen emits:    union { ... };       (anonymous)
# hs-bindgen needs:  union { ... } body;  (named)
# See: https://github.com/well-typed/hs-bindgen/issues/1649
echo "=== Patching header ==="
awk '
# Name anonymous unions: }; at end of union block inside struct -> } body;
/^  \};$/ && saw_union {
    print "  } body;"
    saw_union = 0
    next
}
/^  union \{$/ {
    saw_union = 1
}

{ print }
' "$HEADER" > "${HEADER}.tmp" && mv "${HEADER}.tmp" "$HEADER"

echo "  Patched header at $HEADER"

# --- Step 4: Derive system include paths for hs-bindgen's libclang ---
#
# hs-bindgen uses libclang directly, which doesn't know about NixOS's
# non-standard include locations. We extract them from cpp -v and pass
# all of them — extra paths are harmless.
echo "=== Detecting system include paths ==="
CLANG_OPTIONS=()
while IFS= read -r dir; do
  CLANG_OPTIONS+=("--clang-option" "-isystem$dir")
done < <(echo | cpp -v 2>&1 | awk '/#include <\.\.\.> search starts here:/{f=1;next}/End of search list/{f=0}f{gsub(/^ +/,"");print}')

if [ ${#CLANG_OPTIONS[@]} -eq 0 ]; then
  echo "  WARNING: No system include paths detected. hs-bindgen may fail."
else
  echo "  Found ${#CLANG_OPTIONS[@]} clang options:"
  for ((i=0; i<${#CLANG_OPTIONS[@]}; i+=2)); do
    echo "    ${CLANG_OPTIONS[i+1]}"
  done
fi

# --- Step 5: Run hs-bindgen ---
echo "=== Running hs-bindgen ==="
hs-bindgen-cli preprocess \
  --overwrite-files --create-output-dirs \
  --unique-id com.garnet --enable-record-dot \
  --hs-output-dir "$HASKELL_DIR/generated" --module GarnetRs \
  "${CLANG_OPTIONS[@]}" \
  -I "$RUST_DIR" "$HEADER_NAME"

# --- Step 6: Configure Cabal ---
#
# Point Cabal at the Rust static library and C header. This writes
# cabal.project.local (gitignored) with absolute paths derived from
# the current working directory, avoiding hardcoded paths in cabal.project.
echo "=== Configuring Cabal ==="
cabal configure \
  --extra-lib-dirs="$RUST_DIR/target/debug" \
  --extra-include-dirs="$RUST_DIR"

echo "=== Done ==="
echo "Generated Haskell bindings in $HASKELL_DIR/generated/"
echo "Run 'cabal run' to test."