December 2016 - Oberon - mailman3.inf.ethz.ch

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

Functional programming and Oberon
by Srinivas Nayak 26 Jan '17

26 Jan '17

These days I see, every programming language is behind functional programming! Say, C++ or Java or C# or Javascript... recent trend is the old fashion! The fashion of Lambda and Closure! How far is Oberon from functional programming? Surprisingly we already have all the necessary stuffs in Oberon: 1. nested procedures 2. procedure variable 3. scoping of procedure local variables etc. But only thing we need is: a way to preserve dynamic state of a procedure and unnamed procedures! What else? With thanks and best regards, Yours sincerely, Srinivas Nayak Home: http://www.mathmeth.com/sn/ Blog: http://srinivas-nayak.blogspot.in/

13 30

Re (2): Parts & paths.
by peter＠easthope.ca 11 Jan '17

11 Jan '17

From: eas lab <lab.eas at gmail.com> Date: Thu, 13 Oct 2016 07:03:31 +0200 > ... LNO & ALO are restricted to files in their own-single directory? In UnixAos, including LinuxAos as a particular case, any directory can be addressed relative to the working directory. If your working directory is /home/chris/work , the root of the file system is /../../ . Try some examples. System.Directory /../../home/chris/* ~ System.Directory /../../tmp/* ~ 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

3 2

Incremental evolution of piping system?
by eas lab 11 Jan '17

11 Jan '17

Where is Oberon's "DoIt" facility? ----------------------- The idea is that if you "ask the time", you don't want to have to get married to the respondent, like with gmail that gives you only the minimum info, at each query, in order to keep you "engaged" and waste your time, to be able to manipulate you, to earn money. So, to find out the time, you don't want to have to start and run a further live-program. ----------------------------- Ie. I use: `g1277 L WiFi` <-3 tokens: 1 verb + 2 args to: use a textOnlyHttpFetcher to fetch the contents of all URLs listed in file:L, appending them to File:WiFi [the evolving book on WiFi], and heading each fetch by the URL, and terminating eah appended fetch by "<><><><><>"; which allows stepping through the evolving WiFi<book>, from the <contents list at the top>, and where <find next "<><><>" > is equivalent to stepping to the next chapter. This one-artillery-shot/DoIt as opposed to the live-TV show paradigm, could be an incremental step towards giving ETHO piping ability. ------------------------ The simplest approach to achieve concatenation of functions, may be to just use 2 files A & B, to alternate the function-chain through? So using V4, which is all I've got now, as an example task: Show first 8 most recently modified fileNames of <Directory>: [this stack-concept function is ESSENTIAL for when working in a directory, which has already MANY files, swamping the new relevant ones.] ----------------------- System.Directory /C:/Users/Public/CRG/LynxW32/*\d > A CutOffTopLines (2, A) > B SwapWiteCharDelimitedFields(1,2,B) > A ReOrderStupidDateFields(A) > B ReverseOrderLines(B) > A ShowFirstLines(8,A) It seems that a refinement of the 6 stages above, is that A, B can be global constants and are redundant args to the listed functions. A function is a procedure with input parameter/S and preferably ONE output. So it seems to be simplifying to: System.Directory /C:/Users/Public/CRG/LynxW32/*\d | CutOffTopLines(2) | SwapWiteCharDelimitedFields(1,2) | ReOrderStupidDateFields | ReverseOrderLines | ShowFirstLines(8) As I recall, S3 has already got several of these functions. One perceived value of such an extension to ETHO is the ability to write in our nice syntax; building a set of usefull functions which can easily be concatenated to do common jobs, without starting an extra live program. Of course the aspect of stand-alone utilities, and piping capability within the existing OS, are separate considerations. NB. no extra temporary variables are introduced, and any extra filter/function can be introduced at any stage in the chain. Eg. in the above example: "skip all files named *.Obj". == Chris Glur. PS. How would I, with this lame M$ system: mark, with 3 or less key-strokes, the ID of a <worked on file> in any directory, so that V4 [or other program] can immediately access such file ? Under *nix, you can call a universally accessible script eg. `Lz` to: write the directory & most recently changed file/S to a file <known by V4>; wherby V4, will just look into the pre-agreed file to get the needed info.

2 3

Announcement: ofront 1.4 final Release for Raspbian and Linux 386
by Josef Templ 01 Jan '17

01 Jan '17

Hi everybody, I would like to announce the final release of ofront 1.4 for (1) the Raspberry Pi running under Raspbian and (2) i386 based Linux. ofront 1.4 comes with command line tools as well as a complete Oberon V4 system that also includes many extensions from Linz Oberon V4 (Dialogs, Elems, EditKeys, etc.). Version 1.4 of ofront adds a command named 'ocl' (Compiler.Compile in Oberon V4) that hides the complexities of the underlying C-compiler and linker and generates a shared object (.so) file per module. Compiling, loading and unloading of modules works as usual under Oberon V4. For the Raspberry Pi there is an interface module WiringPi.Mod for the wiringPi library and low-level modules RPI.Mod and GPIO.Mod for full access to all hardware registers. ofront 1.4 can be downloaded from http://www.software-templ.com/shareware.html. Best wishes for the year 2017. - Josef Templ

2 1

Need V4 Code for trivial task.
by eas lab 20 Dec '16

20 Dec '16

2 apparently independant Windows bases TextToSpeech translator, both absurdly pause at the text's <newlines>, making the speech sound bad. Linux fixes that with:-- # remove all EOL : \n = new line; \r = return #tr -d \n | tr -d \r \NNN :Octal 10+2=> 012; 13=8+5=>015; 32=\040 cat $1 | tr -d "\012" | tr -d "\015" | \ sed 's/\./\.\r\n/g' | sed 's/ / /g' >> $2 # CrLf after each period & double-space to single-space <-irrelevant But I currently can't get inet except via M$, and I can't afford to switch to *nix for trivial tasks which I can't do with M$!! Since Oberon V4 is running in M$, I thought of: OpenInfile; OpenOutfile; FOR Char:=NextByte(Infile) IF (Ord(Char) = 10) OR (Ord(Char) = 13) THEN Write(Outfile, Ord(32) ELSE Write(Outfile, Char END; CloseInfile; CloseOutfile. You can see that I'm no longer fluent/familiar with <Algol> ?! My ETHO documentation is lost/destroyed, and it's pointless to collect replacements it [since I need to stay dependent on a M$ laptop, to easily flee as the 'revolution' progresses]; but I remember that per S3 documentation: opening & closing files involved <riders>. Can someone please sketch some V4 syntax to solve this problem, since I've really only installed V4 for the <ability to access multiple text files together on the same screen>; which apparently is beyond the imagination of the M$ designers. Thanks, == Chris Glur. PS. I looked at M$'s good idea to follow *nix's shell idea, but you can see that M$'s founder has lawer ancestors: who have the lawer's moto "if ten thousand words will do, why use ten".

10 33

Re (2): Oberon and TLS;
by peter＠easthope.ca 19 Dec '16

19 Dec '16

From: eas lab <lab.eas(a)gmail.com> Date: Wed, 14 Dec 2016 21:05:28 +0200 > ... Aos ... restricted to it's own directory. ETH Oberon / LinuxAos (rev.6518) ... System.Directory /usr/aos/* /usr/aos/system /usr/aos/obj /usr/aos/aos.linux.dist /usr/aos/fonts /usr/aos/source /usr/aos/aos.linux /usr/aos/aos.linux.debian 7 files -- 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

3 4

Re: Text.Buffer usage.
by peter＠easthope.ca 17 Dec '16

17 Dec '16

From: peter(a)easthope.ca Date: Sat, 17 Dec 2016 08:54:25 -0800 > SD is appended to DB according to, > "(* Append copy of source buffer SB to destination buffer DB. *) > PROCEDURE Copy (SB, DB: Buffer);" > > Then ... empty SD and reset the Writer. In the following, for example, how can "Reset phrase" be accomplished? Thanks, ... Lyall E. VAR ch: CHAR; phrase: Texts.Writer; (* Intermediate storage as ch are read and processed. *) accum: Texts.Buffer; (* Storage where processed phrases are accumulated. *) BEGIN ... Texts.OpenWriter(phrase); Texts.OpenBuf(accum); ... Texts.Write(phrase, ch); ... Texts.Write(phrase, ch); ... Texts.Copy(phrase.buf, accum); (* Reset phrase *) ... Texts.Write(phrase, ch); ... Texts.Write(phrase, ch); ... Texts.Copy(phrase.buf, accum); etc. -- 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

2 2

Re: Text.Buffer usage.
by peter＠easthope.ca 17 Dec '16

17 Dec '16

From: Robert Ransom <rransom.8774(a)gmail.com> Date: Fri, 16 Dec 2016 15:26:56 -0500 > The buffer is wrapped in a Texts.Writer, and callers use Texts.Write > et al. to write to the latter. From: =?utf-8?Q?J=C3=B6rg_Straube?= <joerg.straube(a)iaeth.ch> > Details can be found in chapter 5.1.2 and 5.1.3 in > https://www.inf.ethz.ch/personal/wirth/ProjectOberon/PO.System.pdf OK. Thanks to both of you. A specific difficulty. SD is appended to DB according to, "(* Append copy of source buffer SB to destination buffer DB. *) PROCEDURE Copy (SB, DB: Buffer);" Then I want to empty SD and reset the Writer which was writing into it. The process of writing to SD, appending SD to DB and reseting SD is to be iterated. Possible without repeating Texts.OpenWriter? 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

System choices; was Re (2): Oberon and TLS;
by peter＠easthope.ca 17 Dec '16

17 Dec '16

P.s. > ... M$-based V4 as a substitute for ... LinuxETHZOberon. Bleh! Use the Oberon subsystem in the latest UnixAos. Regards, ... Lysll 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