January 2022 - 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

Re: [Oberon] Seeking ETHZ contact to find out licensing Oberon sources
by Treutwein Bernhard 28 Jan '22

28 Jan '22

as far as I know ETHZ sources went all to a BSD licensing Model. @felix: correct? and also: Welcome back. Sent from Nine<http://www.9folders.com/> ________________________________ Von: thutt(a)harp-project.com Gesendet: Montag, 24. Januar 2022 11:51 nachm. An: oberon(a)lists.inf.ethz.ch Betreff: [Oberon] Seeking ETHZ contact to find out licensing Oberon sources Hello everyone, I'm looking to find an ETHZ contact who can tell me under which license agreement the ETHZ Oberon sources fall. A few decades ago I had an Oberon distribution running on MS-DOS, but then got involved in working on commercial compilers. Recently, I've dusted it off and retargeted the compiler for a virtual CPU and would like to redistribute it with source*, including some previously undistributed ETHZ sources. So, can someone point me in the right direction to find out the license agreement. * For the curious, the system works on Linux and Rasbian. The whole Oberon system is not supported yet for a few reasons -- the most important being that I don't know how to program X. thutt PS: Is anyone even interested in a classic Oberon-2 compiler and software?

3 3

How to write this program in Oberon-07?
by Joe Turner 28 Jan '22

28 Jan '22

I'm working through the book "Into the Realm of Oberon" which is written for Oberon-2. I can't figure out how to translate the following program into Oberon-07 (I'm using the OBNC compiler): MODULE case; IMPORT In,Out; VAR countVowels: INTEGER; ch: CHAR; BEGIN In.Open; countVowels:=0; LOOP In.Char(ch); IF ~In.Done THEN EXIT END; CASE ch OF "a", "e", "i", "o", "u", "A", "E","I","O","U": INC(countVowels) ELSE END; END; Out.Int(countVowels,0); Out.String(" vowels read.");Out.Ln; END case. Oberon-07 doesn't allow LOOP, EXIT, or ELSE in CASE. Thanks in advance for any help. -- Sent with https://mailfence.com Secure and private email

9 16

Seeking ETHZ contact to find out licensing Oberon sources
by thutt＠harp-project.com 25 Jan '22

25 Jan '22

Hello everyone, I'm looking to find an ETHZ contact who can tell me under which license agreement the ETHZ Oberon sources fall. A few decades ago I had an Oberon distribution running on MS-DOS, but then got involved in working on commercial compilers. Recently, I've dusted it off and retargeted the compiler for a virtual CPU and would like to redistribute it with source*, including some previously undistributed ETHZ sources. So, can someone point me in the right direction to find out the license agreement. * For the curious, the system works on Linux and Rasbian. The whole Oberon system is not supported yet for a few reasons -- the most important being that I don't know how to program X. thutt PS: Is anyone even interested in a classic Oberon-2 compiler and software?

2 2

Re: [Oberon] Seeking ETHZ contact to find out licensing Oberon sources
by peter＠easthope.ca 25 Jan '22

25 Jan '22

hello thutt, From: thutt(a)harp-project.com Date: Mon, 24 Jan 2022 14:51:26 -0800 > So, can someone point me in the right direction to find out the > license agreement. https://en.wikibooks.org/wiki/Oberon#Licenses > Is anyone even interested in a classic Oberon-2 compiler and > software? https://en.wikibooks.org/wiki/Oberon#System_Variants Regards, ... P.L. -- mobile: +1 778 951 5147 VoIP: +1 604 670 0140 48.7693 N 123.3053 W

1 0

Astrobe Oberon RISC5 Compiler Source Code
by Chris Burrows 20 Jan '22

20 Jan '22

The source code of the Oberon compiler used in Astrobe for RISC5 is now available. See the announcement in the Astrobe Forum for more information: https://www.astrobe.com/forum/viewforum.php?f=18 -- Chris Burrows CFB Software https://www.astrobe.com/CPIde

1 0

ETHZ Three-part Series of Interviews with Niklaus Wirth (Dec 2021)
by Chris Burrows 15 Jan '22

15 Jan '22

In December 2021 ETH recorded a series of YouTube interviews with Niklaus Wirth. Links are listed on the D-INFK news channel: https://inf.ethz.ch/news-and-events/spotlights/infk-news-channel.html "I always saw myself as an engineer" - Part 1/3 "Switzerland had slept through it" - Part 2/3 "You can't invent everything perfectly from the start" - Part 3/3 You can configure YouTube to display subtitles in English if necessary.

2 2

Sources to PiO
by Treutwein Bernhard 12 Jan '22

12 Jan '22

There is a mirror of the former ftp Server of ETHZ maintained at ftp://ftp.gwdg.de/pub/languages/oberon/ftp.inf.ethz.ch/ and in subdirectory Books/PinOberon is atar of the sources. Viel Spass -- Bernhard -----Original Message----- From: Ka-Pe Er <k_p_r(a)gmx.de> Sent: Wednesday, January 12, 2022 11:08 AM To: oberon(a)lists.inf.ethz.ch Subject: Re: [Oberon] Oberon Digest, Vol 212, Issue 12 [Once again, learning ...] Moin from Kiel ! In a private e-mail Joerg thankfully sent me an OBERON07 version of Sentences, which could relatively easily be converted into an OBERON-2 version. All in all, now, after 30 years, (ETH-/ Wirth-) sample solutions for all exercises of PiO would be desirable, because probably nowadays no (ETH-)exercises for OBERON lectures could be "disturbed" by the publication of these source texts. We remain expectant, hoping for further sample solutions ... Occasionally (NW will be 88 on 20220215 !) we will try to publish what we have collected ... [Translated with www.DeepL.com/Translator (free version)] Thanks and Tschuess kpr Klaus-Peter Reimers (Germany / Kiel) On 11.01.22 12:00, oberon-request(a)lists.inf.ethz.ch wrote: > > Today's Topics: > > 1. Re: Is there anybody out there ... (J?rg) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Mon, 10 Jan 2022 15:59:10 +0100 > From: J?rg <joerg.straube(a)iaeth.ch> > To: ETH Oberon and related systems <oberon(a)lists.inf.ethz.ch> > Subject: Re: [Oberon] Is there anybody out there ... > Message-ID: <47B793F4-A2AA-43FC-BD99-E6B3E6A89494(a)iaeth.ch> > Content-Type: text/plain; charset="UTF-8" > > Just for your info: > My jr.RandomNumbers.Mod in Oberon-07 looks like this: > I implemented the slightly better Park-Miller instead of the one you find in Oberon books. > J?rg > > . . . . . . . > MODULE RandomNumbers; (* jr/3dec19 *) > IMPORT SYSTEM, Math; > CONST > timer = -64; > > (* Park-Miller 1993 *) > a = 48271; m = 7FFFFFFFH; q = m DIV a; r = m MOD a; > > VAR z*: INTEGER; > > PROCEDURE Time(): LONGINT; > VAR msec: LONGINT; BEGIN SYSTEM.GET(timer, msec); RETURN msec END Time; > > > PROCEDURE Uniform*(): REAL; (* returns a random nbr 0 < x < 1 *) > (* z = a * z MOD m by Schrage's method *) > BEGIN > z := a*(z MOD q) - r*(z DIV q); > IF z < 0 THEN INC(z, m) END > RETURN FLT(z) / FLT(m) > END Uniform; > > > PROCEDURE RND*(max: INTEGER): INTEGER; (* returns an integer in the range 0..max-1 *) > RETURN FLOOR(Uniform() * FLT(max)) > END RND; > > > PROCEDURE Exp*(mu: REAL): REAL; (* returns an exponentially distributed random number *) > RETURN -Math.ln(Uniform())/mu END Exp; > > > PROCEDURE InitSeed*(seed: INTEGER); > BEGIN > IF seed = 0 THEN z := 1 ELSE z := seed END; > END InitSeed; > > BEGIN > InitSeed(Time()) > END RandomNumbers. > > ORP.Compile jr.RandomNumbers.Mod/s ~ > System.Free RandomNumbers ~ > . . . . . . .

2 1

Re: [Oberon] Oberon Digest, Vol 212, Issue 12
by Ka-Pe Er 12 Jan '22

12 Jan '22

[Once again, learning ...] Moin from Kiel ! In a private e-mail Joerg thankfully sent me an OBERON07 version of Sentences, which could relatively easily be converted into an OBERON-2 version. All in all, now, after 30 years, (ETH-/ Wirth-) sample solutions for all exercises of PiO would be desirable, because probably nowadays no (ETH-)exercises for OBERON lectures could be "disturbed" by the publication of these source texts. We remain expectant, hoping for further sample solutions ... Occasionally (NW will be 88 on 20220215 !) we will try to publish what we have collected ... [Translated with www.DeepL.com/Translator (free version)] Thanks and Tschuess kpr Klaus-Peter Reimers (Germany / Kiel) On 11.01.22 12:00, oberon-request(a)lists.inf.ethz.ch wrote: > > Today's Topics: > > 1. Re: Is there anybody out there ... (J?rg) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Mon, 10 Jan 2022 15:59:10 +0100 > From: J?rg <joerg.straube(a)iaeth.ch> > To: ETH Oberon and related systems <oberon(a)lists.inf.ethz.ch> > Subject: Re: [Oberon] Is there anybody out there ... > Message-ID: <47B793F4-A2AA-43FC-BD99-E6B3E6A89494(a)iaeth.ch> > Content-Type: text/plain; charset="UTF-8" > > Just for your info: > My jr.RandomNumbers.Mod in Oberon-07 looks like this: > I implemented the slightly better Park-Miller instead of the one you find in Oberon books. > J?rg > > . . . . . . . > MODULE RandomNumbers; (* jr/3dec19 *) > IMPORT SYSTEM, Math; > CONST > timer = -64; > > (* Park-Miller 1993 *) > a = 48271; m = 7FFFFFFFH; q = m DIV a; r = m MOD a; > > VAR z*: INTEGER; > > PROCEDURE Time(): LONGINT; > VAR msec: LONGINT; BEGIN SYSTEM.GET(timer, msec); RETURN msec END Time; > > > PROCEDURE Uniform*(): REAL; (* returns a random nbr 0 < x < 1 *) > (* z = a * z MOD m by Schrage's method *) > BEGIN > z := a*(z MOD q) - r*(z DIV q); > IF z < 0 THEN INC(z, m) END > RETURN FLT(z) / FLT(m) > END Uniform; > > > PROCEDURE RND*(max: INTEGER): INTEGER; (* returns an integer in the range 0..max-1 *) > RETURN FLOOR(Uniform() * FLT(max)) > END RND; > > > PROCEDURE Exp*(mu: REAL): REAL; (* returns an exponentially distributed random number *) > RETURN -Math.ln(Uniform())/mu END Exp; > > > PROCEDURE InitSeed*(seed: INTEGER); > BEGIN > IF seed = 0 THEN z := 1 ELSE z := seed END; > END InitSeed; > > BEGIN > InitSeed(Time()) > END RandomNumbers. > > ORP.Compile jr.RandomNumbers.Mod/s ~ > System.Free RandomNumbers ~ > . . . . . . .

1 0

Is there anybody out there ...
by Ka-Pe Er 10 Jan '22

10 Jan '22

In my search for as original as possible OBERON(-2) source texts for testing the Rochus Keller Oberon+ system, I have now (after the modules RandomNumbers, ListRN and IFS) also successfully compiled the two models from PiO (Programming in Oberon, Reiser & Wirth) using ETH Plugin Oberon for Windows. In doing so, I found some very irritating "errors", which can be found in the original English version as well as in the later German edition: 1. The module RandomNumbers has an additional, exported function Exp in both models, which is not included in the source code at the front of the book, but was then discovered by me in the ETH Oberon (Plugin Oberon for Windows) source code-wise. 2. Even Sequences, which is unfortunately only available as a definition module in an exercise, apparently has an additional procedure Open in Setup in the second Model, although this could perhaps be covered by Init. Is there anybody out there ... who knows some official (?) "sample solutions" of this / all PiO-tasks as source code from your student days ? Thanks Klaus-Peter Reimers (Germany / Kiel)

2 1