псевдомодуль "алгебра"

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

псевдомодуль "алгебра"

Сообщение БудДен » 11.09.21 14:57

Будет. В нём будут жить max, min, sign, abs и т.п. Пока что имитируем псевдомодуль, превращая MAX в алгебраMax и т.п.

БудДен
Сообщения: 2839
Зарегистрирован: 07.10.18 14:01

Re: псевдомодуль "алгебра"

Сообщение БудДен » 11.09.21 16:44

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",      мКонст.процЛСП);
            СущнСтанд_Создать("ЛСП",      мКонст.процЛСП);

Ответить