puzzle

From: Fyodor Tkachov <"Fyodor>
Date: Mon, 12 Apr 2004 12:51:56 -0600

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

Dear Experts:

I am puzzled by the attached module.
If p[0] is not ARRAY len + 1 OF CHAR then what the hell is it?

(May be I am in need of a good long rest after the Oberon Day...)

Many thanks in advance,
Fyodor Tkachov
------------------------------------------

MODULE PrivPuzzle;
        IMPORT StdLog;
        
        PROCEDURE Do*;
                CONST
                        str = '0123';
                        len = LEN( str );
                VAR
                        a: ARRAY 1, len + 1 OF CHAR;
                        p: POINTER TO ARRAY OF ARRAY OF CHAR;
        BEGIN
                a[0] := str;
                NEW( p, 1, len + 1 );
                StdLog.Int( LEN( str ) ); StdLog.Int( LEN( p[0] ) ); StdLog.Ln;
                ASSERT( LEN( str ) < LEN( p[0] ) ); (* Language Report, 9.1, 3. *)
                p[0] := str (* Trap: string too long -- for anything longer than empty string! *)
        END Do;

END PrivPuzzle.

(!)PrivPuzzle.Do

Powered by the E-mail PIM - Info Select - www.miclog.com
--------------------------------------------

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-585026913_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERlYXIgRXhwZXJ0czpccGFyDQpccGFyDQpJIGFt
IHB1enpsZWQgYnkgdGhlIGF0dGFjaGVkIG1vZHVsZS5ccGFyDQpJZiBwWzBdIGlzIG5vdCBBUlJB
WSBsZW4gKyAxIE9GIENIQVIgdGhlbiB3aGF0IHRoZSBoZWxsIGlzIGl0P1xwYXINClxwYXINCihN
YXkgYmUgSSBhbSBpbiBuZWVkIG9mIGEgZ29vZCBsb25nIHJlc3QgYWZ0ZXIgdGhlIE9iZXJvbiBE
YXkuLi4pXHBhcg0KXHBhcg0KTWFueSB0aGFua3MgaW4gYWR2YW5jZSxccGFyDQpGeW9kb3IgVGth
Y2hvdlxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxwYXIN
ClxwYXINCk1PRFVMRSAgUHJpdlB1enpsZTtccGFyDQpcdGFiIElNUE9SVCAgU3RkTG9nO1xwYXIN
Clx0YWIgXHBhcg0KXHRhYiBQUk9DRURVUkUgRG8qO1xwYXINClx0YWIgXHRhYiBDT05TVCBccGFy
DQpcdGFiIFx0YWIgXHRhYiBzdHIgPSAnMDEyMyc7XHBhcg0KXHRhYiBcdGFiIFx0YWIgbGVuID0g
TEVOKCBzdHIgKTtccGFyDQpcdGFiIFx0YWIgVkFSIFxwYXINClx0YWIgXHRhYiBcdGFiIGE6IEFS
UkFZIDEsIGxlbiArIDEgT0YgQ0hBUjtccGFyDQpcdGFiIFx0YWIgXHRhYiBwOiBQT0lOVEVSIFRP
IEFSUkFZIE9GIEFSUkFZIE9GIENIQVI7XHBhcg0KXHRhYiBCRUdJTlxwYXINClx0YWIgXHRhYiBh
WzBdIDo9IHN0cjtccGFyDQpcdGFiIFx0YWIgTkVXKCBwLCAxLCBsZW4gKyAxICk7XHBhcg0KXHRh
YiBcdGFiIFN0ZExvZy5JbnQoIExFTiggc3RyICkgKTsgIFN0ZExvZy5JbnQoIExFTiggcFswXSAp
ICk7ICBTdGRMb2cuTG47XHBhcg0KXHRhYiBcdGFiIEFTU0VSVCggTEVOKCBzdHIgKSA8IExFTigg
cFswXSApICk7ICAoKiBMYW5ndWFnZSBSZXBvcnQsIDkuMSwgMy4gKilccGFyDQpcdGFiIFx0YWIg
cFswXSA6PSBzdHIgICAoKiBUcmFwOiBzdHJpbmcgdG9vIGxvbmcgLS0gZm9yIGFueXRoaW5nIGxv
bmdlciB0aGFuIGVtcHR5IHN0cmluZyEgKilccGFyDQpcdGFiIEVORCBEbztccGFyDQpccGFyDQpF
TkQgIFByaXZQdXp6bGUuXHBhcg0KXHBhcg0KKCEpUHJpdlB1enpsZS5Eb1xwYXINClxwYXINClBv
d2VyZWQgYnkgdGhlIEUtbWFpbCBQSU0gLSBJbmZvIFNlbGVjdCAtIHd3dy5taWNsb2cuY29tXHBh
cg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFy
DQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBj
b250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KICAgYmxhY2tib3gtcmVx
dWVzdEBvYmVyb24uY2hccGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0IG9mIHZhbGlkIGUtbWFpbCBj
b21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdlLCBzZW5kIGEgbWVzc2FnZSBj
b250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUgYWJvdmUgYWRkcmVzcy5ccGFyDQpccGFy
DQpTZW5kIGFueSBwcm9ibGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25zIHJlbGF0ZWQgdG8gdGhpcyBl
bWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jl
cm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBU
byBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBz
dWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlzdCBzZXJ2ZXIg
d2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZvcndhcmQgeW91ciBwb3N0aW5n
IGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQpccGFyDQpi
KSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywg
Ynkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0
ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwg
b2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yIGhv
bHlkYXl9fQAKU3ViamVjdDogcHU

----boundary-LibPST-iamunique-585026913_-_---
Received on Mon Apr 12 2004 - 20:51:56 UTC