c宏__LINE__，__FILE__，__func__相當於蚊蚋ADA

Question

是否有gnatada爲c macros__LINE__，__FILE__，__func__等效？這些在錯誤消息中很有用，可以快速找到代碼中的錯誤。也許還有另一個概念來歸檔相同的目標。

Answer 1

我沒有手頭上的安裝檢查，但文件說，包GNAT.Source_Info「規定的子程序，讓訪問在編譯時已知源代碼的信息，如當前文件名和行號。「並且adacore有spec for the package（通過Christoph）

Answer 2

對不起，__LINE__和__FILE__和其他__THING__是C預處理器的功能，這是ada沒有的東西。你可以陪陪一個簡單的Perl腳本（或類似的）來預先運行你的代碼，以模擬__LINE__和__FILE__，但是__func__會更困難，因爲這意味着實際上解析代碼。

啊，原來它存在於GNAT中。例如：

with Ada.Text_IO 
GNAT.Source_Info; 
use Ada.Text_IO 
GNAT.Source_Info; 

procedure source_error is 
    -- example of GNAT.Source_Info.Source_Location 
    i : integer; 
    j : integer := 0; 
begin 
    i := 5/j; -- division by zero 
exception when others => 
    put_line(standard_error 
Source_Location & ": exception raised"); 
end source_error; 

Answer 3

另一種方法是在異常情況下打印堆棧跟蹤。有一些GNAT綁定器參數用於啓用堆棧跟蹤存儲（-E？），然後您可以使用Ada.Exceptions包打印它們。還有一個包可以在任何時候或者發生異常情況下打印堆棧（我總是對所有任務都有最後一個處理程序處理程序）。請參閱http://rosettacode.org/wiki/Stack_traces#Ada

根據我的經驗，異常堆棧跟蹤非常適合查明問題。