[Oberon] Audit of Oberon.QuotedPrintable.Mod .
peter at easthope.ca
peter at easthope.ca
Fri May 8 18:29:00 CEST 2020
With userid infsvn.anonymous and password anonymous, QuotedPrintable is visible here.
https://svn-dept.inf.ethz.ch/svn/lecturers/a2/trunk/source/QuotedPrintable.Mod
Also here.
https://en.wikibooks.org/wiki/Oberon/A2/Oberon.QuotedPrintable.Mod
Local procedure ReadWrite has
Texts.Read(R, ch);
IF ~R.eot & (R.lib IS Fonts.Font) THEN
Files.Write(Ri, c)
END
Consequently, after the final Read, which produces R.eot, the last
character (c) isn't printed. Ie. when decoding, the last character is
always omitted.
ReadWrite is invoked only from inside WHILE ~R.eot ... .
Therefore ~R.eot should not be in ReadWrite. This is better.
PROCEDURE ReadWrite(c: CHAR);
BEGIN
Texts.Read(R, ch);
IF R.lib IS Fonts.Font THEN
Files.Write(Ri, c)
END
END ReadWrite;
Comments?
Thanks, ... Lyall E.
--
https://en.wikibooks.org/wiki/Medical_Machines
https://en.wikibooks.org/wiki/Oberon
Tel: +1 604 670 0140 Bcc: peter at easthope. ca
More information about the Oberon
mailing list