Système de gestion de fichiers - Architecture des Machines et des Systemes Informatiques - page 352

WHILE (NOT T_IO.END_OF_FILE(A))
T_IO.READ(A, ENRG);
T_IO.WRITE(B, ENRG);
END;
-- fermeture des fichiers
T_IO.CLOSE(A);
T_IO.CLOSE(B);
END;
Le second programme illustre la définition et la manipulation de trois fichiers A,
B et C, définis comme étant à accès direct. Les ordres de lecture (READ) et écriture
(WRITE) spécifient le numéro relatif de l'enregistrement concerné.
Fichier en mode direct
type T_ENRG is
record
nom_eleve : string[30];
note : integer
end record;
-- instanciation du paquetage DIRECT_IO permettant l'utilisation du mode
➥ direct. le paquetage contient les fonctions d'accès.
with DIRECT_IO;
package T_IO is new DIRECT_IO(ELEMENT_TYPE = > T_ENRG)
A, B, C : T_IO.FILE_TYPE; ENRG : T_ENRG;
BEGIN
-- ouverture du fichier A en mode lecture seule (IN_FILE)
T_IO.OPEN(A, IN_FILE, "Notes_Eleves");
-- ouverture du fichier B en mode écriture seule (OUT_FILE)
T_IO.OPEN(B, OUT_FILE, "Copie_Eleves");
-- ouverture du fichier C en mode lecture/écriture (INOUT_FILE)
T_IO.OPEN(C, INOUT_FILE, "Modif_Eleves");
-- lecture dans le fichier A de l'enregistrement numéro 2 du fichier
T_IO.READ(A, ENRG, 2);
-- écriture dans le fichier B de l'enregistrement numéro 2 du fichier A
T_IO.WRITE(B, ENRG);
-- lecture dans le fichier C de l'enregistrement numéro 4 du fichier
T_IO.READ(C, ENRG, 4);
ENRG.note : = 0;
-- écriture dans le fichier C de l'enregistrement numéro 4 du fichier
➥ après modification
T_IO.WRITE(C, ENRG, 4);
T_IO.CLOSE(A);
T_IO.CLOSE(B); T_IO.CLOSE(C);
END;