- Length of string varies!

From: [at]} <Alexander>
Date: Sat, 30 Sep 2006 01:01:27 +0700

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

Hello, Gérard!

GM> Douglas G. Danforth a écrit :
>> Folks,
>> I just discovered that the length of a string varies depending
>> upon whether it is used directly or passed as an argument to
>> a procedure for example
>>
>> VAR x: ARRAY 32 OF CHAR;
>> x := "HI";
>>
>> will have length
>> LEN(x$) = 2
>> but will have length
>> LEN(y) = 3

>> when it is passed to a procedure with argument y.
>>
>> Here is the code that shows this.
>>
>> MODULE Foo;
>> IMPORT Out:=StdLog;
>>
>> PROCEDURE Test*;
>> VAR x: ARRAY 32 OF CHAR;
>> PROCEDURE Inside (IN y: ARRAY OF CHAR);
>> VAR i: INTEGER;
>> BEGIN
>> Out.String("LEN(y)="); Out.Int(LEN(y)); Out.Ln;
>> (* dump the string *)
>> FOR i:= 0 TO LEN(y)-1 DO Out.Char(y[i]) END;
>> Out.Ln;
>> END Inside;
>> BEGIN
>> x := "HI";
>> Out.String("LEN(x$)="); Out.Int(LEN(x$)); Out.Ln;
>> Inside(x$);
>> END Test;
>>
>> END Foo.
>>
>> -Doug Danforth
>>
GM> It's because you pass x$, and not x itself. x$ is the string inside the
GM> array of char, so its length is the length of the string plus 1
GM> (terminal 0X).

  Yeah, Doug! What about LEN(y$)?

---===---
 Alexander

--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy


----boundary-LibPST-iamunique-635970720_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBIZWxsbywgR1wnZTlyYXJkIVxw
YXINClxwYXINCkdNPiBEb3VnbGFzIEcuIERhbmZvcnRoIGEgXCdlOWNyaXQgOlxwYXINCj4+IEZv
bGtzLFxwYXINCj4+IEkganVzdCBkaXNjb3ZlcmVkIHRoYXQgdGhlIGxlbmd0aCBvZiBhIHN0cmlu
ZyB2YXJpZXMgZGVwZW5kaW5nXHBhcg0KPj4gdXBvbiB3aGV0aGVyIGl0IGlzIHVzZWQgZGlyZWN0
bHkgb3IgcGFzc2VkIGFzIGFuIGFyZ3VtZW50IHRvXHBhcg0KPj4gYSBwcm9jZWR1cmUgZm9yIGV4
YW1wbGVccGFyDQo+PlxwYXINCj4+ICAgIFZBUiB4OiBBUlJBWSAzMiBPRiBDSEFSO1xwYXINCj4+
ICAgIHggOj0gIkhJIjtccGFyDQo+PlxwYXINCj4+IHdpbGwgaGF2ZSBsZW5ndGhccGFyDQo+PiAg
ICBMRU4oeCQpID0gMlxwYXINCj4+IGJ1dCB3aWxsIGhhdmUgbGVuZ3RoXHBhcg0KPj4gICAgTEVO
KHkpID0gM1xwYXINCj4+IHdoZW4gaXQgaXMgcGFzc2VkIHRvIGEgcHJvY2VkdXJlIHdpdGggYXJn
dW1lbnQgeS5ccGFyDQo+PlxwYXINCj4+IEhlcmUgaXMgdGhlIGNvZGUgdGhhdCBzaG93cyB0aGlz
LlxwYXINCj4+XHBhcg0KPj4gTU9EVUxFIEZvbztccGFyDQo+PiAgICBJTVBPUlQgT3V0Oj1TdGRM
b2c7XHBhcg0KPj5ccGFyDQo+PiAgICAgICAgUFJPQ0VEVVJFIFRlc3QqO1xwYXINCj4+ICAgICAg
ICAgICAgVkFSIHg6IEFSUkFZIDMyIE9GIENIQVI7XHBhcg0KPj4gICAgICAgICAgICBQUk9DRURV
UkUgSW5zaWRlIChJTiB5OiBBUlJBWSBPRiBDSEFSKTtccGFyDQo+PiAgICAgICAgICAgIFZBUiBp
OiBJTlRFR0VSO1xwYXINCj4+ICAgICAgICAgICAgQkVHSU5ccGFyDQo+PiAgICAgICAgICAgICAg
ICBPdXQuU3RyaW5nKCJMRU4oeSk9Iik7IE91dC5JbnQoTEVOKHkpKTsgT3V0LkxuO1xwYXINCj4+
ICAgICAgICAgICAgICAgICgqIGR1bXAgdGhlIHN0cmluZyAqKVxwYXINCj4+ICAgICAgICAgICAg
ICAgIEZPUiBpOj0gMCBUTyBMRU4oeSktMSBETyBPdXQuQ2hhcih5W2ldKSBFTkQ7XHBhcg0KPj4g
ICAgICAgICAgICAgICAgT3V0LkxuO1xwYXINCj4+ICAgICAgICAgICAgRU5EIEluc2lkZTtccGFy
DQo+PiAgICAgICAgQkVHSU5ccGFyDQo+PiAgICAgICAgICAgIHggOj0gIkhJIjtccGFyDQo+PiAg
ICAgICAgICAgIE91dC5TdHJpbmcoIkxFTih4JCk9Iik7IE91dC5JbnQoTEVOKHgkKSk7IE91dC5M
bjtccGFyDQo+PiAgICAgICAgICAgIEluc2lkZSh4JCk7XHBhcg0KPj4gICAgICAgIEVORCBUZXN0
O1xwYXINCj4+XHBhcg0KPj4gRU5EIEZvby5ccGFyDQo+PlxwYXINCj4+IC1Eb3VnIERhbmZvcnRo
XHBhcg0KPj5ccGFyDQpHTT4gSXQncyBiZWNhdXNlIHlvdSBwYXNzIHgkLCBhbmQgbm90IHggaXRz
ZWxmLiB4JCBpcyB0aGUgc3RyaW5nIGluc2lkZSB0aGVccGFyDQpHTT4gYXJyYXkgb2YgY2hhciwg
c28gaXRzIGxlbmd0aCBpcyB0aGUgbGVuZ3RoIG9mIHRoZSBzdHJpbmcgcGx1cyAxIFxwYXINCkdN
PiAodGVybWluYWwgMFgpLlxwYXINClxwYXINCiAgWWVhaCwgRG91ZyEgV2hhdCBhYm91dCBMRU4o
eSQpP1xwYXINClxwYXINCi0tLT09PT09LS0tXHBhcg0KIEFsZXhhbmRlclxwYXINClxwYXINCi0t
LSBCbGFja0JveFxwYXINCi0tLSBzZW5kIHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBi
bGFja2JveEBvYmVyb24uY2h9fQBRAwEQxzL3BgAG


----boundary-LibPST-iamunique-635970720_-_---
Received on Fri Sep 29 2006 - 20:01:27 UTC

This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:32:14 UTC