Re: [BLACKBOX] ARRAY as CONSTANT

From: Rene A. Krywult <"Rene>
Date: Wed, 13 Feb 2008 16:19:57 +0100

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

You're right. 0x terminates a string. But you can, of course, do something like this:

InitString("00 00 00 61 00 00 00 00");

or:

MODULE PrivShow;
IMPORT StdLog,Strings;

PROCEDURE InitString (a: ARRAY OF CHAR);
BEGIN
        StdLog.String(a)
END InitString;
 
PROCEDURE I2S(x:INTEGER):POINTER TO ARRAY OF CHAR;
VAR string:POINTER TO ARRAY OF CHAR;
BEGIN
        NEW(string,17);
        Strings.IntToStringForm(x,Strings.hexadecimal,2,"0",FALSE,string);
        string^ := string^$ + " ";
        RETURN string;
        
END I2S;

PROCEDURE Do*;
BEGIN
         InitString(I2S(0) + I2S(0) + I2S(0) + I2S(0) + I2S(ORD("a")) + I2S(0) + I2S(0))
END Do;

BEGIN
END PrivShow.

Of course, you would have to do a POINTER TO ARRAY OF BYTE and write a short conversion from hex to this array afterwards.

Rene

-------- Original-Nachricht --------
> Datum: Wed, 13 Feb 2008 12:38:13 +0200
> Von: "Oleg N. Cher" <allot{([at]})nowhere.xy
> An: BLACKBOX{([at]})nowhere.xy
> Betreff: Re: [BLACKBOX] ARRAY as CONSTANT

> Dear igor,
>
> >You can put your data into strings.
>
> Yes, you're RIGHT.
> But BB compiler does not allow to put binary data
> (concretely symbol 0X) into a string. Please check:
>
> MODULE Show;
> IMPORT StdLog;
>
> PROCEDURE InitString (a: ARRAY OF SHORTCHAR);
> BEGIN
> StdLog.Int(LEN(a))
> END InitString;
>
> PROCEDURE Do*;
> BEGIN
> InitString(0X + 0X + 0X + "a" + 0X + 0X)
> (* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Length of this string is 2
> We checks LEN(a), not LEN(a$) ! *)
> END Do;
>
> BEGIN
> END Show.
>
> >
> Symbol 0X simply ignored by compiler.
> And I did a conclusion that all strings in BlackBox
> are null-terminated, and cannot contain superfluous nulls.
> It means we never can save binary information into strings.
>
>
> Oleg N. Cher,
> Colossoft Research.
> allot{([at]})nowhere.xy
> 2008-02-13
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy

-- 
GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-516792021_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFlvdSdyZSByaWdodC4gMHggdGVybWluYXRlcyBh
IHN0cmluZy4gQnV0IHlvdSBjYW4sIG9mIGNvdXJzZSwgZG8gc29tZXRoaW5nIGxpa2UgdGhpczpc
cGFyDQpccGFyDQpJbml0U3RyaW5nKCIwMCAwMCAwMCA2MSAwMCAwMCAwMCAwMCIpO1xwYXINClxw
YXINCm9yOlxwYXINClxwYXINCk1PRFVMRSBQcml2U2hvdztccGFyDQpJTVBPUlQgU3RkTG9nLFN0
cmluZ3M7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIEluaXRTdHJpbmcgKGE6IEFSUkFZIE9GIENIQVIp
O1xwYXINCkJFR0lOXHBhcg0KXHRhYiBTdGRMb2cuU3RyaW5nKGEpXHBhcg0KRU5EIEluaXRTdHJp
bmc7XHBhcg0KIFxwYXINClBST0NFRFVSRSBJMlMoeDpJTlRFR0VSKTpQT0lOVEVSIFRPIEFSUkFZ
IE9GIENIQVI7XHBhcg0KVkFSIHN0cmluZzpQT0lOVEVSIFRPIEFSUkFZIE9GIENIQVI7XHBhcg0K
QkVHSU5ccGFyDQpcdGFiIE5FVyhzdHJpbmcsMTcpO1xwYXINClx0YWIgU3RyaW5ncy5JbnRUb1N0
cmluZ0Zvcm0oeCxTdHJpbmdzLmhleGFkZWNpbWFsLDIsIjAiLEZBTFNFLHN0cmluZyk7XHBhcg0K
XHRhYiBzdHJpbmdeIDo9IHN0cmluZ14kICsgIiAiO1xwYXINClx0YWIgUkVUVVJOIHN0cmluZztc
cGFyDQpcdGFiIFxwYXINCkVORCBJMlM7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFIERvKjtccGFyDQpC
RUdJTlxwYXINCiBcdGFiIEluaXRTdHJpbmcoSTJTKDApICsgSTJTKDApICsgSTJTKDApICsgSTJT
KDApICsgSTJTKE9SRCgiYSIpKSArIEkyUygwKSArIEkyUygwKSlccGFyDQpFTkQgRG87XHBhcg0K
XHBhcg0KQkVHSU5ccGFyDQpFTkQgUHJpdlNob3cuXHBhcg0KXHBhcg0KT2YgY291cnNlLCB5b3Ug
d291bGQgaGF2ZSB0byBkbyBhIFBPSU5URVIgVE8gQVJSQVkgT0YgQllURSBhbmQgd3JpdGUgYSBz
aG9ydCBjb252ZXJzaW9uIGZyb20gaGV4IHRvIHRoaXMgYXJyYXkgYWZ0ZXJ3YXJkcy4gXHBhcg0K
XHBhcg0KUmVuZVxwYXINClxwYXINCi0tLS0tLS0tIE9yaWdpbmFsLU5hY2hyaWNodCAtLS0tLS0t
LVxwYXINCj4gRGF0dW06IFdlZCwgMTMgRmViIDIwMDggMTI6Mzg6MTMgKzAyMDBccGFyDQo+IFZv
bjogIk9sZWcgTi4gQ2hlciIgPGFsbG90QFVLUi5ORVQ+XHBhcg0KPiBBbjogQkxBQ0tCT1hATElT
VFMuT0JFUk9OLkNIXHBhcg0KPiBCZXRyZWZmOiBSZTogW0JMQUNLQk9YXSBBUlJBWSBhcyBDT05T
VEFOVFxwYXINClxwYXINCj4gRGVhciBpZ29yLFxwYXINCj4gXHBhcg0KPiA+WW91IGNhbiBwdXQg
eW91ciBkYXRhIGludG8gc3RyaW5ncy5ccGFyDQo+IFxwYXINCj4gWWVzLCB5b3UncmUgUklHSFQu
XHBhcg0KPiBCdXQgQkIgY29tcGlsZXIgZG9lcyBub3QgYWxsb3cgdG8gcHV0IGJpbmFyeSBkYXRh
XHBhcg0KPiAoY29uY3JldGVseSBzeW1ib2wgMFgpIGludG8gYSBzdHJpbmcuIFBsZWFzZSBjaGVj
azpccGFyDQo+IFxwYXINCj4gTU9EVUxFIFNob3c7XHBhcg0KPiBJTVBPUlQgU3RkTG9nO1xwYXIN
Cj4gXHBhcg0KPiBQUk9DRURVUkUgSW5pdFN0cmluZyAoYTogQVJSQVkgT0YgU0hPUlRDSEFSKTtc
cGFyDQo+IEJFR0lOXHBhcg0KPiBcdGFiIFN0ZExvZy5JbnQoTEVOKGEpKVxwYXINCj4gRU5EIElu
aXRTdHJpbmc7XHBhcg0KPiBccGFyDQo+IFBST0NFRFVSRSBEbyo7XHBhcg0KPiBCRUdJTlxwYXIN
Cj4gXHRhYiBJbml0U3RyaW5nKDBYICsgMFggKyAwWCArICJhIiArIDBYICsgMFgpXHBhcg0KPiAg
ICAgKCogICAgICAgICBeXl5eXl5eXl5eXl5eXl5eXl5eXl5eXl5eXl5eIExlbmd0aCBvZiB0aGlz
IHN0cmluZyBpcyAyXHBhcg0KPiAgICAgICAgICAgICAgICBXZSBjaGVja3MgTEVOKGEpLCBub3Qg
TEVOKGEkKSAhICopXHBhcg0KPiBFTkQgRG87XHBhcg0KPiBccGFyDQo+IEJFR0lOXHBhcg0KPiBF
TkQgU2hvdy5ccGFyDQo+IFxwYXINCj4gPlxwYXINCj4gICBTeW1ib2wgMFggc2ltcGx5IGlnbm9y
ZWQgYnkgY29tcGlsZXIuXHBhcg0KPiBBbmQgSSBkaWQgYSBjb25jbHVzaW9uIHRoYXQgYWxsIHN0
cmluZ3MgaW4gQmxhY2tCb3hccGFyDQo+IGFyZSBudWxsLXRlcm1pbmF0ZWQsIGFuZCBjYW5ub3Qg
Y29udGFpbiBzdXBlcmZsdW91cyBudWxscy5ccGFyDQo+IEl0IG1lYW5zIHdlIG5ldmVyIGNhbiBz
YXZlIGJpbmFyeSBpbmZvcm1hdGlvbiBpbnRvIHN0cmluZ3MuXHBhcg0KPiBccGFyDQo+IFxwYXIN
Cj4gT2xlZyBOLiBDaGVyLFxwYXINCj4gQ29sb3Nzb2Z0IFJlc2VhcmNoLlxwYXINCj4gYWxsb3RA
dWtyLm5ldFxwYXINCj4gMjAwOC0wMi0xM1xwYXINCj4gXHBhcg0KPiBccGFyDQo+IC0tLS1ccGFy
DQo+IFRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxB
Q0tCT1giIHRvXHBhcg0KPiBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hccGFyDQpccGFyDQotLSBc
cGFyDQpHTVggRnJlZU1haWw6IDEgR0IgUG9zdGZhY2gsIDUgRS1NYWlsLUFkcmVzc2VuLCAxMCBG
cmVlIFNNUy5ccGFyDQpBbGxlIEluZm9zIHVuZCBrb3N0ZW5sb3NlIEFubWVsZHVuZzogaHR0cDov
L3d3dy5nbXgubmV0L2RlL2dvL2ZyZWVtYWlsXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRv
IHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1gi
IHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSFxwYXINCn0=
----boundary-LibPST-iamunique-516792021_-_---

Received on Wed Feb 13 2008 - 16:19:57 UTC