[BLACKBOX] output with GP-CP

From: VDI <bernhardt.gunnar{([at]})nowhere.xy>
Date: Fri, 22 Oct 2010 11:51:01 +0200

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

Dear all,

perhaps I'm overreacting but I find it rather hard to do string
 conversion and output in Gardens Point CP.

Here is what I wanted to do (please do not be offended by the C#
 source code):

/* -------- BEGIN example 1 --------- */
private class XmlValidationHandler
{
    public int intErr;
    public void ValidationCallBack(object sender, ValidationEventArgs
 args)
    {
        this.intErr += 1;
        XmlSchemaException excErr = args.Exception;
        System.Console.WriteLine("- ->{0} at {1} ({2},{3})",
 args.Severity, excErr.SourceUri, excErr.LineNumber,
 excErr.LinePosition); // the interesting part
        System.Console.WriteLine(" ->" + args.Message);
        System.Console.WriteLine("-------------------------------");
    }
}
/* -------- END example 1 --------- */


Please note that Console.WriteLine( string, object, object, object,
 object ) is an ordinary function in the .NET-library.
Since in .NET each "object" - even value types like int and char -
 posseses a .ToString() method, WriteLine() simply converts all
 parameters to string and maps them into the spots marked with {i}.

Note as well that for enumerations like args.Severity not the integer
 value will be displayed but the associated name (in this case "Error"
 instead of "0").

Calling WriteLine like this from CP does not work, perhaps since it
 does not regard INT as an "object"?

Creating an object by e.g. BOX(args.Severity) is not possible, since
 this can only be done for RECORDs.

The standard libraries that come with GP-CP do neither provide a
 mapping function for Strings (like BB) nor a conversion from INTEGER
 to ARRAY OF CHAR.

So what I ended up with was this:

(* -------- BEGIN example 2 --------- *)
IMPORT
  System := mscorlib_System,
  System_Xml := System_Xml_,
  System_Xml_Schema := System_Xml__Schema,
  Console;


PROCEDURE ( this: XmlValidationHandler ) HandleError( sender:
 System.Object; args: System_Xml_Schema.ValidationEventArgs ),NEW;
VAR
  excErr: System_Xml_Schema.XmlSchemaException;
BEGIN
  INC( this.ErrorCount );
  excErr := args.get_Exception();
  (* ---- BEGIN the ugly bit ---- *)
  Console.WriteString( "- ->" );
  IF args.get_Severity() = System_Xml_Schema.XmlSeverityType.Error
 THEN
    Console.WriteString( "Error" )
  ELSE
    Console.WriteString( "Warning" )
  END;
  Console.WriteString( " at " + excErr.get_SourceUri() + " (" );
  Console.WriteInt( excErr.get_LineNumber(), -1 );
  Console.WriteString( "," );
  Console.WriteInt( excErr.get_LinePosition(), -1 );
  Console.WriteString( ")" ); Console.WriteLn();
  (* ---- END the ugly bit ---- *)
  (* *)
  Console.WriteString( " ->" + args.get_Message() );
 Console.WriteLn();
  (* *)
  Console.WriteString( "-------------------------------" );
 Console.WriteLn();
END HandleError;
(* -------- END example 2 --------- *)

Apart from the additional space (which I would not mind) the output
 format "- ->{0} at {1} ({2},{3})" has here been split into several
 lines of code, which makes it a lot harder to read in my opinion.


Did I miss something obvious?
Can you perhaps think of a solution more elegant?


kind regards
gunnar

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-127378217_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERlYXIgYWxsLFxwYXINClxwYXINCnBlcmhhcHMg
SSdtIG92ZXJyZWFjdGluZyBidXQgSSBmaW5kIGl0IHJhdGhlciBoYXJkIHRvIGRvIHN0cmluZ1xw
YXINCiBjb252ZXJzaW9uIGFuZCBvdXRwdXQgaW4gR2FyZGVucyBQb2ludCBDUC5ccGFyDQpccGFy
DQpIZXJlIGlzIHdoYXQgSSB3YW50ZWQgdG8gZG8gKHBsZWFzZSBkbyBub3QgYmUgb2ZmZW5kZWQg
YnkgdGhlIEMjXHBhcg0KIHNvdXJjZSBjb2RlKTpccGFyDQpccGFyDQovKiAtLS0tLS0tLSBCRUdJ
TiBleGFtcGxlIDEgLS0tLS0tLS0tICovXHBhcg0KcHJpdmF0ZSBjbGFzcyBYbWxWYWxpZGF0aW9u
SGFuZGxlclxwYXINClx7XHBhcg0KICAgIHB1YmxpYyBpbnQgaW50RXJyO1xwYXINCiAgICBwdWJs
aWMgdm9pZCBWYWxpZGF0aW9uQ2FsbEJhY2sob2JqZWN0IHNlbmRlciwgVmFsaWRhdGlvbkV2ZW50
QXJnc1xwYXINCiBhcmdzKVxwYXINCiAgICBce1xwYXINCiAgICAgICAgdGhpcy5pbnRFcnIgKz0g
MTtccGFyDQogICAgICAgIFhtbFNjaGVtYUV4Y2VwdGlvbiBleGNFcnIgPSBhcmdzLkV4Y2VwdGlv
bjtccGFyDQogICAgICAgIFN5c3RlbS5Db25zb2xlLldyaXRlTGluZSgiLSAtPlx7MFx9IGF0IFx7
MVx9IChcezJcfSxcezNcfSkiLFxwYXINCiBhcmdzLlNldmVyaXR5LCBleGNFcnIuU291cmNlVXJp
LCBleGNFcnIuTGluZU51bWJlcixccGFyDQogZXhjRXJyLkxpbmVQb3NpdGlvbik7IC8vIHRoZSBp
bnRlcmVzdGluZyBwYXJ0XHBhcg0KICAgICAgICBTeXN0ZW0uQ29uc29sZS5Xcml0ZUxpbmUoIiAg
LT4iICsgYXJncy5NZXNzYWdlKTtccGFyDQogICAgICAgIFN5c3RlbS5Db25zb2xlLldyaXRlTGlu
ZSgiLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSIpO1xwYXINCiAgICBcfVxwYXINClx9
XHBhcg0KLyogLS0tLS0tLS0gRU5EICBleGFtcGxlIDEgLS0tLS0tLS0tICovXHBhcg0KXHBhcg0K
XHBhcg0KUGxlYXNlIG5vdGUgdGhhdCBDb25zb2xlLldyaXRlTGluZSggc3RyaW5nLCBvYmplY3Qs
IG9iamVjdCwgb2JqZWN0LFxwYXINCiBvYmplY3QgKSBpcyBhbiBvcmRpbmFyeSBmdW5jdGlvbiBp
biB0aGUgLk5FVC1saWJyYXJ5LlxwYXINClNpbmNlIGluIC5ORVQgZWFjaCAib2JqZWN0IiAtIGV2
ZW4gdmFsdWUgdHlwZXMgbGlrZSBpbnQgYW5kIGNoYXIgLVxwYXINCiBwb3NzZXNlcyBhIC5Ub1N0
cmluZygpIG1ldGhvZCwgV3JpdGVMaW5lKCkgc2ltcGx5IGNvbnZlcnRzIGFsbFxwYXINCiBwYXJh
bWV0ZXJzIHRvIHN0cmluZyBhbmQgbWFwcyB0aGVtIGludG8gdGhlIHNwb3RzIG1hcmtlZCB3aXRo
IFx7aVx9LlxwYXINClxwYXINCk5vdGUgYXMgd2VsbCB0aGF0IGZvciBlbnVtZXJhdGlvbnMgbGlr
ZSBhcmdzLlNldmVyaXR5IG5vdCB0aGUgaW50ZWdlclxwYXINCiB2YWx1ZSB3aWxsIGJlIGRpc3Bs
YXllZCBidXQgdGhlIGFzc29jaWF0ZWQgbmFtZSAoaW4gdGhpcyBjYXNlICJFcnJvciJccGFyDQog
aW5zdGVhZCBvZiAiMCIpLlxwYXINClxwYXINCkNhbGxpbmcgV3JpdGVMaW5lIGxpa2UgdGhpcyBm
cm9tIENQIGRvZXMgbm90IHdvcmssIHBlcmhhcHMgc2luY2UgaXRccGFyDQogZG9lcyBub3QgcmVn
YXJkIElOVCBhcyBhbiAib2JqZWN0Ij9ccGFyDQpccGFyDQpDcmVhdGluZyBhbiBvYmplY3QgYnkg
ZS5nLiBCT1goYXJncy5TZXZlcml0eSkgaXMgbm90IHBvc3NpYmxlLCBzaW5jZVxwYXINCiB0aGlz
IGNhbiBvbmx5IGJlIGRvbmUgZm9yIFJFQ09SRHMuXHBhcg0KXHBhcg0KVGhlIHN0YW5kYXJkIGxp
YnJhcmllcyB0aGF0IGNvbWUgd2l0aCBHUC1DUCBkbyBuZWl0aGVyIHByb3ZpZGUgYVxwYXINCiBt
YXBwaW5nIGZ1bmN0aW9uIGZvciBTdHJpbmdzIChsaWtlIEJCKSBub3IgYSBjb252ZXJzaW9uIGZy
b20gSU5URUdFUlxwYXINCiB0byBBUlJBWSBPRiBDSEFSLlxwYXINClxwYXINClNvIHdoYXQgSSBl
bmRlZCB1cCB3aXRoIHdhcyB0aGlzOlxwYXINClxwYXINCigqIC0tLS0tLS0tIEJFR0lOIGV4YW1w
bGUgMiAtLS0tLS0tLS0gKilccGFyDQpJTVBPUlQgXHBhcg0KICBTeXN0ZW0gOj0gbXNjb3JsaWJf
U3lzdGVtLCBccGFyDQogIFN5c3RlbV9YbWwgOj0gU3lzdGVtX1htbF8sIFxwYXINCiAgU3lzdGVt
X1htbF9TY2hlbWEgOj0gU3lzdGVtX1htbF9fU2NoZW1hLCBccGFyDQogIENvbnNvbGU7XHBhcg0K
XHBhcg0KXHBhcg0KUFJPQ0VEVVJFICggdGhpczogWG1sVmFsaWRhdGlvbkhhbmRsZXIgKSBIYW5k
bGVFcnJvciggc2VuZGVyOlxwYXINCiBTeXN0ZW0uT2JqZWN0OyBhcmdzOiBTeXN0ZW1fWG1sX1Nj
aGVtYS5WYWxpZGF0aW9uRXZlbnRBcmdzICksTkVXO1xwYXINClZBUlxwYXINCiAgZXhjRXJyOiBT
eXN0ZW1fWG1sX1NjaGVtYS5YbWxTY2hlbWFFeGNlcHRpb247XHBhcg0KQkVHSU5ccGFyDQogIElO
QyggdGhpcy5FcnJvckNvdW50ICk7XHBhcg0KICBleGNFcnIgOj0gYXJncy5nZXRfRXhjZXB0aW9u
KCk7XHBhcg0KICAoKiAtLS0tIEJFR0lOIHRoZSB1Z2x5IGJpdCAtLS0tICopXHBhcg0KICBDb25z
b2xlLldyaXRlU3RyaW5nKCAiLSAtPiIgKTtccGFyDQogIElGIGFyZ3MuZ2V0X1NldmVyaXR5KCkg
PSBTeXN0ZW1fWG1sX1NjaGVtYS5YbWxTZXZlcml0eVR5cGUuRXJyb3JccGFyDQogVEhFTiBccGFy
DQogICAgQ29uc29sZS5Xcml0ZVN0cmluZyggIkVycm9yIiApXHBhcg0KICBFTFNFXHBhcg0KICAg
IENvbnNvbGUuV3JpdGVTdHJpbmcoICJXYXJuaW5nIiApXHBhcg0KICBFTkQ7XHBhcg0KICBDb25z
b2xlLldyaXRlU3RyaW5nKCAiIGF0ICIgKyBleGNFcnIuZ2V0X1NvdXJjZVVyaSgpICsgIiAoIiAp
O1xwYXINCiAgQ29uc29sZS5Xcml0ZUludCggZXhjRXJyLmdldF9MaW5lTnVtYmVyKCksIC0xICk7
XHBhcg0KICBDb25zb2xlLldyaXRlU3RyaW5nKCAiLCIgKTtccGFyDQogIENvbnNvbGUuV3JpdGVJ
bnQoIGV4Y0Vyci5nZXRfTGluZVBvc2l0aW9uKCksIC0xICk7XHBhcg0KICBDb25zb2xlLldyaXRl
U3RyaW5nKCAiKSIgKTsgIENvbnNvbGUuV3JpdGVMbigpO1xwYXINCiAgKCogLS0tLSBFTkQgICB0
aGUgdWdseSBiaXQgLS0tLSAqKVxwYXINCiAgKCogKilccGFyDQogIENvbnNvbGUuV3JpdGVTdHJp
bmcoICIgIC0+IiArIGFyZ3MuZ2V0X01lc3NhZ2UoKSAgKTsgXHBhcg0KIENvbnNvbGUuV3JpdGVM
bigpO1xwYXINCiAgKCogKikgXHBhcg0KICBDb25zb2xlLldyaXRlU3RyaW5nKCAiLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLSIgKTsgXHBhcg0KIENvbnNvbGUuV3JpdGVMbigpO1xwYXIN
CkVORCBIYW5kbGVFcnJvcjtccGFyDQooKiAtLS0tLS0tLSBFTkQgIGV4YW1wbGUgMiAtLS0tLS0t
LS0gKilccGFyDQpccGFyDQpBcGFydCBmcm9tIHRoZSBhZGRpdGlvbmFsIHNwYWNlICh3aGljaCBJ
IHdvdWxkIG5vdCBtaW5kKSB0aGUgb3V0cHV0XHBhcg0KIGZvcm1hdCAiLSAtPlx7MFx9IGF0IFx7
MVx9IChcezJcfSxcezNcfSkiIGhhcyBoZXJlIGJlZW4gc3BsaXQgaW50byBzZXZlcmFsXHBhcg0K
IGxpbmVzIG9mIGNvZGUsIHdoaWNoIG1ha2VzIGl0IGEgbG90IGhhcmRlciB0byByZWFkIGluIG15
IG9waW5pb24uXHBhcg0KXHBhcg0KXHBhcg0KRGlkIEkgbWlzcyBzb21ldGhpbmcgb2J2aW91cz9c
cGFyDQpDYW4geW91IHBlcmhhcHMgdGhpbmsgb2YgYSBzb2x1dGlvbiBtb3JlIGVsZWdhbnQ/XHBh
cg0KXHBhcg0KXHBhcg0Ka2luZCByZWdhcmRzXHBhcg0KZ3VubmFyXHBhcg0KXHBhcg0KXHBhcg0K
LS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05P
RkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSH19AFQuIEE=
----boundary-LibPST-iamunique-127378217_-_---

Received on Fri Oct 22 2010 - 11:51:01 UTC