Онлайн компилятор Oberon-07/11
Путеводитель по Оберон-проектам.
Логи jabber-конференции.
Онлайн исходники BlackBox: тут:WeBB и на github
Исходники Project Oberon V4 на github.
Сборник решений задач книги "Современное программирование с нуля!" тут. А обсуждение здесь.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Тогда уж можно и полное дерево построить :-)Это будет уже перебор.
PROCEDURE IsReservedOberonWord(s: ARRAY OF CHAR): BOOLEAN;
VAR res: BOOLEAN
BEGIN
CASE s[0] OF
| 'A': res := s = "ARRAY";
| 'B': res := (s = "BEGIN") OR (s = "BY");
| 'C': res := (s = "CASE") OR (s = "CONST");
| 'D': res := (s = "DIV") OR (s = "DO");
| 'E': res := (s = "END") OR (s = "ELSE") OR (s = "ELSIF");
| 'F': res := (s = "FALSE") OR (s = "FOR");
| 'I': res := (s = "IMPORT") OR (s = "IN") OR (s = "IS") OR (s = "IF");
| 'M': res := (s = "MOD") OR (s = "MODULE");
| 'N': res := s = "NIL";
| 'O': res := (s = "OF") OR (s = "OR");
| 'P': res := (s = "POINTER") OR (s = "PROCEDURE");
| 'R': res := (s = "RECORD") OR (s = "REPEAT") OR (s = "RETURN");
| 'T': res := (s = "TO") OR (s = "THEN") OR (s = "TRUE") OR (s = "TYPE");
| 'U': res := s = "UNTIL";
| 'V': res := s = "VAR";
| 'W': res := s = "WHILE";
ELSE res := FALSE
END;
RETURN res
END IsReservedOberonWord;
А что, чем не международный язык? Листок бумаги, ручку, - и вперёд! Уж, я бы порасспросил и про то, и про сё. 
здесь случай другой (вы ему не нужны, и ничего дать не можете)Спорный аргумент.
После мегобайтных экзешников helo world... Мне этот вопрос покоя не даёт.
Мегабайты тянутся из стандартной либы - std::cout, printf и т.д. Исключения, dynamic_cast, new/delete - тоже часть стандартной либы и тоже требуют какого-то места в exe.
Но однажды я заглянул внутрь EXE файла одной из моих программ и, честно говоря, ужаснулся. Сразу же после всем известной фразы <This program must be run under Win32> и названий секций находился кусок исходного кода на Паскале одного из модулей моей программы.
Такие вопросы, как количество переменных в одной строке списка экспорта, тоже надо рассмотреть и к какому-то соглашению прийти...
ЦитироватьTYPE
ProcessingType * = POINTER TO RECORD END; (* dummy type *)
CallbackType * = PROCEDURE;
VAR
MouseX * : REAL;
MouseY * : REAL;
Width * : INTEGER;
Height * : INTEGER;
Я голосую за этот вариант.
VAR, то как мне отступы делать?
MouseX*, MouseY* : REAL; (* позиция курсора мыши *)
Width*, Height* : INTEGER; (* размеры окна *)
3) Не знаю, как лучше делать в таких случаях:На мой взгляд, лучше первый вариант. Во втором варианте звёздочка выглядит как "умножить" и только сбивает с толку. Третий вариант тоже плох, потому что маркер семантически связан с идентификатором, а не с типом. Стремление представить инфу об экспорте в виде столбика понятно, - так нагляднее, - но здесь всё же лучше не перебарщивать.
TYPE
Object* = RECORD
field*: REAL;
END;
VAR obj-: Object; (* не разрешённый экспорт! *)
Вот вот. Однако начали вы с "Дело, видимо, всё же в другом."Согласен. Не совсем удачный заход...
Куфман В.Ш., "Языки программирования. Концепции и принципы", 2011, Гл.2.2.3:Точнее, гл.2.3.3 (с. 50)
Где там противоречие с вашим утверждением?Моё утверждение не противоречит Вашему, а скорее дополняет его (или расширяет).
По крайней мере на счет указателей у меня БОЛЬШИЕ сомнения.Нашёл у Кауфмана. Правда, это не про Оберон, а вообще.
Имеются четыре категории типов: скалярные, составные, ссылочные и приватные.... и далее по тексту разжёвано.
