--- Have a look at http://www.zinnamturm.de Send your answer and comments to mailto:cpc{([at]})nowhere.xy-----Ursprüngliche Nachricht----- Von: Fyodor Tkachov [mailto:fyodor.tkachov{([at]})nowhere.xyGesendet: Montag, 12. April 2004 20:52 An: Blackbox Mailing-List Betreff: puzzle 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.xyTo 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.xyCurrent 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. ------------------------------------------- Versendet durch AonWebmail (webmail.aon.at) -------------------------------------------- To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to: blackbox-request{([at]})nowhere.xyTo 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.xyCurrent 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-1522413358_-_- Content-type: application/rtf Content-transfer-encoding: base64 Content-Disposition: attachment; filename="rtf-body.rtf" e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7 fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBJIGRvbid0IGtub3cuIEkgdHJp ZWQgdGhlIGV4YW1wbGUgYXMgcHJvdmlkZWQgYnkgRnlvZG9yLCBhbmQgaXQgc3VyZSB3YXMgY29t cGlsZWFibGUgKGluIEJCIDEuMykuIFxwYXINClxwYXINCkFsc28sIHRoZSBsYW5ndWFnZSByZXBv cnQgc2F5czpccGFyDQpccGFyDQoiaWYgVCBpcyBhbiBuLWRpbWVuc2lvbmFsIG9wZW4gYXJyYXkg dHlwZSB0aGUgYWxsb2NhdGlvbiBoYXMgdG8gYmUgZG9uZSB3aXRoIE5FVyhwLCBlMCwgLi4uLCBl bi0xKSB3aGVyZSBUIGlzIGFsbG9jYXRlZCB3aXRoIGxlbmd0aHMgZ2l2ZW4gYnkgdGhlIGV4cHJl c3Npb25zIGUwLCAuLi4sIGVuLTEuIlxwYXINClxwYXINCkZyb20gdGhpcyBJIHdvdWxkIGZvbGxv dyB0aGF0IEZ5b2RvcidzIGV4YW1wbGUgaXMgdmFsaWQuXHBhcg0KXHBhcg0KVGhlIHJlYWwgcHJv YmxlbSBhcm91c2UsIHdoZW4gSSBoaXQgdGhlIGNvbW1hbmRlciBzZXZlcmFsIHRpbWVzOiBUaGUg dHJhcCBkb2VzIG5vdCBvY2N1ciBlYWNoIHRpbWUgdGhlIHByb2NlZHVyZSBpcyBleGVjdXRlZCFc cGFyDQpccGFyDQpSZW5lXHBhcg0KXHBhcg0KPT09PT09PT09PT09PT09PT09PT09PT09PT09XHBh cg0KUmVuXCdlOSBBLiBLcnl3dWx0XHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINCkxlZ2UsIGxlZ2UsIHJlbGVnZSwgb3JhLCBsYWJvcmEg ZXQgaW52ZW5pZXNccGFyDQpfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX1xwYXIN ClxwYXINClxwYXINClxwYXINCi0tLS0tIE9yaWdpbmFsIHZvbjogIGNwYyA8Y3BjQHppbm5hbXR1 cm0uZGU+OlxwYXINClxwYXINCj4gRGVhciBGeW9kb3IsXHBhcg0KXHBhcg0KdGhlIHJlYXNvbiBp cyB0aGF0IGJvdGggdmFyaWFibGUgKGEgJiBwKSBhcmUgbm90IGFzc2lnbiBjb21wYXRpYmxlLlxw YXINClxwYXINCkl0IGlzIG5vdCBhbGxvdyB0byBkZWNsYXJlIGFuIG9wZW4gdmFyaWFibGVccGFy DQpcdGFiIFZBUlx0YWIgeDogQVJSQVkgT0YgQVJSQVkgT0YgQ0hBUjtccGFyDQpzb1xwYXINClx0 YWIgVkFSXHRhYiBwOiBQT0lOVEVSIFRPIEFSUkFZIE9GIEFSUkFZIE9GIENIQVI7XHBhcg0Kc2hv dWxkIGJlIHJpc2UgYW4gY29tcGlsaW5nIGVycm9yIHRvby4gKD8/PylccGFyDQpccGFyDQpIZXJl IHNhbXBsZSB3aGljaCB3b3JrczpccGFyDQpccGFyDQpNT0RVTEUgIFByaXZQdXp6bGU7XHBhcg0K XHRhYiBJTVBPUlQgIFN0ZExvZztccGFyDQpcdGFiIFxwYXINClx0YWIgUFJPQ0VEVVJFIERvKjtc cGFyDQpcdGFiIFx0YWIgQ09OU1QgXHBhcg0KXHRhYiBcdGFiIFx0YWIgc3RyID0gJzAxMjMnO1xw YXINClx0YWIgXHRhYiBcdGFiIGxlbiA9IExFTiggc3RyICk7XHBhcg0KXHRhYiBcdGFiIFRZUEVc cGFyDQpcdGFiIFx0YWIgXHRhYiBUID0gQVJSQVkgMSwgbGVuICsgMSBPRiBDSEFSO1xwYXINClx0 YWIgXHRhYiBWQVIgXHBhcg0KXHRhYiBcdGFiIFx0YWIgYTogVDtccGFyDQpcdGFiIFx0YWIgXHRh YiBwOiBQT0lOVEVSIFRPIFQ7XHBhcg0KXHRhYiBCRUdJTlxwYXINClx0YWIgXHRhYiBhWzBdIDo9 IHN0cjtccGFyDQpcdGFiIFx0YWIgTkVXKCBwICk7XHBhcg0KXHRhYiBcdGFiIFN0ZExvZy5JbnQo IExFTiggc3RyICkgKTsgIFN0ZExvZy5JbnQoIExFTiggcFswXSApICk7XHBhcg0KU3RkTG9nLkxu O1xwYXINClx0YWIgXHRhYiBBU1NFUlQoIExFTiggc3RyICkgPCBMRU4oIHBbMF0gKSApOyAgKCog TGFuZ3VhZ2UgUmVwb3J0LFxwYXINCjkuMSwgMy4gKilccGFyDQpcdGFiIFx0YWIgcFswXSA6PSBz dHIgICAoKiBub3cgaXQgd29ya3MgISAqKVxwYXINClx0YWIgRU5EIERvO1xwYXINClxwYXINCkVO RCAgUHJpdlB1enpsZS5ccGFyDQpccGFyDQooISkgUHJpdlB1enpsZS5Eb1xwYXINClxwYXINClJl Z2FyZHNccGFyDQpccGFyDQpIZWxtdXQgWmlublxwYXINClxwYXINClxwYXINClxwYXINCiAgICAg IFxcfHx8LyBccGFyDQogICAgICAobyBvKSBccGFyDQotLS1vb08tKF8pLU9vby0tLS0tLSBccGFy DQpccGFyDQotLS1ccGFyDQpIYXZlIGEgbG9vayBhdCBodHRwOi8vd3d3Lnppbm5hbXR1cm0uZGVc cGFyDQpTZW5kIHlvdXIgYW5zd2VyIGFuZCBjb21tZW50cyB0byBtYWlsdG86Y3BjQHppbm5hbXR1 cm0uZGVccGFyDQpccGFyDQpccGFyDQotLS0tLVVyc3ByXCdmY25nbGljaGUgTmFjaHJpY2h0LS0t LS1ccGFyDQpWb246IEZ5b2RvciBUa2FjaG92IFttYWlsdG86ZnlvZG9yLnRrYWNob3ZAY2Vybi5j aF1ccGFyDQpHZXNlbmRldDogTW9udGFnLCAxMi4gQXByaWwgMjAwNCAyMDo1MlxwYXINCkFuOiBC bGFja2JveCBNYWlsaW5nLUxpc3RccGFyDQpCZXRyZWZmOiBwdXp6bGVccGFyDQpccGFyDQpccGFy DQpEZWFyIEV4cGVydHM6XHBhcg0KXHBhcg0KSSBhbSBwdXp6bGVkIGJ5IHRoZSBhdHRhY2hlZCBt b2R1bGUuXHBhcg0KSWYgcFswXSBpcyBub3QgQVJSQVkgbGVuICsgMSBPRiBDSEFSIHRoZW4gd2hh dCB0aGUgaGVsbCBpcyBpdD9ccGFyDQpccGFyDQooTWF5IGJlIEkgYW0gaW4gbmVlZCBvZiBhIGdv b2QgbG9uZyByZXN0IGFmdGVyIHRoZSBPYmVyb24gRGF5Li4uKVxwYXINClxwYXINCk1hbnkgdGhh bmtzIGluIGFkdmFuY2UsXHBhcg0KRnlvZG9yIFRrYWNob3ZccGFyDQotLS0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpNT0RVTEUgIFByaXZQdXp6bGU7 XHBhcg0KXHRhYiBJTVBPUlQgIFN0ZExvZztccGFyDQpcdGFiIFxwYXINClx0YWIgUFJPQ0VEVVJF IERvKjtccGFyDQpcdGFiIFx0YWIgQ09OU1QgXHBhcg0KXHRhYiBcdGFiIFx0YWIgc3RyID0gJzAx MjMnO1xwYXINClx0YWIgXHRhYiBcdGFiIGxlbiA9IExFTiggc3RyICk7XHBhcg0KXHRhYiBcdGFi IFZBUiBccGFyDQpcdGFiIFx0YWIgXHRhYiBhOiBBUlJBWSAxLCBsZW4gKyAxIE9GIENIQVI7XHBh cg0KXHRhYiBcdGFiIFx0YWIgcDogUE9JTlRFUiBUTyBBUlJBWSBPRiBBUlJBWSBPRiBDSEFSO1xw YXINClx0YWIgQkVHSU5ccGFyDQpcdGFiIFx0YWIgYVswXSA6PSBzdHI7XHBhcg0KXHRhYiBcdGFi IE5FVyggcCwgMSwgbGVuICsgMSApO1xwYXINClx0YWIgXHRhYiBTdGRMb2cuSW50KCBMRU4oIHN0 ciApICk7ICBTdGRMb2cuSW50KCBMRU4oIHBbMF0gKSApO1xwYXINClN0ZExvZy5MbjtccGFyDQpc dGFiIFx0YWIgQVNTRVJUKCBMRU4oIHN0ciApIDwgTEVOKCBwWzBdICkgKTsgICgqIExhbmd1YWdl IFJlcG9ydCxccGFyDQo5LjEsIDMuICopXHBhcg0KXHRhYiBcdGFiIHBbMF0gOj0gc3RyICAgKCog VHJhcDogc3RyaW5nIHRvbyBsb25nIC0tIGZvciBhbnl0aGluZ1xwYXINCmxvbmdlciB0aGFuIGVt cHR5IHN0cmluZyEgKilccGFyDQpcdGFiIEVORCBEbztccGFyDQpccGFyDQpFTkQgIFByaXZQdXp6 bGUuXHBhcg0KXHBhcg0KKCEpUHJpdlB1enpsZS5Eb1xwYXINClxwYXINClBvd2VyZWQgYnkgdGhl IEUtbWFpbCBQSU0gLSBJbmZvIFNlbGVjdCAtIHd3dy5taWNsb2cuY29tXHBhcg0KLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNj cmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRo ZSB3b3JkXHBhcg0KInVuc3Vic2NyaWJlIiB0bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9i ZXJvbi5jaFxwYXINClxwYXINClRvIGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRz IGFuZCBpbnN0cnVjdGlvbnMgb24gdGhlaXIgdXNhZ2UsIHNlbmRccGFyDQphIG1lc3NhZ2UgY29u dGFpbmluZyB0aGUgd29yZCAiaGVscCIgdG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0KXHBhcg0K U2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1h aWwgbGlzdCB0byB0aGUgbGlzdFxwYXINCm93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hA b2Jlcm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQph KSBUbyBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFy ZSBzdWJzY3JpYmVkIHRvXHBhcg0KdGhlIG1haWxpbmcgbGlzdC4gVGhhdCB3YXksIHRoZSBsaXN0 IHNlcnZlciB3aWxsIHJlY29nbml6ZSB5b3UgYXMgc3Vic2NyaWJlclxwYXINCmFuZCBmb3J3YXJk IHlvdXIgcG9zdGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQu XHBhcg0KXHBhcg0KYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20g dGhlIGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmVccGFyDQpzdWJzY3JpYmVkLCB5b3VyIG1lc3Nh Z2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmRccGFy DQp0aGF0IG1vZGVyYXRpb24gd2lsbCBvZnRlbiBjYXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1 bGFyIG92ZXIgd2Vla2VuZHMgb3JccGFyDQpob2x5ZGF5cy5ccGFyDQpccGFyDQpccGFyDQpccGFy DQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KVmVyc2Vu ZGV0IGR1cmNoIEFvbldlYm1haWwgKHdlYm1haWwuYW9uLmF0KVxwYXINCi0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KXHBhcg0KVG8gdW5zdWJzY3JpYmUg ZnJvbSB0aGlzIG1haWxpbmcgbGlzdCwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29y ZCAidW5zdWJzY3JpYmUiIHRvOlxwYXINCiAgIGJsYWNrYm94LXJlcXVlc3RAb2Jlcm9uLmNoXHBh cg0KXHBhcg0KVG8gZ2V0IGEgbGlzdCBvZiB2YWxpZCBlLW1haWwgY29tbWFuZHMgYW5kIGluc3Ry dWN0aW9ucyBvbiB0aGVpciB1c2FnZSwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29y ZCAiaGVscCIgdG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0KXHBhcg0KU2VuZCBhbnkgcHJvYmxl bSByZXBvcnRzIG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUg bGlzdCBvd25lciBhdFxwYXINCiAgIG93bmVyLWJsYWNrYm94QG9iZXJvbi5jaFxwYXINClxwYXIN CkN1cnJlbnQgcG9zdGluZyBwb2xpY3k6XHBhcg0KXHBhcg0KYSkgVG8gcG9zdCB5b3Ugc2hvdWxk IHVzZSB0aGUgc2FtZSBhZGRyZXNzIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCB0byB0aGUg bWFpbGluZyBsaXN0LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2VydmVyIHdpbGwgcmVjb2duaXplIHlv dSBhcyBzdWJzY3JpYmVyIGFuZCBmb3J3YXJkIHlvdXIgcG9zdGluZyBpbW1lZGlhdGVseSwgd2l0 aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBhcg0KYikgSWYsIGZvciBzb21lIHJl YXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20gdGhlIGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmUg c3Vic2NyaWJlZCwgeW91ciBtZXNzYWdlIHdpbGwgYmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNwYW0u IFBsZWFzZSB1bmRlcnN0YW5kIHRoYXQgbW9kZXJhdGlvbiB3aWxsIG9mdGVuIGNhdXNlIHNvbWUg ZGVsYXksIGluIHBhcnRpY3VsYXIgb3ZlciB3ZWVrZW5kcyBvciBob2x5ZGF5cy5ccGFyDQpccGFy DQp9 ----boundary-LibPST-iamunique-1522413358_-_---Received on Tue Apr 13 2004 - 16:52:51 UTC
This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:28:47 UTC