Procedure Optimiser(NulAbsorbant) DebuterAnalyse(F : Nul Ou IFlux, NomFichierSource : Caractere,
EnvoyerErreur : Nul Ou Procedure(MessageErreur : Caractere, NomFichierSource : Caractere, NumeroLigne : Entier, NumeroColonne : Entier));
La signification des paramètres de EnvoyerErreur sont les suivants :
La séquence d'usage des méthodes est la suivante :
Si cette séquence n'est pas respectée, alors l'exception est ActionLexicaleImpossible est envoyée.
/****************************************************************/
Procedure EnvoyerErreur(MessageErreur : Caractere, NomFichierSource : Caractere, NumeroLigne : Entier, NumeroColonne : Entier)
/* Objet : Envoie un message d'erreur. */
/****************************************************************/
Debut
...
Fin Procedure
Principal
/*******/
Variable
/******/
MonAnalyseurLexical : Nul Ou AnalyseurLexical;
F : Nul Ou Fichier;
PasFini : Booleen;
ElementLexical : Entier;
Debut
...
MonAnalyseurLexical.DebuterAnalyse(IFlux(F), F.NomFlux, PositionLibre, EnvoyerErreur);
...
PasFini=Vrai;
Tant PasFini Faire
ElementLexical=MonAnalyseurLexical.LireElementLexicalSuivant();
Selon ElementLexical Faire
Cas Pour ElementChaineApostrophes Faire
...
Fin Cas
Cas Pour ElementChaineChevrons Faire
...
Fin Cas
Cas Pour ElementChaineGuillemets Faire
...
Fin Cas
Cas Pour ElementCommentaireBloc Faire
...
Fin Cas
Cas Pour ElementCommentaireLigne Faire
...
Fin Cas
Cas Pour ElementEntier Faire
...
Fin Cas
Cas Pour ElementReel Faire
...
Fin Cas
Cas Pour ElementIdentifiant Faire
...
Fin Cas
Fin Selon
Fin TantQue
...
MonAnalyseurLexical.TerminerAnalyse();
...
Fin Principal
- | - | - | - | - | - | - | - | - |