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

[stuart clark <clark.stuart.au@gmail.com>]

On Oct 25, 10:07 pm, Julian Leyh <jul...@vgai.de> wrote:
> 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;

thanks but which package is type_descriptor from ???