[Oberon] Re (2): Resetting a file rider without creating a new stream.

peter at easthope.ca peter at easthope.ca
Sat Apr 24 20:30:50 CEST 2021


From:	strohm at ...mail.net
Date:	Sat, 24 Apr 2021 00:52:13 -0400
> Assuming you're talking about Ulm's Streams module, described at
> http://www.mathematik.uni-ulm.de/oberon/0.5/lib/man/Streams.html, it looks like 
> you want the third line to be something along the lines of:
> 
> =C2=A0 =C2=A0 Streams.Seek(strm, msgs[no].pos, Streams.fromStart);

Thanks.  That makes perfect sense.

ETH Oberon and the A2O here.  Streams lacks a Seek procedure.

One further oddity: this Oberon has the procedure name OpenFileWriter 
but returns a stream rather than a FileStream.

(** Opens a stream writing on file F starting at postion pos. *)
	PROCEDURE OpenFileWriter*(F: Files.File; pos: SIGNED32): Stream;

Why not make it return a FileStream rather than a Stream?  That would 
allow changing the rider.

Thx,                            ... P. L.

-- 
VoIP: +1 604 670 0140            Bcc: peter at easthope. ca



More information about the Oberon mailing list