106 lines
4.0 KiB
Docker
106 lines
4.0 KiB
Docker
FROM clfoundation/sbcl:alpine3.13 AS builder
|
|
|
|
RUN apk add --no-cache git
|
|
|
|
RUN git clone https://github.com/daewok/sbcl.git /usr/local/src/sbcl/
|
|
|
|
WORKDIR /usr/local/src/sbcl
|
|
|
|
RUN set -x && git checkout static-executable-v2-2.1.3
|
|
|
|
# Install build prereq and build SBCL with sb-linkable-runtime and
|
|
# sb-prelink-linkage-table
|
|
RUN set -x \
|
|
# I frequently build arm executables on an arm64 computer. Need to add this
|
|
# otherwise SBCL can get confused
|
|
&& case "$(cat /etc/apk/arch)" in \
|
|
armv7) SBCL_ARCH=arm;; \
|
|
aarch64) SBCL_ARCH=arm64;; \
|
|
x86_64) SBCL_ARCH=x86-64;; \
|
|
*) echo "Unknown arch" >&2; exit 1;; \
|
|
esac \
|
|
&& export SBCL_ARCH \
|
|
&& apk add --no-cache ca-certificates curl openssl make gcc musl-dev linux-headers gnupg patch zlib-dev zlib-static \
|
|
# Remove the hardcoding of armv5 as target arch. Use the default provided
|
|
# by the base image. Required when building for ARM on Alpine 3.12.
|
|
&& sed -i -e "s/CFLAGS += -marm -march=armv5/CFLAGS += -marm/" src/runtime/Config.arm-linux \
|
|
&& sh make.sh --fancy --with-sb-linkable-runtime --with-sb-prelink-linkage-table \
|
|
&& sh install.sh
|
|
|
|
RUN mkdir -vp /srcs/common-lisp/
|
|
|
|
ENV HOME /srcs
|
|
|
|
# Install Quicklisp
|
|
|
|
ADD https://beta.quicklisp.org/quicklisp.lisp /tmp/quicklisp.lisp
|
|
|
|
RUN set -x \
|
|
&& sbcl --non-interactive \
|
|
--eval '(load "/tmp/quicklisp.lisp")' \
|
|
--eval '(quicklisp-quickstart:install :path "/tmp/quicklisp")' \
|
|
--eval '(ql::without-prompting (ql:add-to-init-file))'
|
|
|
|
RUN apk add --no-cache sqlite-static openssl-libs-static
|
|
|
|
# Clone sources
|
|
|
|
RUN set -x && git clone https://github.com/eeeeeta/websocket-driver /srcs/common-lisp/websocket-driver
|
|
RUN set -x && git clone https://git.theta.eu.org/eta/whatscl.git /srcs/common-lisp/whatscl
|
|
COPY . /srcs/common-lisp/whatsxmpp
|
|
|
|
# Load whatsxmpp into an image, save the foreign symbols it requires, and dump the
|
|
# core.
|
|
|
|
RUN set -x \
|
|
&& sbcl --non-interactive \
|
|
--eval '(sb-ext:restrict-compiler-policy (quote safety) 3 3)' \
|
|
--eval '(ql:quickload :whatsxmpp)' \
|
|
--load tools-for-build/dump-linkage-info.lisp \
|
|
--eval '(sb-dump-linkage-info:dump-to-file "/tmp/linkage-info.sexp")' \
|
|
--eval '(sb-ext:unlock-package (quote sb-sys))' \
|
|
--eval '(defun sb-sys::reopen-shared-objects (&rest args) (declare (ignore args)))' \
|
|
--eval '(sb-ext:save-lisp-and-die "/tmp/whatsxmpp.core")'
|
|
|
|
# Build a static runtime, with libsqlite3 linked and the required symbols in the
|
|
# linkage table.
|
|
|
|
RUN ls /usr/lib/
|
|
|
|
RUN set -x \
|
|
&& cat /tmp/linkage-info.sexp \
|
|
&& sbcl --script tools-for-build/create-linkage-table-prelink-info-override.lisp \
|
|
/tmp/linkage-info.sexp \
|
|
/tmp/linkage-table-prelink-info-override.c \
|
|
&& cat /tmp/linkage-table-prelink-info-override.c \
|
|
&& while read l; do \
|
|
eval "${l%%=*}=\"${l#*=}\""; \
|
|
done < /usr/local/lib/sbcl/sbcl.mk \
|
|
&& $CC $CFLAGS -Wno-builtin-declaration-mismatch -o /tmp/linkage-table-prelink-info-override.o -c /tmp/linkage-table-prelink-info-override.c \
|
|
&& $CC -no-pie -static $LINKFLAGS -o /tmp/static-sbcl /usr/local/lib/sbcl/$LIBSBCL /tmp/linkage-table-prelink-info-override.o -lsqlite3 -lssl -lcrypto $LIBS
|
|
|
|
# Use the new static runtime to load the previous core and then dump a
|
|
# compressed executable with the toplevel function set to run the sb-gmp test
|
|
# suite.
|
|
RUN set -x \
|
|
&& /tmp/static-sbcl \
|
|
--core /tmp/whatsxmpp.core \
|
|
--disable-ldb \
|
|
--lose-on-corruption \
|
|
--non-interactive \
|
|
--eval '(push :cl+ssl-foreign-libs-already-loaded *features*)' \
|
|
--eval '(cl+ssl:reload)' \
|
|
--eval '(sb-ext:save-lisp-and-die "/tmp/whatsxmpp" :executable t :toplevel (function whatsxmpp::main) :compression t)'
|
|
|
|
FROM alpine
|
|
|
|
RUN apk add --no-cache ca-certificates sqlite
|
|
|
|
COPY --from=builder /tmp/whatsxmpp /whatsxmpp
|
|
|
|
ADD schema.sql /
|
|
|
|
ADD docker-entrypoint.sh /
|
|
|
|
ENTRYPOINT /docker-entrypoint.sh
|