1 IMPLEMENTATION MODULE DosTracer;
3 FROM SYSTEM IMPORT ADR, ADDRESS;
4 FROM MathTracer IMPORT SCALAIRE;
5 FROM Dos IMPORT Open, Close, Write, Read, FileHandlePtr,
9 FICHIER= FileHandlePtr;*)
11 PROCEDURE OuvreFichierSortie(Nom: ADDRESS): FICHIER;
13 RETURN Open(Nom, newFile);
14 END OuvreFichierSortie;
16 PROCEDURE OuvreFichierEntree(Nom: ADDRESS): FICHIER;
18 RETURN Open(Nom, oldFile);
19 END OuvreFichierEntree;
21 PROCEDURE FermeFichier(Handle: FICHIER);
26 PROCEDURE SauveEntier(Fichier: FICHIER; n: INTEGER);
30 p:=Write(Fichier, ADR(n), SIZE(n));
33 PROCEDURE SauveScalaire(Fichier: FICHIER; x: SCALAIRE);
37 p:=Write(Fichier, ADR(x), SIZE(x));
40 PROCEDURE RecupereEntier(Fichier: FICHIER): INTEGER;
45 p:=Read(Fichier, ADR(n), SIZE(n));
49 PROCEDURE RecupereScalaire(Fichier: FICHIER): SCALAIRE;
54 p:=Read(Fichier, ADR(x), SIZE(x));