# check=skip=FromPlatformFlagConstDisallowed
# ^ The --platform=linux/amd64 pins below are DELIBERATE (Exoscale SKS
#   nodes are amd64). BuildKit lints a constant --platform as a smell;
#   here it is the fix. Silenced so a real warning is not lost in noise.
# Shorashim Talmudic Engine — SWI-Prolog dialectical reasoning
# Construction spec §1.1: SWI-Prolog 9.2.2
# Communicates with vav_pipeline via Unix domain socket
#
# PLATFORM PIN: see Dockerfile.vav_pipeline for the rationale.
# Exoscale SKS = amd64; arm64 images cannot exec on the cluster.

# === BUILD STAGE ===
FROM --platform=linux/amd64 swipl:9.2.2 AS build

WORKDIR /app
COPY talmudic_engine/ ./

# Verify Prolog loads without errors
RUN swipl -g "consult('src/main'),halt(0)" -t "halt(1)"

# === RUNTIME STAGE ===
FROM --platform=linux/amd64 swipl:9.2.2

RUN useradd --create-home --shell /bin/bash shorashim
USER shorashim

WORKDIR /home/shorashim/talmudic_engine

COPY --from=build --chown=shorashim:shorashim /app/ ./

# L1 Torah filesystem — baked into the image
COPY --chown=shorashim:shorashim l1/ /mnt/torah/

# L1 mount point
ENV L1_MOUNT_POINT=/mnt/torah

# Socket path for communication with vav_pipeline
ENV TALMUDIC_SOCKET_PATH=/tmp/shorashim/talmudic.sock

# Start the Prolog socket server.
#
# The predicate is serve/0 and serve/1 (exported by
# src/interface/socket_server.pl). The previous CMD called
# start_socket_server/0, which is not defined anywhere in the engine —
# the container exited 2 on every start:
#   ERROR: -g consult('src/main'),start_socket_server:
#          '<meta-call>'/1: Unknown procedure: start_socket_server/0
#
# serve/1 is used when TALMUDIC_SOCKET_PATH is set so the env var above
# is actually honoured; serve/0 falls back to the same path hardcoded
# as default_socket_path/1. vav_pipeline dials the socket at
# :talmudic_socket_path (config/config.exs), and deployment.yaml mounts
# the shared talmudic-socket volume at /tmp/shorashim in both
# containers, so the two ends must agree on this path.
CMD ["swipl", "-g", "consult('src/main'), (getenv('TALMUDIC_SOCKET_PATH', P) -> serve(P) ; serve)", "-t", "halt(1)"]