Question: storing a record to a file

From: [at]} <Wojtek>
Date: Wed, 2 Jul 2003 02:51:45 -0400 (EDT)

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

Hi:

  does anybody know how can I store a record to a file?
Not a pointer to record, but a record. Specifically:

TYPE
PersistentTree* = EXTENSIBLE RECORD (Stores.Store)
   tree*: Dialog.Tree
END;

VAR
wr: Stores.Writer;
file: Files.File;
mainTree: PersistentTree;

(*the following does not compile*)
wr.ConnectTo (file);
wr.WriteStore (mainTree); (* here pointer is expected*)

So, how can I write the record to the file?

Or, am I looking in the wrong direction? Maybe there is
some method or procedure somewhere which can take a record,
not a pointer?

Or, perhaps there is a conversion procedure somewhere

   GetPointerToRecord (rec: ANYREC): ANYPTR;

I know I can use SYSTEM.ADR to get the address of the variable,
but this is the last resort. Any better ideas, anyone?

Please e-mail me, I am still subscribed only for the weekly
digests, I jknow I should change this.

Thank you.


Wojtek Skulski skulski{([at]})nowhere.xy

--------------------------------------------

To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
   blackbox-request{([at]})nowhere.xy

To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.

Send any problem reports or questions related to this email list to the list owner at
   owner-blackbox{([at]})nowhere.xy

Current posting policy:

a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.

b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.


----boundary-LibPST-iamunique-1977745057_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpOlxwYXINClxwYXINCiAgZG9lcyBhbnlib2R5
IGtub3cgaG93IGNhbiBJIHN0b3JlIGEgcmVjb3JkIHRvIGEgZmlsZT9ccGFyDQpOb3QgYSBwb2lu
dGVyIHRvIHJlY29yZCwgYnV0IGEgcmVjb3JkLiBTcGVjaWZpY2FsbHk6XHBhcg0KXHBhcg0KVFlQ
RVxwYXINClBlcnNpc3RlbnRUcmVlKiA9IEVYVEVOU0lCTEUgUkVDT1JEIChTdG9yZXMuU3RvcmUp
XHBhcg0KICAgdHJlZSo6IERpYWxvZy5UcmVlXHBhcg0KRU5EO1xwYXINClxwYXINClZBUlxwYXIN
CndyOiBTdG9yZXMuV3JpdGVyO1xwYXINCmZpbGU6IEZpbGVzLkZpbGU7XHBhcg0KbWFpblRyZWU6
IFBlcnNpc3RlbnRUcmVlO1xwYXINClxwYXINCigqdGhlIGZvbGxvd2luZyBkb2VzIG5vdCBjb21w
aWxlKilccGFyDQp3ci5Db25uZWN0VG8gKGZpbGUpO1xwYXINCndyLldyaXRlU3RvcmUgKG1haW5U
cmVlKTsgKCogaGVyZSBwb2ludGVyIGlzIGV4cGVjdGVkKilccGFyDQpccGFyDQpTbywgaG93IGNh
biBJIHdyaXRlIHRoZSByZWNvcmQgdG8gdGhlIGZpbGU/XHBhcg0KXHBhcg0KT3IsIGFtIEkgbG9v
a2luZyBpbiB0aGUgd3JvbmcgZGlyZWN0aW9uPyBNYXliZSB0aGVyZSBpc1xwYXINCnNvbWUgbWV0
aG9kIG9yIHByb2NlZHVyZSBzb21ld2hlcmUgd2hpY2ggY2FuIHRha2UgYSByZWNvcmQsXHBhcg0K
bm90IGEgcG9pbnRlcj9ccGFyDQpccGFyDQpPciwgcGVyaGFwcyB0aGVyZSBpcyBhIGNvbnZlcnNp
b24gcHJvY2VkdXJlIHNvbWV3aGVyZVxwYXINClxwYXINCiAgIEdldFBvaW50ZXJUb1JlY29yZCAo
cmVjOiBBTllSRUMpOiBBTllQVFI7XHBhcg0KXHBhcg0KSSBrbm93IEkgY2FuIHVzZSBTWVNURU0u
QURSIHRvIGdldCB0aGUgYWRkcmVzcyBvZiB0aGUgdmFyaWFibGUsXHBhcg0KYnV0IHRoaXMgaXMg
dGhlIGxhc3QgcmVzb3J0LiBBbnkgYmV0dGVyIGlkZWFzLCBhbnlvbmU/XHBhcg0KXHBhcg0KUGxl
YXNlIGUtbWFpbCBtZSwgSSBhbSBzdGlsbCBzdWJzY3JpYmVkIG9ubHkgZm9yIHRoZSB3ZWVrbHlc
cGFyDQpkaWdlc3RzLCBJIGprbm93IEkgc2hvdWxkIGNoYW5nZSB0aGlzLlxwYXINClxwYXINClRo
YW5rIHlvdS5ccGFyDQpccGFyDQpccGFyDQpXb2p0ZWsgU2t1bHNraSBza3Vsc2tpQHBhcy5yb2No
ZXN0ZXIuZWR1XHBhcg0KXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0
LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBh
cg0KICAgYmxhY2tib3gtcmVxdWVzdEBvYmVyb24uY2hccGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0
IG9mIHZhbGlkIGUtbWFpbCBjb21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdl
LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUgYWJvdmUg
YWRkcmVzcy5ccGFyDQpccGFyDQpTZW5kIGFueSBwcm9ibGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25z
IHJlbGF0ZWQgdG8gdGhpcyBlbWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93bmVyIGF0XHBhcg0KICAg
b3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGlj
eTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3Mg
Ynkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5
LCB0aGUgbGlzdCBzZXJ2ZXIgd2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZv
cndhcmQgeW91ciBwb3N0aW5nIGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVy
aGVhZC5ccGFyDQpccGFyDQpiKSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3Qg
ZnJvbSB0aGUgYWRkcmVzcywgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3Nh
Z2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhh
dCBtb2RlcmF0aW9uIHdpbGwgb2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBv
dmVyIHdlZWtlbmRzIG9yIGhvbHlkYXl9fQANCg0KU28=


----boundary-LibPST-iamunique-1977745057_-_---
Received on Wed Jul 02 2003 - 08:51:45 UTC