Re: troubles learning OOP: expected type "Parent.Some_Child", found type Parent'Class

[Simon Wright <simon@pushface.org>]

Mehdi Saada <00120260a@gmail.com> writes:

> case ELEMENT is
> when '(' => V_LOCAL (I) := new T_TOKEN_PARENTHESE'(La_Parenthese => '(');
> when ')' => V_LOCAL (I) := new T_TOKEN_PARENTHESE'(La_Parenthese => ')');
> when ';' => V_LOCAL (I) := new T_TOKEN_TERMINATEUR'(Le_Terminateur => ';');
> when '+' | '-' | '*' | '/' =>
>   V_LOCAL (I) := new T_Token_Operateur'(L_Operateur => T_Operateur'Value (STRING'(1 => ELEMENT)));

Well, I would make T_TOKEN contain the first and last indices of the
token in the input string if it'll still be available, or else an
Unbounded_String containing the token text. That way you could probably
avoid a lot of these differences. Of course that wouldn't cover what to
do with numeric or operator tokens. Or those parentheses.