[Oberon] Need V4 Code for trivial task.

eas lab lab.eas at gmail.com
Mon Nov 28 07:40:10 CET 2016


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".


More information about the Oberon mailing list