Алгол и Баш
Удивительно, я и не догадывался, что иногда употребляю ключевые слова родом из «Алгола-68»!
Оказывается автор командной оболочки bsh Стивен Борн притащил ключевые слова IF/FI и CASE/ESAC прямиком из «Алгола». Позже оттуда они попали в более известный сейчас bash, на котором я нередко пишу.
Более того, Стивен Борн по всей видимости насколько крепко фанател по этому языку, что специальными макросами превратил Си, на котором написал bsh, в некое подобие «Алгола» (исходники есть в интернете).
Если скачать себе пару заголовочных файлов (и выкинуть из них всё то, что мешает компиляции), то можно и сейчас попробовать этот макроязык в деле (это я пузырьковую сортировку написал):
#pragma GCC diagnostic ignored "-Wimplicit-int"
#pragma GCC diagnostic ignored "-Wreturn-type"
#include "mac.h"
#include "mode.h"
#include <stdio.h>
bubbleSort(arr, n)
INT arr[], n;
BEGIN
INT i, j;
FOR i = 0; i < n - 1; i++
DO FOR j = 0; j < n - i - 1; j++
DO IF arr[j] > arr[j + 1]
THEN arr[j] = arr[j] - arr[j+1];
arr[j+1] = arr[j] + arr[j+1];
arr[j] = arr[j+1] - arr[j];
FI
OD
OD
END
printArray(arr, n)
INT arr[], n;
BEGIN
INT i;
FOR i = 0; i < n; i++
DO
printf("%d ", arr[i]);
OD
printf("\n");
END
main()
BEGIN
INT arr[] = { 0xFE, 0xED, 0xBE, 0xEF };
INT n = 1[&arr] - arr;
printArray(arr, n);
bubbleSort(arr, n);
printArray(arr, n);
ENDПримерно так выглядят исходники bsh. Единственное моё добавление — BEGIN и END, которые Борн для описания тела функций не использует, но зато в «Алголе» принято делать именно так.
Кстати (век живи — век учись), такое неординарное объявление функций, как у меня в листинге (а я подсмотрел его в исходниках bsh), — как оказалось, устаревший синтаксис Си, причём он до сих пор поддерживается компиляторами.
