o est un cWord
def est un Définition
def = RécupèreDéfinition(o)
Trace(def.Nom)
Trace(def.FamilleDéfinition)
Trace(defp.Type)
Proc est une Description de procédure
Prop est une Description de Propriété
Var est une Description de Variable
Trace("--------------- Procédures --------------------")
POUR TOUT Proc DE def.Procédure
Trace(Proc.Global, Proc.Hérité, Proc.Nom, Proc.Virtuel)
FIN
Trace("--------------- Propriétés --------------------")
POUR TOUT Prop DE def.Propriété
Trace(Prop.Déclaration, Prop.Définition, Prop.Ecriture, ...
Prop.Global, Prop.Hérité, Prop.Lecture, Prop.Nom, Prop.Virtuel)
FIN
Trace("--------------- Variables --------------------")
POUR TOUT Var DE def.Variable
Trace(Var.Nom, Var.Définition.Type, Var.Définition.Nom)
SELON Var.Définition.Type
CAS 1, 4, 8, 19
Trace({o,Var})
CAS 34
Trace("Dimension: ", {o,Var.Nom}..Occurrence)
CAS 36
v est une Description de Variable
Trace("Structure " + Var.Définition.Nom)
Trace("........................................................")
POUR TOUT v DE Var.Définition.Variable
Trace(v.Nom, v.Définition.Type, v.Définition.Nom)
FIN
Trace("........................................................")
AUTRE CAS
FIN
Trace("======================================================================")
FIN