Re: [BLACKBOX] g_print interface

From: [at]} <igor_d{>
Date: Fri, 8 Apr 2011 16:27:12 +0400

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

FH> I compiled and linked it with

FH> DevCompiler.CompileThis TestOut
FH> DevLinker.Link TestOut.exe := TestOut$

FH> The execution in a Command prompt window (Windows XP) simply put out
FH> nothing, no matter whether I used DevLinker.Link or DevLinker.LinkExe.
To see output you need to create a console application. There is magic flag in linker for this.
DevLinker.LinkExe dos TestOut.exe := TestOut$

FH> - What would be the interface of g_print?
What I can suggest:
---------------------------------------------------------------------
MODULE Glib ["libglib-2.0-0.dll"];
IMPORT SYSTEM;
  TYPE String* = ARRAY [untagged] OF SHORTCHAR;
  PROCEDURE [ccall] print0* ["g_print"] (IN str:String);
END Glib.

 ---------------------------------------------------------------------
 MODULE TestOut;
 IMPORT SYSTEM, Glib;
 CONST CRLF = 0DX + 0AX;
 VAR str: ARRAY 32 OF SHORTCHAR;
 BEGIN
   str:= "Hello, world!";
   Glib.print0 (str);
   Glib.print0 (CRLF);
   (* or simply *)
   Glib.print0 ("Hello, world!"+ CRLF);
 END TestOut.
 ---------------------------------------------------------------------

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1388646894_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEZIPiBJIGNvbXBpbGVkIGFuZCBsaW5rZWQgaXQg
d2l0aFxwYXINClxwYXINCkZIPiBEZXZDb21waWxlci5Db21waWxlVGhpcyBUZXN0T3V0XHBhcg0K
Rkg+IERldkxpbmtlci5MaW5rIFRlc3RPdXQuZXhlIDo9IFRlc3RPdXQkXHBhcg0KXHBhcg0KRkg+
IFRoZSBleGVjdXRpb24gaW4gYSBDb21tYW5kIHByb21wdCB3aW5kb3cgKFdpbmRvd3MgWFApIHNp
bXBseSBwdXQgb3V0XHBhcg0KRkg+IG5vdGhpbmcsIG5vIG1hdHRlciB3aGV0aGVyIEkgdXNlZCBE
ZXZMaW5rZXIuTGluayBvciBEZXZMaW5rZXIuTGlua0V4ZS5ccGFyDQpUbyBzZWUgb3V0cHV0IHlv
dSBuZWVkIHRvIGNyZWF0ZSBhIGNvbnNvbGUgYXBwbGljYXRpb24uIFRoZXJlIGlzIG1hZ2ljIGZs
YWcgaW4gbGlua2VyIGZvciB0aGlzLlxwYXINCkRldkxpbmtlci5MaW5rRXhlIGRvcyBUZXN0T3V0
LmV4ZSA6PSBUZXN0T3V0JFxwYXINClxwYXINCkZIPiAgIC0gV2hhdCB3b3VsZCBiZSB0aGUgaW50
ZXJmYWNlIG9mIGdfcHJpbnQ/XHBhcg0KV2hhdCBJIGNhbiBzdWdnZXN0OlxwYXINCi0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLVxwYXINCk1PRFVMRSBHbGliIFsibGliZ2xpYi0yLjAtMC5kbGwiXTtccGFyDQpJTVBPUlQg
U1lTVEVNO1xwYXINCiAgVFlQRSAgU3RyaW5nKiAgPSBBUlJBWSBbdW50YWdnZWRdIE9GIFNIT1JU
Q0hBUjtccGFyDQogIFBST0NFRFVSRSBbY2NhbGxdIHByaW50MCogWyJnX3ByaW50Il0gKElOIHN0
cjpTdHJpbmcpO1xwYXINCkVORCBHbGliLlxwYXINClxwYXINCiAtLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQog
TU9EVUxFIFRlc3RPdXQ7XHBhcg0KIElNUE9SVCBTWVNURU0sIEdsaWI7XHBhcg0KIENPTlNUIENS
TEYgPSAwRFggKyAwQVg7XHBhcg0KIFZBUiBzdHI6IEFSUkFZIDMyIE9GIFNIT1JUQ0hBUjtccGFy
DQogQkVHSU5ccGFyDQogICBzdHI6PSAiSGVsbG8sIHdvcmxkISI7XHBhcg0KICAgR2xpYi5wcmlu
dDAgKHN0cik7XHBhcg0KICAgR2xpYi5wcmludDAgKENSTEYpO1xwYXINCiAgICgqIG9yIHNpbXBs
eSAqKVxwYXINCiAgIEdsaWIucHJpbnQwICgiSGVsbG8sIHdvcmxkISIrIENSTEYpO1xwYXINCiBF
TkQgVGVzdE91dC5ccGFyDQogLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXIN
ClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tC
T1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSH19AGlydXM=
----boundary-LibPST-iamunique-1388646894_-_---

Received on Fri Apr 08 2011 - 14:27:12 UTC