Name of Current Routine

[Kevan S. Hashemi]

Is there a function in FPC that returns the name of the current routine? For example:

Code: Pascal  [Select][+][-]

1. function example:integer;
2. begin
3.   written('This is routine ',CurrentRoutineName);
4. end;

Which, when executed produces:

Code: Bash  [Select][+][-]

1. This is routine example

I'm translating from GNU Pascal (GPC) to FPC, and GPC has CurrentRoutineName, which I want to replace, if possible.

[trev]

Code: Pascal  [Select][+][-]

1. program test;
2. {$MODE OBJFPC}
3.  
4. procedure myCheck;
5. begin
6.  WriteLn('Name is: ', {$I %CURRENTROUTINE%});
7. end;
8.  
9. begin
10.  WriteLn('Hello');
11.  myCheck;
12.  WriteLn('Bye');
13. end.
14.  

Works in trunk but not 3.0.4

[MarkMLl]

Thanks for that Trev. Apparently described at https://wiki.freepascal.org/$include but with limited indication of what versions of the compiler support the various directives.

MarkMLl

[jamie]

If this is for debugging purposes why not use the Assert ?

[julkas]

See -
1. https://forum.lazarus.freepascal.org/index.php?topic=19588.0
2. https://stackoverflow.com/questions/2817699/how-to-get-the-name-of-the-current-procedure-function-in-delphi-as-a-string
3. https://blog.matthewskelton.net/2012/01/29/assert-based-error-reporting-in-delphi/

My choice for FPC 3.0.4/Delphi -

Code: Pascal  [Select][+][-]

1. function example: integer;
2. {$IFDEF TRACE}
3.   const
4.     currMethodName = 'example';
5. {$ENDIF}       
6. begin
7.   {$IFDEF TRACE}
8.   WriteLn('This is routine - ', currMethodName);
9.   {$ENDIF}
10. end;
11.  

You can automate typing with Code Tools (macro $ProcedureName).

[MarkMLl]

If this is for debugging purposes why not use the Assert ?

Sometimes you want stuff to be quietly logged rather than blasting through an exception sequence.

However you make a good point that sometimes it would be related to whether assertions were enabled, in which case something like

Code: [Select]

{$ifopt C+ Predicated on assertions generating code }
  WriteLn('Name is: ', {$I %CURRENTROUTINE%});
{$endif }

would be in order.

MarkMLl

[Kevan S. Hashemi]

Thank you all. It looks like {$I %CURRENTROUTINE%} would do the trick, and will be available in next version of FPC. In the meantime, I believe a regular expression will allow me to replace the phrase CurrentRoutineName with the actual current routine name, so I am content.

[lucamar]

One alternative is to add a "code template" using the macro $ProcedureName(); with that in place you could type, say, "cpname", press Ctrl+J and have the proc name inserted wherever you want..

See the wiki page: IDE Window: Code Templates