home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / RealInOut.mod < prev    next >
Text File  |  1996-11-16  |  835b  |  39 lines
  1. IMPLEMENTATION MODULE RealInOut;
  2.  
  3. (* (C) Copyright 1994 Marcel Timmermans. All rights reserved. *)
  4.  
  5. FROM InOut IMPORT ReadString,WriteString;
  6. FROM RealConvert IMPORT StringToReal,RealToString;
  7.  
  8. CONST 
  9.   MaxString=50;
  10.   Err='Error conversion Str<->Real';
  11.  
  12. TYPE
  13.   StrArray=ARRAY[0..MaxString-1] OF CHAR;
  14.  
  15. VAR 
  16.   Error:BOOLEAN;
  17.  
  18. PROCEDURE WriteRealExp(r:REAL; width,dec:INTEGER);
  19. VAR s:StrArray;
  20. BEGIN
  21.   RealToString(r,s,width,dec,TRUE,Error);
  22.   IF Error THEN WriteString(Err); ELSE WriteString(s); END;
  23. END WriteRealExp;
  24.  
  25. PROCEDURE WriteReal(r:REAL; width,dec:INTEGER);
  26. VAR s:StrArray;
  27. BEGIN
  28.   RealToString(r,s,width,dec,FALSE,Error);
  29.   IF Error THEN WriteString(Err); ELSE WriteString(s); END;
  30. END WriteReal;
  31.  
  32. PROCEDURE ReadReal(VAR r:REAL);
  33. VAR s:StrArray;
  34. BEGIN
  35.   ReadString(s); StringToReal(s,r,Error);
  36. END ReadReal;
  37.  
  38. END RealInOut.
  39.