home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac-Source 1994 July
/
Mac-Source_July_1994.iso
/
Modula
/
Source
/
REALTERMINAL.DEF
< prev
next >
Wrap
Text File
|
1985-04-30
|
914b
|
24 lines
(*===================================================================================================*)
DEFINITION MODULE RealTerminal; (* Christoph Fleischer 05.03.85 *)
(* last modification 25.04.85 *)
EXPORT QUALIFIED
RFormat,
ReadR,ConvertToR,RealToString,WriteR;
TYPE RFormat = (RFixed,RFloat,RAuto);
(***** IMPLEMENTATION RESTRICTION
type RAuto is currently not supported ******)
PROCEDURE ReadR(VAR r: REAL);
PROCEDURE ConvertToR(VAR s: ARRAY OF CHAR; VAR r: REAL);
PROCEDURE RealToString(r: REAL; Field, Dec: CARDINAL;fmt :RFormat; VAR s: ARRAY OF CHAR );
PROCEDURE WriteR (value: REAL; length,dec: CARDINAL; fmt: RFormat);
(*
PROCEDURE FWriteR (f: File; value: REAL; length,dec: CARDINAL; fmt: RFormat); is in OutFile *)
END RealTerminal.
(*===================================================================================================*)