home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / Module / LongRealInOut.mod < prev    next >
Encoding:
Text File  |  1994-08-05  |  1.3 KB  |  46 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Library Module: LongRealInOut        Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1991 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE LongRealInOut;
  10.  
  11. IMPORT io, rc := LongRealConversions;
  12.  
  13.  
  14. (*------  WriteReal:  ------*)
  15.  
  16.  
  17. PROCEDURE WriteReal*(r: LONGREAL; v,n: INTEGER; exp: BOOLEAN): BOOLEAN;
  18. (* gibt r mit v Vorkomma und n Nachkommastellen und, wenn exp=TRUE, evt.
  19.    mit Exponent aus. Ergebnis ist TRUE, wenn r in die durch v,n und exp
  20.    vorgegebene Schablone paßt. *)
  21.  
  22. VAR str: ARRAY 256 OF CHAR;
  23.  
  24. BEGIN
  25.   IF rc.RealToString(r,str,v,n,exp) THEN io.WriteString(str); RETURN TRUE
  26.                                     ELSE                      RETURN FALSE END;
  27.  
  28. END WriteReal;
  29.  
  30.  
  31. (*------  ReadReal:  ------*)
  32.  
  33.  
  34. PROCEDURE ReadReal*(VAR r: LONGREAL): BOOLEAN;
  35.  
  36. VAR str: ARRAY 256 OF CHAR;
  37.  
  38. BEGIN
  39.   io.ReadString(str);
  40.   RETURN rc.StringToReal(str,r);
  41. END ReadReal;
  42.  
  43.  
  44. END LongRealInOut.
  45.  
  46.