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

[Mehdi Saada <00120260a@gmail.com>]

Ah... Of course, I haven't mastered that part.
For instance, I'm not sure how many times in
	 if TOKEN_COURANT in T_TOKEN_OPERANDE then SUITE;
	 elsif TOKEN_COURANT in T_TOKEN_PARENTHESE then
	    if GET_ELEM (T_Token_Parenthese (TOKEN_COURANT)) = '(' then VALIDE;
	    else SUITE; end if;
	 else OK := FALSE;
TOKEN_COURANT is called. Only once is what I would like, but I code it only assuming, without knowing for sure...

Each subprogram being meant to test one character at once, I wrote that:
procedure SUITE;
procedure SUITE is
   TOKEN_COURANT : T_TOKEN'Class := TOKEN_COURANT_APPEL;
begin
  if TOKEN_COURANT in T_Token_Operateur then VALIDE;
  else OK := FALSE;
  end if;
end SUITE;

But that's not the problem (since it still fails). The recursive design was given by the teacher, and part of the exercice's interest is to teach us that. Eventhough, I find these designs horrible to read and to be avoided at (almost) all costs.