<html>
<head>
<meta content="text/html; charset=windows-1252"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Yeh, but the browser for Files shows<br>
PROCEDURE Read (VAR r: Rider; VAR x: SYSTEM.BYTE);<br>
<br>
<br>
<div class="moz-cite-prefix">On 11/28/2016 2:33 AM, Chris Burrows
wrote:<br>
</div>
<blockquote
cite="mid:000701d24962$d77caae0$867600a0$@cfbsoftware.com"
type="cite">
<pre wrap="">Hi Doug,
You don't need to use any SYSTEM facilities or casts in Oberon for this
task.
Replace:
VAR b: SYSTEM.BYTE;
with:
VAR ch: CHAR;
Then you can say:
IF (ch = 0AX) OR (ch = 0DX) THEN ch := " " END;
Regards,
Chris
Chris Burrows
CFB Software
<a class="moz-txt-link-freetext" href="http://www.astrobe.com">http://www.astrobe.com</a>
From: Oberon [<a class="moz-txt-link-freetext" href="mailto:oberon-bounces@lists.inf.ethz.ch">mailto:oberon-bounces@lists.inf.ethz.ch</a>] On Behalf Of Douglas
G Danforth
Sent: Monday, 28 November 2016 7:29 PM
To: ETH Oberon and related systems
Subject: Re: [Oberon] Need V4 Code for trivial task.
Chris,
This V4 code seems to work!
Needing to cast a BYTE using ORD threw me for a while. You don't need to do
that with Component Pascal.
MODULE Foo;
IMPORT
Files,
SYSTEM;
VAR
rd: Files.Rider;
wr: Files.Rider;
inFile: Files.File;
outFile: Files.File;
PROCEDURE Open* (out, in: ARRAY OF CHAR): BOOLEAN;
VAR flag: BOOLEAN;
BEGIN
inFile := Files.Old(in);
flag := (inFile # NIL);
IF flag THEN
Files.Set(rd, inFile, 0);
outFile := Files.New(out);
flag := (outFile # NIL);
IF flag THEN
Files.Set(wr, outFile, 0)
END
END;
RETURN flag
END Open;
PROCEDURE Strip* ;
VAR b: SYSTEM.BYTE;
BEGIN
Files.Read(rd, b);
WHILE ~rd.eof DO
IF (ORD(b) = 13) OR (ORD(b) = 10) THEN b := 32 END;
Files.Write(wr, b);
Files.Read(rd, b);
END;
Files.Register(outFile);
Files.Close(inFile)
END Strip;
PROCEDURE Test*;
BEGIN
IF Open("TestOut.Mod", "TestIn.Mod") THEN Strip END;
END Test;
END Foo.Test << middle mouse click there to run the program
TestIn.Mod looks like
This is a
sentence with lots
of line breaks.
Hope this
works!
TestOut.Mod looks like
This is a sentence with lots of line breaks. Hope this works!
-Doug
On 11/27/2016 10:40 PM, eas lab wrote:
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".
--
<a class="moz-txt-link-abbreviated" href="mailto:Oberon@lists.inf.ethz.ch">Oberon@lists.inf.ethz.ch</a> mailing list for ETH Oberon and related systems
<a class="moz-txt-link-freetext" href="https://lists.inf.ethz.ch/mailman/listinfo/oberon">https://lists.inf.ethz.ch/mailman/listinfo/oberon</a>
</pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
Danforth of the Greenwood</pre>
</body>
</html>