----boundary-LibPST-iamunique-700903061_-_-
Content-type: text/plain
I ran the syntax from Appendix B: Syntax of Component Pascal through Coco. I think that there is a discrepancy between the Forward procedure declaration in the explanitory text and the syntax diagram. The compiler seems to require the version in the explanitory text.
I wish that I had a current syntax to feed Coco.
MODULE PrivAlm01TestForward;
(* Test the compiler behavior on forward declarations. *)
TYPE ReceiveRecord = POINTER TO RECORD END;
PROCEDURE ^ (this:ReceiveRecord) Forward ( ):INTEGER, NEW; (*The NEW is the discrepancy *)
PROCEDURE (this:ReceiveRecord) Forward ( ):INTEGER, NEW;
BEGIN
RETURN 42
END Forward;
END PrivAlm01TestForward.
>From the explanitory text.
ProcedureHeading = PROCEDURE [Receiver] IdentDef
[FormalParameters] MethAttributes.
Receiver = "(" [VAR | IN] ident ":" ident ")".
MethAttributes = ["," NEW] ["," (ABSTRACT | EMPTY | EXTENSIBLE)].
ProcedureDeclaration = ProcedureHeading ";" [ ProcedureBody ident ].
ProcedureHeading = PROCEDURE [Receiver] IdentDef
[FormalParameters] MethAttributes.
ProcedureBody = DeclarationSequence
[BEGIN StatementSequence] END.
DeclarationSequence = {CONST {ConstantDeclaration ";"} |
TYPE {TypeDeclaration ";"} |
VAR {VariableDeclaration ";"} }
{ProcedureDeclaration ";" | ForwardDeclaration ";"}.
ForwardDeclaration = PROCEDURE " ^ " [Receiver] IdentDef
[FormalParameters] MethAttributes.
>From the syntax diagrams.
ForwardDecl = PROCEDURE "^" [Receiver] IdentDef [FormalPars].
ProcDecl = PROCEDURE [Receiver] IdentDef [FormalPars]
["," NEW] ["," (ABSTRACT | EMPTY | EXTENSIBLE)]
[";" DeclSeq [BEGIN StatementSeq] END ident].
--------------------------------------------
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-700903061_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEkgcmFuIHRoZSBzeW50YXggZnJvbSBBcHBlbmRp
eCBCOiBTeW50YXggb2YgQ29tcG9uZW50IFBhc2NhbCB0aHJvdWdoIENvY28uICBJIHRoaW5rIHRo
YXQgdGhlcmUgaXMgYSBkaXNjcmVwYW5jeSBiZXR3ZWVuIHRoZSBGb3J3YXJkIHByb2NlZHVyZSBk
ZWNsYXJhdGlvbiBpbiB0aGUgZXhwbGFuaXRvcnkgdGV4dCBhbmQgdGhlIHN5bnRheCBkaWFncmFt
LiAgVGhlIGNvbXBpbGVyIHNlZW1zIHRvIHJlcXVpcmUgdGhlIHZlcnNpb24gaW4gdGhlIGV4cGxh
bml0b3J5IHRleHQuXHBhcg0KXHBhcg0KSSB3aXNoIHRoYXQgSSBoYWQgYSBjdXJyZW50IHN5bnRh
eCB0byBmZWVkIENvY28uICBccGFyDQpccGFyDQpNT0RVTEUgUHJpdkFsbTAxVGVzdEZvcndhcmQ7
XHBhcg0KKCogVGVzdCB0aGUgY29tcGlsZXIgYmVoYXZpb3Igb24gZm9yd2FyZCBkZWNsYXJhdGlv
bnMuICopXHBhcg0KXHRhYiBUWVBFIFJlY2VpdmVSZWNvcmQgPSBQT0lOVEVSIFRPIFJFQ09SRCBF
TkQ7XHBhcg0KXHRhYiBQUk9DRURVUkUgXiAodGhpczpSZWNlaXZlUmVjb3JkKSBGb3J3YXJkICgg
KTpJTlRFR0VSLCBORVc7ICgqVGhlIE5FVyBpcyB0aGUgZGlzY3JlcGFuY3kgKilccGFyDQpcdGFi
IFBST0NFRFVSRSAodGhpczpSZWNlaXZlUmVjb3JkKSBGb3J3YXJkICggKTpJTlRFR0VSLCBORVc7
XHBhcg0KXHRhYiBCRUdJTlxwYXINClx0YWIgXHRhYiBSRVRVUk4gNDJccGFyDQpcdGFiIEVORCBG
b3J3YXJkO1xwYXINCkVORCBQcml2QWxtMDFUZXN0Rm9yd2FyZC5ccGFyDQpccGFyDQpccGFyDQpG
cm9tIHRoZSBleHBsYW5pdG9yeSB0ZXh0LlxwYXINClxwYXINClByb2NlZHVyZUhlYWRpbmdcdGFi
ID0gUFJPQ0VEVVJFIFtSZWNlaXZlcl0gSWRlbnREZWZccGFyDQpcdGFiIFx0YWIgW0Zvcm1hbFBh
cmFtZXRlcnNdIE1ldGhBdHRyaWJ1dGVzLlxwYXINClJlY2VpdmVyIFx0YWIgPSAiKCIgW1ZBUiB8
IElOXSBpZGVudCAiOiIgaWRlbnQgIikiLlxwYXINCk1ldGhBdHRyaWJ1dGVzXHRhYiA9IFsiLCIg
TkVXXSBbIiwiIChBQlNUUkFDVCB8IEVNUFRZIHwgRVhURU5TSUJMRSldLlxwYXINClxwYXINClBy
b2NlZHVyZURlY2xhcmF0aW9uXHRhYiA9IFByb2NlZHVyZUhlYWRpbmcgIjsiIFsgUHJvY2VkdXJl
Qm9keSBpZGVudCBdLlxwYXINClByb2NlZHVyZUhlYWRpbmcgXHRhYiA9IFBST0NFRFVSRSBbUmVj
ZWl2ZXJdIElkZW50RGVmXHBhcg0KXHRhYiBcdGFiIFtGb3JtYWxQYXJhbWV0ZXJzXSBNZXRoQXR0
cmlidXRlcy5ccGFyDQpQcm9jZWR1cmVCb2R5IFx0YWIgPSBEZWNsYXJhdGlvblNlcXVlbmNlXHBh
cg0KXHRhYiBcdGFiIFtCRUdJTiBTdGF0ZW1lbnRTZXF1ZW5jZV0gRU5ELlxwYXINCkRlY2xhcmF0
aW9uU2VxdWVuY2UgXHRhYiA9IFx7Q09OU1QgXHtDb25zdGFudERlY2xhcmF0aW9uICI7Ilx9IHwg
XHBhcg0KXHRhYiBcdGFiIFRZUEUgXHtUeXBlRGVjbGFyYXRpb24gIjsiXH0gfFxwYXINClx0YWIg
ICAgIFZBUiBce1ZhcmlhYmxlRGVjbGFyYXRpb24gIjsiXH0gXH1ccGFyDQpcdGFiICAgIFx7UHJv
Y2VkdXJlRGVjbGFyYXRpb24gIjsiIHwgRm9yd2FyZERlY2xhcmF0aW9uICI7Ilx9LlxwYXINCkZv
cndhcmREZWNsYXJhdGlvbiBcdGFiID0gUFJPQ0VEVVJFICIgXiAiIFtSZWNlaXZlcl0gSWRlbnRE
ZWZccGFyDQpcdGFiIFx0YWIgW0Zvcm1hbFBhcmFtZXRlcnNdIE1ldGhBdHRyaWJ1dGVzLlxwYXIN
ClxwYXINClxwYXINCkZyb20gdGhlIHN5bnRheCBkaWFncmFtcy5ccGFyDQpccGFyDQpGb3J3YXJk
RGVjbFx0YWIgPVx0YWIgUFJPQ0VEVVJFICJeIiBbUmVjZWl2ZXJdIElkZW50RGVmIFtGb3JtYWxQ
YXJzXS5ccGFyDQpQcm9jRGVjbCBcdGFiID1cdGFiIFBST0NFRFVSRSBbUmVjZWl2ZXJdIElkZW50
RGVmIFtGb3JtYWxQYXJzXVxwYXINClx0YWIgXHRhYiBbIiwiIE5FV10gWyIsIiAoQUJTVFJBQ1Qg
fCBFTVBUWSB8IEVYVEVOU0lCTEUpXVxwYXINClx0YWIgXHRhYiBbIjsiIERlY2xTZXEgW0JFR0lO
IFN0YXRlbWVudFNlcV0gRU5EIGlkZW50XS5ccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLVxwYXINClxwYXINClRvIHVuc3Vic2NyaWJlIGZyb20gdGhpcyBt
YWlsaW5nIGxpc3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgInVuc3Vic2Ny
aWJlIiB0bzpccGFyDQogICBibGFja2JveC1yZXF1ZXN0QG9iZXJvbi5jaFxwYXINClxwYXINClRv
IGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVjdGlvbnMgb24g
dGhlaXIgdXNhZ2UsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgImhlbHAiIHRv
IHRoZSBhYm92ZSBhZGRyZXNzLlxwYXINClxwYXINClNlbmQgYW55IHByb2JsZW0gcmVwb3J0cyBv
ciBxdWVzdGlvbnMgcmVsYXRlZCB0byB0aGlzIGVtYWlsIGxpc3QgdG8gdGhlIGxpc3Qgb3duZXIg
YXRccGFyDQogICBvd25lci1ibGFja2JveEBvYmVyb24uY2hccGFyDQpccGFyDQpDdXJyZW50IHBv
c3RpbmcgcG9saWN5OlxwYXINClxwYXINCmEpIFRvIHBvc3QgeW91IHNob3VsZCB1c2UgdGhlIHNh
bWUgYWRkcmVzcyBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQgdG8gdGhlIG1haWxpbmcgbGlz
dC4gVGhhdCB3YXksIHRoZSBsaXN0IHNlcnZlciB3aWxsIHJlY29nbml6ZSB5b3UgYXMgc3Vic2Ny
aWJlciBhbmQgZm9yd2FyZCB5b3VyIHBvc3RpbmcgaW1tZWRpYXRlbHksIHdpdGhvdXQgY3JlYXRp
bmcgYW55IG92ZXJoZWFkLlxwYXINClxwYXINCmIpIElmLCBmb3Igc29tZSByZWFzb24sIHlvdSBj
YW5ub3QgcG9zdCBmcm9tIHRoZSBhZGRyZXNzLCBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQs
IHlvdXIgbWVzc2FnZSB3aWxsIGJlIG1vZGVyYXRlZCB0byBhdm9pZCBzcGFtLiBQbGVhc2UgdW5k
ZXJzdGFuZCB0aGF0IG1vZGVyYXRpb24gd2lsbCBvZnRlbiBjYXVzZSBzb21lIGRlbGF5LCBpbiBw
YXJ0aWN1bGFyIG92ZXIgd2Vla2VuZHMgb3IgaG9seWRheX19AH/Wfu2GwDv3hvGQaA==
----boundary-LibPST-iamunique-700903061_-_---
Received on Thu Mar 21 2002 - 13:34:26 UTC