Commit 365c99f3 authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed docker build and allegro startup

parent e7674604
Pipeline #3673 failed with stages
in 8 minutes and 39 seconds
......@@ -2,8 +2,8 @@ FROM ubuntu:latest
ARG DEBIAN_FRONTEND=noninteractive
ARG swank_port=4200
ARG gwl_port=9000
ENV swank_port=4200
ENV gwl_port=9000
EXPOSE $swank_port
......@@ -11,6 +11,7 @@ EXPOSE $gwl_port
RUN apt-get -y update && apt-get -y upgrade
RUN apt-get -y install openssl libssl-dev iputils-ping telnet git git-flow ghostscript && \
rm -rf /var/cache/apk/* && apt-get clean && groupadd -g 1000 gendl-user && \
useradd -rm -s /bin/bash -u 1000 -g root -G sudo gendl-user && ln -s /home /Users
......@@ -10,36 +10,39 @@
cd ..
cd `dirname $0`/../../
echo "Present Working Directory: " `pwd`
# FLAG -- use below when we want to use fixed build
# and update .gitlab-ci.yml to match.
if [ -f "$dist_zip_server" ]; then
elif [ -f "$dist_zip_local" ]; then
echo "Neither $dist_zip_server nor $dist_zip_local was found. Exiting."
exit 1
cp $DIST_ZIP .
unzip -q ${DIST_NAME}.zip
rm ${DIST_NAME}.zip
cp $dist_zip .
mv ${DIST_NAME} gendl-build/
unzip -q ${dist_name}.zip
docker build -t dcooper8/gendl:latest -f gendl/docker/Dockerfile .
rm ${dist_name}.zip
rm -rf gendl-build/
docker push dcooper8/gendl:latest
mv ${dist_name} gendl-build/
docker build -t dcooper8/gendl:latest -f ./gendl/docker/Dockerfile .
rm -rf gendl-build/
docker push dcooper8/gendl:latest
......@@ -25,7 +25,7 @@
# CID=$(docker run -d -it --rm dcooper8/gendl:latest) # starts but hangs (bad). No port 4200.
CID=$(docker run -d -it --rm -p 9000:9000 -p 4200:4200 dcooper8/gendl:latest) # works.
CID=$(docker run -id --rm -h gendl --name gendl -p 9000:9000 -p 4200:4200 dcooper8/gendl:latest) # works.
docker stop gendl -t0
docker stop dcooper8/gendl -t0
......@@ -99,11 +99,12 @@ Perhaps a zombie process is holding port ~a?~%" port port))
#-(or ccl sbcl)
(multiple-value-bind (result error)
(glisp:with-timeout (2 (error "AllegroServe port probe timed out on port ~a.
(glisp:with-timeout (3 (error "AllegroServe port probe timed out on port ~a.
Perhaps a zombie process is holding port ~a?~%" port port))
(net.aserve.client:do-http-request (format nil "" port))))
(net.aserve.client:do-http-request (format nil "" port))))
(declare (ignore result))
(when (typep error #-allegro 'error #+allegro 'excl:socket-error) port))
(when (or (typep error #-allegro 'error #+allegro 'excl:socket-error)
(typep error #-allegro 'error #+allegro 'simple-error)) port))
#+(or ccl sbcl)
(let* ((result
......@@ -117,6 +118,9 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(format nil "" port)))) port)))
(defun start-gwl (&key (port *aserve-port*) (listeners *aserve-listeners*)
;; FLAG -- figure out external-format for the other Lisps.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment