Ada包装＆amp;方法名称

Question

这里出于好奇心的问题，是否有可能找到您所处方法的名称？类似这样的地方，Magic应输出"foo.bar.foobar"而不诉诸字符串文字。

with ada.text_io;
package body foo.bar is 

   function foobar return boolean is 
   begin
     ada.text_io.put_line ("I am in :" & Magic);
     return true;
   end foobar;

end foo.bar;

我认为这是信息位于某处，因为堆栈跟踪，异常和分析工具等的输出类似，但我无法在任何地方找到它！

Answer 1

我相信你已经知道，Ada（不幸的是）不支持反思。

但是......如果您正在使用GNAT并且可以使用特定于编译器的实用程序，则可以从包GNAT.Source_Info获取此类信息。