home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / mod4.hqx / M2-4.pit / OUTTERMINAL.DEF < prev    next >
Encoding:
Modula Definition  |  1985-04-25  |  1.1 KB  |  33 lines
  1. DEFINITION MODULE OutTerminal;
  2.  
  3. (* contains formatting number output routines*)
  4. (* taken from the Lilith Handbook  13.1.1984 P. Fink *)
  5.  (* WriteR removed 07.01.84 fxk *)
  6.  
  7. FROM SYSTEM IMPORT WORD, ADDRESS;
  8.  
  9. EXPORT QUALIFIED WriteT, WriteI,WriteB, WriteC, WriteH, (* WriteR, *)
  10.                  WriteAC, WriteAH, dumphex;
  11.  
  12. PROCEDURE WriteT (VAR s: ARRAY OF CHAR; length: CARDINAL);
  13. PROCEDURE WriteI (value: INTEGER; length: CARDINAL);
  14. PROCEDURE WriteB (value: BOOLEAN; length: CARDINAL);
  15. PROCEDURE WriteC (value: CARDINAL; length: CARDINAL);
  16. PROCEDURE WriteH (value: WORD; length: CARDINAL);
  17. (* PROCEDURE WriteR (value: REAL; length,dec: CARDINAL; fmt: CARDINAL);
  18.    (* fmt = 0: normal, =1: fixed only, =2: float only *)                *)
  19.  
  20. PROCEDURE WriteAC (value: ADDRESS; length: CARDINAL);
  21. PROCEDURE WriteAH (value: ADDRESS; length: CARDINAL);
  22.  
  23. PROCEDURE dumphex
  24.    (VAR title: ARRAY OF CHAR;
  25.         start: ADDRESS; length: CARDINAL; printadr: ADDRESS; linelength: CARDINAL);
  26.    (* note: printadr = displayed addr *)
  27.  
  28. END OutTerminal.
  29. (*======================================================================================*)
  30.  
  31.  
  32.  
  33.