IMPLEMENTATION MODULE DosTracer; FROM SYSTEM IMPORT ADR, ADDRESS; FROM MathTracer IMPORT SCALAIRE; FROM Dos IMPORT Open, Close, Write, Read, FileHandlePtr, newFile, oldFile; (*TYPE FICHIER= FileHandlePtr;*) PROCEDURE OuvreFichierSortie(Nom: ADDRESS): FICHIER; BEGIN RETURN Open(Nom, newFile); END OuvreFichierSortie; PROCEDURE OuvreFichierEntree(Nom: ADDRESS): FICHIER; BEGIN RETURN Open(Nom, oldFile); END OuvreFichierEntree; PROCEDURE FermeFichier(Handle: FICHIER); BEGIN Close(Handle); END FermeFichier; PROCEDURE SauveEntier(Fichier: FICHIER; n: INTEGER); VAR p: LONGINT; BEGIN p:=Write(Fichier, ADR(n), SIZE(n)); END SauveEntier; PROCEDURE SauveScalaire(Fichier: FICHIER; x: SCALAIRE); VAR p: LONGINT; BEGIN p:=Write(Fichier, ADR(x), SIZE(x)); END SauveScalaire; PROCEDURE RecupereEntier(Fichier: FICHIER): INTEGER; VAR p: LONGINT; n: INTEGER; BEGIN p:=Read(Fichier, ADR(n), SIZE(n)); RETURN n; END RecupereEntier; PROCEDURE RecupereScalaire(Fichier: FICHIER): SCALAIRE; VAR p: LONGINT; x: SCALAIRE; BEGIN p:=Read(Fichier, ADR(x), SIZE(x)); RETURN x; END RecupereScalaire; END DosTracer.