Node:CurrentRoutineName, Next:Date, Previous:CStringCopyString, Up:Reference
function CurrentRoutineName: String;
CurrentRoutineName returns the name of the current routine
from where it's called.
CurrentRoutineName is a GNU Pascal extension.
program CurrentRoutineNameDemo;
procedure FooBar;
begin
WriteLn (CurrentRoutineName) { `FooBar' }
end;
begin
WriteLn (CurrentRoutineName); { `main program' }
FooBar
end.