Раскручиваем компилятор O7

[Geniepro]

Оберон-2 был разработан в 1991 году в Швейцарской высшей технической школе (Цюрих) Никлаусом Виртом и Ханспетером Мёссенбёком

http://www.uni-vologda.ac.ru/oberon/o2rus.htm

Мало ли что Свердлов понаписал на своём сайте. Он и про арифметику синтаксиса пургу гнал.

Всё в порядке, гони хуйню дальше, женя. Ты же вон какой профессионал

петрушка, слушай лучше Стравинского, больше пользы принесёшь...

Заявка на победу. То есть ты сомневаешься, что О2 был написан виртом, как развитие Оберона? Ну ты и ебанько.

Третий раз повторяю (а значит это истина) -- учи матчасть!

Мёссенбёк для своих нужд переделал Оберон, обозвал его Обероном-2, а Вирт подмахнул рапорт об Обероне-2. Вот и всё участие Вирта в создании Оберона-2.

[kkk]

А ты рядом стоял, свечку держал. Вот оно что.
Какой ты.

[kkk]

Сколько раз я тебя назвал уёбищем? Два, три? Может уже пора закрепить результат?

[Berserker]

Vlad, у меня в Делфи код ещё более многословен. Это абсолютно не напрягает, если настроить такие редакторы как Notepad++ (плагин QuickText) или Sublime Text 2. Практически для всего пишешь сниппеты или их аналоги. И целые блоки и серии описаний в несколько нажатий клавиш. Например, i CTRL + ENTER = INTEGER. r =END RETURN x; Попробуйте.

[kkk]

Дельфи это ведь моветон. Грешно вспоминать такое на форуме умных адекватных людей Вот вы бы лучше вспомнили Луа, или Скала.

[Kemet]

Кчтати, Влад, если доведёшь компилятор до соответствия этому рапорту, можно его смело переименовывать из Oberon-07/11 в Oberon-13, или же просто в Oberon. Так будет правильнее...

Файл репорта Вирт назвал Oberon07.Report.pdf - 07, а не 13

[vlad]

Хотя нет, выйдет примерно так: "stream.pos(stream)". Да уж, хрен редьки не слаще...

Угу. Без расширений (методы или не знаю что) все равно ерунда будет.

[vlad]

Vlad, у меня в Делфи код ещё более многословен. Это абсолютно не напрягает, если настроить такие редакторы как Notepad++ (плагин QuickText) или Sublime Text 2.

Кстати, а нет ли у тебя расцветки для Сублима?

[valexey_u]

Гм. А что мешает сделать как-то так?

Код: [Выделить]

MODULE Test;
IMPORT SomeModule;

PROCEDURE LetDoIt;
VAR
   var : SomeModule.SomeType;
   process : PROCEDURE (v : SomeModule.SomeType);
BEGIN
   process := SomeModule.ProcessSomeType;
   process(var);
   (* и тут еще 100500 строк кода с испоользованием process *)
END LetDoIt;

END Test;


[Geniepro]

Гм. А что мешает сделать как-то так?

Код: [Выделить]

MODULE Test;
IMPORT SomeModule;

PROCEDURE LetDoIt;
VAR
   var : SomeModule.SomeType;
   process : PROCEDURE (v : SomeModule.SomeType);
BEGIN
   process := SomeModule.ProcessSomeType;
   process(var);
   (* и тут еще 100500 строк кода с испоользованием process *)
END LetDoIt;

END Test;


Так ещё хуже -- повышается уровень косвенности, труднее понимать, что там вообще происходит...

[Berserker]

Кстати, а нет ли у тебя расцветки для Сублима?

К сожалению, нет. Нужно брать за основу пакет Pascal. Там 5,35 кибибайта размер всего.

[valexey_u]

Гм. А что мешает сделать как-то так?

Код: [Выделить]

MODULE Test;
IMPORT SomeModule;

PROCEDURE LetDoIt;
VAR
   var : SomeModule.SomeType;
   process : PROCEDURE (v : SomeModule.SomeType);
BEGIN
   process := SomeModule.ProcessSomeType;
   process(var);
   (* и тут еще 100500 строк кода с испоользованием process *)
END LetDoIt;

END Test;


Так ещё хуже -- повышается уровень косвенности, труднее понимать, что там вообще происходит...

foo.bar() -- тоже уровень косвенности огого, особенно если bar это виртуальная функция - ведь ты даже не знаешь в каком модуле она лежит! И не узнаешь пока все исходники не перетрясешь!

А тут же - все локально и явным образом определено.

[vlad]

А как вообще этот код может компилироваться?

Это бага. Пока прокатывает, потому что модуль потребляется из жабаскрипта  (а не из других обероновских модулей).

[vlad]

Это бага. Пока прокатывает, потому что модуль потребляется из жабаскрипта  (а не из других обероновских модулей).

Я тут было уже фикснул, но подумал, что нет, не бага. Например вот такой случай:

Код: [Выделить]

MODULE test;
TYPE
    T = POINTER TO RECORD END;
    Proc* = PROCEDURE(): T;

PROCEDURE method1*(): T;
...
PROCEDURE method2*(): T;
...
PROCEDURE do*(method: Proc);
...

IMPORT test;
...
test.do(test.p1);

Возможно даже Proc не надо экспортировать. Так что пока откачу фикс.

[Geniepro]

Это бага. Пока прокатывает, потому что модуль потребляется из жабаскрипта  (а не из других обероновских модулей).

Я тут было уже фикснул, но подумал, что нет, не бага. Например вот такой случай:

Код: [Выделить]

MODULE test;
TYPE
    T = POINTER TO RECORD END;
    Proc* = PROCEDURE(): T;

PROCEDURE method1*(): T;
...
PROCEDURE method2*(): T;
...
PROCEDURE do*(method: Proc);
...

IMPORT test;
...
test.do(test.p1);
Всё же я думаю, что это баг. Как можно в обероне использовать процедуры с неизвестными сигнатурами?
Возможно даже Proc не надо экспортировать. Так что пока откачу фикс.