XPL

[vak]

Был в 70-е годы такой язык программирования: XPL. Вовсе не вариант PL/I, как кое-где заявляется, а вполне самостоятельный язык, на котором было написано много системного софта. В 1971 году вышла книжка "A Compiler Generator", рассказывающая, как писать компиляторы на примере XPL - один из первых учебников на эту тему. В частности, на XPL был написан компилятор с языка HAL/S для НАСА. Тогда практически весь софт для американского космоса писался на HAL/S, в частности для Шаттла.

Компилятор XPL имеется здесь: https://sourceforge.net/projects/xpl-compiler/
Преобразует код XPL в язык Си. Вполне нормально работает на маке и Линуксе.

В качестве примера приведу реализацию утилиты /bin/echo на XPL:

if argc < 2 then do;
    output = 'No args.';
    return 1;
end;

declare i fixed;
declare s character;
do i = 1 to argc - 1;
    if i > 1 then
        s = s || ' ';
    s = s || argv(i);
end;
output = s;

return 0;
eof

Comments

[spamsink]

У нас есть по крайней мере одна нетривиальная программа на XPL, небезызвестная программа сжатия. :)

[brumka]

Язык "HAL" для Шаттла?! Какая прелесть

[spamsink]

На XPL можно написать

declare TRUMP literally 'Hitler';

[vlad_m]

Уже, кажется, ДеСантис.
Literally 'Trump'.

[vak]

Вроде работает: https://github.com/sergev/vak-opensource/blob/master/languages/xpl/compress.xpl

[vak]

Эх, понимал бы этот транслятор utf8, можно было бы переопределить ключевые слова на кириллические.

declare коли literally 'if',
        пущай literally 'then',
        ежели literally 'else if',
        либо literally 'else',
        аминь literally 'end';