----boundary-LibPST-iamunique-951589452_-_-
Content-type: text/plain
Martin, Marc wrote:
>> Apparently, this function substracts 32 (20H) from the code of many
>> characters. It's correct for lower case letters, but a little
>> surprising for
>> digits or punctuations.
>
>
> This is how I would have expected the CAP() function to work,
> but for some reason it doesn't:
>
> PROCEDURE Cap*( ch: CHAR ): CHAR;
> BEGIN
> IF ( ch >= "a" ) & ( ch <= "z" ) THEN
> RETURN CHR(ORD(ch)-32)
> ELSE
> RETURN ch
> END
> END Cap;
>
> Marc
>
WE've discussed this in October 2003 already. Back then I wrote:
Second thought: CAP could be something that is used quite often, so
internal check you require (IF ORD(x) < 65 THEN RETURN(x) ELSE RETURN
CHR(ORD(x)-32) END;) could have been omitted for performance reasons.
But it would be easy to implement
on one's own:
PROCEDURE Caps(x:CHAR) : CHAR;
BEGIN
IF ORD(x) < 65 THEN
RETURN(x)
ELSE
RETURN CHR(ORD(x)-32)
END;
END Caps;
Rene
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
owner-blackbox{([at]})nowhere.xy
Current posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-951589452_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIE1hcnRpbiwgTWFyYyB3cm90ZTpccGFyDQpccGFy
DQo+PiBBcHBhcmVudGx5LCB0aGlzIGZ1bmN0aW9uIHN1YnN0cmFjdHMgMzIgKDIwSCkgZnJvbSB0
aGUgY29kZSBvZiBtYW55XHBhcg0KPj4gY2hhcmFjdGVycy4gSXQncyBjb3JyZWN0IGZvciBsb3dl
ciBjYXNlIGxldHRlcnMsIGJ1dCBhIGxpdHRsZSBccGFyDQo+PiBzdXJwcmlzaW5nIGZvclxwYXIN
Cj4+IGRpZ2l0cyBvciBwdW5jdHVhdGlvbnMuICAgXHBhcg0KPlxwYXINCj5ccGFyDQo+IFRoaXMg
aXMgaG93IEkgd291bGQgaGF2ZSBleHBlY3RlZCB0aGUgQ0FQKCkgZnVuY3Rpb24gdG8gd29yayxc
cGFyDQo+IGJ1dCBmb3Igc29tZSByZWFzb24gaXQgZG9lc24ndDpccGFyDQo+XHBhcg0KPiAgUFJP
Q0VEVVJFIENhcCooIGNoOiBDSEFSICk6IENIQVI7XHBhcg0KPiAgQkVHSU5ccGFyDQo+ICAgIElG
ICggY2ggPj0gImEiICkgJiAoIGNoIDw9ICJ6IiApIFRIRU5ccGFyDQo+ICAgICAgUkVUVVJOIENI
UihPUkQoY2gpLTMyKVxwYXINCj4gICAgRUxTRVxwYXINCj4gICAgICBSRVRVUk4gY2hccGFyDQo+
ICAgIEVORFxwYXINCj4gIEVORCBDYXA7XHBhcg0KPlxwYXINCj4gTWFyY1xwYXINCj5ccGFyDQpX
RSd2ZSBkaXNjdXNzZWQgdGhpcyBpbiBPY3RvYmVyIDIwMDMgYWxyZWFkeS4gQmFjayB0aGVuIEkg
d3JvdGU6XHBhcg0KXHBhcg0KU2Vjb25kIHRob3VnaHQ6IENBUCBjb3VsZCBiZSBzb21ldGhpbmcg
dGhhdCBpcyB1c2VkIHF1aXRlIG9mdGVuLCBzb1xwYXINCmludGVybmFsIGNoZWNrIHlvdSByZXF1
aXJlIChJRiBPUkQoeCkgPCA2NSBUSEVOIFJFVFVSTih4KSBFTFNFIFJFVFVSTlxwYXINCkNIUihP
UkQoeCktMzIpIEVORDspIGNvdWxkIGhhdmUgYmVlbiBvbWl0dGVkIGZvciBwZXJmb3JtYW5jZSBy
ZWFzb25zLlxwYXINCkJ1dCBpdCB3b3VsZCBiZSBlYXN5IHRvIGltcGxlbWVudFxwYXINCm9uIG9u
ZSdzIG93bjpccGFyDQpccGFyDQpccGFyDQpQUk9DRURVUkUgQ2Fwcyh4OkNIQVIpIDogQ0hBUjtc
cGFyDQpCRUdJTlxwYXINCiBJRiBPUkQoeCkgPCA2NSBUSEVOXHBhcg0KICBSRVRVUk4oeClccGFy
DQogRUxTRVxwYXINCiAgUkVUVVJOIENIUihPUkQoeCktMzIpXHBhcg0KIEVORDtccGFyDQpFTkQg
Q2FwcztccGFyDQpccGFyDQpSZW5lXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGlu
ZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIg
dG86XHBhcg0KICAgYmxhY2tib3gtcmVxdWVzdEBvYmVyb24uY2hccGFyDQpccGFyDQpUbyBnZXQg
YSBsaXN0IG9mIHZhbGlkIGUtbWFpbCBjb21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWly
IHVzYWdlLCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUg
YWJvdmUgYWRkcmVzcy5ccGFyDQpccGFyDQpTZW5kIGFueSBwcm9ibGVtIHJlcG9ydHMgb3IgcXVl
c3Rpb25zIHJlbGF0ZWQgdG8gdGhpcyBlbWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93bmVyIGF0XHBh
cg0KICAgb3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5n
IHBvbGljeTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFk
ZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRo
YXQgd2F5LCB0aGUgbGlzdCBzZXJ2ZXIgd2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIg
YW5kIGZvcndhcmQgeW91ciBwb3N0aW5nIGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFu
eSBvdmVyaGVhZC5ccGFyDQpccGFyDQpiKSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90
IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3Vy
IG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3Rh
bmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwgb2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGlj
dWxhciBvdmVyIHdlZWtlbmRzIG9yIGhvbHlkYXl9fQA0OjQwLjA=
----boundary-LibPST-iamunique-951589452_-_---
Received on Wed Sep 15 2004 - 23:44:33 UTC