[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