December 2020 - Oberon - mailman3.inf.ethz.ch

Re: [Oberon] Emulators
by Jörg 14 Feb '22

14 Feb '22

Wojtek > How can I proceed, in practical terms, to use your JS emulator for development? Perhaps we should start discussing, WHAT you want to change. At the moment I see three different levels of HW modifications: easy, more difficult, impossible. Basically, see an emulator as virtualization. In virtualization you have a host machine (where the emulator runs on) and a guest machine (this is the FPGA board). I ignore „containers“ at the moment Easy: if you want to extend the RISC-5 instruction set in Verilog (eg add an autoincrement instruction) the modification of the emulator is rather straight forward. I neglect the fact that you have to modify the Oberon-07 compiler to use this new instruction, because this is not important for the emulator. More difficult: if you want to add IO mapped HW (eg Ethernet or Wifi) or memory mapped HW (eg color display) to your FPGA and the host machine has an equivalent of this HW, with a little bit of effort the emulator can be modified to map the IO register commands or new memory layout to the corresponding host HW. Impossible: if you want to add HW to your FPGA and the host machine does not have an equivalent HW (eg a neutrino sensor) then it‘s impossible for the emulator to mimic the new FPGA HW. br Jörg

7 33

Wanted: Oberon Syntax in TextMate, Sublime Text or Atom Grammar
by Treutwein Bernhard 01 Jan '22

01 Jan '22

Does somebody have grammars for Oberon / Oberon-2 / Component Pascal / Active Oberon as grammar for TextMate / Sublime Text / Atom Background: Github wrongly classifies Oberon / Oberon-2 / Component Pascal / Active Oberon as Modula-2. I opened quite some tiome ago an issue in the github/linguist project (https://github.com/github/linguist/issues/3888) and they don't accept EBNF grammars. -- Bernhard Treutwein

6 9

File transfer; was, "all in one git tree"
by peter＠easthope.ca 01 Jan '21

01 Jan '21

Hi, From: =?utf-8?Q?J=C3=B6rg_Straube?= <joerg.straube(a)iaeth.ch> Date: Thu, 31 Dec 2020 12:52:51 +0100 > I transfer file to and from Oberon with tftp (RFC1350, tftp client > on OberonOS, tftp server on other side). TFTP client and server were also implemented in A2 by "be". Modules TFTP.Mod (373 lines) and Oberon.TFTPTool.Mod (51 lines) are visible. https://en.wikibooks.org/wiki/Oberon/A2#Sources,_Tools_and_Configuration_Te… TFTP.Mod has "IMPORT IP, UDP, Files, Random, KernelLog;" Random is used to find a vacant port. generator: Random.Generator; ... REPEAT INC(retries); lport := 1024 + generator.Integer() MOD 64512; NEW(socket, lport, res) UNTIL (res # UDP.PortInUse) OR (retries > MaxSocketRetries); According to https://en.wikipedia.org/wiki/List_of_TCP_and_UDP_port_numbers port 69 is assigned to TFTP. Why not use it? An incremental search might be acceptable. (* Find a vacant ephemeral port. *) lport := 60000; topPort := lport + MaxSocketTries; (* Top ephemeral port is 64738. I don't understand the origin of 64512. *) IF topPort > 64738 THEN topPort := 64738 END; NEW(socket, lport, res); WHILE(res = UDP.PortInUse) & (lport < topPort) DO INC(lport); NEW(socket, lport, res) END; A FPGA board connects to the server by a serial crossover cable. Analogously for an emulated V5 machine. In linux at least, a server is readily available. https://wiki.debian.org/TFTP Regards, ... P. L. -- Tel: +1 604 670 0140 Bcc: peter at easthope. ca

2 1

all in one git tree
by D EMARD 31 Dec '20

31 Dec '20

HI As a hobby-time curiosity user of oberon I know that there are a lot of separated codes, similar but slightly incompatible. Did someone try to construct a historic git branching tree starting of some earlier source and importing newer as its branches. Not neccessary that everything is in exact date when it happened, but just to have all in one place and easier to borrow some code from other branch when needed

19 51

Module finalization in PO2013
by Andreas Pirklbauer 30 Dec '20

30 Dec '20

Thank you all for the module finalization discussion today (mostly off-forum). It turns out that the whole thing can be implemented in less than 10 lines of code in Modules: PROCEDURE SetClose*(close: Command); (*set module finalization sequence*) VAR u, v: INTEGER; mod: Module; BEGIN u := SYSTEM.REG(LNK); mod := root; WHILE (mod # NIL) & ((u < mod.code) OR (u >= mod.imp)) DO mod := mod.next END ; (*search for caller*) IF mod # NIL THEN SYSTEM.GET(mod.ent, v); (*offset to body*) IF (mod.code + v <= u) & (u < mod.imp) THEN mod.close := close ELSE res := 9 END END END SetClose; -ap

1 0

Re (2): [EXT] Re (n): Installing V4.
by peter＠easthope.ca 30 Dec '20

30 Dec '20

> ... Oberon.ini under Windows V4 is well explained in its own text. > If you have one around from the installation ... find /usr/local/oberon-1.7.02 -type f -name "*.i*" finds 0 files. > I can send you the Windows version if you wish. Yes please. Thx, ... P. -- Tel: +1 604 670 0140 Bcc: peter at easthope. ca

2 1

Module finalization in PO2013
by Andreas Pirklbauer 30 Dec '20

30 Dec '20

> This *could* be solved by a considerably more complex piece of code in Modules.SetClose. Wojtek, Following our earlier exchange: Actually, a brute force method would be to simply move the call to Oberon.Loop down to Modules (as on Ceres Oberon) and set curmod := NIL *after* loading module Oberon. MODULE Modules; ... VAR loop: Command; … BEGIN Init; Load("Oberon", M); curmod := NIL; (*so that SetClose would also work in module Oberon*) IF res = noerr THEN loop := ThisCommand(M, "Loop"); loop (*<— Oberon.Loop now called HERE*) ELSE LED(res); REPEAT UNTIL FALSE (*if load fails, e.g. if body of Oberon calls SetClose(externalcmd)*) END END Modules. MODULE Oberon; … BEGIN ... Modules.Load("System", Mod); Mod := NIL (*<— Loop is no longer called HERE*) END Oberon. That would solve it too. But as stated earlier: Not worth the trouble, since module Oberon is never unloaded anyway => the solution is good the way it is. -ap

1 0

Module finalization in PO2013
by Andreas Pirklbauer 30 Dec '20

30 Dec '20

Hi Wojtek, Just a small note of caution on Modules.SetClose(command): The solution *wouldn’t* work if Modules.SetClose was used in module *Oberon* itself. Reason: This has to do with the Oberon boot process: There, the call to Load(“Oberon”) in the initialization sequence of module Modules actually never (!) terminates. So we always have Modules.curmod = “Oberon” once the system is running. Only when a new module M is loaded is Modules.curmod temporarily set to “M” (before being set back to “Oberon”) Two cases where this is problematic: 1) Adding a command P to module Oberon, which *calls* Modules.SetClose(somecommand) -> when the user clicks on Oberon.P, this is NOT caught by Modules.SetClose 2) Adding a call Modules.SetClose(externalcommand) to the initialization *body* of Oberon -> this IS actually caught by Modules.SetClose, but there is no error message This *could* be solved by a considerably more complex piece of code in Modules.SetClose. But it was decided *not* to solve this one issue, because module Oberon is *known* to have no module finalizers *and* it also wouldn’t make sense to add one (the module is never unloaded). -ap > Andreas: wonderful! Thank you very much! > > Wojtek > ________________________________________ > From: Oberon [oberon-bounces at lists.inf.ethz.ch] on behalf of Andreas Pirklbauer [andreas_pirklbauer at yahoo.com] > Sent: Tuesday, December 29, 2020 6:44 PM > To: Oberon List > Subject: [EXT] [Oberon] Module finalization in PO2013 > > A simple module finalization mechanism that does NOT require a change in the > Oberon-07 language (i.e. no CLOSE as as Component Pascal) is available at > https://github.com/andreaspirklbauer/Oberon-module-finalization

1 0

Re (n): Installing V4.
by peter＠easthope.ca 30 Dec '20

30 Dec '20

From: peter(a)easthope.ca Date: Mon, 28 Dec 2020 10:18:22 -0800 > Another puzzling notation: the paired equilateral triangles. > Similar to ><. Just an element(?) to toggle the display of the definition of a procedure. MM on >< to show the procedure in full. MM again to hide it. One of the documents mentions Oberon.ini for configuration of the system. Similar to ETH_Oberon:Oberon.Text? No default or template? Is the syntax of Oberon.ini explained? Thx, ... P. L. -- Tel: +1 604 670 0140 Bcc: peter at easthope. ca

2 1

Module finalization in PO2013
by Andreas Pirklbauer 29 Dec '20

29 Dec '20

A simple module finalization mechanism that does NOT require a change in the Oberon-07 language (i.e. no CLOSE as as Component Pascal) is available at https://github.com/andreaspirklbauer/Oberon-module-finalization Comments are welcome. Test program: MODULE Test; IMPORT Modules, Texts, Oberon; VAR W: Texts.Writer; PROCEDURE Finalize; BEGIN Texts.WriteString(W, "Finalization of Test"); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf) END Finalize; PROCEDURE Start*; BEGIN (*load module*) END Start; BEGIN Texts.OpenWriter(W); Modules.SetClose(Finalize) END Test. ORP.Compile Test.Mod/s ~ # compile Test Test.Start ~ # load Test System.Free Test ~ # unload Test (prints "Finalization of Test")

2 1