home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / mod5.hqx / M2-5.pit / OUTFILE.DEF < prev    next >
Encoding:
Modula Definition  |  1985-04-25  |  1.1 KB  |  33 lines
  1. DEFINITION MODULE OutFile;
  2.  
  3. (* contains formatting number output routines*)
  4. (* taken from the Lilith Handbook  13.1.1984 P. Fink *)
  5. (* last change :   25.04.85 *)
  6.  
  7. FROM SYSTEM       IMPORT WORD, ADDRESS;
  8. FROM M2Files      IMPORT File;
  9. FROM RealTerminal IMPORT RFormat; (*= (RFixed, RFloat, RAuto);*)
  10.  
  11. EXPORT QUALIFIED FWrite, FWriteLn, FWriteT, FWriteI, FWriteC, FWriteH,
  12.   FWriteAC, FWriteAH, Fdumphex, FWriteR;
  13.  
  14. PROCEDURE FWrite  (f: File; ch: CHAR);
  15. PROCEDURE FWriteLn(f: File);
  16. PROCEDURE FWriteT (f: File; VAR s: ARRAY OF CHAR; length: CARDINAL);
  17. PROCEDURE FWriteI (f: File; value: INTEGER; length: CARDINAL);
  18. PROCEDURE FWriteC (f: File; value: CARDINAL; length: CARDINAL);
  19. PROCEDURE FWriteH (f: File; value: WORD; length: CARDINAL);
  20.  
  21. PROCEDURE FWriteAC (f: File; value: ADDRESS; length: CARDINAL);
  22. PROCEDURE FWriteAH (f: File; value: ADDRESS; length: CARDINAL);
  23.  
  24. PROCEDURE Fdumphex
  25.    (f: File; VAR title: ARRAY OF CHAR;
  26.         start: ADDRESS; length: CARDINAL; printadr: ADDRESS; linelength: CARDINAL);
  27.    (* note: printadr = displayed addr *)
  28.  
  29. PROCEDURE FWriteR (f: File; value: REAL; length,dec: CARDINAL; fmt: RFormat);
  30.  
  31. END OutFile.
  32.  
  33.