June 2026 - Oberon - mailman3.inf.ethz.ch

Re: [Oberon] Export of Oberon Mail.SendCmd().
by Joerg 30 Oct '26

30 Oct '26

Generally, re-using code instead of copying is a good approach. If you do so, then the whole code of Mail is imported in News. Possible but perhaps there is even a better approach to re-use code. What about this: try to separate all common code in an own module (e.g call it Communication.Mod or MsgBase.Mod or Utilities.Mod or so) and import this new module in Mail and in News. br Jörg > Am 14.06.2023 um 19:53 schrieb peter(a)easthope.ca: > > Hello again, > > Several procedures in Mail are used in Oberon News. Rg.: > Mail.ParseContent(), Mail.DecodeMessage() & Mail.GetSetting(). > > Is export of SendCmd() and use in News objectionable? > Ie. in Mail, change PROCEDURE SendCmd(...) to PROCEDURE SendCmd*(...). > > Thanks, ... P. > > - > mobile: +1 778 951 5147 > VoIP: +1 604 670 0140 > > -- > Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems > https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

A new low-cost Oberon for RISC5 FPGA development board
by Chris Burrows 25 Jul '26

25 Jul '26

Applications have been written in Oberon to run on FPGA hardware using the new low-cost (EUR 50) Olimex GateMateA1-EVB open-source development board: https://www.olimex.com/Products/FPGA/GateMate/GateMateA1-EVB/open-source-ha… Not only is this board designed AND manufactured in Europe, the Cologne Chip GateMate FPGA device that it uses is also designed AND produced in Europe: https://www.colognechip.com/programmable-logic/gatemate/ Also remarkable is that the Verilog tools used to build the GateMate FPGA bitstreams are 1/10th the size of the previous Verilog tools we used (500 Mbytes vs. 10 Gbytes) and result in RISC5 Verilog build times that are approximately 10 time faster (1 minute vs. 10 minutes): https://github.com/YosysHQ/oss-cad-suite-build The Astrobe for RISC5 FPGA Oberon development system is an embedded software system comparable to Astrobe for Cortex-M / RP2xxx. i.e. Standalone RISC5 Oberon applications are compiled and statically linked on a PC. They are then uploaded via a serial link to the Olimex development board where they run independently of an operating system. For more information see: https://www.astrobe.com/RISC5 The free Astrobe for RISC5 software targeting the GateMate FPGA is curently undergoing final testing. A pre-release version is planned before the end of this month. Register your contact details if you want to get your hands on a copy as soon as it is available: https://www.astrobe.com/RISC5/register.htm -- Regards, Chris Burrows CFB Software https://www.astrobe.com/

1 1

How is RTOS involved in running Linux on RISC-V?
by peter＠easthope.ca 04 Jul '26

04 Jul '26

Hi, Google explained that the two can coexist on a multi-core RISC-V with RTOS handling some hardware level tasks. For more verbiage, ask Google. TTFN, ... P.L. -- mobile: +1 778 951 5147 VoIP: +1 778 508 0020 Bcc: peter at e a s t h o p e dot c a projects: en.wikibooks.org/wiki/User:PeterEasthope

3 2

Re (2): Sipeed M1s? + Further question.
by peter＠easthope.ca 19 Jun '26

19 Jun '26

From: Chris Burrows <cfbsoftware(a)gmail.com> Date: Fri, 19 Jun 2026 13:34:53 +0930 > Looks OK to me: > > https://dl.sipeed.com/fileList/MAIX/HDK/Sipeed-M1&M1W/Specifications/Sipeed= > %20M1%20Datasheet%20EN%20V1.12.pdf Thanks Chris. Further question: where is FreeRTOS in the mix? Thx, ... P.L. -- mobile: +1 778 951 5147 VoIP: +1 778 508 0020 Bcc: peter at e a s t h o p e dot c a projects: en.wikibooks.org/wiki/User:PeterEasthope

1 0

Sipeed M1s?
by peter＠easthope.ca 19 Jun '26

19 Jun '26

Hello, The first cell of the eigth row of the table at https://en.wikibooks.org/wiki/Oberon/System_Variants#Source_Texts_in_Oberon… has "RISC-V running FreeRTOS on Sipeed M1s, Linux 32bit and Linux 64bit." "Sipeed M1s" a typo? What should the cell contain? Thanks, ... P.L. -- mobile: +1 778 951 5147 VoIP: +1 778 508 0020 Bcc: peter at e a s t h o p e dot c a projects: en.wikibooks.org/wiki/User:PeterEasthope

2 1

Re: [Oberon] [allowed] Oberon system 3 runs on real Raspberry Pihardware
by glardner＠iol.ie 15 Jun '26

15 Jun '26

Thanks for the comments and suggestions, Rochus and Peter. Appreciated. I had not been waiting long enough to see the mouse pointer on the console. It did indeed appear after about a minute or a minute and a half, but it does not respond to mouse movements, even after five minutes. I will go hunting in the junk room for old mice; I have at least a couple of wired mice with USB interface and one with PS/2 (but no longer any PS/2 computer); I should also have a Lenovo keyboard, possibly wired. I’ll try them. One other oddity. Oberon doesn’t respond to the RPi keyboard either. With the keyboard plugged into the RPi 3B, the keyboard indicators (Caps Lock, Num Lock) don’t light, though they do work on another RPi 4 with Raspberry Pi OS (my Lyrion Music Server host; I use the Raspberry Pi keyboard and mouse sometimes to reconfigure it). Best regards, Gerard Lardner From: Rochus Keller <me(a)rochus-keller.ch> Sent: Monday 15 June 2026 02:03 To: glardner(a)iol.ie Subject: Re: Re: [Oberon] [allowed] Oberon system 3 runs on real Raspberry Pihardware Hi Gerard I successfully tried with plain wired keyboard and mouse, and also different Lenovo trackpoint keyboards. I never tried with a wireless mouse or yet another USB hub. But even with my setup it usually takes 30 seconds until the Oberon system first detects the build-in hub in the raspberry pi 3b and then the USB devices connected to it. It might even take longer if there is yet another hub, or it might not work at all. You can see that the mouse was detected when the mouse cursor becomes visible. If that doesn't happen after 30-60 seconds, then you could read the console output using a TTL serial cable attached to the corresponding Pi ports. Or just use a conventional USB mouse with a wire. Hope this helps. Best regards Rochus Keller _______________________________ From: <mailto:glardner@iol.ie> glardner(a)iol.ie Sent on: Mon, 15 Jun 2026 02:08:02 +0200 To: <mailto:oberon@lists.inf.ethz.ch> ETH Oberon and related systems Cc: Subject: Re: [Oberon] [allowed] Oberon system 3 runs on real Raspberry Pihardware Hi Rochus, I am curious to try Oberon System 3 on a Raspberry Pi. It's a long, long time since I worked on any serious programming, longest of all in any of Wirth's languages. But Pascal (on a DECSystem 20) and later Turbo Pascal were my first programming languages, closely followed by Modula-2. I flashed an SD card for my RPi 3 Model B V1.2. It boots in about 3 sec but it does not recognise the Raspberry Pi keyboard (USB connected) or mouse (wireless to the USB hub in the keyboard). What type of keyboards and mice are most likely to work with this port of Oberon System 3? By the way, thank you very much for your efforts in porting this to RPi hardware. Kind regards, Gerard Lardner -----Original Message----- From: Oberon <oberon-bounces(a)lists.inf.ethz.ch <mailto:oberon-bounces@lists.inf.ethz.ch> > On Behalf Of Rochus Keller Sent: Friday 10 April 2026 14:36 To: oberon(a)lists.inf.ethz.ch <mailto:oberon@lists.inf.ethz.ch> Subject: [allowed] [Oberon] Oberon system 3 runs on real Raspberry Pi hardware Hello everyone In case you want to try the Oberon system on a real Raspberry Pi, here is an image ready to flash on an SD card with instructions: https://github.com/rochus-keller/OberonSystem3Native/releases/tag/2026-04-10 I did all debugging and testing on a Raspberry Pi model 3b (which is still regularly available for purchase), but the image should also run on the Pi Zero 2. Best regards Rochus Keller -- Oberon(a)lists.inf.ethz.ch <mailto:Oberon@lists.inf.ethz.ch> mailing list for ETH Oberon and related systems https://lists.inf.ethz.ch/mailman/listinfo/oberon -- Oberon(a)lists.inf.ethz.ch <mailto:Oberon@lists.inf.ethz.ch> mailing list for ETH Oberon and related systems https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

Re (2): [allowed] Oberon system 3 runs on real Raspberry Pi hardware
by peter＠easthope.ca 15 Jun '26

15 Jun '26

Hello Gerard, This isn't specific or complete but might help. From: <glardner(a)iol.ie> Date: Mon, 15 Jun 2026 01:08:02 +0100 > ... does not recognise the Raspberry Pi keyboard (USB connected) or > mouse ... USB host controller interfaces described here. https://en.wikipedia.org/wiki/Host_controller_interface_(USB,_Firewire)#USB Identify the inteface of the Raspberry by Web based specs. or by booting Linux on the machine and using lspci. Eg. lspci -v | grep -E -A 10 "USB" Refer to the lspci manual & search the Web. Similarly, check the specs. of the keyboard and mouse. Then also find the interfaces supported by Oberon. By that point you will probably have a good understanding of the failure. Hopefully then repair. Regards, ... P. -- mobile: +1 778 951 5147 VoIP: +1 778 508 0020 Bcc: peter at e a s t h o p e dot c a projects: en.wikibooks.org/wiki/User:PeterEasthope

1 0

Oberon system 3 runs on real Raspberry Pi hardware
by Rochus Keller 15 Jun '26

15 Jun '26

Hello everyone In case you want to try the Oberon system on a real Raspberry Pi, here is an image ready to flash on an SD card with instructions: https://github.com/rochus-keller/OberonSystem3Native/releases/tag/2026-04-10 I did all debugging and testing on a Raspberry Pi model 3b (which is still regularly available for purchase), but the image should also run on the Pi Zero 2. Best regards Rochus Keller

5 13

The Extended WHILE Statement
by Andreas Pirklbauer 13 Jun '26

13 Jun '26

One obvious example would be ORP.selector, which could be expressed using the Dijkstra guarded repetition as follows: PROCEDURE selector(VAR x: ORG.Item); VAR y: ORG.Item; obj: ORB.Object; BEGIN WHILE sym = ORS.lbrak DO REPEAT ORS.Get(sym); expression(y); IF x.type.form = ORB.Array THEN CheckInt(y); ORG.Index(x, y); x.type := x.type.base ELSE ORS.Mark("not an array") END UNTIL sym # ORS.comma; Check(ORS.rbrak, "no ]") ELSIF sym = ORS.period DO ORS.Get(sym); IF sym = ORS.ident THEN IF x.type.form = ORB.Pointer THEN ORG.DeRef(x); x.type := x.type.base END ; IF x.type.form = ORB.Record THEN obj := ORB.thisfield(x.type); ORS.Get(sym); IF obj # NIL THEN ORG.Field(x, obj); x.type := obj.type ELSE ORS.Mark("undef") END ELSE ORS.Mark("not a record") END ELSE ORS.Mark("ident?") END ELSIF sym = ORS.arrow DO ORS.Get(sym); IF x.type.form = ORB.Pointer THEN ORG.DeRef(x); x.type := x.type.base ELSE ORS.Mark("not a pointer") END ELSIF (sym = ORS.lparen) & (x.type.form IN {ORB.Record, ORB.Pointer}) DO (*type guard*) ORS.Get(sym); IF sym = ORS.ident THEN qualident(obj); IF obj.class = ORB.Typ THEN TypeTest(x, obj.type, TRUE) ELSE ORS.Mark("guard type expected") END ELSE ORS.Mark("not an identifier") END ; Check(ORS.rparen, " ) missing") END END selector;

2 1