Ceres Oberon

[ilovb]

Существует ли эмулятор Ceres с оригинальным Обероном?
И можно ли где-нибудь скачать исходники оригинала, или только из книги "Проект Оберон" копипастить?

http://www.youtube.com/watch?v=HoZuzE7Lq5E

All V4 implementations that have been released with source-code include source for an Oberon compiler. They are all based on OP2 - an Oberon-2 compiler originally by R.Crelier, except for the Ceres version of V4 which contains an Oberon compiler by Niklaus Wirth.

http://web.archive.org/web/19990117020720/http://www.math.tau.ac.il/~guy/Oberon/sources.html

[Kemet]

Если это V4, то я видел её, когда-то, на FTP ETHZ, но не скачивал, а сейчас там всё изменилось, фиг чего найдёшь.
вы таки не поверите, но в компиляторе виндового эмуля стоят те-же самые строки (я про with)

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

IF (id # NIL) & (id^.typ^.form = Pointer) & ((id^.mode = VarPar) OR ~id^.leaf) THEN
  err(-302) (* warning 302 *)
END ;Но, в отличии от BlackBox, процедура Mark сообщает о проблеме.
Но это, опять же, не Виртовский компилятор (

[ilovb]

Только порта а не эмуля 

У меня сообщения нет. Возможно у меня версия старее (ETH PlugIn Oberon for WindowsTM / Win32 2.5 (6.10.2004) on Windows Version 6.1.7601 Service Pack 1)

p.s. кстати там нет исходника модуля OPM (в котором процедура OPM.err), а только объектник

[Kemet]

PlugIn Oberon это вроде ка V3, это совсем другая система

[Kemet]

Только порта а не эмуля 

У меня сообщения нет. Возможно у меня версия старее (ETH PlugIn Oberon for WindowsTM / Win32 2.5 (6.10.2004) on Windows Version 6.1.7601 Service Pack 1)

p.s. кстати там нет исходника модуля OPM (в котором процедура OPM.err), а только объектник

У меня назвается Oberon for WindowsTM v4.0-2.3 on Windows NT 6.1
Процедура Mark

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

PROCEDURE Mark*(n: INTEGER; pos: LONGINT);
BEGIN
IF n >= 0 THEN
noerr := FALSE;
IF (pos < lastpos) OR (lastpos + 9 < pos) THEN lastpos := pos;
LogWLn; LogWStr("  pos "); LogWNum(pos, 6);
IF n = 255 THEN LogWStr("  pc "); LogWNum(breakpc, 6)
ELSIF n = 254 THEN LogWStr("  pc not found")
ELSE LogWStr("  err"); LogWNum(n, 4);
ErrorMsg(n) (* error message *)
END
END
ELSE
LogWLn; LogWStr("  pos "); LogWNum(pos, 6); LogWStr("  warning"); LogWNum(-n, 4);
ErrorMsg(-n)
END
END Mark;
Кстати, чтобы откомпилировать тестовый код, пришлось его подправить, чтобы определить тип записи, а потом уже типы указателей на нее

[ilovb]

Вот тут эмулятор Lilith если кому надо:
ftp://jdreesen.dyndns.org/ftp/Emulith

[ilovb]

Тут я так понимаю собраны все ETH Обероны доступные для скачивания:
ftp://ftp.ethoberon.ethz.ch/Oberon/

[ilovb]

Однако вот еще:
ftp://ftp.ssw.uni-linz.ac.at/pub/Oberon/

[ilovb]

Ну и еще до кучи: 
ftp://ftp.gwdg.de/pub/languages/oberon/

[ilovb]

Тут я так понимаю собраны все ETH Обероны доступные для скачивания:
ftp://ftp.ethoberon.ethz.ch/Oberon/

Исходники оригинального оберона в папке MacII

[ilovb]

System 3
A once experimental variant of Oberon, which has taken most of the impetus. System 3 adds support for persistent Objects on the system level, and gives a graphical interface using Gadgets. At present, this is our most recommeded version of Oberon for serious development.
Oberon V4
This is the most recent version of the classical Oberon system documented in [Reiser 1991] and [Wirth & Gutknecht 1992]. If you see Oberon without special name tag, it is most probably Oberon version 4. Although System 3 has taken most of the impetus, you will find various experimental developments and new possibilities in V4 which are not available in other variants.

http://web.archive.org/web/19990202213450/http://www.statlab.uni-heidelberg.de/projects/oberon/

[ilovb]

Тут я так понимаю собраны все ETH Обероны доступные для скачивания:
ftp://ftp.ethoberon.ethz.ch/Oberon/

Исходники оригинального оберона в папке MacII

Уточнение:
ftp://ftp.ethoberon.ethz.ch/Oberon/OberonV4/MacII/Sources/
Это исходники первой редакции.

Исходники последней редакции в папке Books
ftp://ftp.ethoberon.ethz.ch/Oberon/Books/

[ilovb]

NS32032 MICROPROCESSOR Instruction Set Summary

http://www.textfiles.com/programming/CARDS/32032

[ilovb]

Поржал 

V4 probably sticks the closest to the original vision of "as simple as possible, but not simpler".
System 3 gives you a completely contained environment with all the "bells and whistles" that someone used to Unix Motif might expect plus a "component style" Gadget subsystem.

http://web.archive.org/web/20011119225056/http://nettrash.com/users/dibra/oberon.bookmarks.html

[09:31:31] <ilovb> кстати System 3 умеет работать в трех режимах
[09:31:45] <ilovb> 1. Классический как в книге + свистоперделки

http://subtroj.info/oberon@conference.jabber.ru/2012/05/10.html

[ilovb]

Вот тут навороченная версия Oberon V4
http://www.claudio.ch/V4/

Список модулей впечатляет:
http://www.claudio.ch/V4/modules.html

add: И исходники присутствуют