This code has the same interpretation under V4 or Component Pascal, so I think my comment will be true for the ETH / PC Native.<div><br></div><div>A Text is not a sequence of bytes. It is more abstract than a file is. It is a sequence of "Runs" where each run has attributes such as font, color, length, and a source file and the starting position.</div>
<div><br></div><div>This structure makes it very fast to copy from one viewer to another.</div><div><br></div><div>When a Text is saved to a file, the separate runs are all written anew to that file. At that time it is very easy to confuse the concepts of Text and File, so I always try to think of a text that is displayed in a viewer after it has had items copied from other texts whenever I am writing code.</div>
<div><br></div><div>So, there has to be a file that is referenced in the Run data structure. In this code snippet, the new anonymous file is created to fill that role. </div><div><br></div><div>In Component Pascal, Converters all appear to contain code that looks almost identical this.</div>
<div><br><br><div class="gmail_quote">On Tue, Jan 17, 2012 at 6:38 PM, <span dir="ltr"><<a href="mailto:peasthope@shaw.ca">peasthope@shaw.ca</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hi,<br>
<br>
I'm working on a problem with POP mail retrieval which surfaced during<br>
the weekend. This question refers to ETH Oberon / PC Native 05.01.2003.<br>
I haven't looked for the analogue in Aos but a similar concept must be there.<br>
<br>
According to my understanding, the purpose of GetUIDLs is to retrieve a<br>
list of message UIDLs from a POP server; one UIDL per message.<br>
<br>
PROCEDURE GetUIDLs(S: NetTools.Session; VAR T: Texts.Text);<br>
VAR<br>
F: Files.File;<br>
R: Files.Rider;<br>
BEGIN<br>
SendCmd(S, "UIDL", "");<br>
IF ReadState(S) THEN<br>
F := Files.New(""); Files.Set(R, F, 0);<br>
ReadText(S, R);<br>
NEW(T); Texts.LoadAscii(T, F)<br>
ELSE<br>
T := NIL<br>
END<br>
END GetUIDLs;<br>
<br>
Files.New("") creates an anonymous file. What becomes of this file when<br>
GetUIDLs exits? Why is the file involved rather than the data from Session<br>
put directly into T?<br>
<br>
Thanks, ... Peter E.<br>
<br>
<br>
--<br>
Telephone <a href="tel:1%20360%20639%200202" value="+13606390202">1 360 639 0202</a>. Former telephone <a href="tel:1%20360%20450%202132" value="+13604502132">1 360 450 2132</a>.<br>
bcc: peasthope ... <a href="http://shaw.ca" target="_blank">shaw.ca</a><br>
"<a href="http://carnot.yi.org/" target="_blank">http://carnot.yi.org/</a>"<br>
"<a href="http://members.shaw.ca/peasthope/index.html#Itinerary" target="_blank">http://members.shaw.ca/peasthope/index.html#Itinerary</a>"<br>
<font color="#888888"><br>
<br>
--<br>
<a href="mailto:Oberon@lists.inf.ethz.ch">Oberon@lists.inf.ethz.ch</a> mailing list for ETH Oberon and related systems<br>
<a href="https://lists.inf.ethz.ch/mailman/listinfo/oberon" target="_blank">https://lists.inf.ethz.ch/mailman/listinfo/oberon</a><br>
</font></blockquote></div><br><br clear="all"><div><br></div>-- <br><font face="'times new roman', serif">Aubrey McIntosh, Ph.D.<br>1502 Devon Circle<br>Austin TX 78723-1814<br><a href="http://home.grandecom.net/~amcintosh/aubrey/Search/" target="_blank">http://home.grandecom.net/~amcintosh/aubrey/Search/</a><br>
</font><div><span style="line-height:20px;text-align:-webkit-left;background-color:rgb(255,255,255)"><font face="'times new roman', serif">512-348-7401</font></span>
</div><div><span style="font-size:15px;line-height:20px;text-align:-webkit-left;background-color:rgb(255,255,255)"><br></span></div><br>
</div>