[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