<head>
<title></title>
</head>
<body>
<div class="userStyles" style=" font-family: Arial; font-size: 12pt; color: #000000;">Assuming you're talking about Ulm's Streams module, described at <a href="http://www.mathematik.uni-ulm.de/oberon/0.5/lib/man/Streams.html">http://www.mathematik.uni-ulm.de/oberon/0.5/lib/man/Streams.html</a>, it looks like you want the third line to be something along the lines of:<br>
<br>
Streams.Seek(strm, msgs[no].pos, Streams.fromStart);
<footer class="replyforwardcontainer"><br>
<span>On Fri, 23 Apr 2021 19:12:27 -0700, peter@easthope.ca wrote:</span><br>
<br>
Hi,<br>
<br>
I'm interested to add this procedure to the Oberon Mail module.<br>
<br>
PROCEDURE WriteMsgLine(CONST no: SIGNED32);<br>
VAR<br>
len, pos: SIGNED32;<br>
h: MIME.Header;<br>
cont: MIME.Content;<br>
str: ARRAY BufLen OF CHAR;<br>
strm: Streams.Stream;<br>
BEGIN<br>
Texts.WriteString(W, "Mail.Show "); Texts.WriteInt(W, no, msgNoWidth); Texts.Write(W, " ");<br>
strm := Streams.OpenFileReader(msgsF, msgs[0].pos); strm.mode := Streams.binary;<br>
Files.Set(strm.R, msgsF, msgs[no].pos);<br>
...<br>
END WriteMsgLine;<br>
<br>
No problem with the two lines following BEGIN. The third line is<br>
meant to reposition the rider on msgsF but it fails to compile.<br>
<br>
A FileStream extends a Stream and has rider R. A Stream does not have<br>
a rider and consequently strm.R is meaningless. A new stream with new<br>
rider can be created but changing the rider in the existing stream<br>
would be more efficient.<br>
<br>
Is there a way change the rider without creating a new stream.<br>
<br>
Thx, ... P.L.<br>
<br>
--<br>
VoIP: +1 604 670 0140 Bcc: peter at easthope. ca<br>
<br>
--<br>
Oberon@lists.inf.ethz.ch mailing list for ETH Oberon and related systems<br>
https://lists.inf.ethz.ch/mailman/listinfo/oberon<br>
</footer>
</div>
</body>