Fonction Habilitation Optimiser(PasDEffetDeBord) ComparerFichiersTextes(NomFichier1 : Nul Ou Caractere, NomFichier2 : Nul Ou Caractere,
EnvoyerMessage : Nul Ou Procedure (NumeroFichier : Entier, NumeroLigne : Entier, LigneDifferente : Caractere)=Nul) Retourner Booleen;
Si les contenus des fichiers sont identiques alors la réponse à l'appel est Vrai.
Si NomFichier1 est Nul ou si NomFichier2 est Nul alors la réponse est Faux.
Le paramètre EnvoyerMessage est une procédure permettant de récupérer les différences entre les contenus des fichiers. Voici ses paramètres :
/****************************************************************/
Procedure EnvoyerMessage(NumeroFichier : Entier, NumeroLigne : Entier, LigneDifferente : Caractere)
/* Objet : Envoie le message a l'ecran. */
/****************************************************************/
Debut
Si NumeroFichier==1 Alors
Ecran.Ecrire(Caractere(NumeroLigne)+" << "+LigneDifferente);
Sinon
Ecran.Ecrire(Caractere(NumeroLigne)+" >> "+LigneDifferente);
Fin Si
Fin Procedure
Principal
/*******/
Debut
Si ComparerFichiersBinaires("/tmp/upsoms110.cpp", "/tmp/upsoms120.cpp") Alors
Ecran.Ecrire("Identique binaire");
Sinon
Ecran.Ecrire("Different binaire");
Fin Si
Si ComparerFichiersTextes("/tmp/upsoms110.cpp", "/tmp/upsoms120.cpp", EnvoyerMessage) Alors
Ecran.Ecrire("Identique texte");
Sinon
Ecran.Ecrire("Different texte");
Fin Si
Fin Principal
- | - | - | - | - | - | - | - | - |