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

Niklaus Wirth Interviews 1983
by Pablo Cayuela 25 Jan '24

25 Jan '24

Dear friends, I've found some 1983 interviews with Professor Niklaus Wirth, speaking in his native Swiss German, and a presentation of a Lilith Computer with a demonstration of a word processor on it. Due to not being published in youtube or similar sites, there are not any translated subtitles nor a transcription. Despite that I guess that many of you could understand and enjoy the videos. To access them you need to be in Switzerland... or use a VPN with a Swiss ip address. Schweizer Computer 06.09.1983 14 Min SSchweiz, Basel, BS: Neuheiten der Messen "Swissdata" und "Ineltec" o.O.: Präsentation Schweizer Computer "Diser-Modula" entwickelt von Team um ETH-Professor Niklaus Wirth (aprox. 8:48 to 23:02) https://www.srf.ch/play/tv/karussell/video/arabesque?urn=urn:srf:video:6278… Computer-Geschichte 07.09.1983 13 Min Schweiz, Basel, BS: Sonderschau zur Computer-Geschichte an der Swiss-Data-Messe / Interview Ausstellungsmacher Robert Weiss Zürich, ZH: Interview Niklaus Wirth zur Bedeutung des Computers in Zukunft und zur Aufgabe der Schulen (aprox. 6:50 to 13:05) https://www.srf.ch/play/tv/karussell/video/computer-geschichte?urn=urn:srf:… Best regards, Prof Pablo Cayuela Argentina

1 0

Re: [Oberon] Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 22 Jan '24

22 Jan '24

Michael Schierl schierlm at gmx.de Fri Jan 12 22:25:08 CET 2024 > ... > KernelLog.String? Here, after LinuxA2 Gen. 64-bit, rev.9799 boots, this is the last line in Kernel.log. BootConsole.Mod' failed: Command not successful (res: 3902) A problem deeper than Clipboard.Copy? I think of leaving it until a new release appears. Regards, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re (2): Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 14 Jan '24

14 Jan '24

Bernhard & all, Happy New Year to you also. From: Bernhard Treutwein <bernhard(a)wildwein.de> Date: Sun, 14 Jan 2024 12:42:38 +0100 > maybe it is tracing to the command line from where it was started, > if it was started from a command line ... Helpful tip. The orginating console has no Trace output but shows failure of ASSERT in Machine.Acquire. The Trap report notes i = 2. So I infer that ASSERT(taken[2] # Unix.ThrThis( )) fails. (** Acquire a spin-lock. *) PROCEDURE Acquire*( level: SIGNED32 ); (* non reentrant lock *) VAR i: INTEGER; BEGIN Trace.String("Unix.Machine.Acquire() invoked from Clipboard.TakeSelection."); Trace.Ln(); Unix.MtxLock( mtx[level] ); IF StrongChecks THEN ASSERT(taken[level] = NIL); taken[level] := Unix.ThrThis( ); FOR i := 0 TO level-1 DO ASSERT(taken[i] # Unix.ThrThis( )); (*! lock order *) END; END; END Acquire; Beginning of the console report. LinuxA2 Gen. 64-bit, rev.9799 2024/01/14 08:45 Trap 5.8 (ASSERT failed) SP = 00007F6D79C31A90 FP = 00007F6D79C31AB0 PC = 0000000008061BDB RAX = 00007F6D79C33700 RBX = 0000000008062860 RCX = 0000000000000000 RDX = 00007F6D7E868360 RSI = 00007F6D79C33700 RDI = 0000000008062870 R8 = 00007F6D123A98C0 R9 = 00007F6D5C00F840 R10 = 0000000000000000 R11 = 0000000000200282 R12 = 00007F6D7A10504E R13 = 00007F6D7A10504F R14 = 00007F6D79C32FC0 R15 = 00007F6D5C09D520 Process: 62 run 0 000007F6D123A97D0:Oberon-System.OberonRunner NIL {0} StackTraceBack: Machine.Acquire:288 pc=0000000008061BDB fp=00007F6D79C31AB0 crc=65B37D0E level= [@16] 3 i= [@-12] 2 @hiddenIRVar0= [@-16] 2 Heaps.NewRec:202 pc=000000000806C9F1 fp=00007F6D79C31B10 crc=07B5C2AF p= [@32] -> [@00007F6D79C31B48] 0000000000000000 NIL tag= [@24] 00007F6D10701A48 isRealtime= [@16] false size= [@-16] 56[0000000000000038] blockSize= [@-24] 128[0000000000000080] recordBlockAdr= [@-32] 0000000000000000 dataBlockAdr= [@-40] 0000000000000000 recordBlock= [@-48] 0000000000000000 NIL dataBlock= [@-56] 0000000000000000 NIL typeDesc= [@-64] 00007F6D10701A48 (NIL) Texts.Write:306 pc=00007F6D106FE98A fp=00007F6D79C31B70 crc=BD10AEB2 W= [@24] -> [@00007F6D109ED720] ...(Oberon-Texts.Writer) ch= [@16] M p= [@-16] 00007F6D109EEF40 (Oberon-Texts.PieceDesc) q= [@-24] 0000000000000000 NIL @hiddenIRVar0= [@-32] 0000000000000000 NIL @hiddenIRVar1= [@-40] 0000000000000000 NIL ... Unix.MtxLock( mtx[level] ) doesn't work properly? I don't understand the significance of level, mtx[level], Unix.MtxLock( mtx[level] ), taken[level] and Unix.ThrThis( ). Incidentally, the console is recorded in the working directory in AOS.nnnnn.Log. When I carelessly close the console before reading it, can still read the Log. Thanks for the reply, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 13 Jan '24

13 Jan '24

Michael, Thanks for replying. > Trace.String? Yes, Trace.String appears elsewhere in Unix.Machine.Mod. I should have noticed that Trace is imported and then searched to see it used. =8~/ Adding Trace.String("...") at the beginning of the body of Unix.Machine.Mod doesn't produce output in KernelLog. The output might be elsewhere. I'll hunt. =8~) > KernelLog.String? Didn't succeed to recompile with that added. Thanks again, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Clipboard in Oberon subsystem of A2.
by Michael Schierl 12 Jan '24

12 Jan '24

Hello Peter Lyall, Am 12.01.2024 um 19:33 schrieb peter(a)easthope.ca: > In ETH Oberon I would add Texts.WriteString("...") in Acquire, > recompile and see the result of execution; but with Machine in A2 and > Texts is in Oberon that can't work. How can an A2 Module be adjusted > to deliver Text to Kernel.log? Trace.String? KernelLog.String? Not tested, but one of those two (or both) should work. Regards, Michael

1 0

Clipboard in Oberon subsystem of A2.
by peter＠easthope.ca 12 Jan '24

12 Jan '24

Hi, I can trace the execution of Clipboard.Copy up to Machine.Acquire(Machine.X11). In ETH Oberon I would add Texts.WriteString("...") in Acquire, recompile and see the result of execution; but with Machine in A2 and Texts is in Oberon that can't work. How can an A2 Module be adjusted to deliver Text to Kernel.log? Thanks, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

"Make Project Oberon Pretty Again"
by Arthur Yefimov 10 Jan '24

10 Jan '24

To republish Wirth's book on Project Oberon is a brilliant idea. TeX is a perfect solution. I want to participate too. Also I found a few typos in the book.

2 1

"Make Project Oberon Pretty Again"
by Liam Proven 10 Jan '24

10 Jan '24

« Project Oberon TeX Typesetting Project Project Oberon is an amazing piece of computer science and amazing tool for teaching. The book and the code demonstrate, without any tiny amount of doubt, that it is possible to build a usable computing system small enough to fit in the head of a normal programmer. That, in my not-so-humble opinion, is a truly great achievement and I am in awe of Niklaus Wirth and Jürg Gutknecht for it. The last edition -- from 2013 -- could use some tender loving care. It should look beautiful. This project is an attempt to: Liberate the text from the un-editable PDF sources. Typeset the book using (plain) TeX and Knuth's own taocpmac.tex macros. Add the full (typeset) source code to the book for those of us who like reading code in bed. Convert it into a Literate Programming project where code is more liberally scattered amongst the prose and "tangled" into the final product. Being a document with TeX sources, instead of a dead PDF, future Project Oberon engineers will be able to modify the text to keep it up-to-date with the running source code. I have a dream that we -- as the Oberon community -- can edit and publish this book. I would love for this to be printed as a nice hardcover that can sit right next to my Art of Computer Programming books. PDF and code taken from http://www.projectoberon.com » https://github.com/guidoism/tex-oberon -- Liam Proven ~ Profile: https://about.me/liamproven Email: lproven(a)cix.co.uk ~ gMail/gTalk/FB: lproven(a)gmail.com Twitter/LinkedIn: lproven ~ Skype: liamproven IoM: (+44) 7624 277612: UK: (+44) 7939-087884 Czech [+ WhatsApp/Telegram/Signal]: (+420) 702-829-053

3 3

RIP Niklaus Wirth
by Jack Johnson 09 Jan '24

09 Jan '24

Oh man: "We lost a titan of programming languages, programming methodology, software engineering and hardware design. Niklaus Wirth passed away on the first of January. We mourn a pioneer, colleague, mentor and friend." - Bertrand Meyer

2 1