10 lines
216 B
Ada
10 lines
216 B
Ada
|
with Ada.Streams;
|
||
|
with Ada.Tags;
|
||
|
package Graphic is
|
||
|
use Ada;
|
||
|
--
|
||
|
type Object is abstract tagged null record;
|
||
|
function XML_Input (S : access Streams.Root_Stream_Type'Class)
|
||
|
return Object'Class;
|
||
|
end Graphic;
|