home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / convertr.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.5 KB  |  59 lines
  1. DEFINITION MODULE ConvertReal;
  2. (*      File name: ConvertReal.def                              *)
  3. (*      Creation : Orginal Montan File                          *)
  4. (*      Function : Change Real to String and String to Real     *)
  5. (*      By       : Philip E. Rosine                             *)
  6. (*                                                              *)
  7. (*
  8. *    Copyright (c) 1985,1986,1987,1988,1989 by
  9. *    ana-systems, Foster City, California.
  10. *    All Rights Reserved.
  11. *
  12. *    This software is furnished under a license and may be used and copied
  13. *    only  in accordance with  the  terms  of  such  license and  with the
  14. *    inclusion of the above copyright notice.  This software or  any other
  15. *    copies thereof may not be provided or otherwise made available to any
  16. *    other  person.   No title to and ownership of the  software is  herby
  17. *    transferred.
  18. *
  19. *    The information in this software is  subject to change without notice
  20. *    and  should  not be construed as a commitment by ana-systems.   No
  21. *    warranty is implied or expressed.
  22. * 
  23. *   SCCID  = "1.1    1/26/86"; 
  24. *)
  25. (*      History of modifcation                                  *)
  26. (*      Date            Who             Why                     *)
  27. (*      7/18/85         Morris          Changes for  BSL        *)
  28. (*                                                              *)
  29.  
  30.         (*      as defined by Wirth,1983, pp104-5
  31.                 entered by Philip E. Rosine
  32.                 25 Nov 83       *)
  33.    
  34.    EXPORT QUALIFIED RealToStr, StrToReal;
  35.  
  36.  
  37.    PROCEDURE StrToReal(  VAR str : ARRAY OF CHAR;
  38.                          VAR real : REAL;
  39.                          VAR success : BOOLEAN);
  40.  
  41.         (* Read REAL number  x according to syntax:
  42.           ["+"|"-"]digit{digit}["."digit{digit}]["E"["+"|"-"]digit[digit]]
  43.          Done := "a number was read".
  44.          At most 7 digits are significant, leading zeroes not
  45.          counting.  Maximum exponent is 38.  Input terminates
  46.          with a blank or any control character.  DEL is used for
  47.          backspacing.   *)
  48.    
  49.    PROCEDURE RealToStr( real : REAL;
  50.                         VAR str : ARRAY OF CHAR;
  51.                             width : CARDINAL;
  52.                             decPlaces : CARDINAL;
  53.                         VAR success :BOOLEAN );
  54.         (* Write x using n characters.  If fewer than n
  55.         characters are needed, leading blanks are inserted.  *)
  56.    
  57.  
  58. END ConvertReal.
  59.