home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / mod4.hqx / M2-4.pit / REALTERMINAL.DEF < prev    next >
Encoding:
Modula Definition  |  1985-04-25  |  914 b   |  24 lines
  1. (*===================================================================================================*)
  2. DEFINITION MODULE RealTerminal;      (* Christoph Fleischer 05.03.85 *)
  3.                                      (* last modification   25.04.85 *)
  4.  
  5.  
  6. EXPORT QUALIFIED
  7.   RFormat,
  8.   ReadR,ConvertToR,RealToString,WriteR;
  9.  
  10. TYPE RFormat = (RFixed,RFloat,RAuto);
  11.  
  12. (***** IMPLEMENTATION RESTRICTION
  13.        type RAuto is currently not supported  ******)
  14.  
  15. PROCEDURE ReadR(VAR r: REAL);
  16. PROCEDURE ConvertToR(VAR s: ARRAY OF CHAR; VAR r: REAL);
  17. PROCEDURE RealToString(r: REAL; Field, Dec: CARDINAL;fmt :RFormat; VAR s: ARRAY OF CHAR );
  18. PROCEDURE WriteR (value: REAL; length,dec: CARDINAL; fmt: RFormat);
  19. (*
  20. PROCEDURE FWriteR (f: File; value: REAL; length,dec: CARDINAL; fmt: RFormat); is in OutFile *)
  21.  
  22. END RealTerminal.
  23. (*===================================================================================================*)
  24.