BCPL implementation

.travis.yml

@@ -12,6 +12,7 @@ matrix:
     - {env: IMPL=basic basic_MODE=cbm NO_SELF_HOST=1,    services: [docker]} # step4 OOM
     - {env: IMPL=basic basic_MODE=qbasic NO_SELF_HOST=1, services: [docker]} # step4 OOM
     - {env: IMPL=bbc-basic,                   services: [docker]}
+    - {env: IMPL=bcpl,                        services: [docker]}
     - {env: IMPL=c,                           services: [docker]}
     - {env: IMPL=cpp,                         services: [docker]}
     - {env: IMPL=coffee,                      services: [docker]}

Makefile

@@ -89,7 +89,7 @@ DOCKERIZE =
 # Implementation specific settings
 #
 
-IMPLS = ada ada.2 awk bash basic bbc-basic c chuck clojure coffee common-lisp cpp crystal cs d dart \
+IMPLS = ada ada.2 awk bash basic bbc-basic bcpl c chuck clojure coffee common-lisp cpp crystal cs d dart \
 	elisp elixir elm erlang es6 factor fantom forth fsharp go groovy gnu-smalltalk \
 	guile haskell haxe hy io java js jq julia kotlin livescript logo lua make mal \
 	matlab miniMAL nasm nim objc objpascal ocaml perl perl6 php picolisp pike plpgsql \
@@ -191,6 +191,7 @@ awk_STEP_TO_PROG =           impls/awk/$($(1)).awk
 bash_STEP_TO_PROG =          impls/bash/$($(1)).sh
 basic_STEP_TO_PROG =         $(basic_STEP_TO_PROG_$(basic_MODE))
 bbc-basic_STEP_TO_PROG =     impls/bbc-basic/$($(1)).bas
+bcpl_STEP_TO_PROG =          impls/bcpl/$($(1))
 c_STEP_TO_PROG =             impls/c/$($(1))
 chuck_STEP_TO_PROG =         impls/chuck/$($(1)).ck
 clojure_STEP_TO_PROG =       $(clojure_STEP_TO_PROG_$(clojure_MODE))

impls/bcpl/Dockerfile

@@ -0,0 +1,38 @@
+FROM ubuntu:18.04
+MAINTAINER Joel Martin <[email protected]>
+
+##########################################################
+# General requirements for testing or common across many
+# implementations
+##########################################################
+
+RUN apt-get -y update
+
+# Required for running tests
+RUN apt-get -y install make python
+
+# Some typical implementation and test requirements
+RUN apt-get -y install curl libreadline-dev libedit-dev
+
+RUN mkdir -p /mal
+WORKDIR /mal
+
+##########################################################
+# Specific implementation requirements
+##########################################################
+
+RUN apt-get -y install gcc mesa-common-dev libglu1-mesa-dev freeglut3-dev
+
+RUN cd /usr/local && \
+    curl -o bcpl.tgz https://www.cl.cam.ac.uk/~mr10/BCPL/bcpl.tgz && \
+    tar zxf bcpl.tgz && chmod -R a+rX BCPL && rm bcpl.tgz
+
+ENV PATH /usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:\
+/usr/local/BCPL/cintcode/bin
+ENV BCPLROOT /usr/local/BCPL/cintcode
+ENV BCPLPATH /usr/local/BCPL/cintcode/cin
+ENV BCPLHDRS /usr/local/BCPL/cintcode/g
+ENV BCPLSCRIPTS /usr/local/BCPL/cintcode/s
+
+RUN cd /usr/local/BCPL/cintcode && make clean && make
+

impls/bcpl/Makefile

@@ -0,0 +1,18 @@
+all: step0_repl step1_read_print step2_eval step3_env step4_if_fn_do \
+     step5_tco step6_file step7_quote step8_macros step9_try stepA_mal
+
+%: %.b malhdr.h
+	cintsys -c "bcpl $< to $@"
+
+.DELETE_ON_ERROR:
+
+step0_repl: readline.b types.b
+step1_read_print step2_eval: printer.b reader.b readline.b types.b
+step3_env: env.b printer.b reader.b readline.b types.b
+step4_if_fn_do step5_tco step6_file step7_quote step8_macros step9_try \
+  stepA_mal: \
+  core.b env.b printer.b reader.b readline.b types.b
+
+clean:
+	rm -f step0_repl step1_read_print step2_eval step3_env step4_if_fn_do \
+	      step5_tco step6_file step7_quote step8_macros step9_try stepA_mal

impls/bcpl/README.md

@@ -0,0 +1,21 @@
+* Mal in BCPL
+
+This implementation expects to be built using the Cintcode BCPL
+compiler.  It may require modifications to work with other BCPL
+compilers.
+
+It uses several features that are not mentioned, or are
+described as extensions by _BCPL - the language and its compiler_,
+including:
+ * The infixed byte operator `%`
+ * Using `{` and `}` as section brackets
+ * Using lower case and `_` in variable names
+ * Using `?` to indicate an uninitialised value
+
+BCPL does support separate compilation, but running
+separately-compiled modules in Cintsys seems to be ill-supported,
+requiring use of the run-time dynamic loading mechanism, `loadseg`.
+The examples in the manual all use `GET` to textually include library
+source code in the main program, so mal does the same.  Nonetheless,
+in an environment with separate compilation it should be possible to
+remove all these `GET` directives and compile each `.b` file separately.