----boundary-LibPST-iamunique-223893769_-_-
Content-type: text/plain
Now this is interesting. Is there a logical reason why
ptyp^ := typ;
where ptyp = POINTER TO typ and
typ = EXTENSIBLE RECORD
END;
is an incompatible assignment? OR could it be that the compiler tries to interprete ptyp^ and ptyp alike (because they have been made exchangeable in many instances), which is ok for something like ptyp.field being the shortcut for ptyp^.field,
but which seems to be really bad where one tries to fill the dereferenced record with data?
Rene
Wojtek Skulski wrote:
> Hi:
>
> here is the more elaborate version, which however does not
> compile. I am not sure how to follow this line, but I will
> think of it. Thank you for the suggestion.
>
> MODULE Test;
> IMPORT Dialog, Stores, Files;
> TYPE
> PersistentTree* = EXTENSIBLE RECORD (Stores.Store)
> tree*: Dialog.Tree
> END;
>
> PPT* = POINTER TO PersistentTree;
>
> VAR
> wr: Stores.Writer;
> file: Files.File;
> mainTree: PersistentTree;
> ppt : PPT;
>
> BEGIN
> wr.ConnectTo (file);
> NEW(ppt);
> (*the following does not compile*)
> ppt^ := mainTree;
> wr.WriteStore (ppt);
>
> END Test.
>
> Wojtek Skulski skulski{([at]})nowhere.xy> On Mon, 14 Jul 2003, [iso-8859-1] René A.Krywult wrote:
>
> > Wojtek,
> >
> > I didn't try the following, but what about something like this:
> >
> > TYPE
> > PersistentTree* = EXTENSIBLE RECORD (Stores.Store)
> > tree*: Dialog.Tree
> > END;
> >
> > PPT*=POINTER TO PersistentTree;
> >
> > VAR
> > wr: Stores.Writer;
> > file: Files.File;
> > mainTree: PersistentTree;
> > ppt:PPT;
> >
> > (*the following does not compile*)
> > wr.ConnectTo (file);
> > NEW(ppt);
> > ppt^=mainTree;
> > wr.WriteStore (ppt);
> >
> > Rene
> >
> >
> >
> > Wojtek Skulski wrote:
> >
> > > 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.
> >
> >
> >
--------------------------------------------
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-223893769_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBOb3cgdGhpcyBpcyBpbnRlcmVz
dGluZy4gSXMgdGhlcmUgYSBsb2dpY2FsIHJlYXNvbiB3aHlccGFyDQpccGFyDQpwdHlwXiA6PSB0
eXA7XHBhcg0KXHBhcg0Kd2hlcmUgcHR5cCA9IFBPSU5URVIgVE8gdHlwIGFuZFxwYXINCnR5cCA9
IEVYVEVOU0lCTEUgUkVDT1JEXHBhcg0KRU5EO1xwYXINCmlzIGFuIGluY29tcGF0aWJsZSBhc3Np
Z25tZW50PyBPUiBjb3VsZCBpdCBiZSB0aGF0IHRoZSBjb21waWxlciB0cmllcyB0byBpbnRlcnBy
ZXRlIHB0eXBeIGFuZCBwdHlwIGFsaWtlIChiZWNhdXNlIHRoZXkgaGF2ZSBiZWVuIG1hZGUgZXhj
aGFuZ2VhYmxlIGluIG1hbnkgaW5zdGFuY2VzKSwgd2hpY2ggaXMgb2sgZm9yIHNvbWV0aGluZyBs
aWtlIHB0eXAuZmllbGQgYmVpbmcgdGhlIHNob3J0Y3V0IGZvciBwdHlwXi5maWVsZCxccGFyDQpi
dXQgd2hpY2ggc2VlbXMgdG8gYmUgcmVhbGx5IGJhZCB3aGVyZSBvbmUgdHJpZXMgdG8gZmlsbCB0
aGUgZGVyZWZlcmVuY2VkIHJlY29yZCB3aXRoIGRhdGE/XHBhcg0KXHBhcg0KUmVuZVxwYXINClxw
YXINCldvanRlayBTa3Vsc2tpIHdyb3RlOlxwYXINClxwYXINCj4gSGk6XHBhcg0KPlxwYXINCj4g
aGVyZSBpcyB0aGUgbW9yZSBlbGFib3JhdGUgdmVyc2lvbiwgd2hpY2ggaG93ZXZlciBkb2VzIG5v
dFxwYXINCj4gY29tcGlsZS4gSSBhbSBub3Qgc3VyZSBob3cgdG8gZm9sbG93IHRoaXMgbGluZSwg
YnV0IEkgd2lsbFxwYXINCj4gdGhpbmsgb2YgaXQuIFRoYW5rIHlvdSBmb3IgdGhlIHN1Z2dlc3Rp
b24uXHBhcg0KPlxwYXINCj4gTU9EVUxFIFRlc3Q7XHBhcg0KPiBJTVBPUlQgRGlhbG9nLCBTdG9y
ZXMsIEZpbGVzO1xwYXINCj4gVFlQRVxwYXINCj4gUGVyc2lzdGVudFRyZWUqID0gRVhURU5TSUJM
RSBSRUNPUkQgKFN0b3Jlcy5TdG9yZSlccGFyDQo+ICAgIHRyZWUqOiBEaWFsb2cuVHJlZVxwYXIN
Cj4gRU5EO1xwYXINCj5ccGFyDQo+IFBQVCogPSBQT0lOVEVSIFRPIFBlcnNpc3RlbnRUcmVlO1xw
YXINCj5ccGFyDQo+IFZBUlxwYXINCj4gd3I6IFN0b3Jlcy5Xcml0ZXI7XHBhcg0KPiBmaWxlOiBG
aWxlcy5GaWxlO1xwYXINCj4gbWFpblRyZWU6IFBlcnNpc3RlbnRUcmVlO1xwYXINCj4gcHB0IDog
UFBUO1xwYXINCj5ccGFyDQo+IEJFR0lOXHBhcg0KPiB3ci5Db25uZWN0VG8gKGZpbGUpO1xwYXIN
Cj4gTkVXKHBwdCk7XHBhcg0KPiAoKnRoZSBmb2xsb3dpbmcgZG9lcyBub3QgY29tcGlsZSopXHBh
cg0KPiBwcHReIDo9IG1haW5UcmVlO1xwYXINCj4gd3IuV3JpdGVTdG9yZSAocHB0KTtccGFyDQo+
XHBhcg0KPiBFTkQgVGVzdC5ccGFyDQo+XHBhcg0KPiBXb2p0ZWsgU2t1bHNraSBza3Vsc2tpQHBh
cy5yb2NoZXN0ZXIuZWR1XHBhcg0KPiBPbiBNb24sIDE0IEp1bCAyMDAzLCBbaXNvLTg4NTktMV0g
UmVuXCdlOSBBLktyeXd1bHQgd3JvdGU6XHBhcg0KPlxwYXINCj4gPiBXb2p0ZWssXHBhcg0KPiA+
XHBhcg0KPiA+IEkgZGlkbid0IHRyeSB0aGUgZm9sbG93aW5nLCBidXQgd2hhdCBhYm91dCBzb21l
dGhpbmcgbGlrZSB0aGlzOlxwYXINCj4gPlxwYXINCj4gPiBUWVBFXHBhcg0KPiA+IFBlcnNpc3Rl
bnRUcmVlKiA9IEVYVEVOU0lCTEUgUkVDT1JEIChTdG9yZXMuU3RvcmUpXHBhcg0KPiA+ICAgIHRy
ZWUqOiBEaWFsb2cuVHJlZVxwYXINCj4gPiBFTkQ7XHBhcg0KPiA+XHBhcg0KPiA+IFBQVCo9UE9J
TlRFUiBUTyBQZXJzaXN0ZW50VHJlZTtccGFyDQo+ID5ccGFyDQo+ID4gVkFSXHBhcg0KPiA+IHdy
OiBTdG9yZXMuV3JpdGVyO1xwYXINCj4gPiBmaWxlOiBGaWxlcy5GaWxlO1xwYXINCj4gPiBtYWlu
VHJlZTogUGVyc2lzdGVudFRyZWU7XHBhcg0KPiA+IHBwdDpQUFQ7XHBhcg0KPiA+XHBhcg0KPiA+
ICgqdGhlIGZvbGxvd2luZyBkb2VzIG5vdCBjb21waWxlKilccGFyDQo+ID4gd3IuQ29ubmVjdFRv
IChmaWxlKTtccGFyDQo+ID4gTkVXKHBwdCk7XHBhcg0KPiA+IHBwdF49bWFpblRyZWU7XHBhcg0K
PiA+IHdyLldyaXRlU3RvcmUgKHBwdCk7XHBhcg0KPiA+XHBhcg0KPiA+IFJlbmVccGFyDQo+ID5c
cGFyDQo+ID5ccGFyDQo+ID5ccGFyDQo+ID4gV29qdGVrIFNrdWxza2kgd3JvdGU6XHBhcg0KPiA+
XHBhcg0KPiA+ID4gSGk6XHBhcg0KPiA+ID5ccGFyDQo+ID4gPiAgIGRvZXMgYW55Ym9keSBrbm93
IGhvdyBjYW4gSSBzdG9yZSBhIHJlY29yZCB0byBhIGZpbGU/XHBhcg0KPiA+ID4gTm90IGEgcG9p
bnRlciB0byByZWNvcmQsIGJ1dCBhIHJlY29yZC4gU3BlY2lmaWNhbGx5OlxwYXINCj4gPiA+XHBh
cg0KPiA+ID4gVFlQRVxwYXINCj4gPiA+IFBlcnNpc3RlbnRUcmVlKiA9IEVYVEVOU0lCTEUgUkVD
T1JEIChTdG9yZXMuU3RvcmUpXHBhcg0KPiA+ID4gICAgdHJlZSo6IERpYWxvZy5UcmVlXHBhcg0K
PiA+ID4gRU5EO1xwYXINCj4gPiA+XHBhcg0KPiA+ID4gVkFSXHBhcg0KPiA+ID4gd3I6IFN0b3Jl
cy5Xcml0ZXI7XHBhcg0KPiA+ID4gZmlsZTogRmlsZXMuRmlsZTtccGFyDQo+ID4gPiBtYWluVHJl
ZTogUGVyc2lzdGVudFRyZWU7XHBhcg0KPiA+ID5ccGFyDQo+ID4gPiAoKnRoZSBmb2xsb3dpbmcg
ZG9lcyBub3QgY29tcGlsZSopXHBhcg0KPiA+ID4gd3IuQ29ubmVjdFRvIChmaWxlKTtccGFyDQo+
ID4gPiB3ci5Xcml0ZVN0b3JlIChtYWluVHJlZSk7ICgqIGhlcmUgcG9pbnRlciBpcyBleHBlY3Rl
ZCopXHBhcg0KPiA+ID5ccGFyDQo+ID4gPiBTbywgaG93IGNhbiBJIHdyaXRlIHRoZSByZWNvcmQg
dG8gdGhlIGZpbGU/XHBhcg0KPiA+ID5ccGFyDQo+ID4gPiBPciwgYW0gSSBsb29raW5nIGluIHRo
ZSB3cm9uZyBkaXJlY3Rpb24/IE1heWJlIHRoZXJlIGlzXHBhcg0KPiA+ID4gc29tZSBtZXRob2Qg
b3IgcHJvY2VkdXJlIHNvbWV3aGVyZSB3aGljaCBjYW4gdGFrZSBhIHJlY29yZCxccGFyDQo+ID4g
PiBub3QgYSBwb2ludGVyP1xwYXINCj4gPiA+XHBhcg0KPiA+ID4gT3IsIHBlcmhhcHMgdGhlcmUg
aXMgYSBjb252ZXJzaW9uIHByb2NlZHVyZSBzb21ld2hlcmVccGFyDQo+ID4gPlxwYXINCj4gPiA+
ICAgIEdldFBvaW50ZXJUb1JlY29yZCAocmVjOiBBTllSRUMpOiBBTllQVFI7XHBhcg0KPiA+ID5c
cGFyDQo+ID4gPiBJIGtub3cgSSBjYW4gdXNlIFNZU1RFTS5BRFIgdG8gZ2V0IHRoZSBhZGRyZXNz
IG9mIHRoZSB2YXJpYWJsZSxccGFyDQo+ID4gPiBidXQgdGhpcyBpcyB0aGUgbGFzdCByZXNvcnQu
IEFueSBiZXR0ZXIgaWRlYXMsIGFueW9uZT9ccGFyDQo+ID4gPlxwYXINCj4gPiA+IFBsZWFzZSBl
LW1haWwgbWUsIEkgYW0gc3RpbGwgc3Vic2NyaWJlZCBvbmx5IGZvciB0aGUgd2Vla2x5XHBhcg0K
PiA+ID4gZGlnZXN0cywgSSBqa25vdyBJIHNob3VsZCBjaGFuZ2UgdGhpcy5ccGFyDQo+ID4gPlxw
YXINCj4gPiA+IFRoYW5rIHlvdS5ccGFyDQo+ID4gPlxwYXINCj4gPiA+IFdvanRlayBTa3Vsc2tp
IHNrdWxza2lAcGFzLnJvY2hlc3Rlci5lZHVccGFyDQo+ID4gPlxwYXINCj4gPiA+IC0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KPiA+ID5ccGFyDQo+ID4g
PiBUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBj
b250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KPiA+ID4gICAgYmxhY2ti
b3gtcmVxdWVzdEBvYmVyb24uY2hccGFyDQo+ID4gPlxwYXINCj4gPiA+IFRvIGdldCBhIGxpc3Qg
b2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVjdGlvbnMgb24gdGhlaXIgdXNhZ2Us
IHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgImhlbHAiIHRvIHRoZSBhYm92ZSBh
ZGRyZXNzLlxwYXINCj4gPiA+XHBhcg0KPiA+ID4gU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9y
IHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25lciBh
dFxwYXINCj4gPiA+ICAgIG93bmVyLWJsYWNrYm94QG9iZXJvbi5jaFxwYXINCj4gPiA+XHBhcg0K
PiA+ID4gQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQo+ID4gPlxwYXINCj4gPiA+IGEpIFRv
IHBvc3QgeW91IHNob3VsZCB1c2UgdGhlIHNhbWUgYWRkcmVzcyBieSB3aGljaCB5b3UgYXJlIHN1
YnNjcmliZWQgdG8gdGhlIG1haWxpbmcgbGlzdC4gVGhhdCB3YXksIHRoZSBsaXN0IHNlcnZlciB3
aWxsIHJlY29nbml6ZSB5b3UgYXMgc3Vic2NyaWJlciBhbmQgZm9yd2FyZCB5b3VyIHBvc3Rpbmcg
aW1tZWRpYXRlbHksIHdpdGhvdXQgY3JlYXRpbmcgYW55IG92ZXJoZWFkLlxwYXINCj4gPiA+XHBh
cg0KPiA+ID4gYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20gdGhl
IGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCwgeW91ciBtZXNzYWdlIHdpbGwg
YmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1bmRlcnN0YW5kIHRoYXQgbW9kZXJh
dGlvbiB3aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGluIHBhcnRpY3VsYXIgb3ZlciB3ZWVr
ZW5kcyBvciBob2x5ZGF5cy5ccGFyDQo+ID5ccGFyDQo+ID5ccGFyDQo+ID5ccGFyDQpccGFyDQot
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINClRv
IHVuc3Vic2NyaWJlIGZyb20gdGhpcyBtYWlsaW5nIGxpc3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRh
aW5pbmcgdGhlIHdvcmQgInVuc3Vic2NyaWJlIiB0bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0
QG9iZXJvbi5jaFxwYXINClxwYXINClRvIGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1h
bmRzIGFuZCBpbnN0cnVjdGlvbnMgb24gdGhlaXIgdXNhZ2UsIHNlbmQgYSBtZXNzYWdlIGNvbnRh
aW5pbmcgdGhlIHdvcmQgImhlbHAiIHRvIHRoZSBhYm92ZSBhZGRyZXNzLlxwYXINClxwYXINClNl
bmQgYW55IHByb2JsZW0gcmVwb3J0cyBvciBxdWVzdGlvbnMgcmVsYXRlZCB0byB0aGlzIGVtYWls
IGxpc3QgdG8gdGhlIGxpc3Qgb3duZXIgYXRccGFyDQogICBvd25lci1ibGFja2JveEBvYmVyb24u
Y2hccGFyDQpccGFyDQpDdXJyZW50IHBvc3RpbmcgcG9saWN5OlxwYXINClxwYXINCmEpIFRvIHBv
c3QgeW91IHNob3VsZCB1c2UgdGhlIHNhbWUgYWRkcmVzcyBieSB3aGljaCB5b3UgYXJlIHN1YnNj
cmliZWQgdG8gdGhlIG1haWxpbmcgbGlzdC4gVGhhdCB3YXksIHRoZSBsaXN0IHNlcnZlciB3aWxs
IHJlY29nbml6ZSB5b3UgYXMgc3Vic2NyaWJlciBhbmQgZm9yd2FyZCB5b3VyIHBvc3RpbmcgaW1t
ZWRpYXRlbHksIHdpdGhvdXQgY3JlYXRpbmcgYW55IG92ZXJoZWFkLlxwYXINClxwYXINCmIpIElm
LCBmb3Igc29tZSByZWFzb24sIHlvdSBjYW5ub3QgcG9zdCBmcm9tIHRoZSBhZGRyZXNzLCBieSB3
aGljaCB5b3UgYXJlIHN1YnNjcmliZWQsIHlvdXIgbWVzc2FnZSB3aWxsIGJlIG1vZGVyYXRlZCB0
byBhdm9pZCBzcGFtLiBQbGVhc2UgdW5kZXJzdGFuZCB0aGF0IG1vZGVyYXRpb24gd2lsbCBvZnRl
biBjYXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1bGFyIG92ZXIgd2Vla2VuZHMgb3IgaG9seWRh
eXMuXHBhcg0KfQ=
----boundary-LibPST-iamunique-223893769_-_---
Received on Mon Jul 14 2003 - 22:21:40 UTC