Procedure Optimiser(NulAbsorbant) ChercherElementLexical(Symbole : Nul Ou Caractere, Paquet : Nul Ou PaquetLexical, Identifiant : Entier Sortie, Valeur : Nul Ou Objet=Nul Sortie);
Si le symbole est trouvé alors le paramètre Identifiant et Valeur reçoivent respectivement l'identifiant et la valeur sémantique de l'élément lexical. Si leur valeur sont respectivement 0 et Nul.
Si Paquet est Nul alors le symbole est cherché dans le paquet global de l'analyseur lexical.
Principal
/*******/
Constante
/*******/
ElementVariable=70000;
Variable
/******/
MonAnalyseurLexical : Nul Ou AnalyseurLexical;
ReferenceA : ReferenceDe Entier;
IdentifiantA : Entier;
ValeurA : Nul Ou Objet;
Debut
...
MonAnalyseurLexical.ChercherElementLexical(ElementVariable, "A", PositionLibre, Nul, ReferenceA);
...
MonAnalyseurLexical.ChercherElementLexical("A", Nul, Identifiant, ValeurA);
...
MonAnalyseurLexical.SupprimerElementLexical("A");
...
Fin Principal
| - | - | - | - | - | - | - | - | - |