[Oberon] Mail.GetUIDLs

Alexander Iljin ajsoft at yandex.ru
Wed Jan 18 07:08:46 CET 2012


>         PROCEDURE GetUIDLs(S: NetTools.Session; VAR T: Texts.Text);
>                 VAR
>                         F: Files.File;
>                         R: Files.Rider;
>         BEGIN
>                 SendCmd(S, "UIDL", "");
>                 IF ReadState(S) THEN
>                         F := Files.New(""); Files.Set(R, F, 0);
>                         ReadText(S, R);
>                         NEW(T); Texts.LoadAscii(T, F)
>                 ELSE
>                         T := NIL
>                 END
>         END GetUIDLs;
> Files.New("") creates an anonymous file.  What becomes of this file when
> GetUIDLs exits?  Why is the file involved rather than the data from Session
> put directly into T?

  The anonymous file will be garbage-collected at a later time.
  I would guess that Texts.LoadAscii contains some important data conversion, e.g. it may ensure that there are no garbage characters, etc. One has to look at the procedure to find out.


More information about the Oberon mailing list