November 2023 - 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

Re: [Oberon] Startup configuration of git-based A2.
by peter＠easthope.ca 29 Nov '23

29 Nov '23

>From Soren Renner soren.renner at gmail.com, Sat Nov 25 21:39:06 CET 2023 > i would also like to know about this [personal configuration of A2] These are the best ideas I have. (1) Keep a copy of the distributed Configuration.XML. Eg. cd <somewhere>/A2GitArchive/data cp Configuration.XML Configuration.XML.9799 9799 is the revision number. Then Configuration.XML can be edited to taste and backed up in the working directory. Sooner or later, git many update Configuration.XML. In the past, some revisions of Configuration.XML have been essential for A2 to run. Compare a revised Configuration.XML with your customized version. Eg. in Oberon, Diff.Do <somewhere>/A2GitArchive/data/Configuration.XML Configuration.XML (2) A2 has System.DoFile() analogous to ET.Do in ETH Oberon. Your working directory can have file myStartupCommands and the Autostart section of Configuration.XML can have this line. <Setting name="My startup commands" value="System.DoFile '<myWorkingDirectory/myStartupCommands' "/> That adds only one line to Configuration.XML. (3) Earlier I mentioned .../data/Configuration.XML being a link to <myWorkingDirectory>/Configuration.XML. Workable. It's a question of preference or taste. Better ideas is always welcome. Thx, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Wirth's original Ceres hardware, pics and docs
by Liam Proven 26 Nov '23

26 Nov '23

http://cpu-ns32k.net/Ceres.html -- 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

1 0

Re: [Oberon] Oberon Digest, Vol 234, Issue 11
by Soren Renner 25 Nov '23

25 Nov '23

i would also like to know about this On Sat, Nov 25, 2023 at 6:00 AM <oberon-request(a)lists.inf.ethz.ch> wrote: > Send Oberon mailing list submissions to > oberon(a)lists.inf.ethz.ch > > To subscribe or unsubscribe via the World Wide Web, visit > https://lists.inf.ethz.ch/mailman/listinfo/oberon > or, via email, send a message with subject or body 'help' to > oberon-request(a)lists.inf.ethz.ch > > You can reach the person managing the list at > oberon-owner(a)lists.inf.ethz.ch > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of Oberon digest..." > > > Today's Topics: > > 1. Startup configuration of git-based A2. (peter(a)easthope.ca) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: 24 Nov 2023 18:37:53 -0700 > From: peter(a)easthope.ca > To: oberon(a)lists.inf.ethz.ch > Subject: [Oberon] Startup configuration of git-based A2. > Message-ID: <mailman.8.1700910004.63769.oberon(a)lists.inf.ethz.ch> > > Hi, > > For Guenter's A2, I kept customized Configuration.XML and Oberon.Text > files in my working directory. > > Today I have the git-based A2 working in Debian 12. Configurations > are GitDirectory/data/Configuration.XML and > GitDirectory/data/Oberon.Text. Configuration files in my working > directory are not effective. > > That allows revision of configuration via git but I wonder about > incorporation of my customizations. data/Configuration.XML and > data/Oberon.Text might become links to my customized versions although > that will complicate updates from git. > > Suggestions? > > Thanks, ... P.L. > > > > > > -- > VoIP: +1 604 670 0140 > work: https://en.wikibooks.org/wiki/User:PeterEasthope > > > > ------------------------------ > > Subject: Digest Footer > > -- > Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems > https://lists.inf.ethz.ch/mailman/listinfo/oberon > > > ------------------------------ > > End of Oberon Digest, Vol 234, Issue 11 > *************************************** >

1 0

Representation of Latin Small Letter U with diaeresis in a source Text and a text.
by peter＠easthope.ca 25 Nov '23

25 Nov '23

Hi, Most source Texts and source texts which originated at ETHZ begin with a line similar to this. (* ETH Oberon, Copyright 2001 ETH Zuerich ... I've seen at least three representations of "Latin Small Letter U with diaeresis", as Unicode describes it. (1) "ue" which Europeans might consider a kludge. (2) "ü" which a hexadecimal editor displays as FC. According to Wikipedia, this is from the "C1 Controls and Latin-1 Supplement" of Unicode. (3) "ÃŒ" which a hexadecimal editor displays as C3 BC. A Microsoft encoding? (4) "&#uuml;" the character entity reference of Unicode. How do Europeans prefer to see the accented characters represented in an Oberon Text and in an ASCII text for a source of an Oberon system? Thanks, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Startup configuration of git-based A2.
by peter＠easthope.ca 25 Nov '23

25 Nov '23

Hi, For Guenter's A2, I kept customized Configuration.XML and Oberon.Text files in my working directory. Today I have the git-based A2 working in Debian 12. Configurations are GitDirectory/data/Configuration.XML and GitDirectory/data/Oberon.Text. Configuration files in my working directory are not effective. That allows revision of configuration via git but I wonder about incorporation of my customizations. data/Configuration.XML and data/Oberon.Text might become links to my customized versions although that will complicate updates from git. Suggestions? Thanks, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Variants table.
by peter＠easthope.ca 22 Nov '23

22 Nov '23

Chris Burrows cfbsoftware at gmail.com, Sat Oct 21 05:41:23 CEST 2023 > A language called Oberon 90 / Oberon-90 never existed as such. The > names are simply recent unofficial pseudonyms / aliases for the > original version of Oberon which underwent several revisions in the > period from 1986 to 1990: > > https://people.inf.ethz.ch/wirth/projects.html System Variants is consolidated into one table again with source language noted in table subheadings. Visually more uniform and tolerable, to me at least, on a small mobile screen. Footnote 1 has a link to Oberon 90. Further comments welcome. > The differences between the latest 1990 version of *Oberon* and its > later (1991) superset, *Oberon-2*, are explained in the document > titled "Differences between Oberon and Oberon-2" by Hanspeter > Mössenböck, the primary designer of those changes. You can download > the document from > > https://doi.org/10.3929/ethz-a-000589808 The ETH bibliography has links Moe91 and MoW91a to that. https://en.wikibooks.org/wiki/Oberon/authors#M I've taken the liberty of incorporating your sentence in footnote 1. If you prefer not, please let me know. Further comments welcome. Thanks, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

F1 and F2 keys in A2 rev.10272. Was A2 multi-desktop switching vs. Oberon subsystem.
by peter＠easthope.ca 15 Nov '23

15 Nov '23

Michael and all, From: Michael Schierl schierlm at gmx.de, Mon Jul 31 22:19:02 CEST 2023 > In latest gitlab version, you can either disable global hotkeys > completely by pressing the F12 key, or you can edit Hotkeys.xml and > change the hotkeys for desktop switching to anything that does not > interfere with your Oberon usage. rev.9799 and revision.10272 from http://user.informatik.uni-bremen.de/fld/UnixAos/ are installed in Linux Debian on a 64 bit Lenovo ThinkCentre. Three lines in HotKeys.XML differ. Output from Diff.Do is here. http://easthope.ca/Diff.Do.HotKeys.XML.9799.10272.jpg In the Oberon subsystem of 10272, F1 and F2 keys are inactive with the distributed HotKeys.XML. Ie. the three lines are commented out as in the Diff cited above. F1 and F2 remain inactive if the three lines are activated (commented in). That hints that the failure in 10272 is independent of HexKeys.XML. Configuration.XML is updated in 10272. I'm not trying to use the Configuration.XML from 9799 in 10272. So I wonder whether the Oberon subsystem changed from 9799 to 10272. Can anyone confirm that the F1 and F2 keys in the Oberon subsystem of 10272 work or not? Thanks, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re (2): Removing unnecessary and embedded RETURNs.
by peter＠easthope.ca 13 Nov '23

13 Nov '23

J=F6rg, Thanks for the replies. From: "joerg.straube(a)iaeth.ch" <joerg.straube(a)iaeth.ch> Date: Mon, 13 Nov 2023 05:08:37 +0000 > The idea with the state machine is good. I spent some hours tossing ideas before adopting that. Of course my self-evaluation risks bias. =8~) > I don't understand your remark "ReadText is external to this byte > padding" In my point of view in the ELSE part of state 3 you would > have to strip the stuffed period. Initially, I had exactly the same thought and worked in that direction. Then resorted to empiricism to clarify how "byte stuffing" fit in the process. ReadText takes bytes from the communication link and puts them in the MailMessages file. MailMessages can be examined directly with an editor. It is plain text with lines ending CR LF. According to my tests and observations this is the process. (1) Sending MUA "byte stuffs" the message body. (2) The sending MUA submits to the communication link with End-of-message represented by CR LF "." CR LF. (3) The stream of bytes is transmitted unchanged over the link. (4) The receiving MUA takes bytes from the link and appends to MailMessages until CR LF "." CR LF. The sequence CR LF "." CR LF is included in MailMessages to mark the end of the message. Observe that a byte stuffed line '".." blah blah blah CR LF' is always distinct from end-of-message, CR LF "." CR LF. "Byte stuffing" is a clever idea. =8~) (5) When the recipient requests to see the messge, the receiving MUA extracts it from the MailMessages file and displays with periods "unstuffed". If you have the Mail module working, make a test message containing a line beginning with a period and send it to yourself. Then examine the MailMessages file with an editor. There the line beginning with two periods will be visible. The message is displayed with periods "unstuffed". Here is my summary. (1) "Stuff" any line where the first byte is ".". (2) Submit to transmitting link. (3) ... (4) Receive off the link. (5) "Unstuff" and display. Stuffing and message transfer are distinct. I should have written that stuffing is external to transmission rather than transmission is external to stuffing. ReadText is part of transmission. ReadText should not alter "stuffing". Incidentally "full stop padding" or "period padding" are better terms than "byte stuffing". "Period" is more specific than "byte" and "padding" is more correct than "stuffing". Padding is on the perimeter of something whereas stuffing is inside. From: "joerg.straube(a)iaeth.ch" <joerg.straube(a)iaeth.ch> Date: Mon, 13 Nov 2023 05:37:10 +0000 > As the last line with only =93.CRLF=94 is not considered part of the text, = > you should delay Files.Write(R, ch); in state 3, 4, 5 until you know whethe= > r it=92s the termination case or byte-stuffed case. Explanation above. Stuffing remains in MailMessages. Unstuffing occurs when the message is extracted from MailMessages and displayed. If periods are unstuffed in MailMessages, a message line containing only a period can appear to be end-of-message. =8~/ > the original code does not copy the starting =93.=94 of a line to the file, See above and verify empirically. > copies over the final CRLF. In most cases, this additional CRLF at > the end does not harm but is - strictly speaking - not correct. I agree but suppose a message is submitted ending with these bytes and no folllowing CR LF. The end of my message. My Mail.Sig.Text file contains these two lines. -- My mail signature. If the MUA does not add an end-of-line to separate the message body and signature, these two lines will be transmitted. The end of my message.-- My mail signature. That breaks the signature delimiter syntax from RFC 3676. https://en.wikipedia.org/wiki/Signature_block#Standard_delimiter So we don't know whether a CR LF between the end of the message body and the signature was added by the human sender or by the MUA. The ambiguity is imposed by RFC 3676. I don't know a good resolution but usually end a message body with CR LF. Thanks for the discussion, ... P.L. -- VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Re: [Oberon] Removing unnecessary and embedded RETURNs.
by joerg.straube＠iaeth.ch 13 Nov '23

13 Nov '23

Peter The idea with the state machine is good. One remark: I don’t understand you remark “ReadText is external to this byte padding” In my point of view in the ELSE part of state 3 you would have to strip the stuffed period. In other words: you would have to reposition and copy the Files.Write(R, ch); to almost all your cases br Jörg Von: Oberon <oberon-bounces(a)lists.inf.ethz.ch> im Auftrag von peter(a)easthope.ca <peter(a)easthope.ca> Datum: Sonntag, 12. November 2023 um 15:58 An: oberon(a)lists.inf.ethz.ch <oberon(a)lists.inf.ethz.ch> Betreff: Re: [Oberon] Removing unnecessary and embedded RETURNs. This is my alternative Mail.ReadText with no RETURN. ReportError was helpful in debugging; probably can be deleted now. Apology for the verbose comments. Added to help a non-expert understand the non-obvious activity. =8~) I wonder whether this use of CASE is good practise. Observations? Thanks, ... P.L. PROCEDURE ReportError(c: CHAR); BEGIN Texts.WriteString(W, "Mail.ReadText(): LF absent at CASE "); Texts.Write(W, c); Texts.Write(W, "."); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf); HALT(6) END ReportError; (* According to Post Office Protocol, the end of a message body is marked by character sequence CR LF "." CR LF. A message line can begin with a period. To distinguish from end-of-message, the message sender prepends an additional period which is removed before the message is displayed to the recipient. ReadText is external to this byte padding. https://en.wikipedia.org/wiki/Post_Office_Protocol https://tools.ietf.org/html/rfc1939#section-3 *) PROCEDURE ReadText(S: NetTools.Session; VAR R: Files.Rider); VAR buffer: ARRAY BufLen OF CHAR; len, readLen, i: SIGNED32; ch: CHAR; progress: CHAR; (* "0"= continuing "1"= CR "2"= CR LF "3"= CR LF "." "4"= CR LF "." CR "5"= CR LF "." CR LF = end-of-message; or no more characters *) BEGIN readLen := 0; i := readLen; progress := "0"; WHILE progress < "5" DO (* Write byte to the MailMessages file. *) IF i = readLen THEN (* More characters required. *) len := NetSystem.Available(S.C); IF (len = 0) & (NetSystem.State(S.C) # NetSystem.inout) THEN progress := "5" ELSE IF len > (BufLen-2) THEN readLen := BufLen-2 ELSE readLen := len END; NetSystem.ReadBytes(S.C, 0, readLen, buffer); DEC(len, readLen); i := 0 END ELSE (* i < readLen. character available *) ch := buffer[i]; CASE progress OF "0": IF ch = Strings.CR THEN progress := "1" END | "1": IF ch = Strings.LF THEN progress := "2" ELSE ReportError(progress) END | "2": IF ch = Strings.CR THEN progress := "1" ELSIF ch = "." THEN progress := "3" ELSE progress := "0" END | "3": IF ch = Strings.CR THEN progress := "4" ELSE progress := "0" END | "4": IF ch = Strings.LF THEN progress := "5" ELSE ReportError(progress) END END; Files.Write(R, ch); INC(i) END END END ReadText; - VoIP: +1 604 670 0140 work: https://en.wikibooks.org/wiki/User:PeterEasthope -- Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 1