Re: [BLACKBOX] File names

From: [at]} <luowy{>
Date: Fri, 21 May 2010 06:23:08 GMT

----boundary-LibPST-iamunique-1305217963_-_-
Content-type: text/plain

text for file name :



PROCEDURE GetFileName* (rd: Files.Reader; VAR name: ARRAY OF CHAR);
  TYPE Str = POINTER TO ARRAY [untagged] OF CHAR;
     VAR str: Str;
BEGIN
   str := SYSTEM.VAL(Str, SYSTEM.VAL(INTEGER, rd.Base()) + 40); (* f(HostFiles.File).name *)
   name := str$;
END GetFileName;

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1305217963_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIHRleHQgZm9yIGZpbGUgbmFtZSA6XHBhcg0KXHBh
cg0KXHBhcg0KXHBhcg0KUFJPQ0VEVVJFIEdldEZpbGVOYW1lKiAocmQ6IEZpbGVzLlJlYWRlcjsg
VkFSIG5hbWU6IEFSUkFZIE9GIENIQVIpO1xwYXINCiAgVFlQRSBTdHIgPSBQT0lOVEVSIFRPIEFS
UkFZIFt1bnRhZ2dlZF0gT0YgQ0hBUjtccGFyDQogICAgIFZBUiBzdHI6IFN0cjtccGFyDQpCRUdJ
TlxwYXINCiAgIHN0ciA6PSBTWVNURU0uVkFMKFN0ciwgU1lTVEVNLlZBTChJTlRFR0VSLCByZC5C
YXNlKCkpICsgNDApOyAgICAoKiBmKEhvc3RGaWxlcy5GaWxlKS5uYW1lICopXHBhcg0KICAgbmFt
ZSA6PSBzdHIkO1xwYXINCkVORCBHZXRGaWxlTmFtZTtccGFyDQpccGFyDQpccGFyDQotLS0tXHBh
cg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFD
S0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIXHBhcg0KfQ==
----boundary-LibPST-iamunique-1305217963_-_---

Received on Fri May 21 2010 - 08:23:08 UTC