21 lines
538 B
Ada
21 lines
538 B
Ada
|
-- { dg-do compile }
|
||
|
|
||
|
with Ada.Tags.Generic_Dispatching_Constructor;
|
||
|
package body Graphic is
|
||
|
--
|
||
|
function Dispatching_Input is new Tags.Generic_Dispatching_Constructor
|
||
|
(T => Object,
|
||
|
Parameters => Streams.Root_Stream_Type'Class,
|
||
|
Constructor => Object'Input);
|
||
|
--
|
||
|
function XML_Input
|
||
|
(S : access Streams.Root_Stream_Type'Class) return Object'Class
|
||
|
is
|
||
|
Result : constant Object'Class :=
|
||
|
Dispatching_Input (Tags.Internal_Tag (" "), S);
|
||
|
begin
|
||
|
return Result;
|
||
|
end XML_Input;
|
||
|
end Graphic;
|
||
|
|