own label for ASSERTS and error messages

From: Thomas, Andrew <"Thomas,>
Date: Tue, 12 Mar 2002 13:57:29 -0000

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

Hello Oberon Crew,

        the ability in v1.4 of BlackBox is nice. I wonder if something
similar could be done for user error messages?
Maybe


        MODULE Test;

                PROCEDURE Fred (OUT ok: BOOLEAN)
                VAR
                   errorNum: INTEGER;
                BEGIN
                        xxxx
                        if error then
                                errorNum := 1;
                                StdErrors.SetError(errorNum); ok := FALSE;
                                RETURN
                        end
                END Fred;

        END Test.

        
        DEFINITION StdErrors;

        VAR
                error-: ARRAY 240 OF CHAR;

                PROCEDURE SetError(errorNum: INTEGER);

        END StdErrors.

the procedure Fred would use StdErrors.SetError to set the error string in
StdErrors to Test.Fred.1 which could then be mapped to a useful
user message.

Regards

        Andrew
--------------------------------------------

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

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhlbGxvIE9iZXJvbiBDcmV3LFxwYXINClxwYXIN
Clx0YWIgdGhlIGFiaWxpdHkgaW4gdjEuNCBvZiBCbGFja0JveCBpcyBuaWNlLiBJIHdvbmRlciBp
ZiBzb21ldGhpbmdccGFyDQpzaW1pbGFyIGNvdWxkIGJlIGRvbmUgZm9yIHVzZXIgZXJyb3IgbWVz
c2FnZXM/XHBhcg0KTWF5YmVccGFyDQpccGFyDQpccGFyDQpcdGFiIE1PRFVMRSBUZXN0O1xwYXIN
ClxwYXINClx0YWIgXHRhYiBQUk9DRURVUkUgRnJlZCAoT1VUIG9rOiBCT09MRUFOKVxwYXINClx0
YWIgXHRhYiBWQVJccGFyDQpcdGFiIFx0YWIgICAgZXJyb3JOdW06IElOVEVHRVI7XHBhcg0KXHRh
YiBcdGFiIEJFR0lOXHBhcg0KXHRhYiBcdGFiIFx0YWIgeHh4eFxwYXINClx0YWIgXHRhYiBcdGFi
IGlmIGVycm9yIHRoZW5ccGFyDQpcdGFiIFx0YWIgXHRhYiBcdGFiIGVycm9yTnVtIDo9IDE7XHBh
cg0KXHRhYiBcdGFiIFx0YWIgXHRhYiBTdGRFcnJvcnMuU2V0RXJyb3IoZXJyb3JOdW0pOyBvayA6
PSBGQUxTRTtccGFyDQpcdGFiIFx0YWIgXHRhYiBcdGFiIFJFVFVSTlxwYXINClx0YWIgXHRhYiBc
dGFiIGVuZFxwYXINClx0YWIgXHRhYiBFTkQgRnJlZDtccGFyDQpccGFyDQpcdGFiIEVORCBUZXN0
LlxwYXINClxwYXINClx0YWIgXHBhcg0KXHRhYiBERUZJTklUSU9OIFN0ZEVycm9ycztccGFyDQpc
cGFyDQpcdGFiIFZBUlxwYXINClx0YWIgXHRhYiBlcnJvci06IEFSUkFZIDI0MCBPRiBDSEFSO1xw
YXINClxwYXINClx0YWIgXHRhYiBQUk9DRURVUkUgU2V0RXJyb3IoZXJyb3JOdW06IElOVEVHRVIp
O1xwYXINClxwYXINClx0YWIgRU5EIFN0ZEVycm9ycy5ccGFyDQpccGFyDQp0aGUgcHJvY2VkdXJl
IEZyZWQgd291bGQgdXNlIFN0ZEVycm9ycy5TZXRFcnJvciB0byBzZXQgdGhlIGVycm9yIHN0cmlu
ZyBpblxwYXINClN0ZEVycm9ycyB0byBUZXN0LkZyZWQuMSB3aGljaCBjb3VsZCB0aGVuIGJlIG1h
cHBlZCB0byBhIHVzZWZ1bFxwYXINCnVzZXIgbWVzc2FnZS5ccGFyDQpccGFyDQpSZWdhcmRzXHBh
cg0KXHBhcg0KXHRhYiBBbmRyZXdccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLVxwYXINClxwYXINClRvIHVuc3Vic2NyaWJlIGZyb20gdGhpcyBtYWlsaW5n
IGxpc3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgInVuc3Vic2NyaWJlIiB0
bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9iZXJvbi5jaFxwYXINClxwYXINClRvIGdldCBh
IGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVjdGlvbnMgb24gdGhlaXIg
dXNhZ2UsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgImhlbHAiIHRvIHRoZSBh
Ym92ZSBhZGRyZXNzLlxwYXINClxwYXINClNlbmQgYW55IHByb2JsZW0gcmVwb3J0cyBvciBxdWVz
dGlvbnMgcmVsYXRlZCB0byB0aGlzIGVtYWlsIGxpc3QgdG8gdGhlIGxpc3Qgb3duZXIgYXRccGFy
DQogICBvd25lci1ibGFja2JveEBvYmVyb24uY2hccGFyDQpccGFyDQpDdXJyZW50IHBvc3Rpbmcg
cG9saWN5OlxwYXINClxwYXINCmEpIFRvIHBvc3QgeW91IHNob3VsZCB1c2UgdGhlIHNhbWUgYWRk
cmVzcyBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQgdG8gdGhlIG1haWxpbmcgbGlzdC4gVGhh
dCB3YXksIHRoZSBsaXN0IHNlcnZlciB3aWxsIHJlY29nbml6ZSB5b3UgYXMgc3Vic2NyaWJlciBh
bmQgZm9yd2FyZCB5b3VyIHBvc3RpbmcgaW1tZWRpYXRlbHksIHdpdGhvdXQgY3JlYXRpbmcgYW55
IG92ZXJoZWFkLlxwYXINClxwYXINCmIpIElmLCBmb3Igc29tZSByZWFzb24sIHlvdSBjYW5ub3Qg
cG9zdCBmcm9tIHRoZSBhZGRyZXNzLCBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQsIHlvdXIg
bWVzc2FnZSB3aWxsIGJlIG1vZGVyYXRlZCB0byBhdm9pZCBzcGFtLiBQbGVhc2UgdW5kZXJzdGFu
ZCB0aGF0IG1vZGVyYXRpb24gd2lsbCBvZnRlbiBjYXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1
bGFyIG92ZXIgd2Vla2VuZHMgb3IgaG9seWRheXMuXHBhcg0KXHBhcg0KfQ==


----boundary-LibPST-iamunique-1816120261_-_---
Received on Tue Mar 12 2002 - 14:57:29 UTC