RE: Predeclared function CAP

From: Martin, Marc <"Martin,>
Date: Wed, 15 Sep 2004 13:13:39 -0700

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

>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
--------------------------------------------

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-1778229109_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID5BcHBhcmVudGx5LCB0aGlzIGZ1bmN0aW9uIHN1
YnN0cmFjdHMgMzIgKDIwSCkgZnJvbSB0aGUgY29kZSBvZiBtYW55XHBhcg0KPmNoYXJhY3RlcnMu
IEl0J3MgY29ycmVjdCBmb3IgbG93ZXIgY2FzZSBsZXR0ZXJzLCBidXQgYSBsaXR0bGUgc3VycHJp
c2luZyBmb3JccGFyDQo+ZGlnaXRzIG9yIHB1bmN0dWF0aW9ucy4gXHBhcg0KXHBhcg0KVGhpcyBp
cyBob3cgSSB3b3VsZCBoYXZlIGV4cGVjdGVkIHRoZSBDQVAoKSBmdW5jdGlvbiB0byB3b3JrLFxw
YXINCmJ1dCBmb3Igc29tZSByZWFzb24gaXQgZG9lc24ndDpccGFyDQpccGFyDQogIFBST0NFRFVS
RSBDYXAqKCBjaDogQ0hBUiApOiBDSEFSO1xwYXINCiAgQkVHSU5ccGFyDQogICAgSUYgKCBjaCA+
PSAiYSIgKSAmICggY2ggPD0gInoiICkgVEhFTlxwYXINCiAgICAgIFJFVFVSTiBDSFIoT1JEKGNo
KS0zMilccGFyDQogICAgRUxTRVxwYXINCiAgICAgIFJFVFVSTiBjaFxwYXINCiAgICBFTkRccGFy
DQogIEVORCBDYXA7XHBhcg0KXHBhcg0KTWFyY1xwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KXHBhcg0KVG8gdW5zdWJzY3JpYmUgZnJvbSB0aGlz
IG1haWxpbmcgbGlzdCwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAidW5zdWJz
Y3JpYmUiIHRvOlxwYXINCiAgIGJsYWNrYm94LXJlcXVlc3RAb2Jlcm9uLmNoXHBhcg0KXHBhcg0K
VG8gZ2V0IGEgbGlzdCBvZiB2YWxpZCBlLW1haWwgY29tbWFuZHMgYW5kIGluc3RydWN0aW9ucyBv
biB0aGVpciB1c2FnZSwgc2VuZCBhIG1lc3NhZ2UgY29udGFpbmluZyB0aGUgd29yZCAiaGVscCIg
dG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0KXHBhcg0KU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRz
IG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25l
ciBhdFxwYXINCiAgIG93bmVyLWJsYWNrYm94QG9iZXJvbi5jaFxwYXINClxwYXINCkN1cnJlbnQg
cG9zdGluZyBwb2xpY3k6XHBhcg0KXHBhcg0KYSkgVG8gcG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUg
c2FtZSBhZGRyZXNzIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCB0byB0aGUgbWFpbGluZyBs
aXN0LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2VydmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJz
Y3JpYmVyIGFuZCBmb3J3YXJkIHlvdXIgcG9zdGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVh
dGluZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBhcg0KYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91
IGNhbm5vdCBwb3N0IGZyb20gdGhlIGFkZHJlc3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJl
ZCwgeW91ciBtZXNzYWdlIHdpbGwgYmUgbW9kZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1
bmRlcnN0YW5kIHRoYXQgbW9kZXJhdGlvbiB3aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGlu
IHBhcnRpY3VsYXIgb3ZlciB3ZWVrZW5kcyBvciBob2x5ZGF5cy5ccGFyDQp9


----boundary-LibPST-iamunique-1778229109_-_---
Received on Wed Sep 15 2004 - 22:13:39 UTC

This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:28:36 UTC