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.