March 2017 - Oberon - mailman3.inf.ethz.ch

FPGA Oberon - Definition Module Tool
by thomas.kral＠email.cz 08 Oct '18

08 Oct '18

Hi, I am thinking of a simple tool that could extract definition info from *.Mod and produce respective *.Def file. Definition files can be quickly looked at, to remind a programmer of the interface *.Mod modules export. While on Linux one could use grep $ grep PROCEDURE\ * *.Mod.txt to obtain info at least about procedures, but how about exported types and variables? I am looking for a recommended way how to simply code such a tool, is it a good idea to use `ORP' parser somehow for the task? I prefer to code it simple, does not have to be perfect, but should carry the idea. Tomas

5 11

Modulus on negative number
by Srinivas Nayak 15 May '17

15 May '17

Dear All, Recently I come across modulus on a negative number. Will it produce a negative number or positive? Someone says both are correct! http://stackoverflow.com/a/4403556 Which one is mathematically correct? Surprisingly different languages calculate it differently even! What is Oberon's way? With thanks and best regards, Yours sincerely, Srinivas Nayak Home: http://www.mathmeth.com/sn/ Blog: http://srinivas-nayak.blogspot.in/

9 17

Re: [Oberon] Ceres and Lilith
by Chris Burrows 03 Apr '17

03 Apr '17

Here's some Ceres / ETH related info with some good photos and a link to the video from Oberon Day in 2011 where Prof Wirth demonstrated on one: http://cpu-ns32k.net/Ceres.html Jos Dreesen who wrote the amazing Lilith emulator, EmuLith, has a working Lilith. You can view a number of photos and download his emulator from here: ftp://ftp.dreesen.ch/Emulith Regards, Chris Burrows CFB Software http://www.cfbsoftware.com/modula2 > > From: Oberon [mailto:oberon-bounces@lists.inf.ethz.ch] On Behalf Of > thomas.kral(a)email.cz > Sent: Thursday, 23 March 2017 8:27 PM > To: ETH Oberon and related systems > Subject: Re: [Oberon] FPGA Oberon - Reset Button > > Hi Magnus, Hi Paul, > > Yes, now I see, I am sorry for asking when it should be obvious from > the verilog source. > I am studying the code, while trying to get myself on a free verilog > course for beginners. > > BTW, are there some of the original machines, Lilith, Ceres still > preserved at ETH? > > Tomas > >

5 8

FPGA Oberon - Reset Button
by thomas.kral＠email.cz 01 Apr '17

01 Apr '17

Hi, I wish to install reset switch, which pin header / button is the reset? Perhaps, I should be somehow able to read from Verilog source, but I cannot so far. My board has these also mapped to Oberon. Connector J8 5V GND GPIO0 GPIO1 GPIO2 GPIO3 GPIO4 GPIO5 GPIO6 GPIO7 3.3V GND BTN0 BTN1 BTN2 BTN3 N/C N/C N/C N/C Tomas

4 8

Obtaining the name on a viewer.
by peter＠easthope.ca 31 Mar '17

31 Mar '17

In UnixAOS Oberon this reports of name of a Text viewer and of a Document viewer. Also works on Mail.Panel. Appears it will work on any viewer or gadget panel. Nevertheless it doesn't strike me as tidy. Is there a simpler way to obtain the name in the general case? Thanks, ... Lyall E. MODULE Test IN Oberon; IMPORT Oberon, Texts, TextFrames, Documents; (** Test.ReportName * reports the name of a marked viewer. Works for a Text viewer and for a Doc viewer. *) PROCEDURE ReportName*; VAR D: Documents.Document; nameS: Texts.Scanner; W: Texts.Writer; BEGIN Texts.OpenWriter(W); Texts.WriteString(W, "Marked viewer is named "); D := Documents.MarkedDoc(); IF D # NIL THEN Texts.WriteString(W, D.name) ELSE Texts.OpenScanner(nameS, Oberon.MarkedViewer().dsc(TextFrames.Frame).text, 0); Texts.Scan(nameS); Texts.WriteString(W, nameS.s) END; Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf) END ReportName; BEGIN END Test. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 Pender Is.: +1 250 629 3757 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Re: [Oberon] Text Viewer vs. Doc Viewer and etc.
by peter＠easthope.ca 25 Mar '17

25 Mar '17

P.s. I think of the following but haven't found how to make the criteria. If there is a more clever way, I'm interested in that also. Thanks, ... l.e. IF criterion0 THEN Oberon.AllocateUserViewer(Oberon.Par.vwr.X, X, Y); V := MenuViewers.New( TextFrames.NewMenu(name, Menu), TextFrames.NewText(text, 0), TextFrames.menuH, X, Y) ELSEIF criterion1 D:=Gadgets.CreateObject("TextDocs.NewDoc"); IF D#NIL THEN NEW(TF); TextGadgets.Init(TF, text, FALSE); D(Documents.Document).W:=300; COPY(name, D(Documents.Document).name); Documents.Init(D(Documents.Document), TF); Desktops.ShowDoc(D(Documents.Document)) END ELSE Texts.WriteString(W, "Kind of viewer not recognized."); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf) END; -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 Pender Is.: +1 250 629 3757 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Text Viewer vs. Doc Viewer and etc.
by peter＠easthope.ca 25 Mar '17

25 Mar '17

Hi again, Oberon.MarkedViewer() returns the marked viewer. It can be a Text viewer in a track or a Document viewer in a track. I can open and fill either kind of viewer but want output viewer to match input. How are these cases discriminated in code? Thanks, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 Pender Is.: +1 250 629 3757 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Re: [Oberon] FPGA Oberon - Definition Module Tool
by peter＠easthope.ca 25 Mar '17

25 Mar '17

From: <thomas.kral(a)email.cz> Date: Fri, 24 Mar 2017 12:52:58 +0100 > I am thinking of a simple tool that could extract definition info from *.M= > od and produce respective *.Def file. http://www.ethoberon.ethz.ch/ethoberon/tutorial/Watson.html "The primary tool for retrieving a module definition is the browser." Browser has imports but adaptation to the PGA machine is possible? Regards, ... Lyall E. -- 123456789 123456789 123456789 123456789 123456789 123456789 123456789 Tel: +1 360 639 0202 Pender Is.: +1 250 629 3757 http://easthope.ca/Peter.html Bcc: peter at easthope. ca

1 0

Source code browser in NO
by Srinivas Nayak 25 Mar '17

25 Mar '17

Dear All, Do we have any source code browser in NO? I see we have Definitions browser in NO. Using Watson, if we create *.Def and *.Def.html, we can browse through Definitions. Anything similar for source code? With thanks and best regards, Yours sincerely, Srinivas Nayak Home: http://www.mathmeth.com/sn/ Blog: http://srinivas-nayak.blogspot.in/

4 5

FPGA Oberon - Lost file reclaim storage
by thomas.kral＠email.cz 24 Mar '17

24 Mar '17

Hi, On a very rare occasion, I happened to produce a file that has a corrupt header, wherby a dot '.' in its name is replaced by an invisible character. Subsequent writing to the same file name resolved the situation and file was created normally. Now I am just thinking how I can reclaim the storage taken up by that lost file. Delete on its name fails, as the system does not see it as a regular file. Tomas

2 4