- Oberon - mailman3.inf.ethz.ch

Oberon source code in lowercase
by oberon-eth＠email.cz 17 May '23

17 May '23

I have noticed that module WMBuilder.Mod (A2 gui builder) produces oberon source code that is completely in lower case. It looks like this: module abc; import something; procedure a; begin end a; end abc. Supprisingly such lowercase source code compiles without errors. But you must not mix it with uppercase code. I have question why is this lowercase option present in fox compiler when it clearly violates oberon language specification? Greetings, Zdenek

2 1

Date field from Mail. Was, Re: Copy a text buffer to a string?
by peter＠easthope.ca 13 May '23

13 May '23

From: "joerg.straube(a)iaeth.ch" <joerg.straube(a)iaeth.ch> Date: Fri, 12 May 2023 22:19:24 +0000 > Here my proposal to include the date field in the mail header: Very neat and works perfectly. Many thanks. My effort might have reached the same result but was very clumsy. ... P. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us

1 0

Re: [Oberon] Re (2): Copy a text buffer to a string?
by joerg.straube＠iaeth.ch 12 May '23

12 May '23

Peter Here my proposal to include the date field in the mail header: PROCEDURE RFC5322Date(VAR s: ARRAY OF CHAR); VAR x, t, d: LONGINT; m: ARRAY 40 OF CHAR; BEGIN m := “JanFebMarAprMayJunJulAugSepOctNovDec“; s := “DD MMM 20YY hh:mm:ss +0200”; Oberon.GetClock(t, d); x := d MOD 32; s[0] := CHR(x DIV 10+ORD(“0”); s[1] := CHR(x MOD 10+ORD(“0”)); x := (d DIV 32 MOD 16-1)*3; s[3] := m[x]; s[4] := m[x+1]; s[5] := m[x+2]; x := d DIV 512 MOD 100; s[9] := CHR(x DIV 10+ORD(“0”); s[10] := CHR(x MOD 10+ORD(“0”)); x := t DIV 4096 MOD 32; s[12] := CHR(x DIV 10+ORD(“0”); s[13] := CHR(x MOD 10+ORD(“0”)); x := t DIV 64 MOD 64; s[15] := CHR(x DIV 10+ORD(“0”); s[16] := CHR(x MOD 10+ORD(“0”)); x := t MOD 64; s[18] := CHR(x DIV 10+ORD(“0”); s[19] := CHR(x MOD 10+ORD(“0”)); END RFC5322Date; PROCEDURE SendText*(S: SMTPSession; head, body: Texts.Text; beg, end: LONGINT; cont: MIME.Content); VAR enc: LONGINT; ascii: Texts.Text; dateTime: ARRAY 30 OF CHAR; BEGIN enc := cont.encoding; cont.len := MAX(LONGINT); SendCmd(S,"From: ", S.from); RFC5322Date(dateTime); SendCmd(S, “Date:”, dateTime); SendCmd(S, "X-Mailer:", mailer); … END SendText; Jörg Von: Oberon <oberon-bounces(a)lists.inf.ethz.ch> im Auftrag von peter(a)easthope.ca <peter(a)easthope.ca> Datum: Freitag, 12. Mai 2023 um 15:40 An: oberon(a)lists.inf.ethz.ch <oberon(a)lists.inf.ethz.ch> Betreff: [Oberon] Re (2): Copy a text buffer to a string? From: Paul Reed <paulreed(a)paddedcell.com> Date: Fri, 12 May 2023 10:18:23 +0100 > ... note the writer W seems to be in Oberon.Mail.Mod ostensibly for > logging, so it would be an abuse of that variable. Thanks for mentioning that. To continue with Text, I should declare another Writer. With SendCmd requiring an ARRAY OF CHAR and none of the existing code particularly relevant to the required objective, I decided to avoid Text and stick with characters. Will post the revision soon. Thanks for the feedback, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us 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 0

Re (2): Copy a text buffer to a string?
by peter＠easthope.ca 12 May '23

12 May '23

From: Paul Reed <paulreed(a)paddedcell.com> Date: Fri, 12 May 2023 10:18:23 +0100 > ... note the writer W seems to be in Oberon.Mail.Mod ostensibly for > logging, so it would be an abuse of that variable. Thanks for mentioning that. To continue with Text, I should declare another Writer. With SendCmd requiring an ARRAY OF CHAR and none of the existing code particularly relevant to the required objective, I decided to avoid Text and stick with characters. Will post the revision soon. Thanks for the feedback, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Copy a text buffer to a string?
by peter＠easthope.ca 12 May '23

12 May '23

Hi, I want to add the Date field in email message submission implemented in A2, Oberon.Mail.Mod. Conceptually this. PROCEDURE SendText ... VAR ... t, d: SIGNED32; BEGIN ... Oberon.GetClock(t,d); (* Ref. Oberon.Oberon.Mod *) WritePair(W, " ", d MOD 32); WritePair(W, " ", d DIV 32 MOD 16); Texts.Write(W, " "); Texts.WriteInt(W, 1900 + d DIV 512, 1); WritePair(W, " ", t DIV 4096 MOD 32); WritePair(W, ":", t DIV 64 MOD 64); WritePair(W, ":", t MOD 64); SendCmd(S,"Date:", W.buf); With SendCmd requiring an ARRAY OF CHAR rather than Text buffer in the third parameter, that fails. What alternatives are appropriate? Thx, ... P.L.

3 2

Re: [Oberon] Linz Oberon V4 running on iMac (M1)
by peter＠easthope.ca 11 May '23

11 May '23

J=F6rg & all, Thanks Joerg for the report of a current instance of Linz Oberon V4. Commendable that it remains operational, after many years. A photo helps convince that something exists. Also gives a novice a little inspiration. The wikibook still lacks a photo of V4. If someone adds a photo here, https://commons.wikimedia.org/wiki/Category:Oberon_(operating_system) it can be included on one of these pages. https://en.wikibooks.org/wiki/Oberon https://en.wikibooks.org/wiki/Oberon/Linz_Oberon,_V4 Thanks again, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us https://en.wikibooks.org/wiki/User:PeterEasthope

1 0

Linz Oberon V4 running on iMac (M1)
by joerg.straube＠iaeth.ch 11 May '23

11 May '23

Hi Just for your information: I successfully run Linz Oberon V4 (Windows version, Intel) on my iMac with Apple M1 chip using homebrew and wine br Jörg

5 4

Re (2): Revision of OpenSMTP(...) in Oberon.Mail.Mod.
by peter＠easthope.ca 01 May '23

01 May '23

Joerg, Thanks for the detailed reply. From: Joerg <joerg.straube(a)iaeth.ch> Date: Sun, 30 Apr 2023 08:10:54 +0200 > In RFC3207 (2002) the use of TLS encryption was added to SMTP; to > change from TCP to TLS the command STARTTLS was added. RFC8314 (2018) > recommends the use of „Implicit TLS“ iso STARTTLS. Apology for my uncertainty and confusion. By "iso" do you mean "equivalent to"? "Contrasting to"? Over years, "official" meanings and recommendations have changed. https://en.wikipedia.org/wiki/List_of_TCP_and_UDP_port_numbers Ref. 465 and 587. This is my understanding from multiple documents. =8~/ From 8314: "implicit TLS" is synonymous to "TLS-on-connect". The port currently recommended is 465. The STARTTLS exchange is not involved in implicit TLS. The connection is TLS from the beginning. From https://en.wikipedia.org/wiki/Simple_Mail_Transfer_Protocol#STARTTLS_or_%22… "opportunistic TLS" is synonymous to "STARTTLS". After the client-server connection is established, the STARTTLS negotiation may proceed. Also ref. https://en.wikipedia.org/wiki/Opportunistic_TLS#Weaknesses_and_mitigations The port currently recommended is 587. > In Oberon, Mail uses the modules NetSystem and NetTools providing > basic TCP connectivity. Those modules would have to be enhanced by > adding TLS encryption to TCP. Guenter Feldmann begin work on SSL in ETH Oberon more than a decade ago. I recall using scp. Also Guenther added SSH in A2 years ago? I don't know the current status in A2. Another possibility is a TLS tunnel, as available by stunnel in Linux. In the Oberon subsystem in A2, I retrieve mail by POP3 through a stunnel tunnel. Authentication is inside the tunnel. Ref. Oberon.Mail.OpenPOP https://gitlab.inf.ethz.ch/felixf/oberon/-/blob/main/source/Oberon.Mail.Mod Therefore I think of the analogue for SMTP. Add AUTH PLAIN in Oberon.Mail.OpenSMTP. > - write a new module TLS.Mod that implements encryption according to > RFC5246 (quite some work) Largely duplicating Guenter's longstanding work. Correct? Thx, ... P.L.

2 1

Revision of OpenSMTP(...) in Oberon.Mail.Mod.
by peter＠easthope.ca 30 Apr '23

30 Apr '23

Hi, In A2, Oberon.Mail.Mod has OpenSMTP(...). https://gitlab.inf.ethz.ch/felixf/oberon/-/blob/main/source/Oberon.Mail.Mod The module is also in the wikibook. https://en.wikibooks.org/wiki/Oberon/A2/Oberon.Mail.Mod OpenSMTP was inherited from ETH Oberon. Written when SMTP without authentication was routine. I'm revising the procedure with two objectives. (1) Remove an unfavourable RETURN. (2) Add capability for AUTH PLAIN. (* SMTP should connect inside a TLS tunnel connected to smarthost port 465. *) PROCEDURE OpenSMTP1*(VAR S: SMTPSession; host, user, passwd, from: ARRAY OF CHAR; port: SIGNED16); BEGIN IF trace THEN Texts.WriteString(W, "--- SMTP"); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf) END; IF (port <= 0) OR (port >= 10000) THEN port := AltSMTPPort END; NEW(S); S.res := NetTools.Failed; S.C := NIL; S.S := NIL; IF (host[0] = "<") OR (host[0] = 0X) THEN S.reply := "no smtp-host specified" ELSE (* smtp-host name available *) IF ~NetTools.Connect(S.C, port, host, TRUE) THEN S.reply := "no connection" ELSE S.S := NetTools.OpenStream(S.C); ReadResponse(S); IF S.reply[0] # "2" THEN (* Server declined communication *) CloseSMTP(S) ELSE (* Positive response from server *) IF (user[0] = 0X) OR (passwd[0] = 0X) THEN (* Authentication impossible *) SendCmd(S, "HELO", NetSystem.hostName); ReadResponse(S); IF S.reply[0] = "2" THEN (* Server cooperating *) COPY(from, S.from); S.res := NetTools.Done END ELSE (* user and passwd available; try to authenticate *) SendCmd(S, "EHLO", NetSystem.hostName); ReadResponse(S); IF S.reply[0] = "2" THEN (* Server cooperating *) SendCmd(S, "AUTH", "PLAIN <Base64 encoded user & password>"); IF S.reply[0] = "2" THEN (* Authentication accepted *) COPY(from, S.from); S.res := NetTools.Done END END END END END END END OpenSMTP1; Comments? Suggestions? Thx, ... P.L.

2 1

Implementing unsigned right shift for Oberon RISC5 machine
by Michael Schierl 11 Apr '23

11 Apr '23

Hello, as you may know, Oberon RISC5 machine only has an arithmetic right shift (extending the sign) and no unsigned right shift (fillingwith zeroes). For Oberon, that instruction is not needed, but what if you want other languages to target the architecture? I was thinking of how to implement it in a concise way - No loops, as little branching as possible - Having the count in a register (for a constant it is trivial to emit an additional AND to mask the bits), should work for all values from 0 to 31 - Should work even if the destination is one of the source registers - As few scratch registers as possible I came up with this (using two scratch registers R1, R2): USR Rd, Rs, Rc (destination, source, count) translates to SUB R1, Rc, 1 B CS move # Rc was zero ASR Rd, Rs, 1 MOV+U R2, 80000000H ANN Rd, Rd, R2 ASR Rd, Rs, R1 B done move: MOV Rd, Rs done: Or in case Rd is neither Rs nor Rc, you can get away with only one scratch register, and the same number of instructions/branches on each path: ASR Rd, Rs, 1 MOV+U R1, 80000000H ANN Rd, Rd, R1 SUB R1, Rc, 1 B CS move ASR Rd, Rs, R1 B done move: MOV Rd, Rs done: Any easier solution I missed? Regards, Michael

4 3