DosTracer.mod

   1 IMPLEMENTATION MODULE DosTracer;
   2
   3 FROM SYSTEM IMPORT ADR, ADDRESS;
   4 FROM MathTracer IMPORT   SCALAIRE;
   5 FROM Dos IMPORT          Open, Close, Write, Read, FileHandlePtr,
   6                          newFile, oldFile;
   7
   8 (*TYPE
   9   FICHIER= FileHandlePtr;*)
  10
  11 PROCEDURE OuvreFichierSortie(Nom: ADDRESS): FICHIER;
  12 BEGIN
  13   RETURN Open(Nom, newFile);
  14 END OuvreFichierSortie;
  15
  16 PROCEDURE OuvreFichierEntree(Nom: ADDRESS): FICHIER;
  17 BEGIN
  18   RETURN Open(Nom, oldFile);
  19 END OuvreFichierEntree;
  20
  21 PROCEDURE FermeFichier(Handle: FICHIER);
  22 BEGIN
  23   Close(Handle);
  24 END FermeFichier;
  25
  26 PROCEDURE SauveEntier(Fichier: FICHIER; n: INTEGER);
  27 VAR
  28   p: LONGINT;
  29 BEGIN
  30   p:=Write(Fichier, ADR(n), SIZE(n));
  31 END SauveEntier;
  32
  33 PROCEDURE SauveScalaire(Fichier: FICHIER; x: SCALAIRE);
  34 VAR
  35   p: LONGINT;
  36 BEGIN
  37   p:=Write(Fichier, ADR(x), SIZE(x));
  38 END SauveScalaire;
  39
  40 PROCEDURE RecupereEntier(Fichier: FICHIER): INTEGER;
  41 VAR
  42   p: LONGINT;
  43   n: INTEGER;
  44 BEGIN
  45   p:=Read(Fichier, ADR(n), SIZE(n));
  46   RETURN n;
  47 END RecupereEntier;
  48
  49 PROCEDURE RecupereScalaire(Fichier: FICHIER): SCALAIRE;
  50 VAR
  51   p: LONGINT;
  52   x: SCALAIRE;
  53 BEGIN
  54   p:=Read(Fichier, ADR(x), SIZE(x));
  55   RETURN x;
  56 END RecupereScalaire;
  57
  58 END DosTracer.