May 2023 - Oberon - mailman3.inf.ethz.ch

Stream usage.
by peter＠easthope.ca 27 May '23

27 May '23

From: peter(a)easthope.ca Date: 24 May 2023 12:46:36 -0700 > Better to use Base64.Encode in NetSystem. CArchive2.ReadHeader in A2 examples. I've added this in Unix.Oberon.NetSystem.Mod. VAR r: Streams.Reader; IF service = "smtp" Out.String("User and pwd available. Base64 encode and store in p.passwd."); Out.Ln(); r.Char(0X); r.String(p.user); r.Char(0X); r.String(p.passwd); Base64(r); r.??(p.passwd, ??) END; Still more guesswork than comprehension. =8~/ TTFN, ... P. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Stream usage.
by peter＠easthope.ca 24 May '23

24 May '23

Currently SMTP authentication in Oberon.Mail.Mod is hardcoded, similar to this. SendCmd(S, "AUTH", "PLAIN AHBldGVyQGVhc3Rob3BlLmNhAHBhc3N3b3Jk"); Better to use Base64.Encode in NetSystem. MODULE NetSystem IN Oberon; IMPORT ... Base64 IN A2, Streams IN A2, ... VAR ... s: Streams.Stream; ... IF service = "smtp" Out.String("User and password available. Base64 encode and store in pass.passwd."); Out.Ln(); (* Put 0X pass.user 0X pass.passwd in stream s. *) Base64.Encode(s); (* Put "PLAIN " s in pass.passwd. *) END; Then simplify the line in Mail. SendCmd(S, "AUTH", pass.passwd); This is my first attempt to use a stream. Can the one stream work as suggested above? Thx, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us

1 0

A '85 interview with Wirth during his PARC sabbatical
by Liam Proven 23 May '23

23 May '23

Interview with Programming Visionaries Donald Knuth and Niklaus Wirth from 1985 https://open.substack.com/pub/computeradsfromthepast/p/interview-with-progr… Learn about the philosophies of these two men -- 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

2 1

Re (2): Finding the command which produced an Oberon subsystem in UnixAos.
by peter＠easthope.ca 23 May '23

23 May '23

From: Sergey Durmanov <serge.durmanov(a)yandex.ru> Date: Mon, 22 May 2023 16:11:33 +0700 > You can see the diff in svn revision 5254 - MenuPageNN.XML Thanks Sergey. Configuration.XML in UnixAos, rev.4929, on the old Sharp Mebius starts the Oberon subsystem. Notes here. https://en.wikibooks.org/wiki/Oberon/A2#Opening_the_Oberon_Sub-system Thx, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us

1 0

Re (2): Re (2): Procedure declaration in Active Oberon.
by peter＠easthope.ca 23 May '23

23 May '23

From: Joerg <joerg.straube(a)iaeth.ch> Date: Tue, 23 May 2023 01:19:29 +0200 > I referred to the language report linked on wikibook Thanks. Yes, Friedrich and Negele say, "7.7 Object Types ... A method prefixed by an ampersand character & is an object initializer. ..." Apology for my slowness, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us

1 0

Re: [Oberon] Re (2): Procedure declaration in Active Oberon.
by Joerg 22 May '23

22 May '23

1 0

Re (2): Procedure declaration in Active Oberon.
by peter＠easthope.ca 22 May '23

22 May '23

From: "joerg.straube(a)iaeth.ch" <joerg.straube(a)iaeth.ch> Date: Mon, 22 May 2023 07:57:30 +0000 > & = constructor (chap 7.7) Which document? I found these. Neither has chapter 7. https://people.inf.ethz.ch/wirth/Lola/Sources/LSV.Mod.txt MODULE LSV; (*Lola System: display Verilog; generate txt-File; NW 27.8.2018*) VAR ... Constructor: PROCEDURE (VAR x: LSB.Item); (*to avoid forward reference*) https://people.inf.ethz.ch/wirth/Lola/Lola2.pdf Page 2 5. Expressions Constructors denote bitstrings and are sequences of elements. The "ETH Oberon (2019) Language Report" of Friedrich and Negele has Chapter 7, Type Declarations. Constructors aren't mentioned. Thanks ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us

1 0

Re: [Oberon] Finding the command which produced an Oberon subsystem in UnixAos.
by Sergey Durmanov 22 May '23

22 May '23

1 0

Re: [Oberon] Procedure declaration in Active Oberon.
by joerg.straube＠iaeth.ch 22 May '23

22 May '23

^ = forward declaration (backward compatibility to earlier Oberon versions) & = constructor (chap 7.7) ~ = finalizer - = inline { flags } = system programming (chap 13) Example: PROCEDURE {PLAIN, OFFSET(401000H)} EntryPoint*; Jörg Von: Oberon <oberon-bounces(a)lists.inf.ethz.ch> im Auftrag von peter(a)easthope.ca <peter(a)easthope.ca> Datum: Montag, 22. Mai 2023 um 06:02 An: oberon(a)lists.inf.ethz.ch <oberon(a)lists.inf.ethz.ch> Betreff: [Oberon] Procedure declaration in Active Oberon. >From the language report for Active Oberon, ProcedureDeclaration = 'PROCEDURE' ['^'|'&'|'~'|'-'|Flags ['-']] ['(' ParameterDeclaration ')'] ... Is the meaning of ^, &, ~ and etc. following PROCEDURE explained? I didn't find an explanation in the report. Thanks ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us -- Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

Procedure declaration in Active Oberon.
by peter＠easthope.ca 22 May '23

22 May '23

>From the language report for Active Oberon, ProcedureDeclaration = 'PROCEDURE' ['^'|'&'|'~'|'-'|Flags ['-']] ['(' ParameterDeclaration ')'] ... Is the meaning of ^, &, ~ and etc. following PROCEDURE explained? I didn't find an explanation in the report. Thanks ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us

1 0