1 2 3 4 5 6 7 8 9 10 11 12 13 14 | with ada.Tags; package body lace.Response is function Name (Self : in Item) return String is begin return ada.Tags.expanded_Name (Item'Class (Self)'Tag); end Name; end lace.Response; |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | with ada.Tags; package body lace.Response is function Name (Self : in Item) return String is begin return ada.Tags.expanded_Name (Item'Class (Self)'Tag); end Name; end lace.Response; |