4 варианта русскоязычного Оберона

Языки программирования, процессоры, операционные системы, в которых русский язык занимает достойную роль в процессе разработки.
Ответить
БудДен
Сообщения: 2839
Зарегистрирован: 07.10.18 14:01

4 варианта русскоязычного Оберона

Сообщение БудДен » 25.04.22 13:46

* Язык программирования Глагол (на сегодня не имеет приличного сайта без навязчивой рекламы, кто знает, где найти копию?)
* Информатика-XXI позволяет писать ключевые слова на русском, см. https://вече.программирование-по-русски ... p?f=6&t=23
* ЯОС, см. https://tvoygit.ru/budden/ja-o-s/src/br ... ификаторов
* Вариант от prospero78 (см. также другие темы про него на этом форуме). Пример вот отсюда:

https://github.com/prospero78/Oberon07r ... актор.ob07

Код: Выделить всё

МОДУЛЬ модРедактор;

ИМПОРТ mSys := SYSTEM,
   API := модАПИ;

КОНСТ
   hot_new = 0;
   hot_open = 1;

ТИПЫ
   STRING = МАССИВ 2048 ИЗ СИМВ;
   
ПЕРЕМ
   CreateWindowEx: ПРОЦЕДУРА [winapi] (dwExStyle, lpClassName, lpWindowName, dwStyle, X, Y,
                                       nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam: ЦЕЛОЕ): ЦЕЛОЕ;
   blocksel: БУЛЕВО;
   paramcolor: ЦЕЛОЕ;
   Shift, hotkeys: SET;
   
   тОкно = ЗАПИСЬ
   
      КОНЕЦ;
   
ПРОЦЕДУРА ОкноСоздать(lpClassName, lpWindowName: МАССИВ ИЗ СИМВ;
                      dwStyle, X, Y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam: ЦЕЛОЕ): ЦЕЛОЕ;
   ПЕРЕМ
      n: ЦЕЛОЕ; class, window: ЦЕЛОЕ;
   НАЧАЛО
     ВЕРНУТЬ CreateWindowEx(0, mSys.ADR(class), mSys.ADR(window), dwStyle, X, Y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
   КОНЕЦ ОкноСоздать;
   
(* ... *) 

НАЧАЛО
   Настроить
КОНЕЦ модРедактор.

Ответить