----boundary-LibPST-iamunique-531770466_-_-
Content-type: text/plain
Thanks, I'll try it. Will take me a while to figure this out, but I'll report back.
Steve Troy
-------- Original Message --------
Subject: Re: [BLACKBOX] Sorting Extended Records
From: Wojtek Skulski
> VAR base: BaseType; extended: ExtendedType;
> BEGIN
> base := extended; (* Always works. *)
> extended := base(ExtendedType); (* Works only if 'base' is
> actually a pointer to an 'ExtendedType' instance, traps
> otherwise. *)
IF base IS ExtendedType THEN
extended := base(ExtendedType);
ELSE
Log.String("base is not ExtendedType"); Log.Ln
END;
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy
---- To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy
----boundary-LibPST-iamunique-531770466_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbWh0bWwxIFxkZWZmMHtcZm9udHRibA0Ke1xmMFxm
c3dpc3NcZmNoYXJzZXQwIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYy
XGZuaWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIg
TmV3O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1
O30NClx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjQgDQp7XCpcaHRtbHRhZzE5IDxo
dG1sPn0NCntcKlxodG1sdGFnNTAgPGJvZHk+fXtcKlxodG1sdGFnNjR9XGh0bWxydGYge1xodG1s
cnRmMCANCntcKlxodG1sdGFnODQgPHNwYW4gc3R5bGU9ImZvbnQtZmFtaWx5OlZlcmRhbmE7IGNv
bG9yOiMwMDAwMDA7IGZvbnQtc2l6ZToxMHB0OyI+fVxodG1scnRmIHtcaHRtbHJ0ZjAgXGh0bWxy
dGYgfVxodG1scnRmMCB7XCpcaHRtbHRhZzcyfVxodG1scnRmfVxodG1scnRmMA0KDQp7XCpcaHRt
bHRhZzk2IDxkaXY+fVxodG1scnRmIHtcaHRtbHJ0ZjAge1wqXGh0bWx0YWc2NH1caHRtbHJ0ZiB7
XGh0bWxydGYwIFxodG1scnRmIHtcaHRtbHJ0ZjAgVGhhbmtzLCBJJ2xsIHRyeSBpdC4NCntcKlxo
dG1sdGFnODQgJm5ic3A7fVxodG1scnRmIFwnYTBcaHRtbHJ0ZjAgIFdpbGwgdGFrZSBtZSBhIHdo
aWxlIHRvIGZpZ3VyZSB0aGlzIG91dCwgYnV0IEknbGwgcmVwb3J0IGJhY2suXGh0bWxydGYgfVxo
dG1scnRmMCB7XCpcaHRtbHRhZzcyfVxodG1scnRmXHBhcn1caHRtbHJ0ZjANCg0Ke1wqXGh0bWx0
YWcxMDQgPC9kaXY+fVxodG1scnRmIH1caHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzk2IDxkaXY+fVxo
dG1scnRmIHtcaHRtbHJ0ZjAge1wqXGh0bWx0YWc2NH1caHRtbHJ0ZiB7XGh0bWxydGYwIFxodG1s
cnRmIHtcaHRtbHJ0ZjAgU3RldmUgVHJveQ0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBc
bGluZQ0KXGh0bWxydGYwIFxodG1scnRmIH1caHRtbHJ0ZjAge1wqXGh0bWx0YWc3Mn1caHRtbHJ0
ZlxwYXJ9XGh0bWxydGYwDQoNCntcKlxodG1sdGFnMTA0IDwvZGl2Pn1caHRtbHJ0ZiB9XGh0bWxy
dGYwIA0Ke1wqXGh0bWx0YWcwIFxwYXIgfQ0Ke1wqXGh0bWx0YWc5NiA8YmxvY2txdW90ZSBpZD0i
cmVwbHlCbG9ja3F1b3RlIiB3ZWJtYWlsPSIxIiBzdHlsZT0iYm9yZGVyLWxlZnQ6IDJweCBzb2xp
ZCBibHVlOyBtYXJnaW4tbGVmdDogOHB4OyBwYWRkaW5nLWxlZnQ6IDhweDsgZm9udC1zaXplOjEw
cHQ7IGNvbG9yOmJsYWNrOyBmb250LWZhbWlseTp2ZXJkYW5hOyI+fVxodG1scnRmIFxwYXINCntc
aHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzAgXHBhciB9DQp7XCpcaHRtbHRhZzk2IDxkaXYgaWQ9Indt
UXVvdGVXcmFwcGVyIj59XGh0bWxydGYge1xodG1scnRmMCANCntcKlxodG1sdGFnMCBccGFyIH17
XCpcaHRtbHRhZzY0fVxodG1scnRmIHtcaHRtbHJ0ZjAgXGxpMzYwIFxodG1scnRmIHtcaHRtbHJ0
ZjAgLS0tLS0tLS0gT3JpZ2luYWwgTWVzc2FnZSAtLS0tLS0tLQ0Ke1wqXGh0bWx0YWcxMTYgPGJy
Pn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfVN1YmplY3Q6
IFJlOiBbQkxBQ0tCT1hdIFNvcnRpbmcgRXh0ZW5kZWQgUmVjb3Jkcw0Ke1wqXGh0bWx0YWcxMTYg
PGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfUZyb206
IFdvanRlayBTa3Vsc2tpIA0Ke1wqXGh0bWx0YWc4NCAmbHQ7fVxodG1scnRmIDxcaHRtbHJ0ZjAg
DQp7XCpcaHRtbHRhZzg0IDxhIGhyZWY9Im1haWx0bzpza3Vsc2tpQFBBUy5ST0NIRVNURVIuRURV
Ij59XGh0bWxydGYge1xmaWVsZHtcKlxmbGRpbnN0e0hZUEVSTElOSyAibWFpbHRvOnNrdWxza2lA
UEFTLlJPQ0hFU1RFUi5FRFUifX17XGZsZHJzbHRcY2YxXHVsIFxodG1scnRmMCBza3Vsc2tpQFBB
Uy5ST0NIRVNURVIuRURVXGh0bWxydGYgfVxodG1scnRmMCBcaHRtbHJ0ZiB9XGh0bWxydGYwIA0K
e1wqXGh0bWx0YWc5MiA8L2E+fQ0Ke1wqXGh0bWx0YWc4NCAmZ3Q7fVxodG1scnRmID5caHRtbHJ0
ZjAgDQp7XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpc
aHRtbHRhZzQgXHBhciB9RGF0ZTogTW9uLCBNYXJjaCAyOCwgMjAxMSAyOjI1IHBtDQp7XCpcaHRt
bHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBh
ciB9VG86IA0Ke1wqXGh0bWx0YWc4NCA8YSBocmVmPSJtYWlsdG86QkxBQ0tCT1hATElTVFMuT0JF
Uk9OLkNIIj59XGh0bWxydGYge1xmaWVsZHtcKlxmbGRpbnN0e0hZUEVSTElOSyAibWFpbHRvOkJM
QUNLQk9YQExJU1RTLk9CRVJPTi5DSCJ9fXtcZmxkcnNsdFxjZjFcdWwgXGh0bWxydGYwIEJMQUNL
Qk9YQExJU1RTLk9CRVJPTi5DSFxodG1scnRmIH1caHRtbHJ0ZjAgXGh0bWxydGYgfVxodG1scnRm
MCANCntcKlxodG1sdGFnOTIgPC9hPn0NCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxp
bmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0NCntcKlxodG1sdGFnMTE2IDxicj59
XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH1Vc2UgdHlwZSBn
dWFyZCBhbmQgdHlwZSB0ZXN0Og0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0K
XGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfQ0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRt
bHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfQ0Ke1wqXGh0bWx0YWc4
NCAmZ3Q7fVxodG1scnRmID5caHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzg0ICAgfVxodG1scnRmICBc
aHRtbHJ0ZjAgVkFSIGJhc2U6IEJhc2VUeXBlOyBleHRlbmRlZDogRXh0ZW5kZWRUeXBlOw0Ke1wq
XGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0
IFxwYXIgfQ0Ke1wqXGh0bWx0YWc4NCAmZ3Q7fVxodG1scnRmID5caHRtbHJ0ZjAgDQp7XCpcaHRt
bHRhZzg0ICAgfVxodG1scnRmICBcaHRtbHJ0ZjAgQkVHSU4NCntcKlxodG1sdGFnMTE2IDxicj59
XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0NCntcKlxodG1s
dGFnODQgJmd0O31caHRtbHJ0ZiA+XGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc4NCAgICAgICB9XGh0
bWxydGYgIFxodG1scnRmMCBiYXNlIDo9IGV4dGVuZGVkOyAoKiBBbHdheXMgd29ya3MuICopDQp7
XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRh
ZzQgXHBhciB9DQp7XCpcaHRtbHRhZzg0ICZndDt9XGh0bWxydGYgPlxodG1scnRmMCANCntcKlxo
dG1sdGFnODQgICAgICAgfVxodG1scnRmICBcaHRtbHJ0ZjAgZXh0ZW5kZWQgOj0gYmFzZShFeHRl
bmRlZFR5cGUpOyAoKiBXb3JrcyBvbmx5IGlmICdiYXNlJyBpcw0Ke1wqXGh0bWx0YWcxMTYgPGJy
Pn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfQ0Ke1wqXGh0
bWx0YWc4NCAmZ3Q7fVxodG1scnRmID5caHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzg0ICAgICAgIH1c
aHRtbHJ0ZiAgXGh0bWxydGYwIGFjdHVhbGx5IGEgcG9pbnRlciB0byBhbiAnRXh0ZW5kZWRUeXBl
JyBpbnN0YW5jZSwgdHJhcHMNCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxo
dG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0NCntcKlxodG1sdGFnODQgJmd0O31caHRtbHJ0
ZiA+XGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc4NCAgICAgICB9XGh0bWxydGYgIFxodG1scnRmMCBv
dGhlcndpc2UuDQp7XCpcaHRtbHRhZzg0ICAgfVxodG1scnRmICBcaHRtbHJ0ZjAgKikNCntcKlxo
dG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBc
cGFyIH0NCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntc
KlxodG1sdGFnNCBccGFyIH1JRiBiYXNlIElTIEV4dGVuZGVkVHlwZSBUSEVODQp7XCpcaHRtbHRh
ZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9
DQp7XCpcaHRtbHRhZzg0ICAgIH1leHRlbmRlZCA6PSBiYXNlKEV4dGVuZGVkVHlwZSk7DQp7XCpc
aHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQg
XHBhciB9RUxTRQ0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYw
IA0Ke1wqXGh0bWx0YWc0IFxwYXIgfQ0Ke1wqXGh0bWx0YWc4NCAgICB9DQp7XCpcaHRtbHRhZzg0
IDxhIGhyZWY9Imh0dHA6Ly9Mb2cuU3RyaW5nIj59XGh0bWxydGYge1xmaWVsZHtcKlxmbGRpbnN0
e0hZUEVSTElOSyAiaHR0cDovL0xvZy5TdHJpbmcifX17XGZsZHJzbHRcY2YxXHVsIFxodG1scnRm
MCBMb2cuU3RyaW5nXGh0bWxydGYgfVxodG1scnRmMCBcaHRtbHJ0ZiB9XGh0bWxydGYwIA0Ke1wq
XGh0bWx0YWc5MiA8L2E+fSgiYmFzZSBpcyBub3QgRXh0ZW5kZWRUeXBlIik7IExvZy5Mbg0Ke1wq
XGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0
IFxwYXIgfUVORDsNCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRm
MCANCntcKlxodG1sdGFnNCBccGFyIH0NCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxp
bmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0NCntcKlxodG1sdGFnMTE2IDxicj59
XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0tLS0tDQp7XCpc
aHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQg
XHBhciB9VG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBC
TEFDS0JPWCIgdG8gDQp7XCpcaHRtbHRhZzg0IDxhIGhyZWY9Im1haWx0bzpMSVNUU0VSVkBMSVNU
Uy5PQkVST04uQ0giPn1caHRtbHJ0ZiB7XGZpZWxke1wqXGZsZGluc3R7SFlQRVJMSU5LICJtYWls
dG86TElTVFNFUlZATElTVFMuT0JFUk9OLkNIIn19e1xmbGRyc2x0XGNmMVx1bCBcaHRtbHJ0ZjAg
TElTVFNFUlZATElTVFMuT0JFUk9OLkNIXGh0bWxydGYgfVxodG1scnRmMCBcaHRtbHJ0ZiB9XGh0
bWxydGYwIA0Ke1wqXGh0bWx0YWc5MiA8L2E+fQ0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0
ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfQ0Ke1wqXGh0bWx0YWc0IFxw
YXIgfVxodG1scnRmIH1caHRtbHJ0ZjAge1wqXGh0bWx0YWc3Mn1caHRtbHJ0ZlxwYXJ9XGh0bWxy
dGYwDQoNCntcKlxodG1sdGFnMTA0IDwvZGl2Pn1caHRtbHJ0ZiB9XGh0bWxydGYwIA0Ke1wqXGh0
bWx0YWcwIFxwYXIgfQ0Ke1wqXGh0bWx0YWcxMDQgPC9ibG9ja3F1b3RlPn1caHRtbHJ0ZiB9XHBh
cg0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWcyNDggPC9zcGFuPn0NCntcKlxodG1sdGFnNTggPC9i
b2R5Pn0NCntcKlxodG1sdGFnMjcgPC9odG1sPn0NCntcKlxodG1sdGFnMyBccGFyIH0NCntcKlxo
dG1sdGFnNjQgPHA+fVxodG1scnRmIHtcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9LS0t
LQ0Ke1wqXGh0bWx0YWc0IFxwYXIgfVxodG1scnRmICBcaHRtbHJ0ZjAgVG8gdW5zdWJzY3JpYmUs
IHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZA
TElTVFMuT0JFUk9OLkNIDQp7XCpcaHRtbHRhZzQgXHBhciB9XGh0bWxydGYgIFxodG1scnRmMCBc
aHRtbHJ0ZlxwYXJ9XGh0bWxydGYwDQp9
----boundary-LibPST-iamunique-531770466_-_---
Received on Mon Mar 28 2011 - 20:40:05 UTC