Add new Perl (perl.2) implementation

IMPLS.yml

@@ -64,6 +64,7 @@ IMPL:
  - {IMPL: objc}
  - {IMPL: ocaml}
  - {IMPL: perl}
+ - {IMPL: perl.2}
  - {IMPL: perl6}
  - {IMPL: php}
  - {IMPL: picolisp}

Makefile.impls

@@ -37,7 +37,7 @@ wasm_MODE = wasmtime
 IMPLS = ada ada.2 awk bash basic bbc-basic c c.2 chuck clojure coffee common-lisp cpp crystal cs d dart \
  elisp elixir elm erlang es6 factor fantom fennel forth fsharp go groovy gnu-smalltalk \
  guile haskell haxe hy io janet java java-truffle js jq julia kotlin livescript logo lua make mal \
- matlab miniMAL nasm nim objc objpascal ocaml perl perl6 php picolisp pike plpgsql \
+ matlab miniMAL nasm nim objc objpascal ocaml perl perl.2 perl6 php picolisp pike plpgsql \
  plsql powershell prolog ps purs python python.2 r racket rexx rpython ruby ruby.2 rust scala scheme skew sml \
  swift swift3 swift4 swift5 tcl ts vala vb vhdl vimscript wasm wren yorick xslt zig
 
@@ -159,6 +159,7 @@ objc_STEP_TO_PROG = impls/objc/$($(1))
 objpascal_STEP_TO_PROG = impls/objpascal/$($(1))
 ocaml_STEP_TO_PROG = impls/ocaml/$($(1))
 perl_STEP_TO_PROG = impls/perl/$($(1)).pl
+perl.2_STEP_TO_PROG = impls/perl.2/$($(1)).pl
 perl6_STEP_TO_PROG = impls/perl6/$($(1)).pl
 php_STEP_TO_PROG = impls/php/$($(1)).php
 picolisp_STEP_TO_PROG = impls/picolisp/$($(1)).l

README.md

@@ -101,6 +101,7 @@ FAQ](docs/FAQ.md) where I attempt to answer some common questions.
 | [Objective C](#objective-c) | [Joel Martin](https://github.com/kanaka) |
 | [OCaml](#ocaml-4010) | [Chris Houser](https://github.com/chouser) |
 | [Perl](#perl-5) | [Joel Martin](https://github.com/kanaka) |
+| [Perl #2](#perl-5-2) | [Ingy döt Net](https://github.com/ingydotnet) |
 | [Perl 6](#perl-6) | [Hinrik Örn Sigurðsson](https://github.com/hinrik) |
 | [PHP](#php-53) | [Joel Martin](https://github.com/kanaka) |
 | [Picolisp](#picolisp) | [Vasilij Schneidermann](https://github.com/wasamasa) |
@@ -831,6 +832,17 @@ cd impls/perl
 perl stepX_YYY.pl
 ```
 
+### Perl 5 #2
+
+This Perl 5 implementation should work with perl 5.10.1 and later.
+
+```
+cd impls/perl.2
+perl ./repl
+make test
+make test-self-host
+```
+
 ### Perl 6
 
 The Perl 6 implementation was tested on Rakudo Perl 6 2016.04.

ci.sh

@@ -54,7 +54,9 @@ if [ -z "${NO_DOCKER}" ]; then
  img_impl=$(echo "${MAL_IMPL:-${IMPL}}" | tr '[:upper:]' '[:lower:]')
  # We could just use make DOCKERIZE=1 instead but that does add
  # non-trivial startup overhead for each step.
- MAKE="docker run -i -u $(id -u) -v `pwd`:/mal kanaka/mal-test-${img_impl%%-mal} ${MAKE}"
+ image=kanaka/mal-test-${img_impl%%-mal}
+ docker pull "$image" || make "docker-build^${IMPL}"
+ MAKE="docker run -i -u $(id -u) -v `pwd`:/mal $image ${MAKE}"
 fi
 
 case "${ACTION}" in

docs/graph/base_data.yaml

@@ -53,6 +53,7 @@ languages:
  - [objc , Objective C , C , Static , []]
  - [ocaml , OCaml , ML , Static , []]
  - [perl , Perl , C , Dynamic , []]
+ - [perl.2 , Perl , C , Dynamic , []]
  - [perl6 , Perl 6 , C , Dynamic , []]
  - [php , PHP , C , Dynamic , []]
  - [picolisp , Picolisp , Lisp , Dynamic , []]

impls/perl.2/.gitignore

@@ -0,0 +1,3 @@
+/test*
+/Guide.md
+/ToDo

impls/perl.2/Dockerfile

@@ -0,0 +1,41 @@
+FROM ubuntu:jammy
+MAINTAINER Ingy döt Net <[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 python3
+
+# 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 ln -s python3 /usr/bin/python
+
+RUN apt-get -y install \
+ build-essential \
+ cpanminus \
+ libperl-dev \
+ libreadline-dev \
+ perl \
+ && true
+
+RUN cpanm -n \
+ Term::ReadLine \
+ Term::ReadLine::Gnu \
+ Tie::IxHash \
+ XXX \
+ && true
+
+ENV PERL5LIB=/mal/impls/perl.2/lib

impls/perl.2/Makefile

@@ -0,0 +1,37 @@
+SHELL := bash
+
+ROOT := $(shell cd ../.. && pwd)
+BASE := $(shell pwd)
+
+export PERL5LIB := $(BASE)/lib
+
+ifndef BASIC
+export DEFERRABLE := 1
+export OPTIONAL := 1
+endif
+
+IMPL ?= $(shell basename $(BASE))
+
+ALL_TESTS := $(shell echo test-{{0..9},A})
+
+GREP_RESULTS := grep -E '(^TEST RESULTS|: .* tests$$)'
+
+
+default:
+
+test:
+ time $(MAKE) test-all BASIC=$(BASIC) |& $(GREP_RESULTS)
+
+test-all: $(ALL_TESTS)
+
+test-self-host: docker-build
+ time $(MAKE) -C $(ROOT) MAL_IMPL=$(IMPL) test^mal^step{{0..4},{6..9},A} |& \
+ $(GREP_RESULTS)
+
+$(ALL_TESTS):
+ time $(MAKE) --no-print-directory -C $(ROOT) test^$(IMPL)^step$(@:test-%=%) \
+ DEFERRABLE=$(DEFERRABLE) OPTIONAL=$(OPTIONAL)
+
+docker-build:
+ $(MAKE) -C $(ROOT) docker-build^$(IMPL)
+ @echo