1 2 3 4 5 6 7 8 9 10 11 12 | with Ada.Assertions; use Ada.Assertions; package body Ada_Node_Interval is function Get_Interval_With_Trivia (Node : Ada_Node) return Interval is begin Assert (not Node.Is_Null, "Node unexpectedly null"); return Make_Interval (Start_Offset (Node, Before), End_Offset (Node, After)); end Get_Interval_With_Trivia; end Ada_Node_Interval; |