Re: [BLACKBOX] structured return types

From: [at]} <Chris>
Date: Fri, 3 Jul 2009 15:55:48 +0930

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

>-----Original Message-----
>From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>Sent: Friday, 3 July 2009 4:11 AM
>To: BLACKBOX{([at]})nowhere.xy
>Subject: Re: [BLACKBOX] structured return types - was:
>BlackBox 1.6 final version? - Complex numbers
>
>the missing "structured" return types (even in interface
>modules) turn the task of creating interface modules to
>foreign DLLs (e.g. GSL, see http://www.gnu.org/software/gsl/ and/or
>http://www.gnu.org/software/gsl/manual/html_node/) very difficult.
>
>GSL returns complex numbers on the stack, I am still searching
>for a solution in the interface module for GSL. One solution I
>have been thinking of, would be some code procedure, which
>takes as argument an allocated pointer to complex and pops the
>values which are left by the foreign function into these
>addresses, but I did not find the time to dig into assembler
>and test this idea.
>
>Structured return values would solve that.
>

I don't think the following suggestion will be much help to you in this case
but hopefully it might help to trigger some other ideas:

If there were only a couple of functions involved a simple workaround would
be to write a wrapper in C that took the returned value and passed it back
via a parameter. You could then call the wrapper function from Component
Pascal. e.g something like: (pretend the following is all coded in C)

PROCEDURE Xyz(): SomeStructuredType;
BEGIN
...
END Xyz;

PROCEDURE XyzWrapper(VAR result: SomeStructuredType);
BEGIN
  result := Xyz()
END XyzWrapper;

Regards,
Chris Burrows

CFB Software
Armaide v2.0: ARM Oberon-07 Development System
http://www.cfbsoftware.com/armaide

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1304812229_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4tLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj5Gcm9tOiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24g
QmVoYWxmIE9mIEJlcm5oYXJkXHBhcg0KPlNlbnQ6IEZyaWRheSwgMyBKdWx5IDIwMDkgNDoxMSBB
TVxwYXINCj5UbzogQkxBQ0tCT1hATElTVFMuT0JFUk9OLkNIXHBhcg0KPlN1YmplY3Q6IFJlOiBb
QkxBQ0tCT1hdIHN0cnVjdHVyZWQgcmV0dXJuIHR5cGVzIC0gd2FzOiBccGFyDQo+QmxhY2tCb3gg
MS42IGZpbmFsIHZlcnNpb24/IC0gQ29tcGxleCBudW1iZXJzXHBhcg0KPlxwYXINCj50aGUgbWlz
c2luZyAic3RydWN0dXJlZCIgcmV0dXJuIHR5cGVzIChldmVuIGluIGludGVyZmFjZSBccGFyDQo+
bW9kdWxlcykgdHVybiB0aGUgdGFzayBvZiBjcmVhdGluZyBpbnRlcmZhY2UgbW9kdWxlcyB0byBc
cGFyDQo+Zm9yZWlnbiBETExzIChlLmcuIEdTTCwgc2VlIGh0dHA6Ly93d3cuZ251Lm9yZy9zb2Z0
d2FyZS9nc2wvIGFuZC9vclxwYXINCj5odHRwOi8vd3d3LmdudS5vcmcvc29mdHdhcmUvZ3NsL21h
bnVhbC9odG1sX25vZGUvKSB2ZXJ5IGRpZmZpY3VsdC5ccGFyDQo+XHBhcg0KPkdTTCByZXR1cm5z
IGNvbXBsZXggbnVtYmVycyBvbiB0aGUgc3RhY2ssIEkgYW0gc3RpbGwgc2VhcmNoaW5nIFxwYXIN
Cj5mb3IgYSBzb2x1dGlvbiBpbiB0aGUgaW50ZXJmYWNlIG1vZHVsZSBmb3IgR1NMLiBPbmUgc29s
dXRpb24gSSBccGFyDQo+aGF2ZSBiZWVuIHRoaW5raW5nIG9mLCB3b3VsZCBiZSBzb21lIGNvZGUg
cHJvY2VkdXJlLCB3aGljaCBccGFyDQo+dGFrZXMgYXMgYXJndW1lbnQgYW4gYWxsb2NhdGVkIHBv
aW50ZXIgdG8gY29tcGxleCBhbmQgcG9wcyB0aGUgXHBhcg0KPnZhbHVlcyB3aGljaCBhcmUgbGVm
dCBieSB0aGUgZm9yZWlnbiBmdW5jdGlvbiBpbnRvIHRoZXNlIFxwYXINCj5hZGRyZXNzZXMsIGJ1
dCBJIGRpZCBub3QgZmluZCB0aGUgdGltZSB0byBkaWcgaW50byBhc3NlbWJsZXIgXHBhcg0KPmFu
ZCB0ZXN0IHRoaXMgaWRlYS5ccGFyDQo+XHBhcg0KPlN0cnVjdHVyZWQgcmV0dXJuIHZhbHVlcyB3
b3VsZCBzb2x2ZSB0aGF0LlxwYXINCj5ccGFyDQpccGFyDQpJIGRvbid0IHRoaW5rIHRoZSBmb2xs
b3dpbmcgc3VnZ2VzdGlvbiB3aWxsIGJlIG11Y2ggaGVscCB0byB5b3UgaW4gdGhpcyBjYXNlXHBh
cg0KYnV0IGhvcGVmdWxseSBpdCBtaWdodCBoZWxwIHRvIHRyaWdnZXIgc29tZSBvdGhlciBpZGVh
czpccGFyDQpccGFyDQpJZiB0aGVyZSB3ZXJlIG9ubHkgYSBjb3VwbGUgb2YgZnVuY3Rpb25zIGlu
dm9sdmVkIGEgc2ltcGxlIHdvcmthcm91bmQgd291bGRccGFyDQpiZSB0byB3cml0ZSBhIHdyYXBw
ZXIgaW4gQyB0aGF0IHRvb2sgdGhlIHJldHVybmVkIHZhbHVlIGFuZCBwYXNzZWQgaXQgYmFja1xw
YXINCnZpYSBhIHBhcmFtZXRlci4gWW91IGNvdWxkIHRoZW4gY2FsbCB0aGUgd3JhcHBlciBmdW5j
dGlvbiBmcm9tIENvbXBvbmVudFxwYXINClBhc2NhbC4gZS5nIHNvbWV0aGluZyBsaWtlOiAocHJl
dGVuZCB0aGUgZm9sbG93aW5nIGlzIGFsbCBjb2RlZCBpbiBDKVxwYXINClxwYXINClBST0NFRFVS
RSBYeXooKTogU29tZVN0cnVjdHVyZWRUeXBlO1xwYXINCkJFR0lOXHBhcg0KLi4uXHBhcg0KRU5E
IFh5ejtccGFyDQpccGFyDQpQUk9DRURVUkUgWHl6V3JhcHBlcihWQVIgcmVzdWx0OiBTb21lU3Ry
dWN0dXJlZFR5cGUpO1xwYXINCkJFR0lOXHBhcg0KICByZXN1bHQgOj0gWHl6KClccGFyDQpFTkQg
WHl6V3JhcHBlcjtccGFyDQpccGFyDQpSZWdhcmRzLFxwYXINCkNocmlzIEJ1cnJvd3NccGFyDQpc
cGFyDQpDRkIgU29mdHdhcmVccGFyDQpBcm1haWRlIHYyLjA6IEFSTSBPYmVyb24tMDcgRGV2ZWxv
cG1lbnQgU3lzdGVtXHBhcg0KaHR0cDovL3d3dy5jZmJzb2Z0d2FyZS5jb20vYXJtYWlkZVxwYXIN
ClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0
aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hcfX0A
VG86
----boundary-LibPST-iamunique-1304812229_-_---

Received on Fri Jul 03 2009 - 08:25:48 UTC