псевдомодуль "алгебра"
псевдомодуль "алгебра"
Будет. В нём будут жить max, min, sign, abs и т.п. Пока что имитируем псевдомодуль, превращая MAX в алгебраMax и т.п.
Re: псевдомодуль "алгебра"
https://github.com/prospero78/Oberon07r ... ob07#L1443
Код: Выделить всё
ТипСтандарт_Создать("BOOLEAN", мКонст.сущБУЛЕВО);
ТипСтандарт_Создать("БУЛЕВО", мКонст.сущБУЛЕВО);
ТипСтандарт_Создать("CHAR", мКонст.сущЛИТЕРА);
ТипСтандарт_Создать("ЛИТ", мКонст.сущЛИТЕРА);
ТипСтандарт_Создать("INTEGER", мКонст.сущЦЕЛОЕ);
ТипСтандарт_Создать("ЦЕЛОЕ", мКонст.сущЦЕЛОЕ);
ТипСтандарт_Создать("REAL", мКонст.сущВЕЩ);
ТипСтандарт_Создать("ВЕЩ", мКонст.сущВЕЩ);
ТипСтандарт_Создать("LONGREAL", мКонст.сущДЛИНВЕЩ);
ТипСтандарт_Создать("ДЛИНВЕЩ", мКонст.сущДЛИНВЕЩ);
ТипСтандарт_Создать("SET", мКонст.сущНАБОР);
ТипСтандарт_Создать("НАБОР", мКонст.сущНАБОР);
(* базовые процедуры *)
СущнСтанд_Создать("ABS", мКонст.процАБС);
СущнСтанд_Создать("АБС", мКонст.процАБС);
СущнСтанд_Создать("ASR", мКонст.процЗСП);
СущнСтанд_Создать("ЗСП", мКонст.процЗСП);
СущнСтанд_Создать("ASSERT", мКонст.процКОНТРОЛЬ);
СущнСтанд_Создать("КОНТРОЛЬ", мКонст.процКОНТРОЛЬ);
СущнСтанд_Создать("CHR", мКонст.процВЛИТ);
СущнСтанд_Создать("ВЛИТ", мКонст.процВЛИТ);
СущнСтанд_Создать("COPY", мКонст.процКОПИЯ);
СущнСтанд_Создать("КОПИЯ", мКонст.процКОПИЯ);
СущнСтанд_Создать("INC", мКонст.процДОБ);
СущнСтанд_Создать("ДОБ", мКонст.процДОБ);
СущнСтанд_Создать("DEC", мКонст.процВЫЧ);
СущнСтанд_Создать("ВЫЧ", мКонст.процВЫЧ);
СущнСтанд_Создать("DISPOSE", мКонст.процЛИШН);
СущнСтанд_Создать("ЛИШН", мКонст.процЛИШН);
СущнСтанд_Создать("EXCL", мКонст.процВЫЧВ);
СущнСтанд_Создать("ВЫЧВ", мКонст.процВЫЧВ);
СущнСтанд_Создать("FLOOR", мКонст.процКЦЕЛ);
СущнСтанд_Создать("КЦЕЛ", мКонст.процКЦЕЛ);
СущнСтанд_Создать("FLT", мКонст.процКВЕЩ);
СущнСтанд_Создать("КВЕЩ", мКонст.процКВЕЩ);
СущнСтанд_Создать("INCL", мКонст.процДОБВ);
СущнСтанд_Создать("ДОБВ", мКонст.процДОБВ);
СущнСтанд_Создать("LEN", мКонст.процДЛИН);
СущнСтанд_Создать("ДЛИНА", мКонст.процДЛИН);
СущнСтанд_Создать("LENGTH", мКонст.процДЛИНСТР);
СущнСтанд_Создать("ДЛИНСТР", мКонст.процДЛИНСТР);
СущнСтанд_Создать("LSL", мКонст.процЛСЛ);
СущнСтанд_Создать("ЛСЛ", мКонст.процЛСЛ);
СущнСтанд_Создать("LONG", мКонст.процУДЛИН);
СущнСтанд_Создать("УДЛИН", мКонст.процУДЛИН);
СущнСтанд_Создать("NEW", мКонст.процНОВ);
СущнСтанд_Создать("НОВ", мКонст.процНОВ);
СущнСтанд_Создать("ODD", мКонст.процЧЁТ);
СущнСтанд_Создать("ЧЁТ", мКонст.процЧЁТ);
СущнСтанд_Создать("ORD", мКонст.процНЛИТ);
СущнСтанд_Создать("НЛИТ", мКонст.процНЛИТ);
СущнСтанд_Создать("PACK", мКонст.процУПАК);
СущнСтанд_Создать("УПАК", мКонст.процУПАК);
СущнСтанд_Создать("UNPK", мКонст.процРАСП);
СущнСтанд_Создать("РАСП", мКонст.процРАСП);
СущнСтанд_Создать("ROR", мКонст.процЦСП);
СущнСтанд_Создать("ЦСП", мКонст.процЦСП);
СущнСтанд_Создать("SHORT", мКонст.процУКОРОТ);
СущнСтанд_Создать("УКОРОТ", мКонст.процУКОРОТ);
СущнСтанд_Создать("BITS", мКонст.процБИТ);
СущнСтанд_Создать("БИТ", мКонст.процБИТ);
СущнСтанд_Создать("LSR", мКонст.процЛСП);
СущнСтанд_Создать("ЛСП", мКонст.процЛСП);