Онлайн компилятор Oberon-07/11
Путеводитель по Оберон-проектам.
Логи jabber-конференции.
Онлайн исходники BlackBox: тут:WeBB и на github
Исходники Project Oberon V4 на github.
Сборник решений задач книги "Современное программирование с нуля!" тут. А обсуждение здесь.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Не, не вижу - где может быть пустой statement?
WHILE func() DO
(* пустой оператор *)
END
Oberon-07/11
Кстати, к вопросу о совместимости разных реализаций. Приведенный пример не соответствует репорту языка синтаксически - пресловутые "лишние" точки с запятой. Могу долго рассказывать, что я об этом думаю... но не буду. Просто замечу.
statement = [assignment | ProcedureCall | IfStatement | CaseStatement |
WhileStatement | RepeatStatement | ForStatement].
...
StatementSequence = statement {";" statement}.
<*+ MAIN *>
MODULE Blur;
IMPORT Out;
CONST
W = 640; W1 = 640 - 3;
H = 480; H1 = 480 - 3;
N = 13;
Frames = 100;
TYPE
INTEGER = LONGINT;
Plane = ARRAY W*3, H OF SHORTINT;
VAR
a, b : Plane;
PROCEDURE Blur2DArray*;
VAR
f, n : INTEGER;
x, y : INTEGER;
color : INTEGER;
BEGIN
FOR f:=1 TO Frames DO
FOR n:=1 TO N DO
FOR y:=1 TO H-2 DO
FOR x:=1 TO W-2 DO
FOR color:=0 TO 2 DO
b[x*3+color,y] := (a[x*3+color,y+1]+a[x*3+color,y-1]+a[(x-1)*3,y]+a[(x+1)*3,y]) DIV 4;
END
END
END;
FOR y:=1 TO H-2 DO
FOR x:=1 TO W-2 DO
FOR color:=0 TO 2 DO
a[x*3+color,y] := (b[x*3+color,y+1]+b[x*3+color,y-1]+b[(x-1)*3,y]+b[(x+1)*3,y]) DIV 4;
END
END
END
END
END;
END Blur2DArray;
BEGIN
Blur2DArray;
Out.String("Done");
END Blur.
MODULE Blur;
IMPORT dt := DateTime, In, Out, RTL;
CONST
W = 640; W1 = 640 - 3;
H = 480; H1 = 480 - 3;
N = 13;
Frames = 1;
TYPE
Plane = ARRAY W*3, H OF CHAR;
VAR
a, b: Plane;
time: LONGREAL;
PROCEDURE Blur2DArray*;
VAR
f, n : INTEGER;
x, y : INTEGER;
color : INTEGER;
BEGIN
FOR f:=1 TO Frames DO
FOR n:=1 TO N DO
FOR y:=1 TO H-2 DO
FOR x:=1 TO W-2 DO
FOR color:=0 TO 2 DO
b[x*3+color,y] := CHR((ORD(a[x*3+color,y+1])+ORD(a[x*3+color,y-1])+ORD(a[(x-1)*3,y])+ORD(a[(x+1)*3,y])) DIV 4);
END
END
END;
FOR y:=1 TO H-2 DO
FOR x:=1 TO W-2 DO
FOR color:=0 TO 2 DO
a[x*3+color,y] := CHR((ORD(b[x*3+color,y+1])+ORD(b[x*3+color,y-1])+ORD(b[(x-1)*3,y])+ORD(b[(x+1)*3,y])) DIV 4);
END
END
END
END
END;
END Blur2DArray;
BEGIN
In.Open;
Out.Open;
time := dt.Now();
Blur2DArray;
Out.FixReal(LONG(FLT(Frames))/((dt.Now() - time) * 86400.D0), 20, 5);
In.Ln;
END Blur.
MODULE Blur;
IMPORT c := Console;
CONST
W = 640; W1 = 640 - 3;
H = 480; H1 = 480 - 3;
N = 13;
Frames = 10;
TYPE
Plane = ARRAY W*3, H OF CHAR;
VAR
a, b : Plane;
time : INTEGER;
PROCEDURE ["Kernel32.dll", "GetTickCount", 0] GetTickCount(): INTEGER;
PROCEDURE Blur2DArray*;
VAR
f, n : INTEGER;
x, y : INTEGER;
color : INTEGER;
BEGIN
FOR f:=1 TO Frames DO
FOR n:=1 TO N DO
FOR y:=1 TO H-2 DO
FOR x:=1 TO W-2 DO
FOR color:=0 TO 2 DO
b[x*3+color,y] := CHR((ORD(a[x*3+color,y+1])+ORD(a[x*3+color,y-1])+ORD(a[(x-1)*3,y])+ORD(a[(x+1)*3,y])) DIV 4);
END
END
END;
FOR y:=1 TO H-2 DO
FOR x:=1 TO W-2 DO
FOR color:=0 TO 2 DO
a[x*3+color,y] := CHR((ORD(b[x*3+color,y+1])+ORD(b[x*3+color,y-1])+ORD(b[(x-1)*3,y])+ORD(b[(x+1)*3,y])) DIV 4);
END
END
END
END
END;
END Blur2DArray;
BEGIN
time := GetTickCount();
Blur2DArray;
time := GetTickCount() - time;
c.Int(time); c.Ln;
END Blur.
program Blur;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
CONST
W = 640; W1 = 640 - 3;
H = 480; H1 = 480 - 3;
NN = 13;
Frames = 10;
TYPE
Plane = ARRAY [0..W*3-1, 0..H-1] OF BYTE;
VAR
a, b : Plane;
PROCEDURE Blur2DArray;
VAR
f, n : INTEGER;
x, y : INTEGER;
color : INTEGER;
i: INTEGER;
BEGIN
FOR f:=1 TO Frames DO BEGIN
FOR n:=1 TO NN DO BEGIN
FOR y:=1 TO H-2 DO BEGIN
FOR x:=1 TO W-2 DO BEGIN
FOR color:=0 TO 2 DO BEGIN
b[x*3+color,y] := (a[x*3+color,y+1]+a[x*3+color,y-1]+a[(x-1)*3,y]+a[(x+1)*3,y]) DIV 4;
END
END
END;
FOR y:=1 TO H-2 DO BEGIN
FOR x:=1 TO W-2 DO BEGIN
FOR color:=0 TO 2 DO BEGIN
a[x*3+color,y] := (b[x*3+color,y+1]+b[x*3+color,y-1]+b[(x-1)*3,y]+b[(x+1)*3,y]) DIV 4;
END
END
END
END
END;
END;
var t: Cardinal;
begin
try
t := GetTickCount;
Blur2DArray;
t := GetTickCount - t;
Write((Frames/t*1000):20:5);
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
TinyC 0.9.24 2.17 fps (реализация Geniepro)
Delphi-2010 4.32 fps
Delphi-2010 2.88 fps (Range checking)
BBCP 1.83 fps
XDS O2 1.82 fps
O-07M (Rifat) 0.37 fps
O-07/11 (akron1) 0.44 fps
O-07/11 (akron1) 0.55 fps (сдвиг вместо деления)
кстати, правильно ли я понял, что фактическую длину строки хранящейся в массиве символов считать приходится ручками?
PS. А еще я не понимаю сакраментального смысла наличия процедуры COPY в языке, ведь оно делает ровно то же самое, что и простое присваивание строк.
VAR
a: ARRAY 10 OF CHAR;
b: ARRAY 20 OF CHAR;
...
b := a; (* так нельзя *)
COPY(a, b); (* так можно *)
Так. У меня ощущение складывается, что проблема есть и просто с массивами:Код: [Выделить]MODULE TestModule;
VAR intArray : ARRAY 8 OF INTEGER;
PROCEDURE Test(VAR arg : ARRAY OF INTEGER);
VAR localArray : ARRAY 100500 OF INTEGER
BEGIN
arg := localArray
END Test
BEGIN
Test(intArray)
END TestModule.
Что будет? Так можно вообще? Если да, то почему? Если нет, то тоже почему?
akron1, один знакомый оберонщик попросил уточнить насчёт лицензии на данный компилятор. Он опасается, что если её сейчас нет никакой, то потом ВДРУГ может появиться совсем неудобная (для его нужд).
И ещё -- планируется ли версия для линупсов/юнипсов?а вот в линуксах я совершенно не разбираюсь
А можно нескромный вопрос: поддержка ОС "Колибри" не планируется?
Возможные варианты:
1) Win64
2) Linux
3) Внутреннее представление, оптимизации
4) Транслятор Oberon-07 -> C/C++
С чего начать, пока не выбрал.
Так что и без Колибри есть над чем работать.
(* array[i].pointer.field := 123; *)
p := array[i].pointer;
p.field := 123;
Компилятор не позволяет такое присваивание в случае если массив передан в функцию "по значению" (не-VAR):Код: [Выделить]array[i].pointer.field := 123;
Я думаю, что это бага. Вот выдержка из обероновского репорта:Цитировать9.1
...
If a value parameter is structured (of array or record type), no assignment to it or to its elements are permitted. Neither may assignments be made to imported variables.
Рекорд, на который ссылается указатель, не является элементом массива - следовательно такое присваивание должно работать.