type Tokenizer is new Limited_Object with private;
type A_Tokenizer is access all Tokenizer'Class;
function Get_Location
( | this | : not null access Tokenizer'Class ) return Token_Location; |
procedure Set_Input
( | this | : not null access Tokenizer'Class; |
stream | : Stream_Access ); |