RealConvert.mesa
Copyright Ó 1985, 1986, 1991 by Xerox Corporation. All rights reserved.
Russ Atkinson (RRA) February 19, 1985 4:15:16 pm PST
Weiser, January 27, 1991 10:10 pm PST
Doug Wyatt, August 27, 1991 1:42 pm PDT
RealConvert: CEDAR DEFINITIONS
= BEGIN
Ieee floating point format is the Cedar standard. However, some ancient files (notably Press files) use the old bcpl floating point format. These procedures do the appropriate conversion.
CVError: ERROR; -- Signalled on impossible conversion in IeeeToBcpl
BcplReal:
TYPE =
RECORD[
CARD32];
Not really CARD32, but the user should be able to cope.
The following procedures swap the two words as well as change the bit formats.
BcplToIeee: PROC [a: BcplReal] RETURNS [b: REAL];
IeeeToBcpl: PROC [a: REAL] RETURNS [b: BcplReal];
END.