----boundary-LibPST-iamunique-1128784439_-_-
Content-type: text/plain
> 1. Multidimensional open array parameters. Just try the following
in Component Pascal if you don't know at compile time how big the array size
will be:
>
> PROCEDURE SmoothImage( INOUT INTEGER TwoDimArray [ ] [ ] );
> BEGIN END SmoothImage;
>
> I had to write it in pseudo-code, because as far as I know, IT'S
COMPLETELY IMPOSSIBLE IN Component Pascal. However, the Oberon compiler
included in the Native Oberon system handles this problem neatly.
>
Try the following code:
MODULE Test;
IMPORT Out;
PROCEDURE Proc(IN x: ARRAY OF ARRAY OF INTEGER);
VAR
i, j: INTEGER;
BEGIN
FOR j := 0 TO LEN(x, 1) - 1 DO
FOR i := 0 TO LEN(x, 0) - 1 DO
Out.Int(x[i, j], 5); Out.Ln
END
END
END Proc;
PROCEDURE Main*;
VAR
a: ARRAY 2, 2 OF INTEGER;
BEGIN
a[0, 0] := 1;
a[0, 1] := 2;
a[1, 0] := 3;
a[1, 1] := 4;
Proc(a);
END Main;
END Test.
Regards,
Juan Antonio
--------------------------------------------
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-1128784439_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4gMS4gICAgICAgIE11bHRpZGltZW5zaW9uYWwg
b3BlbiBhcnJheSBwYXJhbWV0ZXJzLiAgSnVzdCB0cnkgdGhlIGZvbGxvd2luZ1xwYXINCmluIENv
bXBvbmVudCBQYXNjYWwgaWYgeW91IGRvbid0IGtub3cgYXQgY29tcGlsZSB0aW1lIGhvdyBiaWcg
dGhlIGFycmF5IHNpemVccGFyDQp3aWxsIGJlOlxwYXINCj5ccGFyDQo+IFBST0NFRFVSRSBTbW9v
dGhJbWFnZSggSU5PVVQgSU5URUdFUiBUd29EaW1BcnJheSBbIF0gWyBdICk7XHBhcg0KPiAgICAg
ICAgIEJFR0lOIEVORCBTbW9vdGhJbWFnZTtccGFyDQo+XHBhcg0KPiBJIGhhZCB0byB3cml0ZSBp
dCBpbiBwc2V1ZG8tY29kZSwgYmVjYXVzZSBhcyBmYXIgYXMgSSBrbm93LCBJVCdTXHBhcg0KQ09N
UExFVEVMWSBJTVBPU1NJQkxFIElOIENvbXBvbmVudCBQYXNjYWwuICBIb3dldmVyLCB0aGUgT2Jl
cm9uIGNvbXBpbGVyXHBhcg0KaW5jbHVkZWQgaW4gdGhlIE5hdGl2ZSBPYmVyb24gc3lzdGVtIGhh
bmRsZXMgdGhpcyBwcm9ibGVtIG5lYXRseS5ccGFyDQo+XHBhcg0KXHBhcg0KVHJ5IHRoZSBmb2xs
b3dpbmcgY29kZTpccGFyDQpccGFyDQpNT0RVTEUgVGVzdDtccGFyDQpccGFyDQpJTVBPUlQgT3V0
O1xwYXINClxwYXINClBST0NFRFVSRSBQcm9jKElOIHg6IEFSUkFZIE9GIEFSUkFZIE9GIElOVEVH
RVIpO1xwYXINClZBUlxwYXINCiBpLCBqOiBJTlRFR0VSO1xwYXINCkJFR0lOXHBhcg0KIEZPUiBq
IDo9IDAgVE8gTEVOKHgsIDEpIC0gMSBET1xwYXINCiAgRk9SIGkgOj0gMCBUTyBMRU4oeCwgMCkg
LSAxIERPXHBhcg0KICAgT3V0LkludCh4W2ksIGpdLCA1KTsgT3V0LkxuXHBhcg0KICBFTkRccGFy
DQogRU5EXHBhcg0KRU5EIFByb2M7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIE1haW4qO1xwYXINClZB
UlxwYXINCiBhOiBBUlJBWSAyLCAyIE9GIElOVEVHRVI7XHBhcg0KQkVHSU5ccGFyDQogYVswLCAw
XSA6PSAxO1xwYXINCiBhWzAsIDFdIDo9IDI7XHBhcg0KIGFbMSwgMF0gOj0gMztccGFyDQogYVsx
LCAxXSA6PSA0O1xwYXINCiBQcm9jKGEpO1xwYXINCkVORCBNYWluO1xwYXINClxwYXINCkVORCBU
ZXN0LlxwYXINClxwYXINClJlZ2FyZHMsXHBhcg0KSnVhbiBBbnRvbmlvXHBhcg0KXHBhcg0KXHBh
cg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFy
DQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBj
b250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KICAgYmxhY2tib3gtcmVx
dWVzdEBvYmVyb24uY2hccGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0IG9mIHZhbGlkIGUtbWFpbCBj
b21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdlLCBzZW5kIGEgbWVzc2FnZSBj
b250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUgYWJvdmUgYWRkcmVzcy5ccGFyDQpccGFy
DQpTZW5kIGFueSBwcm9ibGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25zIHJlbGF0ZWQgdG8gdGhpcyBl
bWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jl
cm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBU
byBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBz
dWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlzdCBzZXJ2ZXIg
d2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZvcndhcmQgeW91ciBwb3N0aW5n
IGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQpccGFyDQpi
KSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywg
Ynkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0
ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwg
b2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yIGhv
bHlkYXl9fQAtY20uYWI=
----boundary-LibPST-iamunique-1128784439_-_---
Received on Mon Jun 24 2002 - 10:18:32 UTC