Re: how to i get the type of a parameter specification is ASIS

[Julian Leyh <julian@vgai.de>]

On 25 Okt., 13:55, stuart clark <clark.stuart...@gmail.com> wrote:
> 1) i am getting the parameter_specification using
>
>  params : Asis.Parameter_Specification_List :=
>                  asis.Declarations.Parameter_Profile
>                    (element);
>
> 2) from params i am getting the parameter name using
>
>  names: asis.Defining_Name_list :=
>                        asis.declarations.Names(params(i));
>
> 3) i am also getting the parameter mode_kind using
>
> mode_kind : Asis.Mode_Kinds :=
>                        asis.elements.mode_kind
>                          (params(i));
>
> it looks like this
>
> param  =  b : in out float
> name  =   b
> mode kind  = AN_IN_OUT_MODE
>
> but i also want the type of the parameter, eg float.
>
> anybody know how ???

from AdaBrowse source:

      declare
         Params : constant Parameter_Specification_List :=
           Parameter_Profile (Decl);
      begin
         for I in Params'Range loop
            declare
               T : constant Type_Descriptor :=
                 Type_Of (Declaration_Subtype_Mark (Params (I)));
            begin
               if T.Attrs = No_Attributes and then
                  Is_Equal (T.Decl, The_Type)
               then
                  return True;
               end if;
            end;
         end loop;
      end;