Алгол 68 в компиляторе GCC

[vak]

Один крутой чувак сварганил фронтенд Алгола 68 к компилятору GCC. Заслал буквально вчера: gcc.gnu.org/pipermail/gcc-patches/2025-January/672384.html

"Hello people, happy GNU year!

This WIP is a GCC front-end for Algol 68, the fascinating, generally poorly understood and often vilified programming language. It is common knowledge that Algol 68 was well ahead of its time back when it was introduced, and anyone who knows the language well will suspect this probably still holds true today, but more than fifty years after the publication of the Revised Report the world may finally be ready for it, or perhaps not, we shall see ;) At the very least having support in GCC will make it easier for Algol 68 enthusiasts to write, share and use their programs in modern systems."

Исходники здесь: forge.sourceware.org/jemarch/a68-gcc/src/branch/a68

Пример программы на Алголе 68:

# Translation decimal number to Roman notation and vice versa  #
PROGRAM
BEGIN PROC roman = (INT number) STRING:
      BEGIN INT n := number, STRING result;
            []STRUCT(INT value, STRING r) table =
               ((1000, "M"), (900, "CM"), (500, "D"), (400, "DC"),
                (100, "C"), (90, "XC"), (50, "L"), (40, "XL"),
                (10, "X"), (9, "IX"), (5, "V"), (4, "IV"), (1, "I"));
            FOR i TO UPB table
            DO INT v = value OF table[i], STRING r = r OF table[i];
               WHILE v LE n DO (result +:= r, n -:= v) OD
            OD;
            result
      END;

      PROC value of roman = (STRING text) INT:
      IF text = ""
      THEN 0
      ELSE OP ABS = (CHAR s) INT:
              CASE INT p; char in string (s, p, "IVXLCDM"); p
              IN 1, 5, 10, 50, 100, 500, 1000
              ESAC,
           PROC char in string = (CHAR c, REF INT i, STRING s) BOOL:
              (FOR k TO UPB s DO (c = s[k] | i := k; l) OD; FALSE EXIT l: TRUE);
           INT v, maxv := 0, maxp;
           FOR p TO UPB text
           DO IF (v := ABS text[p]) > maxv
              THEN maxp := p; maxv := v
              FI
           OD;
           maxv - value of roman (text[: maxp-1])+ value of roman (text[maxp + 1:])
      FI;

      ASSERT (roman (1968) = "MCMLXVIII");
      ASSERT (value of roman ("MCMLXXIII") = 1973);
      0
END
FINISH

Comments

[juan_gandhi]

I agree. The language was way ahead of everything we saw and see.

And it is really great. At times I feel that maybe, maybe we should try it IRL.
Need libraries, though. Maybe the "book" approach of A68 does not match modern realities.

[vak]

Насколько я смутно помню, основная проблема Алгола 68 была в том, что это динамический язык. То есть он ближе к Питону, чем к Си.

[juan_gandhi]

Серьёзно? Вот этой части я не помню. Хотя и честно прочитал Пересмотренное Сообщение.

[vak]

Не могу с полной уверенностью утверждать. Мне никогда не попадалась работающая реализация Алгола 68. Кроме нынешней Algol68 Genie, но это интерпретатор, а не компилятор.

[juan_gandhi]

Мы что-то больше особенности компилятора изучали. Не, язык тоже, но язык как-то сильно вылетел из головы.

[spamsink]

В смысле уровня выразительных средств он, конечно, велик, но с таким устаревшим синтаксисом не взлетит.

[vak]

Действительно, воспринимается такой код с трудом. Да и не важно, наверное, вряд ли кто станет что-то серьёзное нынче писать на Алголе 68. Чисто для ностальгии и сравнительного анализа.

[lev]

в свое время был хорош.
я на А68 ЛГУ вырос, можно сказать.

[vak]

О как! На каких машинах у вас Алгол 68 крутился?

[lev]

1033, 1035.
кстати расчеты на нем шли на ура, народ быстренько запилил комплексный тип - и это зарешало. произвольные вырезки из массивов тоже были вне конкуренции.

[vak]

О, это от той самой команды где Цейтин и Терехов? Я только в интернете читал, самого софта не видел. Я пришёл в курчатник в середине 80-х, там и ЕС-ки в том числе активно эксплуатировались. Но никакого Алгола 68 не было почему-то.

[lev]

Они самые.
Мое знакомство состоялось в 83м году на втором курсе - аргумент был "в отличие от Фортрана, можно писать несколько операторов в строке :)".
Преподаватели занимались расчетами для диссертаций и хоздоговоров, А68 вполне подходил.

[vak]

Для меня раньше было загадкой, почему красиво расписанные в книжках советские трансляторы разных языков программирования недоступны на практике. С годами дошло: так была устроена социалистическая экономика. Никому не приходило в голову софт поддерживать и развивать. Защитили диссертацию на компиляторе - а дальше гори он синим пламенем. Зарплата от этого не зависит.

[kondybas]

Я какой-то тупой. До меня только сейчас дошло, что в римской нотации C = centum, а M = milia.