Package AdaDoc_Tree

AuthorJulien Burdy & Vincent Decorges
Date10.4.02
DescriptionGive the token to make the tree
and the subprograms to generate xml
File nameadadoc_tree.adb
 

Clauses

Quick access : ClausesGenericsDefinitionsSubprograms


 
Context clauses
Ada.Strings.Unbounded
Ada.Text_IO
Ada.Unchecked_Deallocation
Ada.Finalization
 
Use clauses
Ada.Strings.Unbounded
Ada.Text_IO
 

Generic Instanciations

Quick access : ClausesGenericsDefinitionsSubprograms


Generic Instanciations
procedure Free is new Ada.Unchecked_Deallocation (Object_Token'Class, Object_Token_Ptr)
 

Definitions

Quick access : ClausesGenericsDefinitionsSubprograms


Types
Name Declaration
Object_Token_Ptraccess all Object_Token'Class
Dummy_String_Token_Ptraccess all Dummy_String_Token'Class
Generic_Para_Token_Ptraccess all Generic_Para_Token'Class
Discriminant_Token_Ptraccess all Discriminant_Token'Class
Generic_Type_Para_Token_Ptraccess all Generic_Type_Para_Token
Generic_Package_Token_Ptraccess all Generic_Package_Token
Package_Spec_Token_Ptraccess all Package_Spec_Token'Class
Def_ID_S_Token_Ptraccess all Def_ID_S_Token'Class
Qualifier_Type(Constant_Qualifier, Aliased_Qualifier)
Qualifier for object token
Qualifier_Array_Typearray (Qualifier_Type) of Boolean
Object_Qualifier_Token_Ptraccess all Object_Qualifier_Token'Class
Object_Declaration_Token_Ptraccess all Object_Declaration_Token'Class
Exception_Declaration_Token_Ptraccess all Exception_Declaration_Token'Class
With_Clause_Token_Ptraccess all With_Clause_Token'Class
Use_Clause_Token_Ptraccess all Use_Clause_Token'Class
Use_Type_Clause_Token_Ptraccess all Use_Type_Clause_Token'Class
Rep_Clause_Token_Ptraccess all Rep_Clause_Token'Class
Pragma_Decl_Token_Ptraccess all Pragma_Decl_Token'Class
Mode_Type(In_Mode, Out_Mode, In_Out_Mode, Access_Mode)
Mode for Parameters
Mode_Token_Ptraccess all Mode_Token'Class
Parameters_Token_Ptraccess all Parameters_Token'Class
Subprog_Token_Ptraccess all Subprog_Token'Class
Procedure_Decl_Token_Ptraccess all Procedure_Decl_Token'Class
Function_Decl_Token_Ptraccess all Function_Decl_Token'Class
Generic_Subp_Para_Token_Ptraccess all Generic_Type_Para_Token
Generic_Proc_Para_Token_Ptraccess all Generic_Proc_Para_Token
Generic_Fun_Para_Token_Ptraccess all Generic_Fun_Para_Token
Generic_Type_Token_Ptraccess all Generic_Type_Token'Class
Generic_Discrimant_Type_Token_Ptraccess all Generic_Discrimant_Type_Token
Simple_Type_Token_Ptraccess all Simple_Type_Token'Class
Derived_Type_Token_Ptraccess all Derived_Type_Token'Class
Component_Token_Ptraccess all Component_Token'Class
Component_List_Token_Ptraccess all Component_List_Token
Variant_Choice_Token_Ptraccess all Variant_Choice_Token
Variant_Token_Ptraccess all Variant_Token
Poo_Record_Token_Ptraccess all Poo_Record_Token
Record_Type_Token_Ptraccess all Record_Type_Token'Class
Subtype_Decl_Token_Ptraccess all Subtype_Decl_Token
Generic_Pkg_Inst_Token_Ptraccess all Generic_Pkg_Inst_Token
Generic_Subp_Inst_Token_Ptraccess all Generic_Subp_Inst_Token
Generic_Param_Token_Ptraccess all Generic_Param_Token
Entry_Decl_Token_Ptraccess all Entry_Decl_Token'Class
Entry_Decl_List_Ptraccess all Entry_Decl_List'Class
Task_Decl_Token_Ptraccess all Task_Decl_Token'Class
Task_Type_Decl_Token_Ptraccess all Task_Type_Decl_Token'Class
Protected_Object_List_Ptraccess all Protected_Object_List'Class
Protected_Private_Object_List_Ptraccess all Protected_Private_Object_List'Class
Protected_Decl_Token_Ptraccess all Protected_Decl_Token'Class
Protected_Type_Decl_Token_Ptraccess all Protected_Type_Decl_Token'Class
Renames_Decl_Token_Ptraccess all Renames_Decl_Token'Class
Renames_Exception_Token_Ptraccess all Renames_Exception_Token'Class
Renames_Object_Token_Ptraccess all Renames_Object_Token'Class
Renames_Package_Token_Ptraccess all Renames_Package_Token'Class
Renames_Generic_Package_Token_Ptraccess all Renames_Generic_Package_Token'Class
Renames_Subp_Token_Ptraccess all Renames_Subp_Token'Class
Renames_Generic_Subp_Token_Ptraccess all Renames_Generic_Subp_Token'Class
   
Object_Token abstract tagged record
inheritance from Ada.Finalization.Controlled
The root token of the object hierarchy
The object is controlled because we need a destructor for the deallocation
in the future
Component Type Default
Line_NumberNatural0
   
Dummy_String_Token tagged record
inheritance from Object_Token
To concatenate token in the parser
Component Type Default
StrUnbounded_String
   
Generic_Para_Token tagged record
inheritance from Object_Token
Component Type Default
Next_ParaGeneric_Para_Token_Ptr
   
Generic_Type_Para_Token tagged record
inheritance from Generic_Para_Token
Generic type parameter
Component Type Default
Type_DefUnbounded_String
DiscriminantDiscriminant_Token_Ptr
NameUnbounded_String
   
Generic_Package_Token tagged record
inheritance from Generic_Para_Token
Generic package
Component Type Default
InstanciationUnbounded_String
   
Package_Spec_Token tagged record
inheritance from Object_Token
Package specification
Component Type Default
Generic_PartGeneric_Para_Token_Ptr
Is_GenericBooleanFalse
Because with can have generic package without parameters
NameUnbounded_String
   
Def_ID_S_Token tagged record
inheritance from Dummy_String_Token
Component Type Default
Next_IDDef_ID_S_Token_Ptrnull
   
Object_Qualifier_Token tagged record
inheritance from Object_Token
Component Type Default
QualifierQualifier_Array_Type(others => False)
   
Object_Declaration_Token tagged record
inheritance from Object_Token
Variable, constant
Component Type Default
QualifierObject_Qualifier_Token_Ptr
InitUnbounded_StringNull_Unbounded_String
Subtype_DefUnbounded_String
Def_ID_SDef_ID_S_Token_Ptr
   
Exception_Declaration_Token tagged record
inheritance from Object_Token
Exception
Component Type Default
Def_ID_SDef_ID_S_Token_Ptr
   
With_Clause_Token tagged record
inheritance from Object_Token
With clause
Component Type Default
Name_SDef_ID_S_Token_Ptr
   
Use_Clause_Token null tagged record
inheritance from With_Clause_Token
Use clause
   
Use_Type_Clause_Token null tagged record
inheritance from With_Clause_Token
Use type
   
Rep_Clause_Token tagged record
inheritance from Object_Token
Representation Clause
Component Type Default
DefUnbounded_String
   
Pragma_Decl_Token tagged record
inheritance from Object_Token
Pragma
Component Type Default
DeclUnbounded_StringNull_Unbounded_String
NameUnbounded_String
   
Mode_Token tagged record
inheritance from Object_Token
Component Type Default
ModeMode_Type
   
Parameters_Token tagged record
inheritance from Object_Token
Component Type Default
NextParameters_Token_Ptrnull
InitUnbounded_StringNull_Unbounded_String
Type_ParamUnbounded_String
ModeMode_Token_Ptr
Def_ID_SDef_ID_S_Token_Ptr
   
Subprog_Token tagged record
inheritance from Object_Token
Subprogram declaration
Component Type Default
Generic_PartGeneric_Para_Token_Ptr
Is_GenericBooleanFalse
Because we can have generic package without parameters
Is_AbstractBooleanFalse
ParametersParameters_Token_Ptr
NameUnbounded_String
   
Procedure_Decl_Token null tagged record
inheritance from Subprog_Token
Procedure declaration
   
Function_Decl_Token tagged record
inheritance from Subprog_Token
Function declaration
Component Type Default
Return_TypeUnbounded_String
   
Generic_Subp_Para_Token tagged record
inheritance from Generic_Para_Token
Generic subprogram declaration
Component Type Default
Subp_DefaultUnbounded_StringNull_Unbounded_String
ParametersParameters_Token_Ptr
NameUnbounded_String
   
Generic_Proc_Para_Token null tagged record
inheritance from Generic_Subp_Para_Token
Generic procedure parameter
   
Generic_Fun_Para_Token tagged record
inheritance from Generic_Subp_Para_Token
Generic function parameter
Component Type Default
Return_TypeUnbounded_String
   
Generic_Type_Token tagged record
inheritance from Object_Token
Not a generic type but a general type for the tree
Component Type Default
NameUnbounded_String
   
Generic_Discrimant_Type_Token tagged record
inheritance from Generic_Type_Token
Generic type discriminant
Component Type Default
Discriminant_PartDiscriminant_Token_Ptr
   
Simple_Type_Token tagged record
inheritance from Generic_Discrimant_Type_Token
Simple type
Component Type Default
Declaration_PartUnbounded_String
   
Derived_Type_Token tagged record
inheritance from Generic_Discrimant_Type_Token
Derived type
Component Type Default
InheritanceUnbounded_String
Declaration_PartUnbounded_String
   
Component_Token tagged record
inheritance from Object_Token
Component Type Default
Next_ComponentComponent_Token_Ptr
InitUnbounded_String
Type_DefUnbounded_String
Def_ID_SDef_ID_S_Token_Ptr
   
Discriminant_Token null tagged record
inheritance from Component_Token
Record Discriminant
   
Variant_Choice_Token tagged record
inheritance from Object_Token
Component Type Default
Next_Variant_ChoiceVariant_Choice_Token_Ptr
Component_ListComponent_List_Token_Ptr
ChoiceUnbounded_String
   
Variant_Token tagged record
inheritance from Object_Token
Component Type Default
ChoiceVariant_Choice_Token_Ptr
DiscriminantUnbounded_String
   
Component_List_Token tagged record
inheritance from Object_Token
A record is composed of component (optional) and
of variant part (optional)
Component Type Default
Variant_PartVariant_Token_Ptr
Component_PartComponent_Token_Ptr
   
Poo_Record_Token tagged record
inheritance from Object_Token
Tagged record
Component Type Default
Is_AbstractBooleanFalse
Is_LimitedBooleanFalse
InheritanceUnbounded_StringNull_Unbounded_String
   
Record_Type_Token tagged record
inheritance from Generic_Discrimant_Type_Token
Record type
Component Type Default
Null_RecordBooleanFalse
Poo_PartPoo_Record_Token_Ptr
Component_ListComponent_List_Token_Ptr
   
Subtype_Decl_Token null tagged record
inheritance from Simple_Type_Token
Subtype
   
Generic_Pkg_Inst_Token tagged record
inheritance from Object_Token
Generic package instanciation
Component Type Default
InstanciationUnbounded_String
   
Generic_Subp_Inst_Token tagged record
inheritance from Generic_Pkg_Inst_Token
Generic subprogram instanciation
Component Type Default
Subprog_SpecSubprog_Token_Ptr
   
Generic_Param_Token tagged record
inheritance from Generic_Para_Token
Generic parameter
Component Type Default
InitUnbounded_String
Type_ParamUnbounded_String
ModeMode_Token_Ptr
Def_ID_SDef_ID_S_Token_Ptr
   
Entry_Decl_Token tagged record
inheritance from Subprog_Token
Component Type Default
FamilyUnbounded_StringNull_Unbounded_String
   
Entry_Decl_List tagged record
inheritance from Entry_Decl_Token
Component Type Default
NextEntry_Decl_List_Ptr
   
Task_Decl_Token tagged record
inheritance from Object_Token
Component Type Default
Private_EntriesEntry_Decl_List_Ptr
EntriesEntry_Decl_List_Ptr
DiscriminantDiscriminant_Token_Ptr
NameUnbounded_String
   
Task_Type_Decl_Token null tagged record
inheritance from Task_Decl_Token
   
Protected_Object_List tagged record
inheritance from Object_Token
Component Type Default
NextProtected_Object_List_Ptr
ItemSubprog_Token_Ptr
Could be procedure, function or entry
   
Protected_Private_Object_List tagged record
inheritance from Protected_Object_List
Component Type Default
Private_CompComponent_Token_Ptr
List of private component
   
Protected_Decl_Token tagged record
inheritance from Object_Token
Component Type Default
Prot_Op_PrivateProtected_Private_Object_List_Ptr
Prot_OpProtected_Object_List_Ptr
DiscriminantDiscriminant_Token_Ptr
NameUnbounded_String
   
Protected_Type_Decl_Token null tagged record
inheritance from Protected_Decl_Token
   
Renames_Decl_Token abstract tagged record
inheritance from Object_Token
Renames
Component Type Default
RenameUnbounded_String
   
Renames_Exception_Token tagged record
inheritance from Renames_Decl_Token
Component Type Default
Def_ID_SDef_ID_S_Token_Ptr
   
Renames_Object_Token tagged record
inheritance from Renames_Exception_Token
Component Type Default
Subtype_IndUnbounded_String
QualifierObject_Qualifier_Token_Ptr
   
Renames_Package_Token tagged record
inheritance from Renames_Decl_Token
Component Type Default
NameUnbounded_String
   
Renames_Generic_Package_Token null tagged record
inheritance from Renames_Package_Token
   
Renames_Subp_Token tagged record
inheritance from Renames_Decl_Token
Component Type Default
Subprog_SpecSubprog_Token_Ptr
   
Renames_Generic_Subp_Token null tagged record
inheritance from Renames_Subp_Token
 

Subprograms

Quick access : ClausesGenericsDefinitionsSubprograms


  
Put_Xml procedure
For each Token we provide a method to write is xml code

Purpose : Write xml code for the object

in : Self : the object
in : File : file to write in
Parameter name Type Mode Default
SelfObject_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfGeneric_Type_Para_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfGeneric_Package_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfPackage_Spec_Tokenin
FileFile_Typein
  
Concat function
ReturnUnbounded_String
Purpose : Concatanation of a list of identifier

in : Self : The list to concatanate
return : An unbounded string
Parameter name Type Mode Default
SelfDef_ID_S_Tokenin
  
Put_Xml procedure
Parameter name Type Mode Default
SelfObject_Declaration_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfException_Declaration_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfWith_Clause_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRep_Clause_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfPragma_Decl_Tokenin
FileFile_Typein
  
Convert_Mode function
ReturnString
Parameter name Type Mode Default
SelfMode_Tokenin
  
Concat function
ReturnUnbounded_String
Purpose : Concatanation of a list of parameters

in : Self : The list to concatanate
return : An unbounded string
Parameter name Type Mode Default
SelfParameters_Tokenin
  
Put_Xml procedure
Parameter name Type Mode Default
SelfParameters_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfProcedure_Decl_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfFunction_Decl_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfGeneric_Proc_Para_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfGeneric_Fun_Para_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfSimple_Type_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfDerived_Type_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfComponent_Tokenin
FileFile_Typein
  
Concat function
ReturnUnbounded_String
Purpose : Concatanation of a list of discriminant

in : Self : The list to concatanate
return : An unbounded string
Parameter name Type Mode Default
SelfDiscriminant_Tokenin
  
Put_Xml procedure
Parameter name Type Mode Default
SelfVariant_Choice_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfVariant_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfComponent_List_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRecord_Type_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfSubtype_Decl_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfGeneric_Pkg_Inst_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfGeneric_Subp_Inst_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfGeneric_Param_Tokenin
FileFile_Typein
  
Put_Xml procedure
Write to xml a list of generic object
Parameter name Type Mode Default
NodeGeneric_Para_Token_Ptrin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfEntry_Decl_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfEntry_Decl_List_Ptrin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfTask_Decl_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfProtected_Object_List_Ptrin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfProtected_Private_Object_List_Ptrin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfProtected_Decl_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRenames_Exception_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRenames_Object_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRenames_Package_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRenames_Generic_Package_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRenames_Subp_Tokenin
FileFile_Typein
  
Put_Xml procedure
Parameter name Type Mode Default
SelfRenames_Generic_Subp_Tokenin
FileFile_Typein