(* FpuIO.def Implements a fixed format input/output for REAL/LONGREAL. Copyright (C) 2001-2024 Free Software Foundation, Inc. Contributed by Gaius Mulley . This file is part of GNU Modula-2. GNU Modula-2 is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. Under Section 7 of GPL version 3, you are granted additional permissions described in the GCC Runtime Library Exception, version 3.1, as published by the Free Software Foundation. You should have received a copy of the GNU General Public License and a copy of the GCC Runtime Library Exception along with this program; see the files COPYING3 and COPYING.RUNTIME respectively. If not, see . *) DEFINITION MODULE FpuIO ; EXPORT QUALIFIED ReadReal, WriteReal, StrToReal, RealToStr, ReadLongReal, WriteLongReal, StrToLongReal, LongRealToStr, ReadLongInt, WriteLongInt, StrToLongInt, LongIntToStr ; PROCEDURE ReadReal (VAR x: REAL) ; PROCEDURE WriteReal (x: REAL; TotalWidth, FractionWidth: CARDINAL) ; PROCEDURE StrToReal (a: ARRAY OF CHAR ; VAR x: REAL) ; PROCEDURE RealToStr (x: REAL; TotalWidth, FractionWidth: CARDINAL; VAR a: ARRAY OF CHAR) ; PROCEDURE ReadLongReal (VAR x: LONGREAL) ; PROCEDURE WriteLongReal (x: LONGREAL; TotalWidth, FractionWidth: CARDINAL) ; PROCEDURE StrToLongReal (a: ARRAY OF CHAR ; VAR x: LONGREAL) ; PROCEDURE LongRealToStr (x: LONGREAL; TotalWidth, FractionWidth: CARDINAL; VAR a: ARRAY OF CHAR) ; PROCEDURE ReadLongInt (VAR x: LONGINT) ; PROCEDURE WriteLongInt (x: LONGINT; n: CARDINAL) ; PROCEDURE StrToLongInt (a: ARRAY OF CHAR ; VAR x: LONGINT) ; PROCEDURE LongIntToStr (x: LONGINT; n: CARDINAL; VAR a: ARRAY OF CHAR) ; END FpuIO.