Re: OpenToken : accessing the lexeme from synthetize

[Lionel Draghi <Lionel.nospam.Draghi@Ada-France.org>]

Le 02/07/2017 à 00:20, Lionel Draghi a écrit :
> Hi,
> I suppose it’s obvious, but I couldn't find a way to get the lexeme image within a synthetize procedure.
>
>    procedure Action
>      (New_Token : out Nonterminal.Class;
>       Source    : in  Token_List.Instance'Class;
>       To_ID     : in  Token_ID_Type)
>    is
>       Left  : constant Token_List.List_Iterator := Token_List.Initial_Iterator (Source);
>       – the identifier I want to diplay is the first token in the list
>       Tk : Master_Token.Class := Token_List.Token_Handle (Left).all;
>    begin
>       – and now?
>       Ada.Text_IO.Put_Line (…); 	
>    end Action;
>
> Any help? TIA.
>

OK, got it :
I did not give the Enumerated.Identifier.Get to the defaulted 
OpenToken.Recognizer.Identifier.Get New_Token parameter !

Same trap than Jacob Sparre Andersen here 
https://groups.google.com/d/msg/comp.lang.ada/srIozAdn-2E/1srxULptGU4J

I wouldn’t have understood this by myself, far too complex.

   procedure Action
      (New_Token : out Nonterminal.Class;
       Source    : in  Token_List.Instance'Class;
       To_ID     : in  Token_ID_Type)
    is
       Left  : constant Token_List.List_Iterator :=
          Token_List.Initial_Iterator (Source);
    begin
       Ada.Text_IO.Put_Line (
          To_String (Identifiers.Instance (
             Token_List.Token_Handle (Left).all).Identifier)); 	
    end Action;
    -- not compiled code

BTW, is there a simpler way to get the identifier ?
Sounds still complex to me this way.