[Oberon] Identify Calling Command

[Felix Friedrich]

Is there a portable way to identify the caller of a procedure, I need 
something like

PROCEDURE Identify(VAR s: ARRAY OF CHAR; something);
BEGIN
	???
END Identify;

PROCEDURE TestProc(par: INTEGER)
VAR s: ARRAY 256 OF CHAR;
BEGIN
	Identify(s, something); Out.String("caller: "); Out.String(s); Out.Ln();
END TestProc;

PROCEDURE Test*;
BEGIN
	TestProc;
END;

ModuleName.Test should produce the following output
caller: ModuleName.Test


Felix.
--

Felix Friedrich

Institut für Biomathematik und Biometrie
GSF - Forschungszentrum für Umwelt und Gesundheit, GmbH
Ingolstädter Landstraße 1, D-85764 Neuherberg

Tel:      ++49 89 3187 2436
email:  friedrich at gsf.de

--