Re: [BLACKBOX] Debugging dll accessing programs

From: [at]} <Romiras>
Date: Tue, 15 Mar 2011 13:52:04 +0200

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

> Some Gtk structs contain arrays. A C array variable is a pointer to the
> first array element. So it should translate to Component Pascal as
>        POINTER TO ARRAY [untagged] <size> OF <base type>
> Correct?
Yes. And some C structures (RECORD) need [noalign] system flag instead
of [untagged].

Additionally you can check GTK+ bindings for Modula-2, converted to
XDS compiler. Look at
https://sourceforge.net/projects/xds-gtk2/files/1.0/xds-gtk2-1.0/ .

> From your answer I deduce that these data aren't of much use for a simple
> application programmer. Debugging consists of staring at the source code in
> such a case, correct?
A provided subsystem 'Gtk' was initially converted by dmitrys99 from
Free Pascal's definition modules (that converted from original C
headers). I did just a small modifications. I may contain (and
contains, I believe) a some portion of incorrect definitions of
headers. It still in alpha status (some demos worked Ok).

I think this subsystem is far to be production-ready because it
incomplete and I advice to refrain from using it, but only in small
GUI applications for educational/experimental purposes.
It will be very helpful to write wrapper modules, because there is a
lot of type casting in GTK programs and module SYSTEM used everywhere
(bad programming style).

>>> I wrote a simple test program which uses gtk and calls an expose event
>>> handler. I first wrote a C version, which works fine, and translated
>>> it then line by line to Component Pascal. My interface modules were
>>> strongly inspired from a link (which I don't remember (is there an
>>> archive of this list?)) from romiras.
You can retrieve them from OberonRevival project from SVN repository at
https://oberonrevival.svn.sourceforge.net/svnroot/oberonrevival/bbox-components/Gtk/
(or by menu Code -> SVN Browse of a SF project's page from web
browser)

Romiras

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1312083895_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCA+IFNvbWUgR3RrIHN0cnVjdHMg
Y29udGFpbiBhcnJheXMuIEEgQyBhcnJheSB2YXJpYWJsZSBpcyBhIHBvaW50ZXIgdG8gdGhlXHBh
cg0KPiBmaXJzdCBhcnJheSBlbGVtZW50LiBTbyBpdCBzaG91bGQgdHJhbnNsYXRlIHRvIENvbXBv
bmVudCBQYXNjYWwgYXNccGFyDQo+IFwnYTAgXCdhMCBcJ2EwIFwnYTBQT0lOVEVSIFRPIEFSUkFZ
IFt1bnRhZ2dlZF0gPHNpemU+IE9GIDxiYXNlIHR5cGU+XHBhcg0KPiBDb3JyZWN0P1xwYXINClll
cy4gQW5kIHNvbWUgQyBzdHJ1Y3R1cmVzIChSRUNPUkQpIG5lZWQgW25vYWxpZ25dIHN5c3RlbSBm
bGFnIGluc3RlYWRccGFyDQpvZiBbdW50YWdnZWRdLlxwYXINClxwYXINCkFkZGl0aW9uYWxseSB5
b3UgY2FuIGNoZWNrIEdUSysgYmluZGluZ3MgZm9yIE1vZHVsYS0yLCBjb252ZXJ0ZWQgdG9ccGFy
DQpYRFMgY29tcGlsZXIuIExvb2sgYXRccGFyDQpodHRwczovL3NvdXJjZWZvcmdlLm5ldC9wcm9q
ZWN0cy94ZHMtZ3RrMi9maWxlcy8xLjAveGRzLWd0azItMS4wLyAuXHBhcg0KXHBhcg0KPiBGcm9t
IHlvdXIgYW5zd2VyIEkgZGVkdWNlIHRoYXQgdGhlc2UgZGF0YSBhcmVuJ3Qgb2YgbXVjaCB1c2Ug
Zm9yIGEgc2ltcGxlXHBhcg0KPiBhcHBsaWNhdGlvbiBwcm9ncmFtbWVyLiBEZWJ1Z2dpbmcgY29u
c2lzdHMgb2Ygc3RhcmluZyBhdCB0aGUgc291cmNlIGNvZGUgaW5ccGFyDQo+IHN1Y2ggYSBjYXNl
LCBjb3JyZWN0P1xwYXINCkEgcHJvdmlkZWQgc3Vic3lzdGVtICdHdGsnIHdhcyBpbml0aWFsbHkg
Y29udmVydGVkIGJ5IGRtaXRyeXM5OSBmcm9tXHBhcg0KRnJlZSBQYXNjYWwncyBkZWZpbml0aW9u
IG1vZHVsZXMgKHRoYXQgY29udmVydGVkIGZyb20gb3JpZ2luYWwgQ1xwYXINCmhlYWRlcnMpLiBJ
IGRpZCBqdXN0IGEgc21hbGwgbW9kaWZpY2F0aW9ucy4gSSBtYXkgY29udGFpbiAoYW5kXHBhcg0K
Y29udGFpbnMsIEkgYmVsaWV2ZSkgYSBzb21lIHBvcnRpb24gb2YgaW5jb3JyZWN0IGRlZmluaXRp
b25zIG9mXHBhcg0KaGVhZGVycy4gSXQgc3RpbGwgaW4gYWxwaGEgc3RhdHVzIChzb21lIGRlbW9z
IHdvcmtlZCBPaykuXHBhcg0KXHBhcg0KSSB0aGluayB0aGlzIHN1YnN5c3RlbSBpcyBmYXIgdG8g
YmUgcHJvZHVjdGlvbi1yZWFkeSBiZWNhdXNlIGl0XHBhcg0KaW5jb21wbGV0ZSBhbmQgSSBhZHZp
Y2UgdG8gcmVmcmFpbiBmcm9tIHVzaW5nIGl0LCBidXQgb25seSBpbiBzbWFsbFxwYXINCkdVSSBh
cHBsaWNhdGlvbnMgZm9yIGVkdWNhdGlvbmFsL2V4cGVyaW1lbnRhbCBwdXJwb3Nlcy5ccGFyDQpJ
dCB3aWxsIGJlIHZlcnkgaGVscGZ1bCB0byB3cml0ZSB3cmFwcGVyIG1vZHVsZXMsIGJlY2F1c2Ug
dGhlcmUgaXMgYVxwYXINCmxvdCBvZiB0eXBlIGNhc3RpbmcgaW4gR1RLIHByb2dyYW1zIGFuZCBt
b2R1bGUgU1lTVEVNIHVzZWQgZXZlcnl3aGVyZVxwYXINCihiYWQgcHJvZ3JhbW1pbmcgc3R5bGUp
LlxwYXINClxwYXINCj4+PiBJIHdyb3RlIGEgc2ltcGxlIHRlc3QgcHJvZ3JhbSB3aGljaCB1c2Vz
IGd0ayBhbmQgY2FsbHMgYW4gZXhwb3NlIGV2ZW50XHBhcg0KPj4+IGhhbmRsZXIuIEkgZmlyc3Qg
d3JvdGUgYSBDIHZlcnNpb24sIHdoaWNoIHdvcmtzIGZpbmUsIGFuZCB0cmFuc2xhdGVkXHBhcg0K
Pj4+IGl0IHRoZW4gbGluZSBieSBsaW5lIHRvIENvbXBvbmVudCBQYXNjYWwuIE15IGludGVyZmFj
ZSBtb2R1bGVzIHdlcmVccGFyDQo+Pj4gc3Ryb25nbHkgaW5zcGlyZWQgZnJvbSBhIGxpbmsgKHdo
aWNoIEkgZG9uJ3QgcmVtZW1iZXIgKGlzIHRoZXJlIGFuXHBhcg0KPj4+IGFyY2hpdmUgb2YgdGhp
cyBsaXN0PykpIGZyb20gcm9taXJhcy5ccGFyDQpZb3UgY2FuIHJldHJpZXZlIHRoZW0gZnJvbSBP
YmVyb25SZXZpdmFsIHByb2plY3QgZnJvbSBTVk4gcmVwb3NpdG9yeSBhdFxwYXINCmh0dHBzOi8v
b2Jlcm9ucmV2aXZhbC5zdm4uc291cmNlZm9yZ2UubmV0L3N2bnJvb3Qvb2Jlcm9ucmV2aXZhbC9i
Ym94LWNvbXBvbmVudHMvR3RrL1xwYXINCihvciBieSBtZW51IENvZGUgLT4gU1ZOIEJyb3dzZSBv
ZiBhIFNGIHByb2plY3QncyBwYWdlIGZyb20gd2ViXHBhcg0KYnJvd3NlcilccGFyDQpccGFyDQpS
b21pcmFzXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEg
bWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9C
RVJPTi5DSH19ADpCTEE
----boundary-LibPST-iamunique-1312083895_-_---

Received on Tue Mar 15 2011 - 12:52:04 UTC